Tutorial Membuat Bell Sekolah Dengan VB 6.0

Tutoral embuat Aplikasi Bell Sekolah menggunkan  tool Visual Basic 6.0 

 

Source Kode VB 6.0

 

Membuat aplikasi bell sekilah menggunkan aplikasi Visual Basic versi  6.0. Visual Basic merupakan  aplikasi yang di buat oleh micrososft sebagai bahasa pemrograman berbasis objek.  dimana visual basic menggunkan kaidah-kaidah seperti class dan penurunan Visual basic dikategorikan sebagi  IDE tools.

Ya langsung saja ket tutorial bagaimana caranya membuat aplikasi bell sekolah menggunkan aplikasi visual basic 6.0. Dan bagi yang inginangsung mencoba program Bell sekolah menggunkan Visual Basic 6.0 dapat mendownloadnya di akhir tutorial ini

  • Buka aplikasi visual basic anda terlebiih dahulu
  • Kemuidan pilih standard Exe dan klik ok
  • setelah itu buat sebuah form sebagai berikut:
  • Buatlah  5 labe
  • Buatlah 5 texfield 
  • Buatlah 1 Windows Media
  • 1 Frame
  • 1 timmer 
  • 4 button
  • Siapkan Lagu yang akan di buat sebagai alarm
Setelah itu Ketikan Script dibawah ini :
Dim alarem As Boolean
Private Sub Command1_Click()
 If alarem = True Then
        Timer2.Enabled = False
        Command1.Caption = "Aktif"
        alarem = False
    Else
        Command1.Caption = "Tidak Aktif"
        alarem = 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()
alarem = False
End Sub


Private Sub Label12_Click()

End Sub

Private Sub Label9_Click()

End Sub

Private Sub Text1_Change()

End Sub

Private Sub Timer1_Timer()
  Label3.Caption = Time
        If Text1.Text = Label3.Caption And alarem = True Then
        WindowsMediaPlayer1.URL = App.Path & "\lk.mp3"
        WindowsMediaPlayer1.Enabled = True
        WindowsMediaPlayer1.Controls.play
        End If
        If Text2.Text = Label3.Caption And alarem = True Then
        WindowsMediaPlayer1.URL = App.Path & "\mc.mp3"
        WindowsMediaPlayer1.Enabled = True
        WindowsMediaPlayer1.Controls.play
        End If
        If Text3.Text = Label3.Caption And alarem = True Then
        WindowsMediaPlayer1.URL = App.Path & "\pv.mp3"
        WindowsMediaPlayer1.Enabled = True
        WindowsMediaPlayer1.Controls.play
        End If
        If Text4.Text = Label3.Caption And alarem = True Then
        WindowsMediaPlayer1.URL = App.Path & "\ss.mp3"
        WindowsMediaPlayer1.Enabled = True
        WindowsMediaPlayer1.Controls.play
        End If
        If Text5.Text = Label3.Caption And alarem = True Then
        WindowsMediaPlayer1.URL = App.Path & "\so.mp3"
        WindowsMediaPlayer1.Enabled = True
        WindowsMediaPlayer1.Controls.play
        End If

End Sub

Private Sub WindowsMediaPlayer1_Click()

End Sub
 

Sekian dan terimakasih bila yang ingin mendownload source code aplikasi Bell Sekolah menggunkan Visual Basic 6.0.

 

Downloads 


Share this

Related Posts

Previous
Next Post »

Berita Unik

loading...