-->
Selamat Datang Di Halaman Saya Simple Tapi Semoga Bisa bermanfaat

DuniaLainpresent!

BELAJAR Dan TERUS BERUSAHA

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



No comments:

Post a Comment

Tags

SMS Gratissssss

CINTAI PERBEDAAN

Search This Blog