Batman Begins - Help Select

Membuat Kalkultor menggunakan VB 2010

Jumat, 24 Januari 2014

Langkah-Langkah:


Pertama buka VB 2010

lalu pilih New Project
Setelah itu akan muncul :

Kemudian ganti nama menjadi Kalkulator

Lalu klik OK

Ini adalah tampilan awal di VB 2010 

Kemudian 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

Kemudian buatlah 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
Ganti:
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
Ganti :
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 memasukan kode-kodenya, Kemudian jalankan dengan tekan F5.

Semoga Ini Bermanfaat Bagi Anda, Terima Kasih.

 

Most Reading

Tags