Re:Re: 10진수를 16진수로 변환

[김성훈]

정말 감사드리고요..
움... 솔직히 제가 부족해서 그런지(저것두 여기 저기 아는사람한테 퍼온거라서.. 그넘두 잘못함..ㅡㅡ?) 우선 16진수는요 10-16까지 A,B,C...이것으루 지정해 주어야하는거 아닌가요?
너무 성가시게 여쭈어서 지성..^^;



--------------------- [원본 메세지] ---------------------
제가 예전에 만들었던 것 중에 16진수 변환되는 것만 뽑았습니다.

JinSu_Imsi 가 10진수이구요, JinSu_Gob 은 16 입니다.

Do While 문이 끝나면 변수 = val(txt_Output.Text) 를 하면 되겠네요



Do
Txt_Output.Text = (JinSu_Imsi Mod JinSu_Gob) & Txt_Output.Text
JinSu_Imsi = JinSu_Imsi \ JinSu_Gob
Loop While (JinSu_Imsi >= JinSu_Gob)


--------------------- [원본 메세지] ---------------------
10진수를 넣어서 2진수 8진수 16진수로 바꾸는 프로그램을 작성중인데..
2진수와 8진수로 변화하는것은 했는데..
16진수로 변환하는게 잘 안되네요..
어쪄죵..
우선 제가 2진수랑 8진수로 바꾸는 프로그램작성한것을 밑에 적어볼게요
폼 형식은 초기값(10진수 입력)을 넣을 택스트박스1,
커맨드 3개(2진수)(8진수)(16진수)각 진수별 하나씩요
그리고 마지막으로 변환된 값이 나오는 텍스트박스2
(10진수를 넣고 커맨드를 누르면 두번째 택스트박스에 값이 뜨게 폼을 작성하였습니다.)
Dim result As String

Private Sub Command1_Click()

su = Val(Text1.Text)
Do
mok = su \ 2
nam = su Mod 2
result = nam & result
su = mok
If mok < 2 Then GoTo msg
Loop

msg:
Text2.Text = mok & result
su = 0: mok = 0: nam = 0: result = ""
End Sub

Private Sub Command2_Click()

su = Val(Text1.Text)
Do
mok = su \ 8
nam = su Mod 8
result = nam & result
su = mok
If mok < 8 Then GoTo msg
Loop

msg:
Text2.Text = mok & result
su = 0: mok = 0: nam = 0: result = ""
End Sub