Visual Basic può cambiare da una base di numero ad un altro con un po 'di manipolazione in alcune brevi righe di codice . Numerosi gli elenchi delle tabelle di conversione numeriche comprese tutte le forme --- decimale, binario, esadecimale e ottale --- sono disponibili sul web con una semplice ricerca . Tuttavia, può essere utile avere un convertitore sul tuo computer . Un processo di codice crea un esagono di base per la conversione binaria che esegue più veloce di caricare un browser e la ricerca di un tavolo sul web . Cose che ti serviranno
Visual Basic 6.0
Mostra più istruzioni
1

Aprire Visual Basic e clicca su " File" nel menu principale . Fare clic su "Nuovo Progetto" nel menu a discesa e scegliere " EXE standard " come un tipo .
2

doppio clic sulla funzione " Label" ( rappresentata da una "A" ) da Casella degli strumenti sulla sinistra . Fare doppio clic sulla casella di testo ( rappresentato dalle lettere "AB" ) . Fare clic e trascinare la casella di testo , quindi è accanto all'etichetta . Usare la lista "Proprietà " per cambiare la didascalia dell'etichetta " Inserisci numero Hex" e cancellare le lettere nella didascalia di testo della casella di testo .
3

Aggiungere un pulsante di comando alla formare con un doppio clic sullo strumento Pulsante ( un piccolo rettangolo) e modificare la didascalia di questa per leggere "Convert Hex a binario . " Trascina questo pulsante qui sotto i due elementi che avete creato al punto 2. Aggiungere due più etichette stesso modo , ponendole sotto il pulsante di comando e sulla stessa linea . Modificare la didascalia della prima etichetta a " L' equivalente binario è" e cancellare le lettere nella proprietà caption della seconda etichetta .
4

Clicca su "Visualizza " nel menu principale e selezionare "Codice ". Nella finestra del codice , digitare il seguente : Private Sub Command1_Click ( ) Dim HexNbr Come StringDim DecNbr Come IntegerDim Risultato Come StringDecNbr = Val ( " & H " & Text1.Text ) Risultato = BinaryNbr ( DecNbr ) Do While Len (risultato) < 8Result = " 0 " & ResultLoopLabel3.Caption = ResultEnd Sub
5

Digitare il seguente codice sotto che al punto 4 : Funzione FirstConv ( exp ByVal come lungamente) come LongStatic TempNbr ( 0 To 31 ) As Long , n Come IntegerIf TempNbr ( 0 ) = 0 ThenTempNbr ( 0 ) = 1Per n = 1 Per 30TempNbr ( n) = TempNbr ( n - 1 ) * 2NextTempNbr ( 31 ) = & H80000000End IfFirstConv = TempNbr ( exp ) End Function

6

Inserisci queste ultime righe di codice al di sotto della " End Function " al punto 5 : Funzione BinaryNbr ( ByVal calc come lungamente) come StringDim TempNbr As String , exp Come IntegerTempNbr = String $ ( 32 , "0" ) DoIf calc e FirstConv ( exp ) ThenMid $ ( TempNbr , 32 - exp , 1 ) = " 1 " calc = calc Xor FirstConv ( exp ) Fine Ifexp = exp + 1Loop Mentre calcBinaryNbr = Mid $ ( TempNbr , 33 - exp ) End Function < br > Pagina 7

Utilizzare il tasto "F5" per eseguire l'applicazione . Immettere un numero nella casella vuota accanto a " inserire un numero Hex" e cliccare su "Convert Hex a binario . " Se hai inserito il codice correttamente , si vedrà il risultato viene visualizzato nella casella vuota accanto a " Il risultato è equivalente binario . " In caso contrario , verificare nuovamente il codice .