Function zhancvt(HanStr As String) As String

Dim HanChr
Dim zpl_string, ls_image         '// return Value, image name
Dim ls_HanGul                    '// ÇѱÛ, Font
Dim hex_fr, hex_to               '// Hex first/last
Dim li_len, li_hlen              '// ÇÑ±Û ±æÀÌ
Dim ls_data_string
Dim ls_font As String
Dim HexCode As String




Text1.Text = HanStr


'Çѱ۱æÀÌ
li_len = Len(Text1.Text)
If li_len < 1 Then
    zhancvt = ""
End If

li_hlen = 0
For li_loop = 1 To li_len

   HanChr = Mid$(Text1.Text, li_loop, 1)
    
    
   If Asc(HanChr) < 0 Then           'ÇѱÛÄÚµåÀ̸é
         
         HexCode = Hex(Asc(HanChr))
         ls_HanGul = "_" & Mid(HexCode, 1, 2) & "_" & Mid(HexCode, 3, 2)
   
   Else                              'Ascill ÄÚµåÀ̸é
         HexCode = Hex(Asc(HanChr))
         ls_HanGul = "_00_" & HexCode
          
   End If
   
                 
   If Asc(HanChr) < 0 Then           'ÇѱÛÄÚµåÀ̸é
        li_hlen = li_hlen + 2
   Else
        li_hlen = li_hlen + 1
   End If
   
   zpl_string = zpl_string & ls_HanGul
Next

  zhancvt = zpl_string

End Function
Private Sub Command1_Click()
    Text2.Text = zhancvt(Text1.Text)
End Sub

Private Sub Command2_Click()
    End
End Sub

Private Sub Command3_Click()
    Dim cnvhex As String
    
    cnvhex = zhancvt(Text3.Text)
    
    Open "com1" For Output As #88
    
    Print #88, "^XA"    'Start Label
    
    Print #88, "^SEE:uhangul.dat^CW1,E:Kfont3.fnt"      'Çѱۻç¿ëÀ» À§ÇÑ Ãʱâ setting
    
    Print #88, "^FO10,10^CI14^A1,30,30^FH^FD" & cnvhex & "^FS"   'ÇѱÛ/¿µ¹® ¹ßÇà
    
    Print #88, "^FO10,50^CI0^A0,30,30^FDTest Print^FS"   '¿µ¹® ¹ßÇà
    
    Print #88, "^PQ1"    '¼ö·®
    
    Print #88, "^XZ"    'End Label
    
    Close #88
        
    
End Sub

Private Sub Command4_Click()
    Dim cnvhex As String
    cnvhex = zhancvt(Text3.Text)
    
    MSComm1.CommPort = 1
    MSComm1.Settings = "9600,N,8,1"
    MSComm1.InputLen = 0
    MSComm1.PortOpen = True
    
    MSComm1.Output = "^XA"
    MSComm1.Output = "^SEE:uhangul.dat^CW1,E:Kfont3.fnt"
    MSComm1.Output = "^FO10,50^CI14^A1,10,10^FH^FD" & cnvhex & "^FS"
    MSComm1.Output = "^FO10,100^CI14^A1,15,15^FH^FD" & cnvhex & "^FS"
    MSComm1.Output = "^FO10,150^CI14^A1,30,30^FH^FD" & cnvhex & "^FS"
    MSComm1.Output = "^FO10,200^CI14^A1,40,40^FH^FD" & cnvhex & "^FS"
    MSComm1.Output = "^FO10,250^CI14^A1,50,50^FH^FD" & cnvhex & "^FS"
    MSComm1.Output = "^FO10,350^CI14^A1,60,60^FH^FD" & cnvhex & "^FS"
    'MSComm1.Output = "^FO10,100^CI0^A0,30,30^FDTest Print^FS"
    MSComm1.Output = "^PQ1"
    MSComm1.Output = "^XZ"
 '//   MSComm1.Output = "E" & Chr$(13)
    
    MSComm1.PortOpen = False
End Sub