Sie sind aktuell nicht angemeldet.

Funktionen: Einloggen  |  Neu registrieren  |  Suchen

Farbe
Autor: HGuenther
Datum: 09.01.03 12:42
Hallo, ich habe folgenden Code, Private Sub Timer1_Timer() DTR 1 REALTIME (True) TIMEINITUS While (DSR() = 0) And (TIMEREADUS() < 1500000) Wend T = TIMEREADUS() T = T * 1.0000000001 R = 2200 + 7800 * (T - 76300) / (294600 - 76300) REALTIME (False) R = Int(R) temp = 1 / (Log(R / 1000) / 3363 + 1 / 298) - 273 temp = Int(temp * 10) / 10 Label1.Caption = Str$(temp) + "°C" Form1.Caption = Str$(temp) + "°C" If Str$(temp) > "25" Then Label1.ForeColor = QBColor(12) Else Label1.ForeColor = QBColor(3) End If 'Temp = 32 + (Temp / 100 * 180) 'Temp = Int(Temp * 10) / 10 'Label1.Caption = Str$(Temp) + " F" DTR 0 End Sub Ich möchte nun das wenn STR$(temp) > 25 Grad ist die Schriftfarbe rot wird. aber die Farbe ist gleich beim Start rot. Komme einfach nicht darauf, wo der Fehler ist. Über jede Hilfe bin ich dankbar. MfG Hagen

Farbe	500	HGuenther	09.01.03 12:42
Re: Farbe	381	Dieter	09.01.03 12:51
Re: Farbe	332	HGuenther	09.01.03 13:13

Sie sind nicht angemeldet! Um auf diesen Beitrag zu antworten oder neue Beiträge schreiben zu können, müssen Sie sich zunächst anmelden. Einloggen  |  Neu registrieren

Funktionen:  Zum Thema  |  Gesamtübersicht

Suchen