Cara membuat bel sekolah otomatis menggunakan visual basic 6.0

Posted by Hafid Ali M

Jumat, 09 September 2016

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

WindowsMediaPlayer1.Controls.play

End If

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

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

WindowsMediaPlayer1.Enabled = True

WindowsMediaPlayer1.Controls.play

End If

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

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

WindowsMediaPlayer1.Enabled = True

WindowsMediaPlayer1.Controls.play

End If

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

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

WindowsMediaPlayer1.Enabled = True

WindowsMediaPlayer1.Controls.play

End If

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

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

WindowsMediaPlayer1.Enabled = True

WindowsMediaPlayer1.Controls.play

End If

End Sub

5.       Masukkan lagu atau apapun itu yg berekstensi mp3  ke dalam project yang sama, lalu pastikan nama lagu tersebut sesuai dengan yang ada di scriptnya.

6.       Kemudian pilih file, kita export caranya yaitu klik tombol make…..exe

7.       Selesai.

Sekian cara membuat aplikasi bel otomatis, apabila ada kekurangan nya mohon di maafkan. Dan jika ada yang kurang paham mohon untuk berkomentar.

Wassalamualaikum wr.wb

Share This :