From 1 
 | 
  
Kalkulator 
 | 
 
Toolbox 
 | 
  
Text 
 | 
 
Button 1 
 | 
  
+ 
 | 
 
Button 2 
 | 
  
- 
 | 
 
Button 3 
 | 
  
X 
 | 
 
Button 4 
 | 
  
/ 
 | 
 
Label 1 
 | 
  
(Kosong) 
 | 
 
Label 2 
 | 
  
(Kosong) 
 | 
 
Aku mendesainnya seperti ini :
Jangan lupa diatur namanya ya... :) caranya tinggal klik toolbox yg akan diatur > properties > Text
Nah, jika sudah diatur hasilnya akan jadi seperti ini :
Next.. waktunya memasukan source codenya !!!
Public Class Form1 
    Private Sub Button1_Click(ByVal
  sender As System.Object, ByVal e As
  System.EventArgs) Handles Button1.Click 
        Label2.Text = "+" 
        Label1.Text = Val(TextBox1.Text) +
  Val(TextBox2.Text) 
    End Sub 
    Private Sub Button2_Click(ByVal
  sender As System.Object, ByVal e As
  System.EventArgs) Handles Button2.Click 
        Label2.Text = "-" 
        Label1.Text = Val(TextBox1.Text) -
  Val(TextBox2.Text) 
    End Sub 
    Private Sub Button4_Click(ByVal
  sender As System.Object, ByVal e As
  System.EventArgs) Handles Button4.Click 
        Label2.Text = "/" 
        Label1.Text = Val(TextBox1.Text) /
  Val(TextBox2.Text) 
    End Sub 
    Private Sub Button3_Click(ByVal
  sender As System.Object, ByVal e As
  System.EventArgs) Handles Button3.Click 
        Label2.Text = "X" 
        Label1.Text = Val(TextBox1.Text) *
  Val(TextBox2.Text) 
    End Sub 
End Class 
 | 
 
Nh hasilnya akan jadi seperti ini :)
Selamat mencoba... semoga tutorial ini dapat membantu.. :)




Tidak ada komentar:
Posting Komentar