*Buka toolbox siapkan 3 label, 1 timer, dan 2 button
module | Keterangan |
Label1 | Pada Property ubah name : txtjam,, text :jam |
Label2 | Pada Property ubah name : txtjhari,, text : hari |
Label3 | Pada Property ubah name : txttanggal,, text : tanggal |
Timer | Pada Property ubah Enabled : True, Interval : 1000 |
Button1 | Pada Property ubah name : btnclik,, text : click me |
Button2 | Pada Property ubah name : btnexit, text :exit |
Klik 2 x pada timer dan ketikan script dibawah ini :
Ketikan script dibawah ini :
Dim harike As Integer
harike = DateTime.Now.DayOfWeek
If harike = 1 Then
Me.txthari.Text = “Senin”
ElseIf harike = 2 Then
Me.txthari.Text = “Selasa”
ElseIf harike = 3 Then
Me.txthari.Text = “Rabu”
ElseIf harike = 4 Then
Me.txthari.Text = “Kamis”
ElseIf harike = 5 Then
Me.txthari.Text = “Jumat”
ElseIf harike = 6 Then
Me.txthari.Text = “Sabtu”
ElseIf harike = 7 Then
Me.txthari.Text = “Minggu”
End If
Me.txtjam.Text = DateTime.Now.ToLongTimeString
Klik 2 x pada button1 = “CLICK ME”
Ketikan script dibawah ini :
MsgBox(“hi sora”)
Klik 2 x pada button2 = “Exit”
Ketikan script dibawah ini :
Me.close ()
Hasil Kesleruhan
Script keseluruhan
Public Class Form1
Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
Dim harike As Integer
harike = DateTime.Now.DayOfWeek
If harike = 1 Then
Me.txthari.Text = “Senin”
ElseIf harike = 2 Then
Me.txthari.Text = “Selasa”
ElseIf harike = 3 Then
Me.txthari.Text = “Rabu”
ElseIf harike = 4 Then
Me.txthari.Text = “Kamis”
ElseIf harike = 5 Then
Me.txthari.Text = “Jumat”
ElseIf harike = 6 Then
Me.txthari.Text = “Sabtu”
ElseIf harike = 7 Then
Me.txthari.Text = “Minggu”
End If
Me.txtjam.Text = DateTime.Now.ToLongTimeString
Me.txttanggal.Text = DateTime.Now.ToLongDateString
End Sub
Private Sub btnclk_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnclk.Click
MsgBox(“it’s me sora”)
End Sub
Private Sub btnclose_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnclose.Click
Me.Close()
End Sub
End Class
Tidak ada komentar:
Posting Komentar