Make your own calculator!

Public Class Form1
Dim Plus1 As Integer
Dim Plus2 As Integer
Dim Minus1 As Integer
Dim Minus2 As Integer
Dim Puta1 As Integer
Dim Puta2 As Integer
Dim Djelim1 As Integer
Dim Djelim2 As Integer
Dim x As Integer


Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Label0.Text = "+"
Plus1 = CInt(TextBox1.Text)
Plus2 = CInt(TextBox2.Text)
TextBox3.Text = Plus1 + Plus2
End Sub

Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
Label0.Text = "*"
Puta1 = CInt(TextBox1.Text)
Puta2 = CInt(TextBox2.Text)
TextBox3.Text = Puta1 * Puta2
End Sub

Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
Label0.Text = "/"
Djelim1 = CInt(TextBox1.Text)
Djelim2 = CInt(TextBox2.Text)
TextBox3.Text = Djelim1 / Djelim2
End Sub

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
Label0.Text = "-"
Minus1 = CInt(TextBox1.Text)
Minus2 = CInt(TextBox2.Text)
TextBox3.Text = Minus1 - Minus2
End Sub

Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button5.Click
Label0.Text = "*"
TextBox2.Text = TextBox1.Text
x = CInt(TextBox1.Text)
TextBox3.Text = x * x
End Sub

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

End Sub
End Class
__________________
https://2img.net/h/oi42.tinypic.com/6foavd.jpg
tenor Nuk ?sht? n? linj Reporto Postime Të Papëlqyeshme Përgjigju duke Cituar