Belajar Visual Basic 2010 Part 5 (Kalkulator Complete)

selamat malam sobat blogger, mohon maaf ni, soalnya seharian kmaren gw gak bisa update sialangnews berhubung sibuk nonton pelem kore yang judulnya "The Princess" yang pemain pelemnya artis favorite gw (Kim Tae Hee), ;D akhirnya td tamat juga nontonnya, nyampe episode 16,  heheheeee,.

malam ini gw akan coba penuhi janji yang pada tutorial sebelumnya pada saat "membuat kalkulator sederhana" gw janji untuk melengkapi fitur yang ada pada kalkulator yang gw buat, dan akhirnya pada malam yang indah ini bisa juga gw kerja kan,
dan bisa juga buka VB 2010 gw yang tercinta lagi, dan sekarang kalkulator yang kmaren cuma bisa melakukan proses penambahan aj, tp sekarang dh bisa mlakukan proses pengurangan, perkalian dan pembagian, langsung aja kita liat scrennshotnya, ke TKP,..

Public Class Form1
    Dim Num1 As Integer
    Dim Num2 As Integer
    Dim Answer As Integer
    Private Sub ButtonSubmit_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ButtonSubmit.Click
1:      Num1 = TextBox1Num1.Text
        Num2 = TextBoxNum2.Text
        If RadioButtonAdd.Checked = True Then
            Answer = Num1 + Num2
        ElseIf RadioButtonSub.Checked = True Then
            Answer = Num1 - Num2
        ElseIf RadioButtonMul.Checked = True Then
            Answer = Num1 * Num2
        Else
            Answer = Num1 / Num2
        End If
        LabelAnswer.Text = Str(Answer)
    End Sub

    Private Sub ButtonQuit_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ButtonQuit.Click
        Close()
    End Sub

    Private Sub RadioButtonAdd_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RadioButtonAdd.CheckedChanged
        LabelSign.Text = "+"
    End Sub

    Private Sub RadioButtonSub_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RadioButtonSub.CheckedChanged
        LabelSign.Text = "-"
    End Sub

    Private Sub RadioButtonMul_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RadioButtonMul.CheckedChanged
        LabelSign.Text = "x"
    End Sub

    Private Sub RadioButtonDiv_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RadioButtonDiv.CheckedChanged
        LabelSign.Text = "/"
    End Sub
End Class

Buat sobat blogger yang mw coba, mempelajari atau mengembangkannya lagi, langsung aja sedot pada link yang udah gw sediakan di bawah ini,..

Download : CoskyKalkulatorComplete.exe
Download : SourceCode CoskyKalkulatorComplete.rar
183 KB (SourceCode)
password : sialangnews

Lihat Juga Artikel Terkait :

Poskan Komentar dari Facebook :