CARA MEMBUAT APLIKASI OPERATOR DI VB

Kali ini saya akan memberitahu bagaimana cara membuat aplikasi OPERATOR di VB EXPRES atau di VISUAL STUDIO, langsung saja:

1. Seperti biasa buka vb express atau visua stuidio anda, buat program baru, buat 4 form, lalu design masing-masing formnya seperti di bawah ini :
   
   
   
   
   
   
2. Ketikkan kode yang terdapat di bawah ini untuk form 1:
    Public Class Form1
       Sub combobox()
           ComboBox1.Items.Add("Operator")
       End Sub
   
   
       Private Sub ComboBox1_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ComboBox1.SelectedIndexChanged
   
   
       End Sub
   
   
       Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
           Call combobox()
       End Sub
   
   
       Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
           If ComboBox1.Text = "Operator" Then
               Form2.Show()
               Me.Hide()
           End If
       End Sub
   End Class
   
3. Ketikkan kode yang terdapat di bawah ini untuk form 2: 
   Public Class Form2
   
   
       Private Sub RadioButton1_MouseClick(ByVal sender As System.Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles RadioButton1.MouseClick
           Form3.Show()
           Form3.Label2.Text = "+"
           Me.Hide()
       End Sub
   
   
       Private Sub RadioButton2_MouseClick(ByVal sender As System.Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles RadioButton2.MouseClick
           Form3.Show()
           Form3.Label2.Text = "-"
           Me.Hide()
       End Sub
   
   
       Private Sub RadioButton3_MouseClick(ByVal sender As System.Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles RadioButton3.MouseClick
           Form3.Show()
           Form3.Label2.Text = "X"
           Me.Hide()
       End Sub
   
   
       Private Sub RadioButton4_MouseClick(ByVal sender As System.Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles RadioButton4.MouseClick
           Form3.Show()
           Form3.Label2.Text = "/"
           Me.Hide()
       End Sub
   End Class
   
4. Ketikkan kode yang terdapat di bawah ini untuk form 3: 
     Public Class Form3
       Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
           Form4.Show()
           Me.Hide()
       End Sub
   
   
       Private Sub TextBox3_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox3.TextChanged
           If Label2.Text = "+" Then
               TextBox3.Text = Val(TextBox1.Text) + Val(TextBox2.Text)
               Form4.Label2.Text = Val(TextBox1.Text) + Val(TextBox2.Text)
           ElseIf Label2.Text = "-" Then
               TextBox3.Text = Val(TextBox1.Text) - Val(TextBox2.Text)
               Form4.Label2.Text = Val(TextBox1.Text) - Val(TextBox2.Text)
           ElseIf Label2.Text = "X" Then
               TextBox3.Text = Val(TextBox1.Text) * Val(TextBox2.Text)
               Form4.Label2.Text = Val(TextBox1.Text) * Val(TextBox2.Text)
           ElseIf Label2.Text = "/" Then
               TextBox3.Text = Val(TextBox1.Text) / Val(TextBox2.Text)
               Form4.Label2.Text = Val(TextBox1.Text) / Val(TextBox2.Text)
           End If
       End Sub
   End Class
   
5. Ketikkan kode yang terdapat di bawah ini untuk form 4: 1.        
   Public Class Form4
   
   
       Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
           Form1.Show()
           Me.Hide()
       End Sub
   
   
       Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
           Me.Close()
       End Sub
   End Class
   

PROGRAM OPERATOR SIAP UNTUK DI JALANKAN,SEMOGA PROGRAM OPERATOR ANDA DAPAT BERJALAN DENGAN BAIK SEKIAN DAN TERIMAKASIH