lalu pilih New Project
Setelah itu akan muncul :
Setelah itu ganti nama menjadi Kalkulator
Setelah itu klik OK
Ini adalah tampilan awal di VB 2010
Setelah itu buatlah form sebanyak 4 form
Cara membuatnya :
Klik kanan di Kalkulator, pilih add, lalu pilih windows form, lalu klik
Setelah di klik akan muncul seperti ini, lalu tekan add
Buatlah sepeti cara diatas sampai 4 kali
Setelah sudah selesai, tampilannya akan seperti ini
Kembali ke form 1
Buatlah radiobutton dan beri text Operator dan ganti nama menjadi rboperator
Setelah itu buat lah combobox text nya dikosongkan dan ganti name menjadi cboperator
Masukan kode berikut :
Public Class Form1
Private Sub cboperator_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cboperator.SelectedIndexChanged
If cboperator.Text = "Tambah" Then
Form2.Show()
ElseIf cboperator.Text = "Kurang" Then
Form2.Show()
ElseIf cboperator.Text = "Kali" Then
Form2.Show()
ElseIf cboperator.Text = "Bagi" Then
Form2.Show()
End If
End Sub
End Class
Setelah itu ke form 2
Buatlah radio button sebanyak 4 buah dan 1 buah button
Pada gambar diatas terdapat 4 buah radiobutton dengan text tambah, kurang, kali, bagi
Masing-masing radio button diubah menjadi:Radiobutton1 = text : tambah name : rbtambah
Radiobutton2 = text : kurang name : rbkurang
Radiobutton3 = text : kali name : kali
Radiobutton4 = text : bagi name : bagi
Button1 = text : next name : btnhitung
Setelah itu masukan kode berikut :
Public Class Form2
Private Sub btnhitung_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnhitung.Click
Form3.Show()
End Sub
Ke Form3
Buatlah 3 buat text box, 2 buah label, dan 1 buah button
Textbox1 = text : kosongkan name : txt1
Textbox2 = text : kosongkan name : txt2
label1 = text : Perhitungan
label2 = text : kosongkan name : label4
button2 = text : hitung name : btnhitung
Masukkan code berikut :
Public Class Form3
Private Sub btnhitung_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnhitung.Click
If Form2.rbtambah.Checked = True Then
txthasil.Text = Val(txt1.Text) + Val(txt2.Text)
ElseIf Form2.rbkurang.Checked = True Then
txthasil.Text = Val(txt1.Text) - Val(txt2.Text)
ElseIf Form2.rbkali.Checked = True Then
txthasil.Text = Val(txt1.Text) * Val(txt2.Text)
ElseIf Form2.rbbagi.Checked = True Then
txthasil.Text = Val(txt1.Text) / Val(txt2.Text)
End If
Form4.Label2.Text = txthasil.Text
Form4.Show()
End Sub
Private Sub Form3_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
If Form2.rbtambah.Checked = True Then
Label4.Text = "+"
ElseIf Form2.rbkurang.Checked = True Then
Label4.Text = "-"
ElseIf Form2.rbkali.Checked = True Then
Label4.Text = "*"
ElseIf Form2.rbbagi.Checked = True Then
Label4.Text = ":"
End If
End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
Form4.Show()
End Sub
End Class
Ke form4
Buatlah 2 buah label, dan 2 buah button
Label2 = text : Perhitungan
Label1 = text : Label1 name : label2
button1 = text : ulang name : btnulang
button1 = text : tidak name : btntidak
Masukan kode sebagai berikut :
Public Class Form4
Private Sub Label2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Label2.Click
If Form3.txthasil.Text = True Then
End If
End Sub
Private Sub btnulang_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnulang.Click
Form1.Show()
End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Me.Close()
End Sub
End Class
Setelah selesai coba jalankan dengan tekan F5
Created by bloggerwisnu.blogspot.com
Copas ( harap sertakan sumber !!! )
Mohon maaf jika ada kesalahan dalam tutorial diatas...
:)
Posting Komentar