Sie sind aktuell nicht angemeldet.

Funktionen: Einloggen  |  Neu registrieren  |  Suchen

Inputbox für 4 Stellige HEXZAHL
Autor: lastyle
Datum: 19.05.05 22:13
Suche nach einer mögligkeit den eingegeben wert aus einer Inputbox zu überprüfen ob es tatsächlich eine Hexzahl ist. Ich habe auch schon eine überprüfung fur 2 byte hex die lauted: ___________ hexinputinit1: Dim strChar As String, strHex As String strHex = InputBox("Enter Init1 Hex value (usually $37)", "Hex Input_Init1") If strHex = vbNullString Then Exit Sub strChar = CharOfHex(strHex) If Not strChar = vbNullString Then init1 = strChar Else MsgBox "This not a valid HexValue", vbCritical, "Not Found" GoTo hexinputinit1 End If Public Function CharOfHex(HexValue As String) As String ' The function returns Non-ASCII 2 bytes character if not found. ' Validate the string input value: If Hex(0) > HexValue Or Hex(255) < HexValue Then CharOfHex = vbNullString Exit Function End If ______________ ' Create an array of all ASCII characters' byte values: Dim ByteValues(0 To 255) As Byte, i As Integer ' Initialize the default value CharOfHex = vbNullString ' Fill the array with possible Byte Values For i = 0 To 255 ByteValues(i) = i Next i For i = 0 To 255 If Hex(ByteValues(i)) = HexValue Then CharOfHex = Chr$(ByteValues(i)) Exit For End If Next i End Function _____________________ Nur wie komme ich jetzt auf 4byte hex ohne den string in 2 teile zu splitten und dann jeweils die ersten und letzten 2 bytes zu checken ? , Mario

Inputbox für 4 Stellige HEXZAHL	1.398	lastyle	19.05.05 22:13
Re: Inputbox für 4 Stellige HEXZAHL	890	michi-bib	20.05.05 11:55
Re: Inputbox für 4 Stellige HEXZAHL	899	lastyle	20.05.05 13:19

Sie sind nicht angemeldet! Um auf diesen Beitrag zu antworten oder neue Beiträge schreiben zu können, müssen Sie sich zunächst anmelden. Einloggen  |  Neu registrieren

Funktionen:  Zum Thema  |  Gesamtübersicht

Suchen