karl93 (Normal User)
Rookie
Messaggi: 47
Iscritto: 17/09/2011
|
Salve,
vorrei sapere se nel sito è presente il sorgente di una calcolatrice che permette di inserire i numeri in due textbox(quindi bisogna effettuare un controllo)grazie a degli CommandButton. In pratica vorrei creare una sorta di tastierino numerio. Come posso fare?E' possibile?
Grazie mille
|
|
comtel (Member)
Pro
Messaggi: 145
Iscritto: 08/04/2011
|
Ci sono moltissime guide online,almeno ha provato a cercare su google!
Ma poi creare una semplicissima calcolatrice in VB6,poi, non è tanto difficile.
|
|
nessuno (Normal User)
Guru^2
Messaggi: 6405
Iscritto: 03/01/2010
|
Certo che è possibile (figurati).
Ma cosa non sai fare?
Hai iniziato a scrivere del codice?
Ritieni di avere la preparazione necessaria?
Ricorda che nessuno è obbligato a risponderti e che nessuno è perfetto ...
---
Il grande studioso italiano Bruno de Finetti ( uno dei padri fondatori del moderno Calcolo delle probabilità ) chiamava il gioco del Lotto Tassa sulla stupidità. |
|
karl93 (Normal User)
Rookie
Messaggi: 47
Iscritto: 17/09/2011
|
Lo so che non è difficile creare una calcolatrice, ma mi sn bloccato su questa cosa.
Al momento ho scritto questo:
Codice sorgente - presumibilmente VB.NET |
Private Sub Command1_Click() A = Val(Text1.Text) B = Val(Text2.Text) If Option1.Value = True Then Text3.Text = A + B ElseIf Option2.Value = True Then Text3.Text = A - B ElseIf Option3.Value = True Then Text3.Text = A * B ElseIf Option4.Value = True Then Text3.Text = A \ B ElseIf Option5.Value = True Then Text3.Text = A / B ElseIf Option6.Value = True Then Text3.Text = A Mod B End If End Sub Private Sub Command2_Click() Text1.Text = "" Text2.Text = "" Text3.Text = "" Option1.Value = False Option2.Value = False Option3.Value = False Option4.Value = False Option5.Value = False Option6.Value = False Text1.SetFocus End Sub Private Sub Command3_Click() End End Sub
|
Ora vorrei fare quello ke ho scritto sopra. Come si fa?
|
|
karl93 (Normal User)
Rookie
Messaggi: 47
Iscritto: 17/09/2011
|
All'interno della form sono presenti:
3 TextBox
12 CommandButton
6 OptionButton
Come detto prima...voglio che cliccando sul Command del Tasto 1...se mi trovo nella prima TextBox mi inserisca ovviamente il numero 1 e lo stesso deve farlo se mi trovo nella seconda TextBox, però non deve inserirlo contemporaneamente. Quindi come devo controllare questa cosa?
Ho inserito questo codice:
Codice sorgente - presumibilmente Plain Text |
Ovviamente inserisce il numero alla prima TexBox, ma nn so come controllare per fare quello che voglio.
Mi potete aiutare???
Grazie
|
|
nessuno (Normal User)
Guru^2
Messaggi: 6405
Iscritto: 03/01/2010
|
Facendo i controlli del caso, puoi scrivere
Codice sorgente - presumibilmente VB.NET |
Dim lastTxt As TextBox Private Sub IltuoTasto1_Click() lastTxt.Text = lastTxt.Text & "1" End Sub Private Sub Text1_LostFocus() Set lastTxt = Text1 End Sub Private Sub Text2_LostFocus() Set lastTxt = Text2 End Sub
|
Ultima modifica effettuata da nessuno il 26/09/2011 alle 20:03
Ricorda che nessuno è obbligato a risponderti e che nessuno è perfetto ...
---
Il grande studioso italiano Bruno de Finetti ( uno dei padri fondatori del moderno Calcolo delle probabilità ) chiamava il gioco del Lotto Tassa sulla stupidità. |
|
karl93 (Normal User)
Rookie
Messaggi: 47
Iscritto: 17/09/2011
|
Scrive solo nella Text1 con questo controllo. Se vado nella Text2 e clicco sul CommandButton riferito al Tasto 1 inserisce il valore nella Text1. Io non voglio questo. Qualcosa è sbagliato. Aiuto Thanks
|
|
nessuno (Normal User)
Guru^2
Messaggi: 6405
Iscritto: 03/01/2010
|
No ... forse hai sbagliato ad inserire il codice. Mostra, con copia incolla, quello che hai scritto.
Ricorda che nessuno è obbligato a risponderti e che nessuno è perfetto ...
---
Il grande studioso italiano Bruno de Finetti ( uno dei padri fondatori del moderno Calcolo delle probabilità ) chiamava il gioco del Lotto Tassa sulla stupidità. |
|
karl93 (Normal User)
Rookie
Messaggi: 47
Iscritto: 17/09/2011
|
Ecco il codice:
Codice sorgente - presumibilmente VB.NET |
Option Explicit Dim A, B Dim lastTxt As TextBox Private Sub Command1_Click() A = Val(Text1.Text) B = Val(Text2.Text) If Option1.Value = True Then Text3.Text = A + B ElseIf Option2.Value = True Then Text3.Text = A - B ElseIf Option3.Value = True Then Text3.Text = A * B ElseIf Option4.Value = True Then Text3.Text = A \ B ElseIf Option5.Value = True Then Text3.Text = A / B ElseIf Option6.Value = True Then Text3.Text = A Mod B End If End Sub Private Sub Command2_Click() Text1.Text = "" Text2.Text = "" Text3.Text = "" Option1.Value = False Option2.Value = False Option3.Value = False Option4.Value = False Option5.Value = False Option6.Value = False Text1.SetFocus End Sub Private Sub Command3_Click() End End Sub Private Sub Text1_LostFocus() Set lastTxt = Text1 End Sub Private Sub Text2_LostFocus() Set lastTxt = Text2 End Sub
|
|
|