Új hozzászólás Aktív témák

• martonx veterán

  #1484

  #1481 Zsargon89

  2011-10-09 11:00:37

  Új Válasz

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  

  martonx

  veterán

  #1481 Zsargon89

  #1481 Zsargon89

  Sziasztok!

  Itt van egy program kód, és ezt szeretném megcsinálni, hogy ne LPT-n hanem USB-n tudjam használni. Ezt hogy tudom megtenni? milyen dll-t töltsek le? s milyen parancsokkal tudom ki be kapcsolni? -esetleg ha veszek egy USB to LPT átalakítót, akkor működne a jelenlegi program? maradna az LPT port címe ugyan ez?
  (Olyan laptopon kéne lefuttatni ezt a progit, amiben nincs PLT port)

  Választ előre is köszönöm!

  Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)
  Public Declare Sub PortOut Lib "io.dll" (ByVal Port As Integer, ByVal Value As Byte)
  Public Declare Function PortIn Lib "io.dll" (ByVal Port As Integer) As Byte

  Sub TEST()
  Dim x As Long
  Dim y As Long
  Dim v As Long
  Dim c As Long
  kezdes:
  v = InputBox("Válasszon az alábbi lehetősékeg közüll" & Chr(13) & Chr(10) & "1- 6 számjegyű számláló" & Chr(13) & Chr(10) & "2- 7 számjegyű számláló")

  If v = 1 Then GoTo sz1
  If v = 2 Then GoTo sz2
  If v <> 1 Or 2 Then GoTo kezdes

  sz1:
  v = InputBox("Válasszon az alábbi lehetősékeg közüll" & Chr(13) & Chr(10) & "1- Egy megadott értéket bepörget" & Chr(13) & Chr(10) & "2- A megadott értéktől, egy megadott értékig pörget")

  If v = 1 Then GoTo elso1
  If v = 2 Then GoTo masodik1
  If v <> 1 Or 2 Then GoTo sz1

  elso1:
  x = InputBox("Írja be a bepörgetni kívánt értéket!")
  For i = 1 To x
  Call PortOut(888, 1)
  Sleep 1
  Call PortOut(888, 0)
  Sleep 1
  Next
  GoTo vege

  masodik1:
  x = InputBox("Írja be a jelenlegi számlálóállást!")
  y = InputBox("Írja be az elérni kívánt számlálóállást")
  c = (y - x)
  If (x > y) Then c = ((999999 - x) + 1 + y)
  For i = 1 To c
  Call PortOut(888, 1)
  Sleep 1
  Call PortOut(888, 0)
  Sleep 1
  Next
  MsgBox (c)
  GoTo vege

  sz2:
  v = InputBox("Válasszon az alábbi lehetősékeg közüll" & Chr(13) & Chr(10) & "1- Egy megadott értéket bepörget" & Chr(13) & Chr(10) & "2- A megadott értéktől, egy megadott értékig pörget")

  If v = 1 Then GoTo elso2
  If v = 2 Then GoTo masodik2
  If v <> 1 Or 2 Then GoTo sz1

  elso2:
  x = InputBox("Írja be a bepörgetni kívánt értéket!")
  For i = 1 To x
  Call PortOut(888, 1)
  Sleep 1
  Call PortOut(888, 0)
  Sleep 1
  Next
  GoTo vege

  masodik2:
  x = InputBox("Írja be a jelenlegi számlálóállást!")
  y = InputBox("Írja be az elérni kívánt számlálóállást")
  c = (y - x)
  If (x > y) Then c = ((9999999 - x) + 1 + y)
  For i = 1 To c
  Call PortOut(888, 1)
  Sleep 1
  Call PortOut(888, 0)
  Sleep 1
  Next
  MsgBox (c)
  GoTo vege

  vege:
  MsgBox ("SZÁMLÁLÓ BEÁLLÍTVA" & Chr(13) & Chr(10) & "TOVÁBBI JÓ MUNKÁT!")
  End Sub

  Most komolyan miben van manapság LPT port? Valami ledet villogtat a programod, nem lenne jobb magát a hardvert USB-síteni, a gyakorlatilag nem létező LPT helyett?

• martonx veterán

  #1483

  #1481 Zsargon89

  2011-10-09 10:59:00

  Új Válasz

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  

  martonx

  veterán

  #1481 Zsargon89

  #1481 Zsargon89

  Sziasztok!

  Itt van egy program kód, és ezt szeretném megcsinálni, hogy ne LPT-n hanem USB-n tudjam használni. Ezt hogy tudom megtenni? milyen dll-t töltsek le? s milyen parancsokkal tudom ki be kapcsolni? -esetleg ha veszek egy USB to LPT átalakítót, akkor működne a jelenlegi program? maradna az LPT port címe ugyan ez?
  (Olyan laptopon kéne lefuttatni ezt a progit, amiben nincs PLT port)

  Választ előre is köszönöm!

  Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)
  Public Declare Sub PortOut Lib "io.dll" (ByVal Port As Integer, ByVal Value As Byte)
  Public Declare Function PortIn Lib "io.dll" (ByVal Port As Integer) As Byte

  Sub TEST()
  Dim x As Long
  Dim y As Long
  Dim v As Long
  Dim c As Long
  kezdes:
  v = InputBox("Válasszon az alábbi lehetősékeg közüll" & Chr(13) & Chr(10) & "1- 6 számjegyű számláló" & Chr(13) & Chr(10) & "2- 7 számjegyű számláló")

  If v = 1 Then GoTo sz1
  If v = 2 Then GoTo sz2
  If v <> 1 Or 2 Then GoTo kezdes

  sz1:
  v = InputBox("Válasszon az alábbi lehetősékeg közüll" & Chr(13) & Chr(10) & "1- Egy megadott értéket bepörget" & Chr(13) & Chr(10) & "2- A megadott értéktől, egy megadott értékig pörget")

  If v = 1 Then GoTo elso1
  If v = 2 Then GoTo masodik1
  If v <> 1 Or 2 Then GoTo sz1

  elso1:
  x = InputBox("Írja be a bepörgetni kívánt értéket!")
  For i = 1 To x
  Call PortOut(888, 1)
  Sleep 1
  Call PortOut(888, 0)
  Sleep 1
  Next
  GoTo vege

  masodik1:
  x = InputBox("Írja be a jelenlegi számlálóállást!")
  y = InputBox("Írja be az elérni kívánt számlálóállást")
  c = (y - x)
  If (x > y) Then c = ((999999 - x) + 1 + y)
  For i = 1 To c
  Call PortOut(888, 1)
  Sleep 1
  Call PortOut(888, 0)
  Sleep 1
  Next
  MsgBox (c)
  GoTo vege

  sz2:
  v = InputBox("Válasszon az alábbi lehetősékeg közüll" & Chr(13) & Chr(10) & "1- Egy megadott értéket bepörget" & Chr(13) & Chr(10) & "2- A megadott értéktől, egy megadott értékig pörget")

  If v = 1 Then GoTo elso2
  If v = 2 Then GoTo masodik2
  If v <> 1 Or 2 Then GoTo sz1

  elso2:
  x = InputBox("Írja be a bepörgetni kívánt értéket!")
  For i = 1 To x
  Call PortOut(888, 1)
  Sleep 1
  Call PortOut(888, 0)
  Sleep 1
  Next
  GoTo vege

  masodik2:
  x = InputBox("Írja be a jelenlegi számlálóállást!")
  y = InputBox("Írja be az elérni kívánt számlálóállást")
  c = (y - x)
  If (x > y) Then c = ((9999999 - x) + 1 + y)
  For i = 1 To c
  Call PortOut(888, 1)
  Sleep 1
  Call PortOut(888, 0)
  Sleep 1
  Next
  MsgBox (c)
  GoTo vege

  vege:
  MsgBox ("SZÁMLÁLÓ BEÁLLÍTVA" & Chr(13) & Chr(10) & "TOVÁBBI JÓ MUNKÁT!")
  End Sub

  VB.Net tud alapból mindenféle Serial Portot kezelni.
  Az USB pedig nem más mint Universal Serial Bus, azaz egy serial port.
  Még nagy guglizás sem kell hozzá, msdn-en egész jó példák vannak.
  A kódod esetében már múltkor is pedzegettem, hogy nincs szükség benne a winapi hivatkozásokra.

  http://msdn.microsoft.com/en-us/library/system.io.ports.serialport.aspx#Y0

Új hozzászólás Aktív témák