Salam Master Kali ini Ane mau bagi trik bagai mana cara membuat kalkulator sederhana lewat VB.net
OK lang sung aja KTP.....
Siapkanlah Komponen 2 yang di butuhkan.sebagai berikut .?
OK lang sung aja KTP.....
Siapkanlah Komponen 2 yang di butuhkan.sebagai berikut .?
Object /
Kontrol
|
Properties
|
Value
|
Form1
|
Name
|
Form1
|
Text
|
Aplikasi Opera
|
|
StartPosition
|
CenterScreen
|
|
GroupBox1
|
Name
|
GroupBox1
|
Text
|
Operator
|
|
BackColor
|
Yellow
|
|
TextBox1
|
Name
|
TextBox1
|
Text
|
(Kosong)
|
|
TextBox2
|
Name
|
TextBox2
|
Text
|
(Kosong)
|
|
TextBox3
|
Name
|
TextBox3
|
Text
|
(Kosong)
|
|
TextBox4
|
Name
|
TextBox4
|
Text
|
(Kosong)
|
|
TextBox5
|
Name
|
TextBox5
|
Text
|
(Kosong)
|
|
TextBox6
|
Name
|
TextBox2
|
Text
|
(Kosong)
|
|
Backcolor
|
Bluee
|
|
Label1
|
Name
|
Label1
|
Text
|
+
|
|
Label2
|
Name
|
Label2
|
Text
|
*
|
|
Label3
|
Name
|
Label3
|
Text
|
-
|
|
Label4
|
Name
|
Label4
|
Text
|
/
|
|
Label5
|
Name
|
Label5
|
Text
|
Hasil
|
|
Label6
|
Name
|
Label6
|
Text
|
Kakulator Pintar
|
|
Button1
|
Name
|
Button1
|
Text
|
&OK
|
Berikut Ini Tampilan Interfaces
setelah dilakukan Pengaturan Property di atas .
(Coding )
Public Class Form1
Private Sub TextBox1_TextChanged(ByVal
sender As System.Object, ByVal e As
System.EventArgs) Handles TextBox1.TextChanged
End Sub
=========================================================================
Private Sub Button1_Click(ByVal
sender As System.Object, ByVal e As
System.EventArgs) Handles Button1.Click
TextBox6.Text = Val(TextBox1.Text) +
Val(TextBox2.Text) * Val(TextBox3.Text) - Val(TextBox4.Text) /
Val(TextBox5.Text)
End Sub
=========================================================================
Private Sub Form1_Load(ByVal
sender As System.Object, ByVal e As
System.EventArgs) Handles MyBase.Load
End Sub
End Class
===================
Bila anda kurang mengerti
bertanyalah lewat Comentar
===================
===================
Bila anda kurang mengerti
bertanyalah lewat Comentar
===================
EmoticonEmoticon