Ephyteac

^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...

  Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick         a = SerialPort1.ReadExisting         If a <> "" Then             SendKeys.SendWait(a)         End If     End Sub     Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click         If Button1.Text = "CONNECT" Then             SerialPort1.Open()             Button1.Text = "DISCONNECT"             Timer1.Enabled = True             Me.WindowState = FormWindowState.Minimized ...