[비주얼베이직]비주얼베이직 진법변환(진수변환) 프로그램

소개글

10진수를 2진수, 16진수로 변환시켜주는 프로그램입니다.

컴파일 실행환경

visual basic 6.0

본문내용

Private Sub cmdEnd_Click()
End
End Sub

Private Sub cmdHexa_Click()
Dim HexaVal As String
Dim tmpDeciVal As Integer
Dim remainder
Dim OneHexaVal As String

tmpDeciVal = DeciVal

While (tmpDeciVal > 15)
remainder = (tmpDeciVal Mod 16)
Select Case remainder
Case Is = 10
OneHexaVal = "A"
Case Is = 11
OneHexaVal = "B"
Case Is = 12
OneHexaVal = "C"
Case Is = 13
OneHexaVal = "D"
Case Is = 14
OneHexaVal = "E"
Case Is = 15
OneHexaVal = "F"
Case Else
OneHexaVal = remainder
End Select
HexaVal = OneHexaVal & HexaVal
tmpDeciVal = tmpDeciVal \ 16
Wend

압축파일 내 파일목록

Form1.frm
Project1.vbp

참고 자료

없음