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

• #1481 Zsargon89 csendes tag

  Új Válasz 2011-10-08 21:30:36 #1481

  Ú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

  Privát üzenet küldése

  

  Zsargon89

  csendes tag

  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

• #1451 Zsargon89 csendes tag

  Új Válasz 2011-09-19 17:08:27 #1451

  Ú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

  Privát üzenet küldése

  

  Zsargon89

  csendes tag

  Köszönöm a segítséget mindenkinek!!!
  Összejött

• #1449 Zsargon89 csendes tag

  Új Válasz 2011-09-19 16:58:35 #1449

  Ú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

  Privát üzenet küldése

  

  Zsargon89

  csendes tag

  S igen. Köszönöm!!! sikerült
  -de lenne még 1 kérdésem:
  Hogy tudom ezt futtatható állományként menteni?
  Köszönöm!

• #1448 Zsargon89 csendes tag

  Új Válasz 2011-09-19 16:46:18 #1448

  Ú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

  Privát üzenet küldése

  

  Zsargon89

  csendes tag

  Na most, odáig eljutottam, hogy ha Consol Porjectet csinálok, ott már lefut a program.
  Már csak annyi lenne, hogy hogy tudom eltűntetni, a fekete ablakos konzolt?
  (az jön elő. és mögötte van az én progim)

  Oke köszi, próbálom.

• #1446 Zsargon89 csendes tag martonx #1445

  Új Válasz 2011-09-19 16:39:51 #1446

  Ú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

  Privát üzenet küldése

  

  Zsargon89

  csendes tag

  válasz martonx #1445 üzenetére

  Egyenlőre, egy ledet vilan fel, a megadott "értékszer...",
  - de majd egy számlálót kéne annyiszot tovább léptetnie, amennyi értéket beírunk.
  (Tényleg, ha jól tudom egy láb 3,valamennyi volt. Egy pl.6 voltos ezközt, ha 2 lábra kötöm rá, az ér? [persze megfelelő ellenálással...]

• #1444 Zsargon89 csendes tag #90999040 #1430

  Új Válasz 2011-09-19 16:08:44 #1444

  Ú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

  Privát üzenet küldése

  

  Zsargon89

  csendes tag

  válasz #90999040 #1430 üzenetére

  Szeretném lecserélni, de Sajna a VB studio 2008hoz (meg máshoz se) nem értek

  Elindítom a prpgramot, és New Project- de ott kidob több dolgot is.
  Itt meiket kell kiválasztanom? próbáltam úgy hogy ezekközüll kiválasztottam egyet, és ott adtam hozzá modult, s abban szerettem volna írni, de különböző projecteknél különböző hiba.
  -bár mikor Formot inítottam, ott nem írt ki hibát a program (modulban), de hiába töröltem a formot, futtatásnál mégis előhozott egy üres ablakot.

• #1424 Zsargon89 csendes tag

  Új Válasz 2011-09-19 04:44:58 #1424

  Ú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

  Privát üzenet küldése

  

  Zsargon89

  csendes tag

  Sziasztok!

  .bas to .exe Hogy?

  Microsoft Excel-ben /Makro/ Visual Basic Szerkesztő-ben írtam egy "modult" -vagy mit,
  mely LPT portot vezérel. (Sokat szenvedtem vele )
  Ezt a "programot" szeretném, excel nélküli, önnáló, futtatható állományként elmenteni.
  Excel (Visual basic szerkesztő) csak .bas kiterjesztést enged.
  iexpress-el próbáltam, de ott csak a háttérben fut le valami. (nem hiszem h az én progim, mert az adatbekéréssel kezdődik...)
  Már letöltöttem a Visual Basic 2008+Visual C Sharp progrot, de oda hiába másolom be amit írtam, futtatásná hibát ír ki. (már ha tudom futtatni ...)

  Hogy tudom, a .bas kiterjesztést .exe ként menteni? -vagy hogy tudom a fájlt Visual Basic 2008 vagy Visual C Sharp-ban működésre bírni?
  (esetleg extra lenne, ha a io.dll-fájlt nem kéne külön (ez kell a progihoz) bemásolnom system32-be hanem magával hordozná, vagy automatice bemásolná...-de ez tényleg csak extra..)
  Válaszokat előre is köszönöm!

  A megírt cucc ez lenne:

  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 500
  Call PortOut(888, 0)
  Sleep 500
  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 500
  Call PortOut(888, 0)
  Sleep 500
  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 500
  Call PortOut(888, 0)
  Sleep 500
  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 500
  Call PortOut(888, 0)
  Sleep 500
  Next
  MsgBox (c)
  GoTo vege

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

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