pak Wawan .. boleh tau ga "ShowHex" itu isinya apa saja ? apakah seperti ini :
Hex(27) misalnya ?
saia pernah coba untuk menampilkan text itu dengan script seperti ini :
Dim pMessage As Variant
pMessage = Hex(27) & Hex(81) & Hex(68) & "TEST..."
MSComm1.Output = pMessage
tapi yang keluar malah karakter2 aneh.
ok .. saia akan coba dulu script yang anda kasih, btw .. untuk "ShowHex" kalaw
berkenan mohon di share.
trims
--- In programmer-vb@yahoogroups.com, Wawan Gunawan <wawan...@...> wrote:
>
>
> 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, kedipke...@... 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
>
