VB6: Source Code Bell Otomatis

If Text1.Text = "Sunday" Or Text1.Text = "Minggu" Then Text2.Text = "07" If Text1.Text = "Monday" Or Text1.Text = "Senin" Then Text2.Text = "01" If Text1.Text = "Tuesday" Or Text1.Text = "Selasa" Then Text2.Text = "02" If Text1.Text = "Wednesday" Or Text1.Text = "Rabu" Then Text2.Text = "03" If Text1.Text = "Thursday" Or Text1.Text = "Kamis" Then Text2.Text = "04" If Text1.Text = "Friday" Or Text1.Text = "Jumat" Then Text2.Text = "05" If Text1.Text = "Saturday" Or Text1.Text = "Sabtu" Then Text2.Text = "06"

End Sub

Private Sub Text3_Change()

Set Con2 = New Recordset Con2.Open "select suara from data where urt='" & Text2.Text & "' and jam='" & Text3.Text & "'", db, adOpenStatic, adLockOptimistic If Con2.RecordCount > 0 Then On Error Resume Next fShortName = GetShortName(File1.Path & "" & Con2!suara) 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 If

End Sub

Private Sub Timer1_Timer()

Label2.Caption = Format(Date, "dddd") & ", " & Format(Date, "dd MMMM yyyy") & " " & Format(Time, "HH:mm:ss") Text3.Text = Format(Time, "HH:mm") Label3.Caption = Format(Time, "HH:mm") If Label3.Caption = Label5.Caption Then ShutDown

End Sub

Private Sub Timer2_Timer()

On Error Resume Next

Dim CurPos As String * 40

'mciSendString "set mpeg time format milliseconds", 0, 0, 0 mciSendString "status mpeg position", CurPos, Len(CurPos), 0 Slider1.Value = CLng(CurPos) 'slider1.Value = CLng(CurPos) If Slider1.Value >= Slider1.Max Then Timer2.Enabled = False a = a + 1 'Label4.Caption = File1.Filename If a < cou Then Slider1.Value = 0 'slider1.Value = 0 File1.ListIndex = a 'Label4.Caption = File1.Filename Else a = 0 Slider1.Value = 0 'slider1.Value = 0 File1.ListIndex = a 'Label4.Caption = File1.Filename Timer2.Enabled = False End If End If End Sub

Private Sub Timer3_Timer()

Picture1.BackColor = RGB(1, 90, 148) Image2.Top = -180 Image2.Left = Image2.Left + 50 If Image2.Left > Image2.Width Then Image2.Left = -1 * Image2.Width

End Sub

Private Sub TrayIcon1_Click()

Me.Show

Me.WindowState = 0

End Sub