..:: Mire se erdhte ne DrenicaZone.Ch ju deshirojm caste te kendshme::..
 
ForumPortaliCalendarPytësoriKërkoLista AnëtarëveGrupet e AnëtarëveRegjistrohuidentifikimi

Share | 
 

 Make your own calculator!

Shiko temën e mëparshme Shiko temën pasuese Shko poshtë 
AutoriMesazh
L4ND1H4CK



Numri i postimeve : 50
Registration date : 22/02/2009

MesazhTitulli: Make your own calculator!   Tue Feb 24, 2009 8:42 pm

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
__________________
http://i42.tinypic.com/6foavd.jpg
tenor Nuk ?sht? n? linj Reporto Postime Të Papëlqyeshme Përgjigju duke Cituar
Mbrapsht në krye Shko poshtë
Shiko profilin e anëtarit
 
Make your own calculator!
Shiko temën e mëparshme Shiko temën pasuese Mbrapsht në krye 
Faqja 1 e 1

Drejtat e ktij Forumit:Ju nuk mund ti përgjigjeni temave të këtij forumi
 :: Paneli i Kontrollit :: Tutorials & Mësime-
Kërce tek: