Membuat Program Kalkulator menggunakan visual basic 2010

Membuat Program kalkulator menggunakan visual basic 2010

1. membuat menu Login
codinagn

 Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        MsgBox("Klik OK", MsgBoxStyle.Information, "APPLICATION")
        Form2.Show()
        Me.Hide()

Penjelasan

klik button "ok" maka akan muncul tampilan Coding pada VB anda kemudian msukan printah - printah sesuai pada text yang diatas..lalu di run...kemudian hasilnya seperti gambar dibawah ini :

maka akan musncul MSG seperti pada tampilan diatas..

kemudian saya akan menambahkan form berikutnya yaitu kolom pengisian password...

perhatikan codingannya..

Public Class Form2

    Private Sub commandButton1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles commandButton1.Click

        If Textbox1.Text = "wow keren" Then

            MsgBox("GOOD JOB")

            Form3.Show()

            Me.Hide()

        Else

            MsgBox("BODOH PASSWORD SALAH")

        End If

        Textbox1.Text = ""

    End Sub

End Class

Kolom form seperti gambar dibawah ini...

penjelasan 

Klik 2x pada button "OK" maka akan muncul perintah - printah codingan, tidak usah pusing..anda tinggal memasukan printah - printah yang telah saya kasih kan terdapat pada tekx yang diatas..

 Maka hasilnya sebagai berikut..

pastikan password "wow keren", disebab kan karna subjek codingan berisi "wow keren"..

maka akan muncul Msgbox yang bertuliskan "GOOD jOB"...makan anda bisa masuk ke form berikutnya..

TETEPI JIKA ANDA MEMASUKAN PASSWORD SALAH MAKA TAMPILANNYA SEPERTI..

penjelasan

 MsgBox akan mucul peringatan "bodoh salah passwod"...maka anda kembali untuk mengisi passwor yang benar

Ketika anda mengisi password benar maka anda siap untuk masuk ke menu APLIKASI KALKULATOR..

perhatiak  codinagn dan gambar

Public Class Form3

    Dim kotak1 As Single

    Dim kotak2 As Single

    Dim hasil As Single

    Private Sub RadioButtonadd_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RadioButtonadd.CheckedChanged

        LabelSigin.Text = "+"

    End Sub

    Private Sub RadioButtonSubtract_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RadioButtonSubtract.CheckedChanged

        LabelSigin.Text = "-"

    End Sub

    Private Sub RadioButtonMultiply_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RadioButtonMultiply.CheckedChanged

        LabelSigin.Text = "x"

    End Sub

    Private Sub RadioButtonDivide_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RadioButtonDivide.CheckedChanged

        LabelSigin.Text = "/"

    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

        kotak1 = Val(TextBox1.Text)

        kotak2 = Val(TextBox2.Text)

        If RadioButtonadd.Checked Then

            hasil = kotak1 + kotak2

        End If

        If RadioButtonDivide.Checked Then

            hasil = kotak1 / kotak2

        End If

        If RadioButtonMultiply.Checked Then

            hasil = kotak1 * kotak2

        End If

        If RadioButtonSubtract.Checked Then

            hasil = kotak1 - kotak2

        End If

        Label3.Text = hasil

        

    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click

        Close()

    End Sub

End Class

PASTIKAN FORM SEPERTI INI

Ok sekian dari sya aplikas sederhana buatan sya...

SELAMAT MENCOBA.............by dian_roses