Vb 2008 Tutorial

Paradosx3

Posted on 11/5/2010, 20:19

.

User deleted

Salve ragazzi... mettetevi comodi, che oggi vi insegnerò come creare una calcolatrice con le funzioni base "+" "-" "x" ":"
Il tutto in pochissime stringhe di codice :lol:

Provate a farne una ancora più piccola ahahah.....
Bene! Iniziamo..
Innanzitutto aprite Visual Basic 2008 Express Edition, inserite 5 Button, 1 Label e 3 TextBox..
-1 Bottone = +
-2 Bottone= -
-3 Bottone = x
-4 Bottone = /
Il Quinto Bottone ci da il risultato, quindi avrà valore di " = "

Nel form in basso insetire i 4 bottoni, in alto la prima textbox, leggermente sotto il label e leggermente sotto al label l'altra textbox, vi dovrete trovare in questo modo:

SPOILER (click to view)

Nel Bottone " + " scrivete:

CODICE

Label1.Text = "+"

Nel bottone " - " scrivete:

CODICE

Label1.Text = "-"

Nel bottone " x " scrivete:

CODICE

Label1.Text = "*"

Nel bottone " / " scrivete:

CODICE

Label1.Text = "/"

Nel bottone " = " scrivete:

CODICE

On Error Resume Next
Dim Var1 As Integer
Dim var2 As Integer
Var1 = TextBox1.Text
var2 = TextBox2.Text
If Label1.Text = "+" Then
TextBox3.Text = (Var1 + var2)
ElseIf Label1.Text = "-" Then
TextBox3.Text = (Var1 - var2)
ElseIf Label1.Text = "x" Then
TextBox3.Text = (Var1 * var2)
ElseIf Label1.Text = ":" Then
TextBox3.Text = (Var1 / var2)
MsgBox("Calcolatrice by Parad0sx3")
End If

E AVRETE COSI CREATO UNA MINI CALCOLATRICE, con 4 funzioni, naturalmente per farla ancora più piccola eliminate le 2 textbox... altrimenti lasciatela cosi che è davvero carina :lol: