Aprire Visual Basic 6 , e selezionare " EXE standard " dal nuovo menu progetto . Vedrete un modulo vuoto viene visualizzato sullo schermo .
2
Rinominare il vostro progetto e il modulo cliccando su " Project1 " sul lato destro dello schermo , nella lista del progetto , e inserendo un nuovo nome nella riga "Nome" della finestra delle proprietà , che dovrebbe comparire sotto l'elenco progetto per impostazione predefinita. Premere "Invio" per accettare il nuovo nome . Fare lo stesso per la vostra forma ( un nome di modulo suggerito è " CalculatorUI " ) , avendo cura di inserire un nome simile nella proprietà " Caption ", così , che cambierà il testo nella barra superiore del modulo . Salva il progetto in una nuova cartella sul computer .
3
Aggiungi pulsanti e una casella di testo alla maschera . Prima , aggiungere una casella di testo , che sarà dove compaiono i numeri immessi nella calcolatrice , nonché i risultati dei calcoli . A tale scopo, selezionare il pulsante TextBox dalla barra degli strumenti sul lato sinistro dello schermo e trascinando con il mouse la dimensione e la posizione desiderata per il controllo TextBox . Una volta che hai messo la TextBox è possibile modificare la dimensione e la posizione trascinandola in un'altra posizione della forma o trascinando le maniglie ( i piccoli quadrati ) lungo il confine della TextBox . Assicurarsi di modificare le seguenti righe nella finestra Proprietà , con il TextBox selezionato : " ( nome)" = tbResult , " Allineamento " = 1 - Destra Giustificato , " Formato dati " = ( fare clic sul pulsante "..." per selezionare ) Numero, " bloccato" = True , e "Text " = 0 .
4
selezionare l' icona del pulsante di comando sulla barra degli strumenti e creare il primo pulsante allo stesso modo è stato creato il TextBox per aggiungere pulsanti . Per riferimento , utilizzare la calcolatrice di Windows nella vista Standard ( Programmi> Accessori > Calcolatrice ) come base per il layout calcolatrice , tralasciando il " MC " , " MR " , "MS" , e "+ M " pulsanti . Su ogni tasto , modificare le seguenti proprietà ( tramite il pulsante "+ " come esempio ) : "(nome ) " = btnPlus , " Caption " = + . Fare lo stesso per il resto dei tasti della calcolatrice , e poi salvare il lavoro . Il vostro modulo dovrebbe essere simile all'esempio mostrato qui.
5
Aggiungi il codice. Si noti che se i pulsanti e TextBox non sono chiamati lo stesso del codice qui aspetta elencati , è necessario cambiare i nomi per abbinare i vostri bottoni e textbox , o modificare i pulsanti e TextBox per abbinare questo codice. In primo luogo abbiamo bisogno di creare alcune variabili per la lavorazione di ingresso calcolatrice :
Dim sLeft As String , sRight come stringa, sOperator Come StringDim iLeft come doppio , IRight come doppio , iResult Come DoubleDim bLeft Come
booleano
Ogni calcolo consiste di quattro parti: un numero alla sinistra dell'operatore ( sLeft , iLeft ) , un operatore ( sOperator ) , un numero alla destra dell'operatore ( sRight , IRight ) , e di conseguenza ( iResult ) . Al fine di monitorare se l' utente immette il numero di sinistra o di destra , abbiamo bisogno di creare una variabile booleana , bLeft . Se bLeft è vero , viene inserito nella parte sinistra del calcolo , se bLeft è falsa , viene inserito nella parte destra
6
inizializzare la variabile bLeft . . Lo facciamo con la creazione di una subroutine Form_Load , che è possibile digitare come elencato qui o creare automaticamente facendo doppio clic su qualsiasi parte del modulo non coperto da un pulsante o di testo. All'interno della funzione , abbiamo bisogno di impostare bLeft al vero, perché il primo numero immesso sarà la parte sinistra :
Private Sub Form_Load ( ) bLeft = TrueEnd Sub
7
Creare un subroutine che gestirà il ticchettio di uno dei tasti numerici . Creiamo questo come una subroutine perché usiamo codice identico per ogni pulsante , e l'utilizzo di una subroutine significa non dover ripetere lo stesso codice di dieci volte . Immettere la seguente riga sotto End Sub Form_Load del sottoprogramma :
Private Sub AddNumber ( sNumber As String ) Se bLeft ThensLeft = sLeft + sNumbertbResult.Text = sLeftElsesRight = sRight + sNumbertbResult.Text = sRightEnd IfEnd Sub
Programmazione © www.354353.com