| Home  | Casa  | Hardware  | Networking  | Programmazione  | Software  | Domanda  | Sistemi  |   
Programmazione  
  • C /C + + Programming

  • Computer Programming Languages

  • Delphi Programming

  • Java Programming

  • Programmazione Javascript

  • PHP /MySQL Programmazione

  • Perl Programming

  • Python Programming

  • rubino Programmazione

  • Nozioni di base di Visual Programming
  •  
    Conoscenza Informatica >> Programmazione >> Nozioni di base di Visual Programming >> Content
    Come faccio a convertire da BCD a decimale Visual Basic
    ? Binari valori decimali codificati utilizzare un modello binario per rappresentare le cifre da zero a nove . Poiché Visual Basic non utilizza il tipo di dati BCD , non ha un built-in funzione che converte i valori BCD in valori decimali . Tuttavia , è possibile programmare la propria funzione che accetta input formattato come un valore BCD e spezzarlo in bocconcini quattro bit , o pezzi , e poi convertire i bocconcini in un numero decimale . Istruzioni
    1

    tipo " Function BCD_TO_INT pubblico ( ingresso ByVal come lungamente) " per aprire la vostra funzione . Utilizzare un tipo più piccolo numerica di dati invece di Long per risparmiare spazio se si conosce il programma non funziona con i grandi numeri .
    2

    Tipo " Dim Temp As Integer " e " Dim decNum as Integer " di dichiarare due interi nella vostra funzione . Tipo " Dim strNum as String = " "" per dichiarare una stringa e inizializzarla senza testo .
    3

    tipo "Anche se non num = 0 " per aprire un ciclo while che si ripeterà finché il numero della funzione riceve diventa zero . Tipo " For i = 0 To 3" nella riga successiva per iniziare un ciclo contato .
    4

    Tipo "temp = num Mod. 10 " e "num /= 10" sulla riga seguente . La prima linea sarà isolare la cifra più a destra del numero BCD e memorizzarlo nella variabile "temp" . La riga successiva si sposterà il decimale del numero BCD a sinistra .
    5

    tipo " Se temp = 1 Then " per aprire un controllo condizionale che determina se il programma deve aggiungere al valore di il tuo numero decimale . Dal momento che avete solo bisogno di aggiungere quando " temp" è uguale a uno , non includere una clausola " elseif " per temp pari a zero
    6

    Digitare il seguente codice nel tuo "if" : .

    Se temp = 1 Poi

    Se i = 0 Then

    decNum + = 1

    ElseIf i = 1 Poi

    decNum + = 2

    ElseIf i = 2 Quindi

    decNum + = 4

    ElseIf i = 3 Quindi

    decNum + = 8

    End If

    End If

    Queste condizioni aggiungono il valore decimale appropriato per il vostro totale in base a quale dei quattro bit in ogni nibble controlla . La variabile " decNum " conterrà il valore decimale del nibble a quattro bit .
    7

    Tipo " Next i " nella riga successiva di dire al vostro ciclo "for" per passare alla cifra successiva in il bocconcino . Quando il programma ha verificato tutti i quattro bit , avrà calcolato la cifra successiva del vostro decimale. Tipo " strNum = decNum & strNum " per aggiungere questo valore al lato sinistro della stringa . Tipo " decNum = 0 " per reimpostare questa variabile prima della prossima iterazione del ciclo while .
    8

    tipo " End While " per chiudere il ciclo While . Tipo " decNum = strNum " per forzare Visual Basic per convertire la stringa di trattenere il valore decimale in un numero intero e memorizzarlo nella variabile " decNum " . È poi possibile modificare questa variabile come necessario . Digitare " decNum Return" per inviare il valore decimale di nuovo a dove il vostro programma chiama la funzione da . Tipo " End Function " per chiudere la funzione .

    Previous :

    next :
      Articoli Correlati
    ·Che cosa è un VB.NET di riferimento ? 
    ·Come associare un oggetto a un GridView in codice 
    ·Come trovare i numeri di Face ID per il tuo Microsoft O…
    ·Come creare un collegamento per un Jar in VBS 
    ·Come fare un Open /Save Button in VB 
    ·Come verificare se un TextBox è vuota in VB 
    ·Come iniziare Visual Basic 
    ·Come calcolare il valore della cella Foglio di calcolo 
    ·Come Master VBA per Microsoft Office 2007 
    ·Come utilizzare il controllo TabStrip in Visual Basic 
      Articoli in evidenza
    ·Come testare un pacchetto SSIS 
    ·Come faccio a costruire siti web dinamici con PHP e MyS…
    ·Come creare una tabella MySQL 
    ·Come creare un progetto VBA per Email 
    ·Come modificare i file XLS con Python 
    ·Usi di Python Yield 
    ·Differenza tra Pacchetti e file header 
    ·Come costruire un grafico in Java 
    ·Codici PHP nella sintassi di JavaScript 
    ·Come inserire una pausa Con Dogtail su Python 
    Copyright © Conoscenza Informatica http://it.wingwit.com