Løbelys..

Hej.

Jeg har lavet et løbelys som køre over parallelport (printerport), men der er lige et problem det program jeg får det til at køre i er Qbasic (Noget gammel lort med det er let) så er det jeg gerne vil have det over i VB (Visual Basic), men jeg kan ikke så meget i VB.

Så jeg vil gerne have en der kan hjælpe mig eller beder hvis der er en der har en som er lavet.

Her er koden fra Qbasic :

10 CLS
11 LOCATE 10, 10
15 PRINT "L  B E L Y S"
16 LOCATE 25, 30
17 PRINT "tast mellemrum for at stoppe"
20 OUT &H378, 0
30 FOR c = 1 TO 8
35 READ t
36 LOCATE 15, 30
37 PRINT "lampe nr.:", c
40 OUT &H378, t
50 FOR y = 1 TO 10000
60 NEXT
70 NEXT
75 IF INKEY$ = " " THEN GOTO 110
80 RESTORE
90 GOTO 30
100 DATA 128,64,32,16,8,4,2,1
110 END

Hej.

Jeg har lavet et løbelys som køre over parallelport (printerport), men der er lige et problem det program jeg får det til at køre i er Qbasic (Noget gammel lort med det er let) så er det jeg gerne vil have det over i VB (Visual Basic), men jeg kan ikke så meget i VB.

Så jeg vil gerne have en der kan hjælpe mig eller beder hvis der er en der har en som er lavet.

Her er koden fra Qbasic :

10 CLS
11 LOCATE 10, 10
15 PRINT "L  B E L Y S"
16 LOCATE 25, 30
17 PRINT "tast mellemrum for at stoppe"
20 OUT &H378, 0
30 FOR c = 1 TO 8
35 READ t
36 LOCATE 15, 30
37 PRINT "lampe nr.:", c
40 OUT &H378, t
50 FOR y = 1 TO 10000
60 NEXT
70 NEXT
75 IF INKEY$ = " " THEN GOTO 110
80 RESTORE
90 GOTO 30
100 DATA 128,64,32,16,8,4,2,1
110 END

Hej Jakob,

Prøv det her:

Lav en form og en TextBox (Text1), og en knap (Command1)

Indsæt følgende kode:

Option Explicit

Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)


Private Sub Command1_Click()
Dim iVal(7) As Byte
Dim c As Byte
Dim y As Long

iVal(0) = 1
iVal(1) = 2
iVal(2) = 4
iVal(3) = 8
iVal(4) = 16
iVal(5) = 32
iVal(6) = 64
iVal(7) = 128

Open "lpt1:" For Binary As 1
Put 1, , 0
For c = 0 To 7
Put 1, , iVal(c)
Text1.Text = "" & c
Text1.Refresh
Sleep 500
Next
Close 1
End Sub


- Kim Pedersen

...ikke rigtig få løbelyset til at køre, jeg syntes jeg har gjort som der stod.
Du må gerne kontakte mig på.

Msn : Jakob_lk@hotmail.com
ICQ : 135939182

Hej.

Jeg har lavet et løbelys som køre over parallelport (printerport), men der er lige et problem det program jeg får det til at køre i er Qbasic (Noget gammel lort med det er let) så er det jeg gerne vil have det over i VB (Visual Basic), men jeg kan ikke så meget i VB.

Så jeg vil gerne have en der kan hjælpe mig eller beder hvis der er en der har en som er lavet.

Her er koden fra Qbasic :

10 CLS
11 LOCATE 10, 10
15 PRINT "L  B E L Y S"
16 LOCATE 25, 30
17 PRINT "tast mellemrum for at stoppe"
20 OUT &H378, 0
30 FOR c = 1 TO 8
35 READ t
36 LOCATE 15, 30
37 PRINT "lampe nr.:", c
40 OUT &H378, t
50 FOR y = 1 TO 10000
60 NEXT
70 NEXT
75 IF INKEY$ = " " THEN GOTO 110
80 RESTORE
90 GOTO 30
100 DATA 128,64,32,16,8,4,2,1
110 END

...ikke rigtig få løbelyset til at køre, jeg syntes jeg har gjort som der stod.
Du må gerne kontakte mig på.

Msn : Jakob_lk@hotmail.com
ICQ : 135939182

Hej Jakob,

Trykker du på knappen???

Tæller den som den skal???

Melder den om fejl?

Kim

...ikke rigtig få løbelyset til at køre, jeg syntes jeg har gjort som der stod.
Du må gerne kontakte mig på.

Msn : Jakob_lk@hotmail.com
ICQ : 135939182

Hej Jakob,

Trykker du på knappen???

Tæller den som den skal???

Melder den om fejl?

Kim


Når jeg trykker på knappen starte den også med at tælle tal....men der sker ikke en skid med lyset.