Program Kalkulator

Untuk kalian yang suka dengan VisualBasic nih saya saya kasihkan koding untuk membuat Kalkulator sederhana buat kalian semua,

-Pertama-tama jalankan program VisualBasic nya,kemudian pilih yang VB enterprise edition controls terus buka form nya..kemudian :

*masukan 3 label dengan caption:Bilangan1,Bilangan2,Hasil.

*masukan 3 text,

*masukan 6 commandbutton dengan caption:Reset,Exit,+,-,*,dan /

*tambahkan 1 frame dengan caption:Tombol

*selanjutnya masukan commandbutton tersebut kedalam Frame agar kelihatan lebih menarik.

>>Dan terakhir masuk ke kode dan masukan koding-koding dibawah ini,

Dan jalankan dehh(RUN),,

Selamat mencobaa yaaaa………

Private Sub bersih()

Text1 = ""

Text2 = ""

Text3 = ""

End Sub

Private Sub nonaktif()

Text1.Enabled = False

Text2.Enabled = False

Text3.Enabled = False

End Sub

Private Sub aktif()

Text1.Enabled = True

Text2.Enabled = True

Text3.Enabled = True

End Sub

Private Sub Command1_Click()

aktif

bersih

Text1.SetFocus

End Sub

Private Sub Command2_Click()

Unload Me

End Sub

Private Sub Command3_Click()

Text3 = Val(Text1) + Val(Text2)

nonaktif

End Sub

Private Sub Command4_Click()

Text3 = Val(Text1) - Val(Text2)

nonaktif

End Sub

Private Sub Command5_Click()

Text3 = Val(Text1) * Val(Text2)

nonaktif

End Sub

Private Sub Command6_Click()

Text3 = Val(Text1) / Val(Text2)

nonaktif

End Sub

Private Sub Form_Activate()

    nonaktif

    bersih

End Sub

Private Sub Text3_Click()

Text3 = Val(Text1) + Val(Text2)

End Sub

Program yang sudah Jadinya bisa anda download DISINI

»»  Lanjutkan Membaca...

program Pencari Hari lahir

Nah kali ini saya akan membagikan koding lagi nihh,,sekarang kalian bisa cari tahhu waktu lahir hari apa,,siapa tau ortu kalian lupa,,dengan program dari VB ini kita bisa mencarinya lho…caranya :

Kalian harus Punya dulu software VisualBasic,,maaf yaaah langsung aja ke pembuatan programnya,,

-Masukan 2 label dengan Caption: Masukan Tanggal-Bulan-Tahun, Hari

-Masukan 2 Text

-Masukan 3 commandbutton dengan Caption : Proses, Reset, Keluar

Khusus untuk commandbutton3(Proses) ganti Name nya diproperties dengan ‘cmdproses’

Nah sekarang tinggal masukan deh koding nya , dengan masuk ke View code biasanya di pojok kiri diatas project.

Private Sub cmdproses_Click()

psn = MsgBox("Apakah anda yakin?periksa lagi data yang anda masukan", vbQuestion + vbOKCancel, "Warning")

Text2.Enabled = False

Text2.Text = WeekdayName(Weekday(Text1.Text))

End Sub

Private Sub Command1_Click()

Unload Me

End Sub

Private Sub bersih()

Text1 = ""

Text2 = ""

End Sub

Private Sub aktiv()

Text1.Enabled = True

Text2.Enabled = True

End Sub

Private Sub nonaktiv()

Text1.Enabled = False

Text2.Enabled = False

End Sub

Private Sub Command2_Click()

aktiv

bersih

Text1.SetFocus

End Sub

Private Sub Form_Activate()

bersih

nonaktiv

End Sub

::segitu dulu aja yaaaa..selamat mencoba !!!

Nah Untuk Programnya yg sudah jadi
 

Download  Disini

»»  Lanjutkan Membaca...