Wah... itu saya pernah pakai tuh untuk Mesin Register:
Kurang lebihnya nie ye..... If MSComm.PortOpen = True Then MSComm.PortOpen = False End If MSComm.CommPort = 3 MSComm.Settings = "9600,o,8,1" MSComm.Handshaking = comRTS MSComm.PortOpen = True 'clear display cmd = Chr(27) & "[2J" MSComm.Output = cmd ShowHex cmd 'baris 1 cmd = Chr(27) & "[" _ & Chr(&H31 + 0) & ";" _ & Chr(&H31 + 0) & "H" MSComm.Output = cmd ShowHex cmd cmd = "Selamat Datang" MSComm.Output = cmd ShowHex cmd 'baris 1 cmd = Chr(27) & "[" _ & Chr(&H31 + 1) & ";" _ & Chr(&H31 + 0) & "H" MSComm.Output = cmd ShowHex cmd cmd = GIAT MSComm.Output = cmd ShowHex cmd On 4/26/2010 12:32 PM, [email protected] wrote: all .. ada yang tau ga ya cara setting mscomm untuk pole display wincor nixdorf BA63. sejauh ini, hanya bisa untuk mengirim karakter, tapi hanya tertentu .. ga semua karakter bisa tampil di display nya. dengan script di bawah, trus ketik keyboard, untuk angka (kalaw ga salah) 3,5,6,9,0 itu bisa muncul di display, tapi kenapa angka2 yang lain ga muncul ya? kalaw ada yang tau .. mohon bantuannya ya *** Private Sub Form_Load() With MSComm1 ' Use COM1. .CommPort = 4 .RThreshold = 1 ' 9600 baud, no parity, 8 data, and 1 stop bit. .Settings = "9600,N,8,1" ' Open the port. .PortOpen = True End With End Sub Private Sub txtStringData_KeyPress(KeyAscii As Integer) MSComm1.Output = Chr$(KeyAscii) End Sub
