[VB6.0] 아스키코드(ASCII) 변환

' ASCII 변환
Private Sub Command1_Click()
    Dim a As String
    Dim c As Variant
    
    Text2.Text = ""
    
    ' 문자를 아스키코드로 변환 : Asc()
    a = Text1.Text

    For i = 1 To Len(a)
        If i = 1 Then
            Text2.Text = Asc(Mid(a, i, 1))
        Else
            Text2.Text = Text2.Text & "|" & Asc(Mid(a, i, 1))
        End If
    Next
End Sub

 

' 문자로 변환
Private Sub Command2_Click()
    Dim a As String
    Dim c As Variant
    Dim i As Integer
    
    Text2.Text = ""
   
    ' 아스키코드를 문자로 변환 : Chr()
    ' \, |로 나눠진 아스키코드 문자로 변환하여 합치기
   c = Split(Text1.Text, "\")
   c = Split(Text1.Text, "|")
   
   For i = 0 To UBound(c)
      Text2.Text = Text2.Text & Chr(c(i))
   Next
End Sub

 

' 초기화
Private Sub Command3_Click()
    Text1.Text = ""
    Text2.Text = ""
End Sub