cara membuat calculator dgn VB 6.

kali ini saya akan memberi sedikit ilmu cara membuat kalkulator sederhana,mang sudah banyak kalkulator diluarsana yang dibuat menggunakan Visual basic,tapi kali ini saya membuatnya sedikit berbeda. Dengan menambahkan Tombol ON/OFF pada kalkulator ini. Langsung aja kita mulai pertama sediakan dulu secangkir kopi buat menemani kitabelajar,hhe :D langkah pertama kita buka aplikasi Visual Basic 6.0 dan buat project baru udah pada tau kan caranya..?, kalo belum saya kasih tau deh. klik aplikasi visual basic –> pilih Standart Exe –> lau pilih Ok langkah kedua sekarang kita desain Project kalkulator ini seperti gambah di bawah ini https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEiOU3ba7fgS_FopnWiDy7qinX72lLsSQm25-HfE1JXA9wxPIPJD5QJsvQlC_vB8GXQ2Jn_Sa2nl2Mw_-kitGC95StoXD3ne6PC3aZE8sVYZDLDp4WfYtL5tWkY1sM-v-aPvxlnDOSzZosc/s1600/o.jpg setelah form kita desain sekarang ubah Name setiap komponen untuk componen Button numeric 0-9 ganti Name menjadi Comammand(angka button tersebut) misalnya button 1 menjadi Command1,button 2 menjadi Command2 dan seterunya. sedangkan untuk tombol oprasi sesuaikan dengan caption oprasinya. misalkan button ” + “ name kita ganti menjadi “tambah” dan yang lainnya juga sama seperti itu. oiya Untuk button kurang ganti captionnya menjadi “__” undescor dua kali bukan “–” strip. dan untuk tombol “ON” ganti name menjadi “nyalah” sedangkan tombol “OFF” menjadi “mati langkah selanjutnya kita klik kanan pada form lalu pilih “view code” setelah itu kita bersihkan dulu kolom codenya dengan cara CTRL+A dan tekan BackSpace atau delete. nah kalo langkah diatas udah semua sekarang copy dan paste code dibawah ini: Private Sub bagi_Click() If Label1.Caption = “” Then Label1.Caption = Text1.Text Label5.Caption = bagi.Caption End If If Label5.Caption <> “” Then Label5.Caption = “/” End If Text1.Text = “” End Sub Private Sub Command0_Click() Text1.Text = (Text1.Text) + Command0.Caption End Sub Private Sub Command1_Click() Text1.Text = (Text1.Text) + Command1.Caption End Sub Private Sub Command10_Click() Text1.Text = “” Label1.Caption = “” Label2.Caption = “” Label4.Caption = “” Label5.Caption = “” End Sub Private Sub Command11_Click() Text1.Text = “” End Sub Private Sub Command2_Click() Text1.Text = (Text1.Text) + Command2.Caption End Sub Private Sub Command3_Click() Text1.Text = (Text1.Text) + Command3.Caption End Sub Private Sub Command4_Click() Text1.Text = (Text1.Text) + Command4.Caption End Sub Private Sub Command5_Click() Text1.Text = (Text1.Text) + Command5.Caption End Sub Private Sub Command6_Click() Text1.Text = (Text1.Text) + Command6.Caption End Sub Private Sub Command7_Click() Text1.Text = (Text1.Text) + Command7.Caption End Sub Private Sub Command8_Click() Text1.Text = (Text1.Text) + Command8.Caption End Sub Private Sub Command9_Click() Text1.Text = (Text1.Text) + Command9.Caption End Sub Private Sub Form_Activate() For Each Control In Me If TypeName(Control) = “CommandButton” Then Control.Enabled = False End If Next nyalah.Enabled = True Form1.BackColor = &H0& Text1.BackColor = &H0& Label1.BackColor = &H0& Label2.BackColor = &H0& Label4.BackColor = &H0& Label5.BackColor = &H0& Label3.BackColor = &H0& End Sub Private Sub hasil_Click() If Label1.Caption And Text1.Text <> “” Then Label2.Caption = Text1.Text Select Case Label5.Caption Case “+” Label4.Caption = Val(Label1.Caption) + Val(Label2.Caption) Case “/” Label4.Caption = Val(Label1.Caption) / Val(Label2.Caption) Case “X” Label4.Caption = Val(Label1.Caption) * Val(Label2.Caption) Case “__” Label4.Caption = Val(Label1.Caption) – Val(Label2.Caption) End Select End If Text1.Text = “” End Sub Private Sub kali_Click() If Label1.Caption = “” Then Label1.Caption = Text1.Text Label5.Caption = kali.Caption End If If Label5.Caption <> “” Then Label5.Caption = “X” End If Text1.Text = “” End Sub Private Sub kurang_Click() If Label1.Caption = “” Then Label1.Caption = Text1.Text Label5.Caption = kurang.Caption End If If Label5.Caption <> “” Then Label5.Caption = “__” End If Text1.Text = “” End Sub Private Sub nyalah_Click() For Each Control In Me If TypeName(Control) = “CommandButton” Then Control.Enabled = True End If Next Form1.BackColor = &HFFFF80 Text1.BackColor = &HFFFF80 Label1.BackColor = &HFFFF80 Label2.BackColor = &HFFFF80 Label4.BackColor = &HFFFF80 Label5.BackColor = &HFFFF80 Label3.BackColor = &HFFFF80 End Sub Private Sub tambah_Click() If Label1.Caption = “” Then Label1.Caption = Text1.Text Label5.Caption = tambah.Caption End If If Label5.Caption <> “” Then Label5.Caption = “+” End If Text1.Text = “” End Sub Setelah itu tekan tombol F5 dan lihat hasilnya. :)