Centar za edukaciju-BiH



#1 03.01.2011 18:43
roko Van mreze
Clan
Registrovan od:02.02.2009
Postovi:236


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):
  1. Option Strict Off
  2. Option Explicit On
  3. Friend Class Form1
  4.         Inherits System.Windows.Forms.Form
  5.         Dim CommData As Integer
  6.         Dim Connect As Short
  7.     ' Nije spojen = 0
  8.     ' Spojen = 1
  9.         Dim Result As Short
  10.     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
  11.     Private Sub Form1_Load(ByVal eventSender As System.Object, ByVal eventArgs As System.EventArgs) Handles MyBase.Load
  12.         CommData = Online_Create()
  13.         Connect = 0
  14.         If CommData <> 0 Then
  15.             Result = Online_SetupEx(CommData, 18, Asc("7"), Asc("1"), Asc("N"))
  16.             ' Result = 1
  17.         End If
  18.     End Sub
  19.     Private Sub Form1_FormClosed(ByVal eventSender As System.Object, ByVal eventArgs As System.Windows.Forms.FormClosedEventArgs) Handles Me.FormClosed
  20.         If CommData <> 0 Then
  21.             Call Online_Destroy(CommData)
  22.             CommData = 0
  23.             Connect = 0
  24.         End If
  25.     End Sub
  26.     Private Sub Command1_Click(ByVal eventSender As System.Object, ByVal eventArgs As System.EventArgs) Handles Command1.Click
  27.         'Spajaj
  28.         If (CommData <> 0) And (Connect = 0) Then
  29.             Connect = Online_Connect(CommData)
  30.         End If
  31.         MsgBox(Connect)
  32.     End Sub
  33.     Private Sub Command2_Click(ByVal eventSender As System.Object, ByVal eventArgs As System.EventArgs) Handles Command2.Click
  34.         'odspoji
  35.         If (CommData <> 0) And (Connect = 1) Then
  36.             Call Online_Disconnect(CommData)
  37.             Connect = 0
  38.         End If
  39.         MsgBox(Connect)
  40.     End Sub
  41.     Private Sub Command3_Click(ByVal eventSender As System.Object, ByVal eventArgs As System.EventArgs) Handles Command3.Click
  42.         'Prebaci
  43.         Dim NameStr As String
  44.         Dim FileLen_Renamed As Integer
  45.         Dim TextAsc(120) As Byte
  46.         Dim TextLen As Byte
  47.         Dim Count As Byte
  48.         If (CommData = 0) Or (Connect = 0) Then Exit Sub
  49.         NameStr = "C:\UNI_TRANS\COLLECT.TXT" 'C:\UNI_TRANS\
  50.         FileOpen(1, NameStr, OpenMode.Append, OpenAccess.Default, OpenShare.Default, 1)
  51.         'Suppose File Exists
  52.         'Suppose FileLen>0
  53.         Result = Online_ESC_L(CommData, Asc("A"), "COLLECT.TXT", 10)
  54.         'Suppose Result = 1
  55.         FileLen_Renamed = LOF(1)
  56. OK:
  57.         TextLen = 120
  58.         If TextLen > FileLen_Renamed Then TextLen = FileLen_Renamed
  59.         For Count = 1 To TextLen
  60.             FileGet(1, TextAsc(Count - 1))
  61.         Next Count
  62.         Result = Online_ESC_Y_BYTE(CommData, Asc("A"), TextAsc(0), TextLen)
  63.         'Suppose Result = CmdACK (4)
  64.         Call Online_ACK(CommData, Asc("A"))
  65.         FileLen_Renamed = FileLen_Renamed - TextLen
  66.         If FileLen_Renamed > 0 Then GoTo OK
  67.         Result = Online_ESC_Z(CommData, Asc("A"))
  68.         'Suppose Result = CmdACK (4)
  69.         Call Online_ACK(CommData, Asc("A"))
  70.         FileClose(1)
  71.         MsgBox("File Download", , "COLLECT.TXT")
  72.     End Sub
  73. 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 ?

Slicice prilozenih slika:
unitech-pt630-gr.jpg
Tip datoteke:Informacije o tipu datoteke za:jpg jpg
Preuzimanja:330
Velicina datoteke:5.36 KB
Velicina slike: 200 x 200 Pikseli



Prilozi:
Informacije o tipu datoteke za:txt  New Text Document.txt
Preuzimanja:452
Velicina datoteke:21.73 KB

↑  ↓

#2 03.01.2011 22:03
zxz Van mreze
Administrator
Registrovan od:03.02.2009
Postovi:10,642


Predmet:Re: unitech HT630
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

Petpostavljam da je to ovaj dll:
OnlineDll..Dll
Medjutim:
FileOpen(1, NameStr, OpenMode.Append, OpenAccess.Default, OpenShare.Default, 1)
Ovaj red koda govori da ima i kontrola FileOpen.

Sam kod je klasa.
Tesko je bilo sta reci ako nema forme.
Doduse nisam gledao ovaj txt file.
Pogledat cu.
Nisam se sretao sa ovim pa neznam ni kako se spaja.
Po kodu pretpostavljam da ima memoriju jer ne vrsi odma transfer nego zapisuje u file pa vrsi transfer fajla. E sad na kojinacin neznam. dali je to preko nekog porta.
Ako si uspio proraditi kod bez gresaka zakaci to sto si napravio.
Podrska samo putem foruma, jer samo tako i ostali imaju koristi od toga.
↑  ↓

#3 03.01.2011 22:32
zxz Van mreze
Administrator
Registrovan od:03.02.2009
Postovi:10,642


Predmet:Re: unitech HT630
Evo nasao sam ti primjer u Vb-U.
Isprobaj ovo dali radi.

Prilozi:
Informacije o tipu datoteke za:zip  UNITECH.ZIP
Preuzimanja:342
Velicina datoteke:106.53 KB


Podrska samo putem foruma, jer samo tako i ostali imaju koristi od toga.
↑  ↓

#4 04.01.2011 13:43
roko Van mreze
Clan
Registrovan od:02.02.2009
Postovi:236


Predmet:Re: unitech HT630
Sad sam pogledao i postavio ali neče .. Vjerojatno je za starije modele jer ovaj moj je usb koji se u systemu pokaže kaoji COM 18 pa na gore . pročitao sam fil s njega binarno i radi mi upali , ugasi spravu sad idem dalje. J... mortam to izkemijat do ponedeljka . To je u vb2008 ako imas posaljem ti
poz..
↑  ↓

#5 04.01.2011 13:50
zxz Van mreze
Administrator
Registrovan od:03.02.2009
Postovi:10,642


Predmet:Re: unitech HT630
Uf nemam 2008 instalisan.
Citat:
FileOpen(1, NameStr, OpenMode.Append, OpenAccess.Default, OpenShare.Default, 1)
Ovaj dio te vjerovatno zeza.
FileOpen-moras imati ili neku kontrolu koja se ovako zove ili proceduru.
Imas li to?
Podrska samo putem foruma, jer samo tako i ostali imaju koristi od toga.
↑  ↓

#6 04.01.2011 13:52
roko Van mreze
Clan
Registrovan od:02.02.2009
Postovi:236


Predmet:Re: unitech HT630
ima na 41 Private Sub Command3_Click
na 50
↑  ↓

#7 04.01.2011 14:10
zxz Van mreze
Administrator
Registrovan od:03.02.2009
Postovi:10,642


Predmet:Re: unitech HT630
da ali je to vjerovatno opet poziv necega.

Ako je procedura mora pisati:

Function FileOpen ili
private FileOpen ili
calass FileOpen ili
public FileOpen

ili pak mora biti neka kontrola na formi koja se tako zove.

i trece je da je procedura u ovom dll-u
to moze provjeriti na sledeci nacin.
Podigni object browser i upisi u pretragu FileOpen
ako je ne nadje znaci nema je u biblioteci naredbi.
Podrska samo putem foruma, jer samo tako i ostali imaju koristi od toga.
↑  ↓

#8 04.01.2011 14:14
zxz Van mreze
Administrator
Registrovan od:03.02.2009
Postovi:10,642


Predmet:Re: unitech HT630
Nisi mi ni dalje odgovorio cini mi se kako se spaja.
Jeli spojen tel kablom, mreznom, com portom ili bezicno.
Podrska samo putem foruma, jer samo tako i ostali imaju koristi od toga.
↑  ↓

#9 05.01.2011 17:32
roko Van mreze
Clan
Registrovan od:02.02.2009
Postovi:236


Predmet:Re: unitech HT630
Ma mogu pisat bilo što al sam našao da dll ne podržava moj model ...
tako da ?
↑  ↓

Stranice (1):1

Sva vremena su GMT +01:00. Trenutno vrijeme: 12: 38 am.