Ephyteac

http://www.tutorial-mikrokontroler.com/2010/04/konverter-usb-ke-rs232serial.html http://telinks.wordpress.com/2013/02/27/eksperimen-pengontrolan-led-via-port-usb-tanpa-konverter-usbrs232/

$regfile = "89c55wd.dat" $crystal = 11059200 $baud = 9600 Dim F1 As Integer Dim Isi As String * 16 Dim A1 As Byte Dim Kirim As String * 7 Do Input Isi Noecho Kirim = Mid (isi , 8 , 7) Input Isi Noecho Input Isi Noecho If Isi <> "" Then       Kirim = Mid (isi , 8 , 7) End If Print "^XA" Print "^FO40,30" Print "^GB450,250,3,,3^FS" Print "^FO40,100" Print "^GB450,0,4^FS" Print "^FO200,60" Print "^ADN,36,20" Print "^FDWEIGHT^FS" Print "^FO80,150" Print "^ADN,64,20" Print "^FD" ; Kirim ; " kg^FS" Print "^XZ" A1 = Inkey Waitms 100 A1 = Inkey Waitms 60 A1 = Inkey Loop End