[mansourim]

[HTML]

Imports System
Imports System.IO.Ports
Imports System.Collections.Generic
Imports System.Text
Imports System.Runtime.InteropServices
Imports System.Data.SqlClient
Imports System.Data.Sql
Imports System.IO
Imports System.Data
Imports System.Data.OleDb

Public Class Form1


Shared low_addr, hi_addr, addr, data As UInt32
Shared service As String
رقم الكود بار Shared code_barre As Integer
Public Event DataReceived As SerialDataReceivedEventHandler



Private Sub Receiver(ByVal sender As Object, ByVal e As SerialDataReceivedEventArgs) Handles SerialPort1.DataReceived
Try

Do
low_addr = SerialPort1.ReadByte()
hi_addr = SerialPort1.ReadByte()
data = SerialPort1.ReadByte()
addr = (hi_addr << 24) Or low_addr
Loop Until (SerialPort1.BytesToRead() = 1)
Me.Invoke(New MethodInvoker(AddressOf Display)) ' Start "Display" on the UI thread
Catch ex As Exception

End Try

End Sub


Private Sub Display()
If data = &HF Then
service = "Commande"
Else
service = ""
End If
code_barre = CStr(addr)



u()
end sub

Sub u()
Try
Dim SavInto3 As New SqlCommand
Dim Conn1 As New SqlConnection(prov1)
SavInto3.Connection = Conn1
SavInto3.CommandType = CommandType.Text
SavInto3.CommandText = "INSERT INTO db3(ide,nome,obs,time)" & _
"values ('" & LabelX14.Text & "','" & LabelX15.Text & "','" & LabelX22.Text & "','" & LabelX2.Text & "') "
Conn1.Open()
SavInto3.ExecuteNonQuery()
Conn1.Close()
Catch ex As Exception
End Try
End Sub











Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles ButtonX1.Click
Try
Me.ButtonX3.Enabled = False
Me.ButtonX2.Enabled = True
Me.ButtonX1.Enabled = False
Me.LabelX1.Text = "Appareille Connecté"
Me.LabelX1.ForeColor = Color.Green
SerialPort1.Open()
Catch ex As Exception
End Try
End Sub


[/HTML]




بتوفيق