[PYTANIE] Od czasu do czasu

[LATRAX]

Witam mam problem, chce zeby czas był od 10:00:00 do 11:00:00 i potem zeby w Label1 cos pisało...

 

If TimeOfDay = "10:00:00" Then MsgBox("Costam")
        If TimeOfDay = "11:00:00" Then MsgBox("Costam")

lub coś w stylu ze czas + jak jest 10:00:00 to label1 costam pisze...

 

If TimeOfDay + "10:00:00" Then MsgBox("Costam") tylko że tak nie działa

[TosieKJR]

Przylaczam sie do pytania

[LATRAX]

@REF

[LATRAX]

@REF

[LATRAX]

@REF

[Inorist™]

Wytłumacz dokładniej to Ci napisze

[DrexonPl]

If TimeOfDay = "10:00:00" Then

MsgBox("Costam")

end if

 

If TimeOfDay = "11:00:00" Then

MsgBox("Costam")

end if

jak nie działa to:

If label1.text = "10:00:00" Then

MsgBox("Costam")

end if

 

If label.text = "11:00:00" Then

MsgBox("Costam")

end if

 

 

ale stawiam na te drugie

[LATRAX]

Ok więc mi chodzi że jak ustawia if timeofday = "10:00:00" then label1.text = costam ale problem jak odpale program 10:00:30 to label1.text bedzie takie jak było na norm chce zeby od 10:00:00 do 11:00:00 label1.text = "costam" był...

[Inorist™]

W takim oto przypadku używamy

 

if TimeOfDay.Hour >= 10 and TimeOfDay.Hour <= 11 Then
      label1.text = TimeOfDay
end if
 

[Sunnyline2]

Ok więc mi chodzi że jak ustawia if timeofday = "10:00:00" then label1.text = costam ale problem jak odpale program 10:00:30 to label1.text bedzie takie jak było na norm chce zeby od 10:00:00 do 11:00:00 label1.text = "costam" był...

 

W timerze ustaw interval na 100ms, żeby po otwarciu programu czas odrazu się pojawił

 

 

Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
        Timer1.Interval = 1000
        Dim Czas As String = TimeOfDay.TimeOfDay.ToString
        Label1.Text = Czas
        If Czas = TextBox1.Text Then  'w TextBox1.Text umieszczasz godzinę w formacie 15:15:15 (h/m/s)
            MsgBox(Czas) 'Jesli będzie odpowiednia godzina wyskoczy informacja ze jest ta godzina(bredze)..
        End If
    End Sub

[Inorist™]

 

W timerze ustaw interval na 100ms, żeby po otwarciu programu czas odrazu się pojawił

 

 

Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
        Timer1.Interval = 1000
        Dim Czas As String = TimeOfDay.TimeOfDay.ToString
        Label1.Text = Czas
        If Czas = TextBox1.Text Then  'w TextBox1.Text umieszczasz godzinę w formacie 15:15:15 (h/m/s)
            MsgBox(Czas) 'Jesli będzie odpowiednia godzina wyskoczy informacja ze jest ta godzina(bredze)..
        End If
    End Sub

Źle go zrozumiałeś .. On chce zrobić warunek ze od 10:00:00 do 11:00:00 będzie wykonywana jakaś funkcja, w tym przypadku zwrot do label'a. Twój kod służy do pokazania komunikatu o jakiejś godzinie ale nie przez jakiś czas.

 

 

Mała modyfikacja twojego kodu:

 

 

Private Sub Form_Load ...
	Timer1.Interval = 1000
End Sub

Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
	if TimeOfDay.Hour >= 10 and TimeOfDay.Hour <= 11 Then
		label1.text = "Jest godzina od 10 do 11"
	end if
End Sub
  

[LATRAX]

ok ten kod jest to wreście dzięki każdy dostanie like bo tylko wy próbowaliście mi pomóc thx