CARA KONEKSI DATABASE MySql VB.Net

Database MySql

Pada artikel sebelumnya saya berikan artikel mengenai Koneksi database menggunakan Access 2000 dan Access 2003, kali ini saya akan berikan tutorial koneksi database vb.net menggunakan wamp server.
Berikut ini saya berikan langkah-langkan menginstal Wamp 3.51
Lakukan Instalasi Wamp 3.51









Lakukan Instalasi Driver ODBC 3.51




1. start > all programs
2. wampserver > start wampserver

3. klik kanan ikon wampserver (warna putih di taskbar sebelah kanan)
4. pilih phpmyadmin

5. ubah tampilan bahasa ke bahasa indonesia agar mudah dipahami

6. buatlah database dengan nama DBLatihan
7. klik ciptakan

8. buatlah tabel siswa dengan tiga buah field
9. klik go

10. buat struktur tabel siswa sebagai berikut

11. field nim dijadikan primary key
12. klik simpan

13. indikasi keberhasilan pembuatan tabel siswa

14. klik sisipkan untuk menambahkan data secara manual

15. isilah data sebagai berikut kemudian klik GO

16. indikasi keberhasilan penambahan data

17. klik BROWSE untuk meihat data hasil entri

18. tambahkan dua data berikutnya


Koneksi Vb.Net Dengan Database Mysql 9. Buka vb.net
10. Buatlah form seperti gambar di bawah ini

11. ubah nama Datagridview1 menjadi GDV

12. buka jendela coding dan tulis coding berikut :

1. Imports System.Data.Odbc  
2. Public Class TampilGrid  
3. Dim Conn As OdbcConnection  
4. Dim da As OdbcDataAdapter  
5. Dim ds As DataSet  
6. Sub Koneksi()  
7. str = "Driver={MySQL ODBC 3.51 
8. Driver};database=DBLatihan;server=localhost;uid=root"  
9. Conn = New OdbcConnection(str)  
10. If Conn.State = ConnectionState.Closed Then  
11. Conn.Open()  
12. End If  
13. End Sub  
14. Private Sub TampilGrid_Load(ByVal sender As System.Object, ByVal e  
15. As System.EventArgs) Handles MyBase.Load  
16. Koneksi()  
17. da = New OdbcDataAdapter("Select * from siswa", Conn)  
18. ds = New DataSet  
19. ds.Clear()  
20. da.Fill(ds, "Siswa")  
21. DGV.DataSource = (ds.Tables("Siswa"))  
22. End Sub  
23. End Class  

Hasil program :


Cara membuat string koneksi database mysql

1. klik kanan toolbox


2. choose items


3. ketik odbc


4. centang odbcconnection


5. klik dua kali object odbcconnection


6. klik dropdown connetionstring


7. pilih new connection









































21. paste string koneksi ke dalam coding

Menggunakan String.Format pada Bilangan dengan VB.Net

Berikut cara-cara memformat tampilan string di VB.Net agar sesuai dengan yang kita inginkan. Tapi sebelumnya, kita harus tahu simbol-simbol yang digunakan untuk mengubah format tampilan pada string di VB.Net. Catatan : huruf besar huruf kecil tidak berpengaruh, kecuali dengan catatan tertentu.

c : untuk bilangan dengan mata uang (currency).
e : mengubah menjadi bilangan pecahan eksponensial, positif atau negatif. "-ddd.dddE+ddd"
f : mengubah menjadi bilangan pecahan tetap (fixed), positif atau negatif
n : mengubah menjadi bilangan pecahan tetap dengan pemisah ribuan.
p : mengubah menjadi persen
x : mengubah jadi bilangan heksadesimal.Contoh-contoh :

Console.WriteLine(123.45678)
Console.WriteLine(String.Format("{0:c}", 123.45678))
Console.WriteLine(String.Format("{0:c3}", 123.45678))
Console.WriteLine(String.Format("{0:n}", 1234.45678))
Console.WriteLine(String.Format("{0:n3}", 1234.45678))
Console.WriteLine(String.Format("{0:e}", 123.45678))
Console.WriteLine(String.Format("{0:e3}", 123.45678))
Console.WriteLine(String.Format("{0:f}", 123.45678))
Console.WriteLine(String.Format("{0:f3}", 123.45678))
Console.WriteLine(String.Format("{0:p}", 123.45678))
Console.WriteLine(String.Format("{0:x}", 10))

Console membuat aplikasi rasa dengan menjadikan input ke lower case (huruf kecil) secara otomatis

Ini tugas anak SI untuk membuat aplikasi rasa.
menjadikan semua input dibaca menjadi lower case(huruf kecil) walaupun diinput dengan huruf besar.

Imports System.Console

Module Module1

Sub Main()
Dim bumbu, rasa As String
WriteLine("Aplikasi Rasa")
WriteLine("=============")
ReadLine()
Write("Masukan nama bumbu: ")
bumbu = LCase(ReadLine())

If bumbu = "gula" Then
rasa = "Manis"
ElseIf bumbu = "garam" Then
rasa = "Asin"
ElseIf bumbu = "cuka" Then
rasa = "Asam"
ElseIf bumbu = "cabe" Then
rasa = "Pedas"
Else
rasa = "Maaf tapi Data base belum ada bumbu " & bumbu

End If

Write("Rasanya : " & rasa)
ReadLine()
WriteLine("Terimakasih")
ReadLine()

End Sub

End Module



Perhatikan bedanya dan silahkan dicoba input yang dimasukan dengan huruf besar maupun kecil akan tetap terbaca oleh program.

Contoh console menggunakan case menggantikan IF - Else - Then

Karena mungkin masih banyak yang bertanya cara menggunakan case maka akan saya coba untuk memberikan satu contoh yang mungkin sudah dibuat dengan menggunakan IF - ELSE - THEN.

Contoh :
Buat perhitungan nilai akhir dengan nilai hurufnya
Input :

1. Nilai Kehadiran.
2. Nilai Tugas
3. Nilai UTS
4. Nilai UAS

Ketentuan:


Nilai Akhir = Nilai Kehardiran * 10% + Nilai Tugas * 20% + Nilai UTS * 30% + Nilai UAS * 40%
Nilai huruf, bila nilai akhir :
>=80 : Nilai Huruf A dan Keterangan "Anda Lulus"
>=70 : Nilai Huruf B dan Keterangan "Anda Lulus"
>=60 : Nilai Huruf C dan Keterangan "Anda Lulus"
>=50: Nilai Huruf D dan Keterangan "Anda Lulus"
<50 :=":" br="br" dan="dan" e="e" huruf="huruf" keterangan="keterangan" lulus="lulus" nda="nda" nilai="nilai" tidak="tidak">
Silahkan dicoba membuat programnya seperti dibawah ini... "INGAT TUJUANNYA BUKAN ANDA BISA MEMBUAT PROGRAM INI TAPI MEMAHAMI MENGGUNAKAN CASE UNTUK MEMBUAT PROGRAM"

Imports System.Console

Module Module1

    Sub Main()
        Dim NK, NT, UTS, UAS As Integer
        Dim Nilai As Long
        WriteLine("=========================================")
        WriteLine("  Program Penghitungan Nilai Kelulusan")
        WriteLine("=========================================")
        Write("Masukan Nilai Kehadiran Anda: ")
        NK = ReadLine()
        Write("Masukan Nilai Tugas Anda: ")
        NT = ReadLine()
        Write("Masukan Nilai UTS Anda: ")
        UTS = ReadLine()
        Write("Masukan Nilai UAS Anda: ")
        UAS = ReadLine()
        WriteLine("=========================================")
        WriteLine("")

        Nilai = (0.1 * NK) + (0.2 * NT) + (0.3 * UTS) + (0.4 * UAS)

        Select Case Nilai
            Case Is >= 80
                WriteLine("           Selamat Anda LULUS!")
                WriteLine("      Nilai Anda Pada DNS adalah: A")
            Case Is >= 70
                WriteLine("           Selamat Anda LULUS!")
                WriteLine("      Nilai Anda Pada DNS adalah: B")
            Case Is >= 60
                WriteLine("           Selamat Anda LULUS!")
                WriteLine("      Nilai Anda Pada DNS adalah: C")
            Case Is >= 50
                WriteLine("           Selamat Anda LULUS!")
                WriteLine("      Nilai Anda Pada DNS adalah: D")
            Case Else
                WriteLine("      Maaf Anda TIDAK LULUS... COBA LAGI !")
        End Select
        Write("         Anda Mendapat Nilai: " & Nilai)
        WriteLine()
        WriteLine("=========================================")
        ReadLine()
        WriteLine("   Ini adalah contoh menggunakan case")
        WriteLine("   Silahkan coba untuk kasus yg lain")
        WriteLine("               GOOD LUCK")
        ReadLine()

    End Sub

End Module

Buat Console Hitung Overtime Harian Buat anak SI

Buat anak anak SI Unilak 2012 -2013 ini untuk latihan saja sesuai dengan persoalan :
Buat Program dan Flowchart ???

Hitung Overtime harian:

Input :
- Gaji Pokok
- Jenis hari (Reg/Off)
- Jam OverTime

Output :
- Unit
- Uang OverTime

Ketentuan :

1. Mencari unit:

• Jenis Hari Off maka perhitungan Jam pertama (1) adalah dikali 2, Jam ke 2 sd ke 8 maka dihitung dikali 3 dan Jam ke 9 dst dihitung dikali 4.
• Jenis hari Reg maka perhitungan Jam pertama (1) adalah dikali 1,5, Jam ke 2 sd ke 8 dihitung dikali 2 dan jam ke 9 dst dihitung dikali 3.

2. Untuk mendapatkan Uang Overtime rumusannya adalah Gaji Pokok/173 x unit.

Silahkan dicoba....
Mohon console dibawah adalah jawabannya tapi goalnya adalah mengerti penggunaannya dan pembuatannya ... apabila sudah dimengerti silahkan buat untuk perhitungan 1 bulan (31 Hari).

Jawabannya: 


Imports System.Console

Module Module1

    Sub Main()
        Dim gp, jo, a, b, c, unit, ot As Single
        Dim jh As String

        WriteLine("++++++++++++++++++++++++")
        WriteLine("APLIKASI HITUNG OVERTIME")
        WriteLine("++++++++++++++++++++++++")
        ReadLine()
        WriteLine("============================================================")
        WriteLine("============================================================")
        Write("      Masukan Gaji Pokok: Rp. ")
        gp = ReadLine()
        Write("      Masukan Jenis Hari(reg/off) : ")
        jh = ReadLine()
        Write("      Masukan Jam Overtime : ")
        jo = ReadLine()

       If jh = "off" Then
            If jo >= 1 Then a = 2
            If jo >= 2 < 8 Then b = 7 * 3 Else
            b = (jo - 1) * 3
            If jo >= 9 Then c = (jo - 8) * 4
        Else
            If jo >= 1 Then a = 1.5
            If jo >= 2 < 8 Then b = 7 * 2 Else
            b = (jo - 1) * 2
            If jo >= 9 Then c = (jo - 8) * 3
        End If
        unit = a + b + c
        ot = (gp / 173) * unit

        WriteLine("============================================================")
        WriteLine("============================================================")
        WriteLine("     Jumlah Unit adalah :" & unit)
        WriteLine("     Jumah Overtime yang diterima : Rp. " & ot)
        WriteLine("============================================================")
        WriteLine("============================================================")
        ReadLine()
        WriteLine("============================================================")
        WriteLine("     KALAU SUDAH BISA SILAHKAN BUATKAN UNTUK PERBULAN")
        WriteLine("                      SELAMAT BELAJAR")
        WriteLine("             SEMOGA SUKSES MENJADI PROGRAMER")
        WriteLine("============================================================")
        ReadLine()

    End Sub

End Module

Tugas Algo anak SI Semester 1 UNILAK

Silahkan CoPas bwt yang pengen tugasnya Algoritma dan Perograman I :


1. BUAT CONSOLE BALOK :


Imports System.Console

Module Module1

    Sub Main()
        Dim P, L, T, V, LP As Integer

        WriteLine("MENCARI VOLUME DAN LUAS PENAMPANG BALOK")
        ReadLine()
        WriteLine("LEGEND :")
        WriteLine("P : Panjang")
        WriteLine("L : Lebar")
        WriteLine("T : Tinggi")
        ReadLine()

        Write("Isi P : ")
        P = ReadLine()
        Write("Isi L : ")
        L = ReadLine()
        Write("Isi T : ")
        T = ReadLine()

        V = P * L * T
        LP = (2 * P * L) + (2 * P * T) + (2 * L * T)
        WriteLine("HASILNYA :")
        ReadLine()

        WriteLine("Volume Balok adalah :" & V)
        ReadLine()
        WriteLine("Dan Luas Penampang Balok adalah : " & LP)
        ReadLine()
        Write("TERIMAKASIH *RK*")
        Read()
    End Sub

End Module


2. BUAT CONSOLE SEGITIGA :


Imports System.Console

Module Module1

    Sub Main()
        Dim a, t, Lu As Integer

        WriteLine("Aplikasi Segitiga")
        ReadLine()

        Write("Masukan Nilai alas : ")
        a = ReadLine()
        Write("Masukan Nilai tinggi : ")
        t = ReadLine()

        Lu = (a * t) / 2

        Write("Jadi Luas Segitiga adalah: " & Lu)
        Read()

    End Sub

End Module

3. BUAT CONSOLE KUBUS :


Imports System.Console

Module Module1

    Sub Main()
        Dim s, L, LP As Integer

        WriteLine(" SELAMAT DATANG ")
        WriteLine(" Di Program Volume dan Luas permukaan Kubus ")
        ReadLine()
       

        Write("    Masukan Nilai sisi: ")
        s = ReadLine()

        L = s ^ 3
        LP = (s ^ 2) * 6

        WriteLine()
        Write("           Maka Luas Kubus adalah : " & L)
        ReadLine()
        WriteLine("           Dan Luas Permukaan Kubus adalah : " & LP)
        ReadLine()

        Write("    TERIMAKASIH *RK* ")
        ReadLine()
    End Sub

End Module

4. BUAT CONSOLE LINGKARAN :

Imports System.Console

Module Module1

    Sub Main()

        Dim R, L, KLL As Decimal

        WriteLine("APLIKASI MENGHITUNG LUAS DAN KELILING LINGKARAN")

        ReadLine()

        Write("Masukan Nilai Jari Jari: ")

        R = ReadLine()

        L = 3.14 * R * R

        KLL = 2 * (3.14 * R)

        WriteLine()

        WriteLine(" Jadi Luas Lingkaran adalah :" & L)

        WriteLine(" Dan Keliling lingkaran adalah : " & KLL)

        ReadLine()

        WriteLine(" TERIMAKASIH *RK* ")

        Read()

    End Sub

End Module

5. BUAT CONSOLE DATA GAJI

Imports System.Console

Module Module1

    Sub Main()

        Dim NP As String

        Dim JA, GP, TA, TI, TB, GK As Integer

        WriteLine("Slip Gaji")

        ReadLine()

        Write("Masukan Nama Pegawai: ")

        NP = ReadLine()

        Write("Masukan Gaji Pokok: ")

        GP = ReadLine()

        Write("Masukan Jumlah Anak: ")

        JA = ReadLine()

        TA = 0.1 * GP * JA

        TI = 0.05 * GP

        TB = (2 + JA) * 25000

        GK = GP + TI + TA + TB

        WriteLine("------------------------------------------------------------")

        WriteLine("Penghasilan : " & NP)

        WriteLine("------------------------------------------------------------")

        WriteLine("Tunjangan Anak = Rp. " & TA)

        WriteLine()

        WriteLine("Tunjangan Isteri = Rp. " & TI)

        WriteLine()

        WriteLine("Tunjangan Beras = Rp. " & TB)

        WriteLine()

        WriteLine("Gaji Kotor = Rp. " & GK)

        Read()

    End Sub

End Module

6. BUAT CONSOLE DATA NILAI :

Imports System.Console

Module Module1

    Sub Main()

        Dim NS, NM As String

        Dim NK, NT, NUTS, NUAS, NA As Integer

        WriteLine("Data Nilai")

        WriteLine("------------")

        ReadLine()

        Write("Nama Siswa : ")

        NS = ReadLine()

        Write("Nama Mata Kuliah : ")

        NM = ReadLine()

        Write("Masukan Nilai Kehadiran: ")

        NK = ReadLine()

        Write("Masukan Nilai Tugas: ")

        NT = ReadLine()

        Write("Masukan Nilai Ujian Tengah Semester: ")

        NUTS = ReadLine()

        Write("Masukan Nilai Ujian Akhir Semester: ")

        NUAS = ReadLine()

        NA = (0.1 * NK) + (0.2 * NT) + (0.3 * NUTS) + (0.4 * NUAS)

        WriteLine()

        WriteLine("---------------------------------------------------------")

        WriteLine("Nilai Akhir dari : " & NS)

        WriteLine("Pada Mata Kuliah : " & NM)

        WriteLine("---------------------------------------------------------")

        ReadLine()

        WriteLine()

        WriteLine("---------------------------------------------------------")

        WriteLine("Nilai Akhir Siswa Adalah: " & NA)

        WriteLine("---------------------------------------------------------")

        WriteLine("                                      TERIMAKASIH *RK*")

        WriteLine("---------------------------------------------------------")

        Read()

    End Sub

End Module

Kalau ada yang kurang mohon maklum ya....

Semoga berhasil SI UNILAK 2012 - 2013....

Membuat Marquee (teks berjalan) pada aplikasi desktop

Buat project form baru (VB). Tambahkan satu buah label, beri nama “lblFlyText”. kemudian isi property text pada lblFlyText dengan tulisan apa saja, misal “fly text”. Copy saja text sehingga menjadi panjang. Tambahkan Komponen sebuah timer dengan interval 100.

untuk lebih jelasnya perhatikan gambar berikut:

masuk ke bagian sourcode.

buat sebuah properti dan enum sebagai berikut:

Private mRunningText As String 

Public Property RunningText() As String 

Get 

Return mRunningText 

End Get 

Set(ByVal value As String) 

mRunningText = value 

End Set 

End Property 

Enum SlideTypeEnum 

Right 

Left 

End Enum 

Private mSlideType As SlideTypeEnum 

Public Property SlideType() As SlideTypeEnum 

Get 

Return mSlideType 

End Get 

Set(ByVal value As SlideTypeEnum) 

mSlideType = value 

End Set 

End Property 

lalu,

Pada method form_load, tulis sourcode berikut:

Private Sub Form_Load(ByVal sender As System.Object, ByVal e As _ 

System.EventArgs) Handles MyBase.Load 

BuildRunningText() 

lblRunningText.Text = Me.RunningText 

Timer1.Enabled = True 

End Sub 

kemudian isi dari timer1_tick()

Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e _ 

As System.EventArgs) Handles Timer1.Tick 

Me.RunningText = SlideText(Me.RunningText, SlideTypeEnum.Left, 1) 

Me.lblRunningText.Text = Me.RunningText 

End Sub 

adapun method pendukung lain sebagai berikut:

Private Sub BuildRunningText() 

Dim fly_text As String = "running_text" 

Dim build_text As New StringBuilder 

For index As Integer = 0 To lblRunningText.Text.Count 

If index < fly_text.Count Then 

build_text.Append(fly_text(index)) 

Else 

build_text.Append(" ") 

End If 

Next 

For index As Integer = 0 To fly_text.Count 

build_text.Append(" ") 

Next 

Me.RunningText = build_text.ToString 

End Sub 

Private Function SlideText(ByVal str As String, ByVal slide_type _ 

As SlideTypeEnum, ByVal as_much_as As Integer) As String 

Dim str_temp As New StringBuilder 

If slide_type = SlideTypeEnum.Right Then 

For index As Integer = (str.Count - as_much_as) To (str.Count - 1) 

str_temp.Append(str(index)) 

Next 

For index As Integer = 0 To (str.Count - as_much_as - 1) 

str_temp.Append(str(index)) 

Next 

Else 

For index As Integer = as_much_as To (str.Count - 1) 

str_temp.Append(str(index)) 

Next 

For index As Integer = 0 To (as_much_as - 1) 

str_temp.Append(str(index)) 

Next 

End If 

Return str_temp.ToString 

End Function 

Membuat Stopwatch Menggunakan VB2010

Pada bagian ini kita akan membuat sebuah stopwatch menggunakan VB2010. Adapun langkah-langkah yang kita lakukan untuk membuat stopwatch menggunakan VB2010 yaitu:

1. Tambahkan sebuah label ke dalam form dan ubah text propertiesnya menjadi “00:00:00:000”.

2. Ubah ukuran size font menjadi 28.

3. Tambahkan sebuah timer ke dalam form, pada properties window ubah interval menjadi “1”.

4. Tambahkan sebuah listbox dan letakkan di bawah label.

5. Tambahkan 4 button dan letakkan di bawah listbox dan ubah text propertiesnya. Button1 menjadi “Mark”, button2 menjadi “Start”, button3 menjadi “Stop” dan button 4 menjadi “Reset”.

Klik form1 dan klik view code, kemudian masukkan coding berikut:

Public Class Form1

Private stopwatch As New Stopwatch

End Class

Klik 2 kali timer1 dan masukkan coding berikut:

Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick

Dim elapsed As TimeSpan = Me.stopwatch.Elapsed

Label1.Text = String.Format("{0:00}:{1:00}:{2:00}:{3:00}", _

Math.Floor(elapsed.TotalHours), _

elapsed.Minutes, elapsed.Seconds, _

elapsed.Milliseconds)

End Sub

Klik 2 kali button “Start” (button2) dan masukkan coding berikut:

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click

Timer1.Start()

Me.stopwatch.Start()

Button4.Enabled = False

End Sub

Klik 2 kali button “Stop” (button3) dan masukkan coding berikut:

Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click

Timer1.Stop()

Me.stopwatch.Stop()

Button4.Enabled = True

End Sub

Klik 2 kali button “Reset” (button4) dan masukkan coding berikut:

Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click

Me.stopwatch.Reset()

Label1.Text = "00:00:00:00"

ListBox1.Items.Clear()

End Sub

Klik 2 kali button “Mark” (button1) dan masukkan coding berikut:

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

ListBox1.Items.Add(ListBox1.Items.Count + 1 & " - " & Label1.Text)

End Sub

Klik Start Debugging (F5) untuk menjalankan program.

Jam Analog Menggunakan VB2010

Untuk membuat sebuah jam analog menggunakan VB2010 kita membutuhkan 12 label yang harus kita masukkan ke dalam form. Ubah text properties ke 12 labrl tersebut menjadi angka 1-12. Ubah Backcolor label tersebut menjadi White.

Tambahkan 2 timer dan 1 label lagi ke dalam form. Ubah nama label tersebut menjadi “Time”. Klik form1 kemudian klik view code dan masukkan coding berikut:

Public Class Form1

' tick digunakan untuk menggambar 60 tanda detik pada jam

Dim tick As Integer = 270

'tick2 digunakan untuk menggambar 12 tanda jam

Dim tick2 As Integer = 270

End Class

Klik 2 kali form1 dan masukkan coding berikut:

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

'lokasi jam pada form

Label1.Location = New Point(505, 203)

Label2.Location = New Point(561, 261)

Label3.Location = New Point(592, 335)

Label4.Location = New Point(561, 404)

Label5.Location = New Point(505, 464)

Label6.Location = New Point(430, 489)

Label7.Location = New Point(357, 463)

Label8.Location = New Point(305, 408)

Label9.Location = New Point(272, 334)

Label10.Location = New Point(302, 259)

Label11.Location = New Point(354, 200)

Label12.Location = New Point(430, 177)

Timer1.Enabled = True

Timer2.Enabled = True

End Sub

Klik 2 kali timer1 dan masukkan coding berikut:

Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick

'mengubah detik pada lingkaran

Dim seconds As Integer = (Now.Second * 6) + 270

'mengubah menit pada lingkaran

Dim minutes As Integer = (Now.Minute * 6) + 270

'mengubah jam pada lingkaran

Dim hours As Integer = (Now.Hour * 30) + 270

'label text akan menampilkan jam pada komputer saat ini

Time.Text = Now

'membuat gambar jam

Dim g As Graphics

g = Me.CreateGraphics

Dim hour As New Pen(Color.Blue)

Dim hour2 As New Pen(Color.White)

Dim second As New Pen(Color.Black)

Dim minute As New Pen(Color.Red)

Dim minute2 As New Pen(Color.White)

Dim white As New Pen(Color.White)

Dim circle As New Pen(Color.Black)

hour.Width = 8

hour2.Width = 10

second.Width = 1

minute.Width = 4

minute2.Width = 4

white.Width = 10

circle.Width = 5

g.DrawPie(hour2, 319, 219, 240, 240, hours - 30, 360)

g.DrawPie(minute2, 289, 189, 300, 300, minutes - 6, 360)

g.DrawPie(Pens.White, 269, 169, 340, 340, seconds - 6, 360)

g.DrawPie(hour, 319, 219, 240, 240, hours, 360)

g.DrawEllipse(white, 319, 219, 240, 240)

g.DrawPie(minute, 289, 189, 300, 300, minutes, 360)

g.DrawEllipse(white, 289, 189, 300, 300)

g.DrawPie(second, 269, 169, 340, 340, seconds, 360)

g.DrawEllipse(white, 269, 169, 340, 340)

g.DrawEllipse(circle, 249, 149, 380, 380)

End Sub

Klik 2 kali timer2 dan masukkan coding berikut:

Private Sub Timer2_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer2.Tick

tick += 6

tick2 += 30

Dim g As Graphics

Dim hoursMarks As New Pen(Color.Black)

hoursMarks.Width = 5

g = Me.CreateGraphics

g.DrawPie(Pens.Black, 249, 149, 380, 380, tick, 360)

g.DrawPie(hoursMarks, 249, 149, 380, 380, tick2, 360)

g.DrawEllipse(Pens.White, 269, 169, 340, 340)

g.FillEllipse(Brushes.White, 269, 169, 340, 340)

If tick > 800 Then

Timer2.Stop()

tick = 270

tick2 = 270

End If

End Sub

Ubah WindowState properties pada form1 menjadi Maximized unutk melihat hasil yang lebih baik.