Ephyteac

contact all

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

^XA ^FO40,30 ^GB450,250,3,,3^FS ^FO40,100 ^GB450,0,4^FS ^FO200,60 ^ADN,36,20 ^FDWEIGHT^FS ^FO80,150 ^ADN,64,20 ^FD      125.5  kg^FS ^XZ

Public Class Form1 Dim a, A1, A2, A3, A4, A5 As String Dim B1, B2, B3 As Integer   Private Sub Form1_KeyDown( ByVal sender As Object , ByVal e As System.Windows.Forms.KeyEventArgs)     Handles Me .KeyDown If e.Control And e.KeyCode = Keys.Q Then MessageBox.Show( "OK !!!" ) End If End Sub Private Sub Timer1_Tick( ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick If B1 = 2 Then a = SerialPort1.ReadExisting A1 = Microsoft.VisualBasic.Mid(a, 5, 10) A2 = Microsoft.VisualBasic.Trim(A1) SendKeys.Send(A2) B1 = 0 Timer1.Enabled = False Else B1 = B1 + 1 End If End Sub   Private Sub ExitToolStripMenuItem1_Click( ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ExitToolStripMenuItem1.Click Me .Close() End Sub   Private Sub AboutToolStripMenuItem1_Click( ByVal sender As System.Object, ByVal e As System.EventArgs) Handles AboutToolStripMenuItem1.Click AboutBox1.S...