Membuat Stopwatch

Kalian tau kan Stopwatch.
Stopwatch adalah alat buat ngitung waktu..
Pengen tau cara buatnya,,
Gampang kok.
Pertama-tama buka visual basic kalian lalu buat kaya tampilan ini

Lalu ketik source code ini, kalau mau cepet copy aja

Private Sub CmdStart_Click()
Xmili.Caption = “00″
xdetik.Caption = “00″
xmenit.Caption = “00″
Timer1.Enabled = True
CmdStart.Enabled = False
CmdStop.Enabled = True
End Sub

Private Sub CmdStop_Click()
Timer1.Enabled = False
CmdStart.Enabled = True
CmdStop.Enabled = False
End Sub

Private Sub Form_Load()
Timer1.Enabled = False
CmdStop.Enabled = False
End Sub

Private Sub Timer1_Timer()
Xmili.Caption = Val(Xmili.Caption) + 1
If Len(Xmili.Caption) = 1 Then Xmili.Caption = “0″ & Xmili.Caption
If Xmili.Caption = “60″ Then
Xmili.Caption = “00″
xdetik.Caption = Val(xdetik.Caption) + 1
If Len(xdetik.Caption) = 1 Then xdetik.Caption = “0″ & xdetik.Caption
End If
If xdetik.Caption = “60″ Then
xdetik.Caption = “00″
xmenit.Caption = Val(xmenit.Caption) + 1
If Len(xmenit.Caption) = 1 Then xmenit.Caption = “0″ & xmenit.Caption
End If
End Sub

Gampang kan????
Yoossh..... Ilham Sign Out

Read More..

Mebuat kalender

1.      Buatlah form

 2.   Desain form seperti berikut  berikut ini

 3.      Aturlah objek seperti dibawah ini:

Kontrol	Properti	Isi
Label1	Caption	(dikosongi)
Timer1	Interval	100
Label2	Caption	(dikosongi)
Timer2	Interval	1000

 4.      Lalu masukkan kode:

Private Sub Timer1_Timer( )

Label2.Caption = Time

End Sub

Private Sub Timer2_Timer( )

Label1.Caption = Format(Now, "dddd, dd mm yyyy")

End Sub

 

Hasilnya kaya gini nih

 

Gampang kan.....
Ilham Sign Out......

 

Read More..

Membuat kalkulator sederhana

Buat kalkulator sendiri????
itu bisa dengan visual basic
pertama instal dulu visual basic, kalian bisa unduh di Google.com
seudah di instah buka visual basic kalian lalu pilih standart.exe

1.     Buat project baru, kemudian TextBox dan sebuah commandButton seperti berikut:

2.      Klik kanan pada tombol command1, kemudian pilih copy, lalu klik kanan lagi dan pilih paste. Ketika muncul pesan “You already have a control named ’Command1’. Do you want to create a control array ?”, pilih yes. Akan muncul kontrol commandButton baru dengan nama Command1. Kemudian klik kanan lalu paste lagi sehingga muncul kontrol command1. Lakukan proses tersebut teru-menerus sampai kontrol CommandButton berjumlah sepuluh buah.

3.     Atur posisi kontrol-kontrol Command tersebut sehingga tampilan form menjadi seperti berikut:

4.     Kemudian atur properti caption untuk commandButton sehingga tampilannya menjadi seperti berikut. 

 5.     Supaya kita dapat mengoperasikannya, tambahkan sepuluh buah commanButton baru.

 

6.     Atur properti kontrol TextBox dan CommandButton baru seperti berikut.  

Kontrol	Properti
Text1	Text
Command2	Name Caption	Koma .
Command3	Name Caption	AC AC
Command4	Name Caption	Tambah +
Command5	Name Caption	Kurang -
Command6	Name Caption	Tanda +/-
Command7	Name Caption	Bagi /
Command8	Name Caption	Kali x
Command9	Name Caption	Akar Akar
Command10	Name Caption	Hasil =l
Command11	Name Caption	Kuadrat X^2

7.     Setelah itu Atur posisi kontrol-kontrol tersebut sehingga menjadi seperti berikut :

 8.     Buka jendela kode, lalu ketikkan kode berikut ini:

Private pilihan As String

Private x As Double

Private y As Double

Private Sub AC_Click()

Text1.Text = ""

y = x = 0

Tanda.Enabled = False

End Sub

Private Sub Akar_Click()

If x < 0 Then

Text1.Text = "Angka Tidak Boleh Negatif Coy"

Else

Text1.Text = Sqr(x)

End If

End Sub

Private Sub Bagi_Click()

Text1.Text = ""

pilihan = "bagi"

y = x

x = 0

Tanda.Enabled = False

End Sub

Private Sub Command1_Click(Index As Integer)

Text1.Text = Text1.Text & Command1(Index).Caption

x = Text1.Text

Tanda.Enabled = True

End Sub

Private Sub Form_Load()

Tanda.Enabled = False

End Sub

Private Sub Hasil_Click()

If pilihan = "tambah" Then

x = y + x

Text1.Text = x

ElseIf pilihan = "kurang" Then

x = y - x

Text1.Text = x

ElseIf pilihan = "kali" Then

x = y * x

Text1.Text = x

ElseIf pilihan = "bagi" And x <> 0 Then

x = y / x

Text1.Text = x

Else

Text1.Text = "Tidak Terdefinisi"

End If

End Sub

Private Sub Kali_Click()

Text1.Text = ""

pilihan = "kali"

y = x

x = 0

Tanda.Enabled = False

End Sub

Private Sub Koma_Click()

If Text1.Text = "" Then

Text1.Text = "0."

Else

Text1.Text = Text1.Text & "."

End If

End Sub

Private Sub Kuadrat_Click()

Text1.Text = x ^ 2

End Sub

Private Sub Kurang_Click()

Text1.Text = ""

pilihan = "kurang"

y = x

x = 0

Tanda.Enabled = False

End Sub

Private Sub Tambah_Click()

Text1.Text = ""

pilihan = "tambah"

y = x

x = 0

Tanda.Enabled = False

End Sub

Private Sub Tanda_Click()

If x < 0 Then

Text1.Text = -x

x = -x

Else

Text1.Text = "-" & Text1.Text

x = -x

End If

End Sub

 

Nah. bisa kan. Kalau kalian masih belum bisa terus belajar.

Yoosh.. Ilham Sign Out

 

Read More..