Private Sub Command1_Click()
a = Text1.Text
b = Split(a, " ")
For i = 0 To UBound(b) Step 1 'UBound 는 array의 길이
b(i) = "&H" & b(i) 'b(i)를 16진수로 만들어준다
b(i) = b(i) * 1 '00은 0 으로 01은 1로 만들어 준다
b(i) = "&H" & Hex(b(i)) 'Hex는 16진수(int)를 16진문자열(string)로 돌려줌
MsgBox (b(i))
Next i
End Sub
a = Text1.Text
a = Text1.Text 'TextBox값을 받아서 변수 a에 문자열로저장,
b = Split(a, " ") '변수 a 내용을 " "로 잘라서 수열 b에 저장
MsgBox (b(0)) '출력 A4
MsgBox (b(1)) '출력 00
MsgBox (b(2)) '출력 04
MsgBox (b(3)) '출력 00
MsgBox (b(4)) '출력 00
대략 이럴거예요.
vb공부한지가 오라서 가물가물하네염~
그럼 즐밍하세요~ ^^
다시 한번
다시 한번 질문드리면요.
입력받은 스트링 즉,
input : 80 A4 00 01
byte 배열에
arr(0) : &H80
arr(1) : &HA4
arr(2) : &H0
arr(3) : &H1
이렇게 저장을 하였으면 합니다..
string을 두자리씩 byte 배열에다가 저장을 할려고 합니다..
다시한번 부탁드립니다.
Private Sub
Private Sub Command1_Click()
a = Text1.Text
b = Split(a, " ")
For i = 0 To UBound(b) Step 1 'UBound 는 array의 길이
b(i) = "&H" & b(i) 'b(i)를 16진수로 만들어준다
b(i) = b(i) * 1 '00은 0 으로 01은 1로 만들어 준다
b(i) = "&H" & Hex(b(i)) 'Hex는 16진수(int)를 16진문자열(string)로 돌려줌
MsgBox (b(i))
Next i
End Sub
댓글 달기