Ceas Alarma in Visual basic

In acest tutorial va voi arata cum sa faceti un simplu ceas alarma in Visual basic ca sa va "scoale" dimineata!Big Grin

Pentru inceput va trebuie un textbox(Text1) in care setati ora la care sa porneasca alarma!(de exemplu 4Smile
Apoi adaugam un alt textbox(text2) in care selectam minutele(de exemplu :25)
Rezultand in acest exemplu ca vrem sa sune alarma la ora 4:25

Apoi punem pe form un OptionButton(Option1) cu Caption "AM" , apoi mai punem unul(Option2) cu captionul "PM"
Mai punem un textbox(Text3) care nu trebuie neaparat sa fie vizibil pe form..(Visible = False)..in acest textbox va fi inregistrata optiunea aleasa mai devreme(AM sau PM)

Acum punem un CommandButton cu Caption "ON"-acest buton va activa alarma iar alt buton cu Caption "OFF"-acesta va opri actiunea ceasului alarma!

Acum pentru estetica vom pune un label(lblStatus) in care se va afla statusul alarmei(On sau Off)
Alt label ne va indica ora(lblTime)

In cele din urma vom "arunca" pe form 4 timere(Timer1, Timer2,Timer3,Timer4)

Sa scriem codul-sursa...
voi incepe mai intai prin a arata pe form in labelul lblTime ceasul si in labelul lblStatus va arata OFF ceea ce inseamna ca alarma e oprita!

Private Sub Form_Load()
lblTime.caption = Time
lblStatus.caption = "OFF"
End Sub

Private Sub Timer1_Timer()
lblTime.caption = time
End Sub
Timer1 are ca interval 1

acum adaugam codul Timerului2 cu interval 1

Private Sub Timer2_Timer()
If Time = (Text1.Text) & ":" & (Text2.Text) & ":00 " & (Text3.Text) Then
Timer4.Enabled = True
Timer4.Interval = 1000
End If
End Sub
Sa va explic cat de cat codul acesta :
text1.text va indica ora : text2 va indica minutele : 00 si text3 -PM sau AM

codul pentru Timer3 cu interval 1
Private Sub Timer3_Timer()
If Option1 = 1 Then
Text3.Text = "AM"
Else
Text3.Text = "PM"
End If
End Sub
sa va explic...daca va fi selectat Option1 atunci text3 va fi AM si in caz contrar va fi "PM"

codul pentru Timer4..cu ajutorul caruia va suna alarma(un sunet wav)

Pentru asta deschidem un Modual si adaugam urmatorul cod:

Option Explicit
Public Declare Function sndPlaySound Lib "winmm.dll" Alias "sndPlaySoundA" _
(ByVal lpszSoundName As String, ByVal uFlags As Long) As Long
Public Sub PlaySound(strSound As String)

Dim wFlags%

wFlags% = SND_ASYNC Or SND_NODEFAULT
sndPlaySound strSound, wFlags%

End Sub
urmeaza codul timerului:
Private Sub Timer4_Timer()
PlaySound App.Path & "\Alarm.wav"
End Sub
in cazul meu va canta sunetul wav Alarm care trebuie sa fie in folderul programului!

acum urmeaza codul butonului ON care face posibila pornirea alarmei

Private Sub Command1_Click()
Timer2.Enabled = True
Timer2.Interval = 1
lblStatus.Caption = "ON"
Text1.Locked = True
Text2.Locked = True
End Sub
sper ca itelegeti..se activeaza timerul2.i se seteaza intervalul...lblStatus.caption va fi "ON" iar text1.locked si text2.locked va face imposibila reeditarea orei si a minutelor in timpul actiunii alarmei..pentru a putea reedita va trebui sa apasati butonul OFF al carui cod urmeaza:

Private Sub Command2_Click()
Timer2.Enabled = False
Timer4.Enabled = False
lblStatus.Caption = "OFF"
Text1.Locked = False
Text2.Locked = False
End Sub
dupa cum vedeti..se incheie activitatatea tiemrului2 si 4, lblStatus.caption devine "OFF", iar acum puteti modifca continutul textbox-urilor Text1 si Text2
succes!