membuat stopwatch dan konversi uang

Rabu, 13 April 2011 | alamanda
di 10:58:00 AM |

cara membuat konversi peruangan dolar ke rupiah dan Stopwatch pada Visual Basic.

Langkah-langkah untuk membuat sebuah GUI sama seperti Pascal Cuma beda pada statemen penulisan kodingnya.

            Pertama kali membuat sebuah Konversi uang dulu. Kita masukkan

1. Label sebanyak 3
2. Text sebanyak 3
3. dan Command sebanyak 4

selanjutnya kita rubah caption Labelnya, beri caption Label1 beri caption Dollar, Label2 beri caption Kurs dan Label3 beri caption Rupiah. Pada Text kosongkan semua. Pada command Beri caption Hitung, Clear, Exit dan Next.

Habis itu beri sintak pada koding tersebut klik double pada salah satu form yang dibuat tadi jika sudah buat kodingnya, yang berisi:

Dim kurs As Long

Dim rupiah As Long

Merupakan sebuah deklarisi bahwa nilai Kurs dan rupiah bertipe long

Private Sub Command1_Click()

dollar = Val(Text1.Text)

kurs = Val(Text2.Text)

rupiah = dollar * kurs

Text3.Text = "Rp" + Str(rupiah)

End Sub

Merupakan Command1 yang tadi sudah diubah captionnya yaitu hitung, merupakan dollar dan kurs berisi sebuah variable angka yang bertipe long yang sudah di diklarasikan tadi. Dan rupiah merupakan sebuah proses perkalian antara dollar dan kurs, yang kemudian hasilnya diceteak di Text3 yangt diambil nilainya dari proses rupiah tadi.

Private Sub Command2_Click()

Text1.Text = ""

Text2.Text = ""

Text3.Text = ""

End Sub

Command2 ini caption yang tadi diganti clear, diatas merupakan jika mengklik clear akan terhapus text1, 2, dan 3 karena berisi syntax kosong.

Private Sub Command3_Click()

Unload Me

End Sub

Perintah untuk mengklose suatu Form bukan untuk keluar dari suatu project yang dijalankan

Private Sub Command4_Click()

Form1.Show

Form2.Hide

End Sub

Merupakan dimana jika klik next akan tampil Form1 dan Form2 hilang.

            Selanjutnya pada Form 1, buat sebuah Stowatch yang terdiri dari

Nama Kontrol	Properties	Nilai Properties
Form	Caption	Stop Watch
Commond1	Caption	&Mulai
Commond2	Caption	&Stop
Label1	Caption	Waktu Mulai :
Label1	Caption	Waktu Akhir :
Label1	Caption	Panjang Waktu :
Text1,Text2, Text3	Text Width	kosong 2000
Timer1	Enable Interval	False 1

Yang kemudian klik double salah satu dari label atau command, lalu isi kodingnya yang isinya sangat simple bagi suatu stopwatch yaitu:

Dim tDurasi,tAwal,tAkhir

‘pendeklarasian suatu variabel untuk menyimpan nilai

Private Sub Command1_Click()

  Text1.Text = " "  ‘untuk mengosongkan TextBox 1

  Text2.Text = " " ‘untuk mengosongkan TextBox 2

  Text3.Text = " " ‘untuk mengosongkan TextBox 3

tAwal = Time

’ mengambil waktu sekarang ( waktu mulai )

  Text1.Text = tAwal

’menampilkan waktu awal pada textbox1

  Timer1.Enabled = True

’meng-aktifkan timer

End Sub

Private Sub Command2_Click()

  Timer1.Enabled = False

  ’men-nonaktifkan timer

   tDurasi = Str(tAkhir - tAwal)

  ’menghitung durasi

  Text3.Text = Format(tDurasi, " hh:nn:ss.00")

’menampilkan durasi pada textbox3

End Sub

Private Sub Timer1_Timer()

  DoEvents

’menjalankan proses lain yg belum di jalankan

  tAkhir = Time

  ’ mengambil waktu sekarang ( waktu akhir )

  Text2.Text = tAkhir

’menampilkan waktu akhir pada textbox2

End Sub

Selamat mencoba.....