Cara membuat bel sekolah otomatis menggunakan visual basic 6.0

Assalamualaikum wr.wb

Selamat siang menjelang sore gan/sist, kali ini saya akan share sedikit ilmu tentang cara membuat aplikasi atau program bel sekolah otomatis menggunakan visual basic 6.0 cekidot..

1. Pastikan visual basic anda telah di install kalo belum silahkan download di sini.

2. Bukalah aplikasi visual basic anda, lalu pilih file -> new project -> standard EXE -> pilih OK.

3. Lalu buatlah 8 label, 5 text box, 4 command button, 1 timer dan 1 windows media player.

Atau lebih jelasnya lagi seperti gambar yang ada di bawah ini:

4. Setelah selesia membuat form di atas lalu kita menuliskan code atau scriptnya supaya bias berjalan.

Silahkan tulis atau copy script berikut ini:

Dim bel As Boolean

Private Sub Command1_Click()

If bel = True Then

Timer2.Enabled = False

Command1.Caption = "Aktif"

bel = False

Else

Command1.Caption = "Tidak Aktif"

bel = True

End If

End Sub

Private Sub Command2_Click()

End

End Sub

Private Sub Command3_Click()

Text1.Locked = True

Text2.Locked = True

Text3.Locked = True

Text4.Locked = True

Text5.Locked = True

Label2.Caption = "Jam Terkunci"

Command4.Enabled = True

Command3.Enabled = False

End Sub

Private Sub Command4_Click()

Text1.Locked = False

Text2.Locked = False

Text3.Locked = False

Text4.Locked = False

Text5.Locked = False

Label2.Caption = "Jam terbuka"

Command4.Enabled = False

Command3.Enabled = True

End Sub

Private Sub Form_Load()

bel = False

End Sub

Private Sub Timer1_Timer()

Label3.Caption = Time

If Text1.Text = Label3.Caption And bel = True Then

WindowsMediaPlayer1.URL = App.Path & "\bel.mp3"

WindowsMediaPlayer1.Enabled = True