Welcome to
Website...
***Fricles A Sianturi***
Thanks for
visiting...!!!

zwani.com myspace graphic comments
Myspace Christian Graphics

PANTUN HANGOLUAN TOIS HAMAGOAN

DAFTAR BLOG DOSEN DI STMIK BUDIDARMA MEDAN


Ingatlah selalu Akan Nama YESUS

SURGA DI TELAPAK KAKI IBU,KARENA ITU HORMATILAH KEDUA ORANG TUAMU

Kamis, 26 Januari 2012

.Belajar buat jam, hari, tanggal, message saat klik tombol, exit dengan vb.net

*Buka toolbox siapkan 3 label, 1 timer, dan 2 button

sora'dq
sora'dq

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

        Me.txttanggal.Text = DateTime.Now.ToLongDateString

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