✔ Tag für Tag...

[Mailyn]

(Ich habe per Suchfunktion so manche Threads gefunden, allerdings keinen hilfreichen)

Ich programmiere gerade eine Art "Lebens-Simulation" und da hab ich jetzt schon eine virtuelle Datumsanzeige programmiert (Tag/Montag/Jahr) Ich möchte aber auch noch, dass der Wochentag angezeigt wird! Ich habe das so probiert:
Der TImer fragt alle 24 Sek. folgendes ab:

 Private Sub Timer1_timer() 
If tag1.Caption = "Montag" Then
			tag1.Caption = "Dienstag"
			End If
			
			If tag1.Caption = "Dienstag" Then
			tag1.Caption = "Mittwoch"
			End If
......
......
......
End Sub

geht aber nicht! Habt ihr 'ne Lösung?

MfG
Mailyn

 

[codeman]

Hallo,

Ich hab das Beispiel mal nachgebaut.

Wenn im Label tag1 "Montag" steht wandelt der Timer das nach 24 Sekunden automatisch in "Dienstag" um - der Code ist O.K.
Nur ... die nächste If prüft auf "Dienstag" und wandelt in "Mittwoch" um und so weiter, allerdings nicht 24 Sekunden später sondern sofort.

Das lässt sich durch Exit Sub lösen.

Probier mal folgenden Code:

Private Sub Timer1_timer()
If tag1.Caption = "Montag" Then
tag1.Caption = "Dienstag"
Exit Sub
End If

If tag1.Caption = "Dienstag" Then
tag1.Caption = "Mittwoch"
Exit Sub
End If

'...
'...
'...
End Sub


Ich hoffe es funktioniert jetzt.
Codeman

 

[Shakie]

Probiere mal folgenden Code aus, der ist wesentlich kürzer:

Private Sub Timer1_Timer()
	Static intTagnummer As Integer
	intTagnummer = intTagnummer + 1
	If intTagnummer > 7 Then intTagnummer = 1
	tagl.Caption = Choose(intTagnummer, "Montag", "Dienstag", "Mittwoch", "Donnerstag", "Freitag", "Samstag", "Sonntag")
End Sub

Hier wird in der Variable "intTagnummer" eine Zahl gespeichert, die den Tag bestimmt. Bei Jedem Timer-Ereignis wird die Zahl hochgezählt und wenn sie größer als 7 ist wieder auf 1 zurückgesetzt. Anschließend gibt die Choose-Funktion anhand der Variable "intTagnummer" den Namen des Tages zurück.

 

[NRFi]

die chooselösung ist da natürlich am besten.
ansonsten gibt es ja auch elseif

also if tag = "montag" then
...
elseif tag = "dienstag" then
...
..
.
end if

damit biste das problem das du hattest auch los. dann fragt er halt nicht noch die anderen sachen ab.

ansonsten gibt es auch select case:

select case tag1.caption

case "montag":
dein code...
case "dienstag":
dein code...
...
..
.
end select