Predmet:unitech HT630
Bar kod čitač za velike firme... bla bla ...
skinu san dll za njega i našao kod koji se spaja
''ATACH
pa onda kod na formi 3 dugmica (spoji,odspoji Download)
PreuzmiIzvorni kôd (Text):Option Strict Off
Option Explicit On
Friend Class Form1
Inherits System.Windows.Forms.Form
Dim CommData As Integer
Dim Connect As Short
' Nije spojen = 0
' Spojen = 1
Dim Result As Short
Private Declare Function Online_ESC_Y_BYTE Lib "C:\UNI_TRANS\OnlineDll.Dll" Alias "Online_ESC_Y" (ByVal CommData As Integer, ByVal tAdd As Short, ByRef bDat As Byte, ByRef bLen As Byte) As Short
Private Sub Form1_Load(ByVal eventSender As System.Object, ByVal eventArgs As System.EventArgs) Handles MyBase.Load
CommData = Online_Create()
Connect = 0
If CommData <> 0 Then
Result = Online_SetupEx(CommData, 18, Asc("7"), Asc("1"), Asc("N"))
' Result = 1
End If
End Sub
Private Sub Form1_FormClosed(ByVal eventSender As System.Object, ByVal eventArgs As System.Windows.Forms.FormClosedEventArgs) Handles Me.FormClosed
If CommData <> 0 Then
Call Online_Destroy(CommData)
CommData = 0
Connect = 0
End If
End Sub
Private Sub Command1_Click(ByVal eventSender As System.Object, ByVal eventArgs As System.EventArgs) Handles Command1.Click
'Spajaj
If (CommData <> 0) And (Connect = 0) Then
Connect = Online_Connect(CommData)
End If
MsgBox(Connect)
End Sub
Private Sub Command2_Click(ByVal eventSender As System.Object, ByVal eventArgs As System.EventArgs) Handles Command2.Click
'odspoji
If (CommData <> 0) And (Connect = 1) Then
Call Online_Disconnect(CommData)
Connect = 0
End If
MsgBox(Connect)
End Sub
Private Sub Command3_Click(ByVal eventSender As System.Object, ByVal eventArgs As System.EventArgs) Handles Command3.Click
'Prebaci
Dim NameStr As String
Dim FileLen_Renamed As Integer
Dim TextAsc(120) As Byte
Dim TextLen As Byte
Dim Count As Byte
If (CommData = 0) Or (Connect = 0) Then Exit Sub
NameStr = "C:\UNI_TRANS\COLLECT.TXT" 'C:\UNI_TRANS\
FileOpen(1, NameStr, OpenMode.Append, OpenAccess.Default, OpenShare.Default, 1)
'Suppose File Exists
'Suppose FileLen>0
Result = Online_ESC_L(CommData, Asc("A"), "COLLECT.TXT", 10)
'Suppose Result = 1
FileLen_Renamed = LOF(1)
OK:
TextLen = 120
If TextLen > FileLen_Renamed Then TextLen = FileLen_Renamed
For Count = 1 To TextLen
FileGet(1, TextAsc(Count - 1))
Next Count
Result = Online_ESC_Y_BYTE(CommData, Asc("A"), TextAsc(0), TextLen)
'Suppose Result = CmdACK (4)
Call Online_ACK(CommData, Asc("A"))
FileLen_Renamed = FileLen_Renamed - TextLen
If FileLen_Renamed > 0 Then GoTo OK
Result = Online_ESC_Z(CommData, Asc("A"))
'Suppose Result = CmdACK (4)
Call Online_ACK(CommData, Asc("A"))
FileClose(1)
MsgBox("File Download", , "COLLECT.TXT")
End Sub
End Class
dobijem fil na disk ali prazan ?
kreira na disk -OK ,spaja se jer se vanjska jedinica upali - OK ali fil je prazan a u aparatu nije jer sam provjerio. ima li neki kod da to Å¡to mogu binarno izvuči iz HP650 iz fila COLLECT.TXT samo zaljepim na lokallni disk ?
Prilozi:
unitech-pt630-gr.jpg
Preuzimanja:330
Velicina datoteke:5.36 KB
New Text Document.txt
Preuzimanja:452
Velicina datoteke:21.73 KB