2. Fórumok
  3. Szoftverfejlesztés
  4. Visual Basic

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

  • #1481 Zsargon89 csendes tag
    Új Válasz #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

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