In questa guida il caro Mr.Obscure (per gli amici arci) spiegherà come creare una semplice calcolatrice in Visual Basic 8 (linguaggio naturalmente VB.NET)
Ecco i simboli principali:
ADDIZIONE +
SOTTRAZIONE -
DIVISIONE /
MOLTIPLICAZIONE *
iniziamo creando un Windows Form Application (o semplicemente Form)
Ora creiamo una TextBox e 17 bottoni
mettiamoli in ordine come in una calcolatrice vera:
il 17esimo bottone sarà la nostra ultima preoccupazione mettetelo sopra la TextBox.
clicchiamo due volte sul bottone 0 e scriviamo
CODICE
TextBox1.Text = TextBox1.Text & "0"
facciamo così per ogni bottone del numero basta modificare il numero 0 accanto alla &.
ora passiamo alle variabili:
sotto
Public Class Form1
dobbiamo scrivere
CODICE
Dim a, b As Double
Dim op As String
bene ora siamo già a buona passo
ora dobbiamo inserire i codici quindi clicchiamo due volte sul tasto della ADDIZIONE e scriviamo
CODICE
a = CDbl(TextBox1.Text)
op = "+"
Textbox1.Text = ""
facciamo la stessa cosa per ogni bottone per la sottrazione al posto di + metteremo - alla divisione / e alla moltiplicazione *
ora al pulsante dell'uguale
clicchiamo due volte sul pulsante e scriviamo:
CODICE
b = CDbl(Text1.Text)
Select Case op
Case "/"
Text1.Text = a / b
Case "*"
Text1.Text = a * b
Case "+"
Text1.Text = a + b
Case "-"
Text1.Text = a - b
End Select
per quello che cancella ecco cosa dobbiamo scrivere:
CODICE
textbox1.text = ""
fatto!
ora passiamo al 17esimo bottone:
scriviamoci come testo nel bottone "ESCI"
ora clicchiamo due volte sul bottone e scriviamo:
end
FINE
PS
se volete mettere il punto dovremmo fare così:
textbox1.text = Textbox1.Text & "."
Testato da me e funziona ;)
Fonte web
Ecco i simboli principali:
ADDIZIONE +
SOTTRAZIONE -
DIVISIONE /
MOLTIPLICAZIONE *
iniziamo creando un Windows Form Application (o semplicemente Form)
Ora creiamo una TextBox e 17 bottoni
mettiamoli in ordine come in una calcolatrice vera:
il 17esimo bottone sarà la nostra ultima preoccupazione mettetelo sopra la TextBox.
clicchiamo due volte sul bottone 0 e scriviamo
CODICE
TextBox1.Text = TextBox1.Text & "0"
facciamo così per ogni bottone del numero basta modificare il numero 0 accanto alla &.
ora passiamo alle variabili:
sotto
Public Class Form1
dobbiamo scrivere
CODICE
Dim a, b As Double
Dim op As String
bene ora siamo già a buona passo
ora dobbiamo inserire i codici quindi clicchiamo due volte sul tasto della ADDIZIONE e scriviamo
CODICE
a = CDbl(TextBox1.Text)
op = "+"
Textbox1.Text = ""
facciamo la stessa cosa per ogni bottone per la sottrazione al posto di + metteremo - alla divisione / e alla moltiplicazione *
ora al pulsante dell'uguale
clicchiamo due volte sul pulsante e scriviamo:
CODICE
b = CDbl(Text1.Text)
Select Case op
Case "/"
Text1.Text = a / b
Case "*"
Text1.Text = a * b
Case "+"
Text1.Text = a + b
Case "-"
Text1.Text = a - b
End Select
per quello che cancella ecco cosa dobbiamo scrivere:
CODICE
textbox1.text = ""
fatto!
ora passiamo al 17esimo bottone:
scriviamoci come testo nel bottone "ESCI"
ora clicchiamo due volte sul bottone e scriviamo:
end
FINE
PS
se volete mettere il punto dovremmo fare così:
textbox1.text = Textbox1.Text & "."
Testato da me e funziona ;)
Fonte web
Ultima modifica:
