Disini saya akan tampilkan source code Bel Sekolah Otomatis buat teman-teman. Jika teman membutuhkan silahkan untuk dicomot. hanya sekedar berbagi. untuk Screenshot nya bisa dilihat disini :
Form Utama
Form Utama
Private RsBel As New ADODB.Recordset
Private RsBel1 As New ADODB.Recordset
' membuat enum data untuk mode windows state
Enum State
SHOWNORMAL = 1
SHOWMINIMIZED = 2
SHOWMAXIMIZED = 3
SHOWMINNOACTIVE = 7
SHOWDEFAULT = 10
End Enum
' mendeklarasikan fungsi yang memanggil library dari shell32.dll
Private Declare Function ShellExecute Lib "shell32.dll" _
Alias "ShellExecuteA" (ByVal hwnd As Long, _
ByVal lpOperation As String, ByVal lpFile As String, _
ByVal lpParameters As String, ByVal lpDirectory As String, _
ByVal nShowCmd As Long) As Long
' fungsi untuk membuka file
Public Function OpenLocation(URL As String, _
WindowsState As State) As Long
Dim lHWnd As Long
Dim lAns As Long
lAns = ShellExecute(lHWnd, "open", URL, vbNullString, _
vbNullString, WindowsState)
OpenLocation = lAns
End Function
Private Function rep(ByVal s As String) As String
rep = Replace(s, "'", "''")
End Function
Private Sub TampilJadwal1()
Set RsBel = New ADODB.Recordset
Dim DataCombo As String
DataCombo = Format(Date, "dddd")
RsBel.Open "select * from Jadwal1 where hari like '" & DataCombo & "%'", dbkoneksi, adOpenStatic, adLockOptimistic
txtJam1.Text = RsBel!jam1
txtSJam1.Text = RsBel!suara1
txtJam2.Text = RsBel!jam2
txtSJam2.Text = RsBel!suara2
txtJam3.Text = RsBel!jam3
txtSJam3.Text = RsBel!suara3
txtJam4.Text = RsBel!jam4
txtSJam4.Text = RsBel!suara4
txtJam5.Text = RsBel!jam5
txtSjam5.Text = RsBel!suara5
txtJam6.Text = RsBel!jam6
txtSJam6.Text = RsBel!suara6
txtJam7.Text = RsBel!jam7
txtSJam7.Text = RsBel!suara7
txtJam8.Text = RsBel!jam8
txtSJam8.Text = RsBel!suara8
txtJam9.Text = RsBel!jam9
txtSJam9.Text = RsBel!suara9
txtJam10.Text = RsBel!jam10
txtSJam10.Text = RsBel!suara10
End Sub
Private Sub TampilJadwal2()
Set RsBel1 = New ADODB.Recordset
Dim DataCombo1 As String
DataCombo1 = Format(Date, "dddd")
RsBel1.Open "select * from Jadwal2 where hari like '" & DataCombo1 & "%'", dbkoneksi, adOpenStatic, adLockOptimistic
txtPbelajar1.Text = RsBel1!pramasuk1
txtSPBelajar1.Text = RsBel1!suara_pramasuk1
txtPBelajar2.Text = RsBel1!pramasuk2
txtSPBelajar2.Text = RsBel1!suara_pramasuk2
txtIstirahat1.Text = RsBel1!istirahat1
txtSIstirahat1.Text = RsBel1!suara_istirahat1
txtIstirahat2.Text = RsBel1!istirahat2
txtSIstirahat2.Text = RsBel1!suara_istirahat2
txtSelesai.Text = RsBel1!pulang1
txtSSelesai.Text = RsBel1!suara_pulang1
txtPraUpacara.Text = RsBel1!istirahat2
txtSPraUpacara.Text = RsBel1!suara_praupacara
txtUpacara.Text = RsBel1!upacara
txtSUpacara.Text = RsBel1!suara_upacara
End Sub
Private Sub cmdBantuan_Click()
OpenLocation App.Path & "\Bantuan.pdf", SHOWNORMAL
End Sub
Private Sub cmdEnd_Click()
Dim Keluar As String
Keluar = MsgBox("Anda yakin akan keluar?", vbQuestion + vbYesNo, "Konfirmasi")
If Keluar = vbYes Then
End
Else
End If
End Sub
Private Sub cmdJadwal_Click()
Jadwal.Show
End Sub
Private Sub cmdMin_Click()
cmdMin.Visible = False
cmdSlip.Visible = True
Utama.Height = 9360
Utama.Width = 9255
End Sub
Private Sub cmdSetting_Click()
Atur.Show (1)
End Sub
Private Sub cmdSlip_Click()
cmdSlip.Visible = False
cmdMin.Visible = True
Ukuran
End Sub
Private Sub cmdTentang_Click()
Tentang.Show (1)
End Sub
Private Sub cmdView_Click()
Utama.WindowState = 1
Systray1
End Sub
Private Sub Form_Load()
Koneksi
TampilJadwal1
TampilJadwal2
Ukuran
End Sub
Private Sub Timer1_Timer()
If Weekday(Date) = 1 Then
LbTanggal.Caption = "Minggu" & Format(Date, ", dd-mmm-yyyy")
ElseIf Weekday(Date) = 2 Then
LbTanggal.Caption = "Senin" & Format(Date, ", dd-mmm-yyyy")
ElseIf Weekday(Date) = 3 Then
LbTanggal.Caption = "Selasa" & Format(Date, ", dd-mmm-yyyy")
ElseIf Weekday(Date) = 4 Then
LbTanggal.Caption = "Rabu" & Format(Date, ", dd-mmm-yyyy")
ElseIf Weekday(Date) = 5 Then
LbTanggal.Caption = "Kamis" & Format(Date, ", dd-mmm-yyyy")
ElseIf Weekday(Date) = 6 Then
LbTanggal.Caption = "Jum'at" & Format(Date, ", dd-mmm-yyyy")
Else
LbTanggal.Caption = "Sabtu" & Format(Date, ", dd-mmm-yyyy")
End If
LbJam.Caption = Format(Time, "hh:mm:ss")
End Sub
Private Sub Ukuran()
Utama.Height = 3705
Utama.Width = 9255
Utama.Left = 5000
Utama.Top = 1500
End Sub
Private Sub Timer2_Timer()
If txtPbelajar1.Text = LbJam.Caption Then
WMP.URL = txtSPBelajar1.Text
WMP.Controls.play
ElseIf txtPBelajar2.Text = LbJam.Caption Then
WMP.URL = txtSPBelajar2.Text
WMP.Controls.play
ElseIf txtJam1.Text = LbJam.Caption Then
WMP.URL = txtSJam1.Text
WMP.Controls.play
ElseIf txtJam2.Text = LbJam.Caption Then
WMP.URL = txtSPBelajar1.Text
WMP.Controls.play
ElseIf txtJam3.Text = LbJam.Caption Then
WMP.URL = txtSJam3.Text
WMP.Controls.play
ElseIf txtJam4.Text = LbJam.Caption Then
WMP.URL = txtSJam4.Text
WMP.Controls.play
ElseIf txtJam5.Text = LbJam.Caption Then
WMP.URL = txtSJam4.Text
WMP.Controls.play
ElseIf txtJam6.Text = LbJam.Caption Then
WMP.URL = txtSJam6.Text
WMP.Controls.play
ElseIf txtJam7.Text = LbJam.Caption Then
WMP.URL = txtSJam7.Text
WMP.Controls.play
ElseIf txtJam8.Text = LbJam.Caption Then
WMP.URL = txtSJam8.Text
WMP.Controls.play
ElseIf txtJam9.Text = LbJam.Caption Then
WMP.URL = txtSJam9.Text
WMP.Controls.play
ElseIf txtJam10.Text = LbJam.Caption Then
WMP.URL = txtSJam10.Text
WMP.Controls.play
ElseIf txtIstirahat1.Text = LbJam.Caption Then
WMP.URL = txtSIstirahat1.Text
WMP.Controls.play
ElseIf txtIstirahat2.Text = LbJam.Caption Then
WMP.URL = txtSIstirahat2.Text
WMP.Controls.play
ElseIf txtSelesai.Text = LbJam.Caption Then
WMP.URL = txtSSelesai.Text
WMP.Controls.play
ElseIf txtPraUpacara.Text = LbJam.Caption Then
WMP.URL = txtSPraUpacara.Text
WMP.Controls.play
ElseIf txtUpacara.Text = LbJam.Caption Then
WMP.URL = txtSUpacara.Text
WMP.Controls.play
Else
End If
End Sub
Private Sub Systray1()
Set SysTray = New CLS_SysTray
SysTray.Create "Aplikasi SysTray Icon", Me.hwnd, Me.Icon
SysTray.BalloonShow "Aplikasi berjalan di belakang, Bel akan tetap berbunyi sesuai jadwal yang telah ditetapkan. Terimakasih telah menggunakan program ini....", "BEL SEKOLAH", xpTrayIcon
WaitTimes 8000
SysTray.BalloonClose
SysTray.Remove
End Sub
Form Setting
Private Sub Enable()
s = Replace(App.Path & "\" & App.EXEName & ".exe", "\\", "\")
Set Reg = CreateObject("WScript.Shell")
Reg.RegWrite "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Run\" & App.EXEName, s
End Sub
Private Sub Disable()
On Error Resume Next
Set Reg = CreateObject("WScript.Shell")
Reg.RegDelete "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Run\" & App.EXEName
End Sub
'+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
Private Sub Aktif_Click()
Tidak.Value = Unchecked
Call Enable
dbkoneksi.Execute "Update Pengaturan set Status='" _
& Iya.Text & "'"
MsgBox "Pengaturan telah disimpan, Startup Aktif", vbInformation, "Konfirmasi"
TampilData
End Sub
Private Sub Close_Click()
Unload Me
End Sub
Private Sub Form_Load()
TampilData
If Teks1.Text = "AKTIF" Then
Aktif.Value = Checked
ElseIf Teks1.Text = "TIDAK AKTIF" Then
Tidak.Value = Checked
Else
End If
End Sub
Private Sub Tidak_Click()
Aktif.Value = Unchecked
Call Disable
dbkoneksi.Execute "Update Pengaturan set Status='" _
& Enggak.Text & "'"
MsgBox "Pengaturan telah disimpan, Startup Tidak Aktif", vbInformation, "Konfirmasi"
TampilData
End Sub
Sub TampilData()
Set RsSih = New ADODB.Recordset
RsSih.Open "Select * From pengaturan Order By Status", dbkoneksi, adOpenDynamic, adLockOptimistic
Teks1.Text = RsSih!Status
End Sub
Form Jadwal
Private RsBel As New ADODB.Recordset
Private RsBel1 As New ADODB.Recordset
Private Function rep(ByVal s As String) As String
rep = Replace(s, "'", "''")
End Function
Private Sub cmbHari_Change()
Set RsBel = New ADODB.Recordset
Set RsBel1 = New ADODB.Recordset
Dim DataCombo As String
Dim DataCombo1 As String
DataCombo = cmbHari.Text
DataCombo1 = cmbHari.Text
If rep(cmbHari.Text) = "Senin" Then
RsBel.Open "select * from Jadwal1 where hari like '" & DataCombo & "%'", dbkoneksi, adOpenStatic, adLockOptimistic
RsBel1.Open "select * from Jadwal2 where hari like '" & DataCombo1 & "%'", dbkoneksi, adOpenStatic, adLockOptimistic
TampilHari1
TampilHari2
ElseIf rep(cmbHari.Text) = "Selasa" Then
RsBel.Open "select * from Jadwal1 where hari like '" & DataCombo & "%'", dbkoneksi, adOpenStatic, adLockOptimistic
RsBel1.Open "select * from Jadwal2 where hari like '" & DataCombo1 & "%'", dbkoneksi, adOpenStatic, adLockOptimistic
TampilHari1
TampilHari2
ElseIf rep(cmbHari.Text) = "Rabu" Then
RsBel.Open "select * from Jadwal1 where hari like '" & DataCombo & "%'", dbkoneksi, adOpenStatic, adLockOptimistic
RsBel1.Open "select * from Jadwal2 where hari like '" & DataCombo1 & "%'", dbkoneksi, adOpenStatic, adLockOptimistic
TampilHari1
TampilHari2
ElseIf rep(cmbHari.Text) = "Kamis" Then
RsBel.Open "select * from Jadwal1 where hari like '" & DataCombo & "%'", dbkoneksi, adOpenStatic, adLockOptimistic
RsBel1.Open "select * from Jadwal2 where hari like '" & DataCombo1 & "%'", dbkoneksi, adOpenStatic, adLockOptimistic
TampilHari1
TampilHari2
ElseIf rep(cmbHari.Text) = "Jumat" Then
RsBel.Open "select * from Jadwal1 where hari like '" & DataCombo & "%'", dbkoneksi, adOpenStatic, adLockOptimistic
RsBel1.Open "select * from Jadwal2 where hari like '" & DataCombo1 & "%'", dbkoneksi, adOpenStatic, adLockOptimistic
TampilHari1
TampilHari2
ElseIf rep(cmbHari.Text) = "Sabtu" Then
RsBel.Open "select * from Jadwal1 where hari like '" & DataCombo & "%'", dbkoneksi, adOpenStatic, adLockOptimistic
RsBel1.Open "select * from Jadwal2 where hari like '" & DataCombo1 & "%'", dbkoneksi, adOpenStatic, adLockOptimistic
TampilHari1
TampilHari2
Else
End If
End Sub
Private Sub cmdEnd_Click()
Unload Me
End Sub
Private Sub Hari()
cmbHari.AddItem "Senin"
cmbHari.AddItem "Selasa"
cmbHari.AddItem "Rabu"
cmbHari.AddItem "Kamis"
cmbHari.AddItem "Jumat"
cmbHari.AddItem "Sabtu"
End Sub
Private Sub cmdUpdate_Click()
Set RsBel = New ADODB.Recordset
RsBel.Open "Select * From Jadwal1 where hari='" & rep(cmbHari.Text) & "'", dbkoneksi, adOpenStatic, adLockOptimistic
dbkoneksi.Execute "Update Jadwal1 set jam1='" _
& rep(txtJam1.Text) & "',suara1='" _
& rep(txtSJam1.Text) & "',jam2='" _
& rep(txtJam2.Text) & "',suara2='" _
& rep(txtSJam2.Text) & "',jam3='" _
& rep(txtJam3.Text) & "',suara3='" _
& rep(txtSJam3.Text) & "',jam4='" _
& rep(txtJam4.Text) & "',suara4='" _
& rep(txtSJam4.Text) & "',jam5='" _
& rep(txtJam5.Text) & "',suara5='" _
& rep(txtSjam5.Text) & "',jam6='" _
& rep(txtJam6.Text) & "',suara6='" _
& rep(txtSJam6.Text) & "',jam7='" _
& rep(txtJam7.Text) & "',suara7='" _
& rep(txtSJam7.Text) & "',jam8='" _
& rep(txtJam8.Text) & "',suara8='" _
& rep(txtSJam8.Text) & "',jam9='" _
& rep(txtJam9.Text) & "',suara9='" _
& rep(txtSJam9.Text) & "',jam10='" _
& rep(txtJam10.Text) & "',suara10='" _
& rep(txtSJam10.Text) & "' where hari='" & rep(cmbHari.Text) & "'"
Set RsBel1 = New ADODB.Recordset
RsBel1.Open "Select * From Jadwal2 where hari='" & rep(cmbHari.Text) & "'", dbkoneksi, adOpenStatic, adLockOptimistic
dbkoneksi.Execute "Update Jadwal2 set pramasuk1='" _
& rep(txtPbelajar1.Text) & "',suara_pramasuk1='" _
& rep(txtSPBelajar1.Text) & "',pramasuk2='" _
& rep(txtPBelajar2.Text) & "',suara_pramasuk2='" _
& rep(txtSPBelajar2.Text) & "',istirahat1='" _
& rep(txtIstirahat1.Text) & "',suara_istirahat1='" _
& rep(txtSIstirahat1.Text) & "',istirahat2='" _
& rep(txtIstirahat2.Text) & "',suara_istirahat2='" _
& rep(txtSIstirahat2.Text) & "',pulang1='" _
& rep(txtSelesai.Text) & "',suara_pulang1='" _
& rep(txtSSelesai.Text) & "',PraUpacara='" _
& rep(txtPraUpacara.Text) & "',suara_praupacara='" _
& rep(txtSPraUpacara.Text) & "',Upacara='" _
& rep(txtUpacara.Text) & "',suara_upacara='" _
& rep(txtSUpacara.Text) & "' where hari='" & rep(cmbHari.Text) & "'"
MsgBox "Jadwal telah dirubah", vbInformation, "Konfirmasi"
If cmbHari.Text = Format(Date, "dddd") Then
Utama.txtJam1.Text = txtJam1.Text
Utama.txtSJam1.Text = txtSJam1.Text
Utama.txtJam2.Text = txtJam2.Text
Utama.txtSJam2.Text = txtSJam2.Text
Utama.txtJam3.Text = txtJam3.Text
Utama.txtSJam3.Text = txtSJam3.Text
Utama.txtJam4.Text = txtJam4.Text
Utama.txtSJam4.Text = txtSJam4.Text
Utama.txtJam5.Text = txtJam5.Text
Utama.txtSjam5.Text = txtSjam5.Text
Utama.txtJam6.Text = txtJam6.Text
Utama.txtSJam6.Text = txtSJam6.Text
Utama.txtJam7.Text = txtJam7.Text
Utama.txtSJam7.Text = txtSJam7.Text
Utama.txtJam8.Text = txtJam8.Text
Utama.txtSJam8.Text = txtSJam8.Text
Utama.txtJam9.Text = txtJam9.Text
Utama.txtSJam9.Text = txtSJam9.Text
Utama.txtSJam10.Text = txtSJam10.Text
Utama.txtSJam10.Text = txtSJam10.Text
Utama.txtPbelajar1.Text = txtPbelajar1.Text
Utama.txtSPBelajar1.Text = txtSPBelajar1.Text
Utama.txtPBelajar2.Text = txtPBelajar2.Text
Utama.txtSPBelajar2.Text = txtSPBelajar2.Text
Utama.txtIstirahat1.Text = txtIstirahat1.Text
Utama.txtSIstirahat1.Text = txtSIstirahat1.Text
Utama.txtIstirahat2.Text = txtIstirahat2.Text
Utama.txtSIstirahat2.Text = txtSIstirahat2.Text
Utama.txtSelesai.Text = txtSelesai.Text
Utama.txtSSelesai.Text = txtSSelesai.Text
Utama.txtPraUpacara.Text = txtPraUpacara.Text
Utama.txtSPraUpacara.Text = txtSPraUpacara.Text
Utama.txtUpacara.Text = txtUpacara.Text
Utama.txtSUpacara.Text = txtSUpacara.Text
Else
End If
End Sub
Private Sub Form_Load()
cmbHari.Text = "Senin"
DaftarHari
DaftarHari1
Hari
End Sub
Private Sub TampilHari1()
txtJam1.Text = RsBel!jam1
txtSJam1.Text = RsBel!suara1
txtJam2.Text = RsBel!jam2
txtSJam2.Text = RsBel!suara2
txtJam3.Text = RsBel!jam3
txtSJam3.Text = RsBel!suara3
txtJam4.Text = RsBel!jam4
txtSJam4.Text = RsBel!suara4
txtJam5.Text = RsBel!jam5
txtSjam5.Text = RsBel!suara5
txtJam6.Text = RsBel!jam6
txtSJam6.Text = RsBel!suara6
txtJam7.Text = RsBel!jam7
txtSJam7.Text = RsBel!suara7
txtJam8.Text = RsBel!jam8
txtSJam8.Text = RsBel!suara8
txtJam9.Text = RsBel!jam9
txtSJam9.Text = RsBel!suara9
txtJam10.Text = RsBel!jam10
txtSJam10.Text = RsBel!suara10
End Sub
Private Sub TampilHari2()
txtPbelajar1.Text = RsBel1!pramasuk1
txtSPBelajar1.Text = RsBel1!suara_pramasuk1
txtPBelajar2.Text = RsBel1!pramasuk2
txtSPBelajar2.Text = RsBel1!suara_pramasuk2
txtIstirahat1.Text = RsBel1!istirahat1
txtSIstirahat1.Text = RsBel1!suara_istirahat1
txtIstirahat2.Text = RsBel1!istirahat2
txtSIstirahat2.Text = RsBel1!suara_istirahat2
txtSelesai.Text = RsBel1!pulang1
txtSSelesai.Text = RsBel1!suara_pulang1
txtPraUpacara.Text = RsBel1!istirahat2
txtSPraUpacara.Text = RsBel1!suara_praupacara
txtUpacara.Text = RsBel1!upacara
txtSUpacara.Text = RsBel1!suara_upacara
End Sub
Private Sub DaftarHari()
Set RsBel = New ADODB.Recordset
Dim DataCombo As String
DataCombo = cmbHari.Text
RsBel.Open "select * from Jadwal1 where hari like '" & DataCombo & "%'", dbkoneksi, adOpenStatic, adLockOptimistic
txtJam1.Text = RsBel!jam1
txtSJam1.Text = RsBel!suara1
txtJam2.Text = RsBel!jam2
txtSJam2.Text = RsBel!suara2
txtJam3.Text = RsBel!jam3
txtSJam3.Text = RsBel!suara3
txtJam4.Text = RsBel!jam4
txtSJam4.Text = RsBel!suara4
txtJam5.Text = RsBel!jam5
txtSjam5.Text = RsBel!suara5
txtJam6.Text = RsBel!jam6
txtSJam6.Text = RsBel!suara6
txtJam7.Text = RsBel!jam7
txtSJam7.Text = RsBel!suara7
txtJam8.Text = RsBel!jam8
txtSJam8.Text = RsBel!suara8
End Sub
Private Sub DaftarHari1()
Set RsBel1 = New ADODB.Recordset
Dim DataCombo1 As String
DataCombo1 = cmbHari.Text
RsBel1.Open "select * from Jadwal2 where hari like '" & DataCombo1 & "%'", dbkoneksi, adOpenStatic, adLockOptimistic
txtPbelajar1.Text = RsBel1!pramasuk1
txtSPBelajar1.Text = RsBel1!suara_pramasuk1
txtPBelajar2.Text = RsBel1!pramasuk2
txtSPBelajar2.Text = RsBel1!suara_pramasuk2
txtIstirahat1.Text = RsBel1!istirahat1
txtSIstirahat1.Text = RsBel1!suara_istirahat1
txtIstirahat2.Text = RsBel1!istirahat2
txtSIstirahat2.Text = RsBel1!suara_istirahat2
txtSelesai.Text = RsBel1!pulang1
txtSSelesai.Text = RsBel1!suara_pulang1
End Sub
Private Sub OsenXPButton10_Click()
WMP.URL = txtSJam3.Text
WMP.Controls.play
End Sub
Private Sub OsenXPButton11_Click()
WMP.URL = txtSJam4.Text
WMP.Controls.play
End Sub
Private Sub OsenXPButton12_Click()
WMP.URL = txtSjam5.Text
WMP.Controls.play
End Sub
Private Sub OsenXPButton13_Click()
WMP.URL = txtSJam6.Text
WMP.Controls.play
End Sub
Private Sub OsenXPButton14_Click()
WMP.URL = txtSJam7.Text
WMP.Controls.play
End Sub
Private Sub OsenXPButton15_Click()
WMP.URL = txtSJam8.Text
WMP.Controls.play
End Sub
Private Sub OsenXPButton16_Click()
WMP.URL = txtSPraUpacara.Text
WMP.Controls.play
End Sub
Private Sub OsenXPButton17_Click()
WMP.URL = txtSJam10.Text
WMP.Controls.Stop
End Sub
Private Sub OsenXPButton18_Click()
WMP.URL = txtSJam9.Text
WMP.Controls.Stop
End Sub
Private Sub OsenXPButton19_Click()
WMP.URL = txtSJam8.Text
WMP.Controls.Stop
End Sub
Private Sub OsenXPButton20_Click()
WMP.URL = txtSJam7.Text
WMP.Controls.Stop
End Sub
Private Sub OsenXPButton21_Click()
WMP.URL = txtSJam6.Text
WMP.Controls.Stop
End Sub
Private Sub OsenXPButton22_Click()
WMP.URL = txtSjam5.Text
WMP.Controls.Stop
End Sub
Private Sub OsenXPButton23_Click()
WMP.URL = txtSJam3.Text
WMP.Controls.Stop
End Sub
Private Sub OsenXPButton24_Click()
WMP.URL = txtSJam2.Text
WMP.Controls.Stop
End Sub
Private Sub OsenXPButton25_Click()
WMP.URL = txtSJam1.Text
WMP.Controls.Stop
End Sub
Private Sub OsenXPButton26_Click()
WMP.URL = txtSJam4.Text
WMP.Controls.Stop
End Sub
Private Sub OsenXPButton27_Click()
WMP.URL = txtSPBelajar2.Text
WMP.Controls.Stop
End Sub
Private Sub OsenXPButton28_Click()
WMP.URL = txtSIstirahat1.Text
WMP.Controls.play
End Sub
Private Sub OsenXPButton29_Click()
WMP.URL = txtSIstirahat2.Text
WMP.Controls.play
End Sub
Private Sub OsenXPButton30_Click()
WMP.URL = txtSIstirahat2.Text
WMP.Controls.Stop
End Sub
Private Sub OsenXPButton31_Click()
WMP.URL = txtSIstirahat2.Text
WMP.Controls.Stop
End Sub
Private Sub OsenXPButton32_Click()
WMP.URL = txtSSelesai.Text
WMP.Controls.play
End Sub
Private Sub OsenXPButton33_Click()
WMP.URL = txtSelesai.Text
WMP.Controls.Stop
End Sub
Private Sub OsenXPButton34_Click()
WMP.URL = txtSPBelajar1.Text
WMP.Controls.Stop
End Sub
Private Sub OsenXPButton35_Click()
WMP.URL = txtSUpacara.Text
WMP.Controls.play
End Sub
Private Sub OsenXPButton36_Click()
WMP.URL = txtSPraUpacara.Text
WMP.Controls.Stop
End Sub
Private Sub OsenXPButton37_Click()
WMP.URL = txtSUpacara.Text
WMP.Controls.Stop
End Sub
Private Sub OsenXPButton4_Click()
WMP.URL = txtSPBelajar1.Text
WMP.Controls.play
End Sub
Private Sub OsenXPButton5_Click()
WMP.URL = txtSPBelajar2.Text
WMP.Controls.play
End Sub
Private Sub OsenXPButton6_Click()
WMP.URL = txtSJam1.Text
WMP.Controls.play
End Sub
Private Sub OsenXPButton7_Click()
WMP.URL = txtSJam2.Text
WMP.Controls.play
End Sub
Private Sub OsenXPButton8_Click()
WMP.URL = txtSJam9.Text
WMP.Controls.play
End Sub
Private Sub OsenXPButton9_Click()
WMP.URL = txtSJam10.Text
WMP.Controls.play
End Sub
Private Sub Timer1_Timer()
If Image1.Visible = False Then
Image1.Visible = True
Else
Image1.Visible = False
End If
End Sub
Private Sub txtSIstirahat1_Click()
Dialog1.DialogTitle = "Buka File Suara"
Dialog1.InitDir = App.Path & "\Audio"
Dialog1.Filter = "File Suara (*.mp3;*.wav;*.wma)|*.mp3; *.wav; *wma"
Dialog1.ShowOpen
txtSIstirahat1.Text = Dialog1.FileName
End Sub
Private Sub txtSIstirahat2_Click()
Dialog1.DialogTitle = "Buka File Suara"
Dialog1.InitDir = App.Path & "\Audio"
Dialog1.Filter = "File Suara (*.mp3;*.wav;*.wma)|*.mp3; *.wav; *wma"
Dialog1.ShowOpen
txtSIstirahat2.Text = Dialog1.FileName
End Sub
Private Sub txtSJam1_Click()
Dialog1.DialogTitle = "Buka File Suara"
Dialog1.InitDir = App.Path & "\Audio"
Dialog1.Filter = "File Suara (*.mp3;*.wav;*.wma)|*.mp3; *.wav; *wma"
Dialog1.ShowOpen
txtSJam1.Text = Dialog1.FileName
End Sub
Private Sub txtSJam10_Click()
Dialog1.DialogTitle = "Buka File Suara"
Dialog1.InitDir = App.Path & "\Audio"
Dialog1.Filter = "File Suara (*.mp3;*.wav;*.wma)|*.mp3; *.wav; *wma"
Dialog1.ShowOpen
txtSJam10.Text = Dialog1.FileName
End Sub
Private Sub txtSJam2_Click()
Dialog1.DialogTitle = "Buka File Suara"
Dialog1.InitDir = App.Path & "\Audio"
Dialog1.Filter = "File Suara (*.mp3;*.wav;*.wma)|*.mp3; *.wav; *wma"
Dialog1.ShowOpen
txtSJam2.Text = Dialog1.FileName
End Sub
Private Sub txtSJam3_Click()
Dialog1.DialogTitle = "Buka File Suara"
Dialog1.InitDir = App.Path & "\Audio"
Dialog1.Filter = "File Suara (*.mp3;*.wav;*.wma)|*.mp3; *.wav; *wma"
Dialog1.ShowOpen
txtSJam3.Text = Dialog1.FileName
End Sub
Private Sub txtSJam4_Click()
Dialog1.DialogTitle = "Buka File Suara"
Dialog1.InitDir = App.Path & "\Audio"
Dialog1.Filter = "File Suara (*.mp3;*.wav;*.wma)|*.mp3; *.wav; *wma"
Dialog1.ShowOpen
txtSJam4.Text = Dialog1.FileName
End Sub
Private Sub txtSjam5_Click()
Dialog1.DialogTitle = "Buka File Suara"
Dialog1.InitDir = App.Path & "\Audio"
Dialog1.Filter = "File Suara (*.mp3;*.wav;*.wma)|*.mp3; *.wav; *wma"
Dialog1.ShowOpen
txtSjam5.Text = Dialog1.FileName
End Sub
Private Sub txtSJam6_Click()
Dialog1.DialogTitle = "Buka File Suara"
Dialog1.InitDir = App.Path & "\Audio"
Dialog1.Filter = "File Suara (*.mp3;*.wav;*.wma)|*.mp3; *.wav; *wma"
Dialog1.ShowOpen
txtSJam6.Text = Dialog1.FileName
End Sub
Private Sub txtSJam7_Click()
Dialog1.DialogTitle = "Buka File Suara"
Dialog1.InitDir = App.Path & "\Audio"
Dialog1.Filter = "File Suara (*.mp3;*.wav;*.wma)|*.mp3; *.wav; *wma"
Dialog1.ShowOpen
txtSJam7.Text = Dialog1.FileName
End Sub
Private Sub txtSJam8_Click()
Dialog1.DialogTitle = "Buka File Suara"
Dialog1.InitDir = App.Path & "\Audio"
Dialog1.Filter = "File Suara (*.mp3;*.wav;*.wma)|*.mp3; *.wav; *wma"
Dialog1.ShowOpen
txtSJam8.Text = Dialog1.FileName
End Sub
Private Sub txtSJam9_Click()
Dialog1.DialogTitle = "Buka File Suara"
Dialog1.InitDir = App.Path & "\Audio"
Dialog1.Filter = "File Suara (*.mp3;*.wav;*.wma)|*.mp3; *.wav; *wma"
Dialog1.ShowOpen
txtSJam9.Text = Dialog1.FileName
End Sub
Private Sub txtSPBelajar1_Click()
Dialog1.DialogTitle = "Buka File Suara"
Dialog1.InitDir = App.Path & "\Audio"
Dialog1.Filter = "File Suara (*.mp3;*.wav;*.wma)|*.mp3; *.wav; *wma"
Dialog1.ShowOpen
txtSPBelajar1.Text = Dialog1.FileName
End Sub
Private Sub txtSPBelajar2_Click()
Dialog1.DialogTitle = "Buka File Suara"
Dialog1.InitDir = App.Path & "\Audio"
Dialog1.Filter = "File Suara (*.mp3;*.wav;*.wma)|*.mp3; *.wav; *wma"
Dialog1.ShowOpen
txtSPBelajar2.Text = Dialog1.FileName
End Sub
Private Sub txtSPraUpacara_Click()
Dialog1.DialogTitle = "Buka File Suara"
Dialog1.InitDir = App.Path & "\Audio"
Dialog1.Filter = "File Suara (*.mp3;*.wav;*.wma)|*.mp3; *.wav; *wma"
Dialog1.ShowOpen
txtSPraUpacara.Text = Dialog1.FileName
End Sub
Private Sub txtSSelesai_Click()
Dialog1.DialogTitle = "Buka File Suara"
Dialog1.InitDir = App.Path & "\Audio"
Dialog1.Filter = "File Suara (*.mp3;*.wav;*.wma)|*.mp3; *.wav; *wma"
Dialog1.ShowOpen
txtSSelesai.Text = Dialog1.FileName
End Sub
Private Sub txtSUpacara_Click()
Dialog1.DialogTitle = "Buka File Suara"
Dialog1.InitDir = App.Path & "\Audio"
Dialog1.Filter = "File Suara (*.mp3;*.wav;*.wma)|*.mp3; *.wav; *wma"
Dialog1.ShowOpen
txtSUpacara.Text = Dialog1.FileName
End Sub
Semoga Bermanfaat.
0 Response to "Source Code Bel Sekolah Otomatis"
Posting Komentar