[VB] Cara Membuat Alarm Sederhana Dengan VB6

Hi Lp'ers
Hari ini saya akan memberikan tutorial untuk membuat "Alarm dengan VB6"





Alarm adalah jam pengingat. Alarm biasanya di pakai untuk, membangunkan kita saat tidur, mengingatkan kita jika ada kegiatan, dan lain-lain. Ternyata alarm dapat kita buat sendiri juga, dan caranya mudah, dengan Visual Basic 6, alarm ini dapat di buat.
Let's Begin :
1. Buka Visual Basic 6; pilih standard EXE.
2. di form tersebut, buatkan 3 label, 1 text box, 2 timer, dan 2 command button.
3. Aturlah label, text box, timer, dan command button sesuai keinginan dan kebutuhan kalian . ini hanya contoh !

 

Gantilah captionnya: Label1: Alarm Label2: 00:00:00 Label3: Tetapkan waktu alarm Text1: - (kosongkan) Command1: Keluar Command2: Aktif Dan ganti: Enable: True (pada timer1) Enable: False (pada timer2) Interval: 1000 (pada timer1 & timer 2) Code :

Dim alarm As Boolean
Private Sub Command2_Click()
If alarm = True Then
Timer2.Enabled = False
Command2.Caption = "Aktif"
alarm = False
Else
Command2.Caption = "Tidak Aktif"
alarm = True
End If
End Sub

Private Sub Command1_Click()
End
End Sub
Private Sub Form_Load()
alarm = False
End Sub

Private Sub Timer1_Timer()
Label2.Caption = Time
If Text1.Text = Label2.Caption And alarm = True Then
Timer2.Enabled = True
End If
End Sub

Private Sub Timer2_Timer()
Beep
End Sub

Nah kalo udah Di RUN , kalo di ikutin step by step pasti bisa :D
Selamat Mencoba -

 Sumber