TaskDialog.MainInstructionText = "PERUBAHAN DATA" TaskDialog.ContentText = "Hari : " & Combo1.Text & Chr(13) & "Uraian : " & PT1.Text & Chr(13) & "Jam : " & ME1.Text & Chr(13) & "Suara : " & PT2.Text & Chr(13) & Chr(13) & "Perubahan Data Sudah Benar ?" TaskDialog.AddButton "Ya, Sudah Benar", 104 TaskDialog.AddButton "Belum Benar", 999 TaskDialog.ShowDialog
End If
End Sub
Private Sub PushButton3_Click()
Pesan TaskDialog.MainInstructionText = "HAPUS DATA" TaskDialog.ContentText = "Hari : " & Combo1.Text & Chr(13) & "Uraian : " & PT1.Text & Chr(13) & "Jam : " & ME1.Text & Chr(13) & "Suara : " & PT2.Text & Chr(13) & Chr(13) & "Anda Yakin Data Ini Akan Dihapus ?" TaskDialog.AddButton "Ya, Hapus", 105 TaskDialog.AddButton "Jangan", 99 TaskDialog.ShowDialog
End Sub
Private Sub PushButton4_Click()
Me.WindowState = 1 Me.Hide
End Sub
Private Sub PushButton5_Click()
Pesan
TaskDialog.MainInstructionText = "KELUAR DARI PROGRAM" TaskDialog.ContentText = "Anda Akan Keluar dari Program Bell Otomatis ?" TaskDialog.AddButton "Ya", 101 TaskDialog.AddButton "Tidak", 999
TaskDialog.ShowDialog
End Sub
Private Sub PushButton6_Click()
On Error Resume Next fShortName = GetShortName(File1.Path & "" & File1.FileName) mciSendString "close all", vbNullString, 0, 0 mciSendString "open " & fShortName & " type MPEGVideo style child alias mpeg parent " & Me.hwnd, vbNullString, 0, 0 mciSendString "status mpeg length", TrackLength, Len(TrackLength), 0 mciSendString "put mpeg window at 208 20 793 595", 0&, 0, 0 mciSendString "set window show maximized", vbNullString, 0, 0 mciSendString "play mpeg", vbNullString, 0, 0 Slider1.Max = CLng(TrackLength) Slider1.TickFrequency = CLng(TrackLength) / 100 'slider1.Max = CLng(TrackLength) 'Label4.Caption = File1.Filename Timer2.Enabled = True
End Sub
Private Sub PushButton7_Click()
Bersih Tutup PushButton1.Caption = "Tambah" PushButton2.Caption = "Ubah" PushButton7.Enabled = False
End Sub
Private Sub PushButton8_Click()
On Error Resume Next fShortName = GetShortName(File1.Path & "pembuka.wav") mciSendString "close all", vbNullString, 0, 0 mciSendString "open " & fShortName & " type MPEGVideo style child alias mpeg parent " & Me.hwnd, vbNullString, 0, 0 mciSendString "status mpeg length", TrackLength, Len(TrackLength), 0 mciSendString "put mpeg window at 208 20 793 595", 0&, 0, 0 mciSendString "set window show maximized", vbNullString, 0, 0 mciSendString "play mpeg", vbNullString, 0, 0 Slider1.Max = CLng(TrackLength) Slider1.TickFrequency = CLng(TrackLength) / 100 'slider1.Max = CLng(TrackLength) 'Label4.Caption = File1.Filename Timer2.Enabled = True End Sub
Private Sub PushButton9_Click()
On Error Resume Next fShortName = GetShortName(File1.Path & "tutup.wav") mciSendString "close all", vbNullString, 0, 0 mciSendString "open " & fShortName & " type MPEGVideo style child alias mpeg parent " & Me.hwnd, vbNullString, 0, 0 mciSendString "status mpeg length", TrackLength, Len(TrackLength), 0 mciSendString "put mpeg window at 208 20 793 595", 0&, 0, 0 mciSendString "set window show maximized", vbNullString, 0, 0 mciSendString "play mpeg", vbNullString, 0, 0 Slider1.Max = CLng(TrackLength) Slider1.TickFrequency = CLng(TrackLength) / 100 'slider1.Max = CLng(TrackLength) 'Label4.Caption = File1.Filename Timer2.Enabled = True End Sub
Private Sub RadioButton1_Click(Index As Integer)
SaveSetting App.Title, "Settings", "Pilih", RadioButton1(0).Value Form_Load
End Sub
Private Sub TaskDialog_ButtonClicked(ByVal Id As Long, CloseDialog As Variant)
Dim Urutan As String
If Id = 105 Then
Me.Enabled = True
Set Con2 = New Recordset
