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

• #90999040 törölt tag

  #1430

  #1424 Zsargon89

  2011-09-19 09:39:26

  Ú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

  

  #90999040

  törölt tag

  #1424 Zsargon89

  #1424 Zsargon89

  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

  Visual Basic 2008-ra javaslom a következőket:

  A Long-okat cseréld le Integer-re.

  Az inputboxokat pedig módosítsd így:
  v = Integer.Parse(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ó"))

  Az Integer.Parse() (vagy más konverziós függvény) azért kell, mert Vb.net-ben az inputbox stringet ad vissza.

• martonx veterán

  #1426

  #1424 Zsargon89

  2011-09-19 08:49:43

  Ú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

  #1424 Zsargon89

  #1424 Zsargon89

  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

  Szia!

  Javaslom neked a vbscriptet. Az 95%-ban kompatibils az office makróval.
  Azaz a kódodat másold át notepad-be, majd mentsd le .vbs néven.
  Ezt command line-ból cscript valami.vbs néven fogod tudni futtatni.

  Debugolni pedig cscript //X //D valami.vbs-ként fogod tudni, ha mégsem menne egy az egyben vbs-ként.

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