검색어 입력폼

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

저작시기 2006.04 |등록일 2006.07.08 파일확장자압축파일 (zip) | 가격 500원

*해당 문서는 미리보기가 지원되지 않습니다.

소개글

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
다운로드 맨위로