Stap 3: Doen wat codage.
[code]
rem zet op pin 1 op de gebruikelijke standaard printerpoort (aka lpt1 op mswindows/dos systemen).
uit 888, 1
rem vertraging toe geleid om te blijven branden.
voor x = 1 tot en met 1000
volgende x
rem lamp uitschakelen
uit 888,0
[/ code]
-------------------------------------------------------------------------
Test circuit en code voor het inschakelen van de pinnen 2-9 met behulp van de lichten voor de lol: http://www.youtube.com/watch?v=EjZmrw9JkrM
Gebruik van qbasic of freebasic op linux of mswindows hiervoor voor werkzaamheden.
888 = hex 0378 voor printerpoort 1 (LPT1: 378h, LPT2: 278h) Zie handleiding zeker.
D0 pin 2 -2 en 0 = (2 ^ 0) = 1 2 om de nul macht is altijd 1
D1 = pin 3 -2 of 1 (2 ^ 1) = 2 2 naar de eerste macht is altijd 2
D2 = pin 4 -2 of 2 (2 ^ 2) = 4 2 kwadraat = 4
D3 = pin 5 -2 of 3 (2 ^ 3) = 8 2 in blokjes = 8
D4 = pin 6 -2 of 4 (2 ^ 4) = 16 enz enz.
D5 = pin 7 -2 of 5 (2 ^ 5) = 32
D6 = pin 8 -2 of 6 (2 ^ 6) = 64
D7 = pin 9 -2 of 7 (2 ^ 7) = 128
rem uitgeschakeld alle pinnen maar #3
pin_number = 3
uit 888, 2 ^(pin_number-2)
uit 888,255 het inschakelen van alle verlichting
uit 888,0 alle pinnen om uit te schakelen
Pinnen 2 (2-2) en pin 5 (5-2) op zou uitsluitend:
(2 ^ 0) + (2 ^ 3) of (1 + 8)
uit 888, 9
of
uit 888, (& b00001001)
rem pin---98765432
rem D (0-7)---76543210
rem uit 888, (& b00001001) << me het eenvoudigste, verander gewoon een nul op een 1 voor die hebben geleid.
--------------------1
--------------------2631
---84268421
(8) (1)
Betere code niet andere pinnen om status te wijzigen
Op
rem leveren uw eigen pin nummer
pin_number =
z = inp(888)
uit 888, (2 ^(pin_number-2)) + z
Uitschakelen
rem leveren uw eigen pin nummer
pin_number =
z = inp(888)
uit 888, z-(2 ^(pin_number-2))
Meer info over programmering en interfacing:
---------------------------------------------
Voorbeeld van sommige pseudocode;
Dim duur als dubbele
Dim tim als dubbele
Dim x als integer
Tim = TIMER
duur =.1
uit 888,0
voor x = 1 tot en met 20
rem 00000001
Tim = TIMER
uit 888,1
doen
LOOP totdat (na een tijdje) > duur
rem 0000011
Tim = TIMER
uit 888,3
doen
LOOP totdat (na een tijdje) > duur
rem 00000111
Tim = TIMER
uit 888,7
doen
LOOP totdat (na een tijdje) > duur
rem 00001111
Tim = TIMER
uit 888,15
doen
LOOP totdat (na een tijdje) > duur
rem 00011111
Tim = TIMER
uit 888,31
doen
LOOP totdat (na een tijdje) > duur
rem 00111111
Tim = TIMER
uit 888,63
doen
LOOP totdat (na een tijdje) > duur
rem 01111111
Tim = TIMER
uit 888,127
doen
LOOP totdat (na een tijdje) > duur
rem 11111111
Tim = TIMER
uit 888,255
doen
LOOP totdat (na een tijdje) > duur
rem ---------------------------------------------------------
rem 10000001
rem tim = TIMER
rem uit 888,129
rem doen
rem lus totdat (na een tijdje) > duur
rem 11111111
Tim = TIMER
uit 888,255
doen
LOOP totdat (na een tijdje) > duur
rem 01111111
Tim = TIMER
uit 888,127
doen
LOOP totdat (na een tijdje) > duur
rem 00111111
Tim = TIMER
uit 888,63
doen
LOOP totdat (na een tijdje) > duur
rem 00011111
Tim = TIMER
uit 888,31
doen
LOOP totdat (na een tijdje) > duur
rem 00001111
Tim = TIMER
uit 888,15
doen
LOOP totdat (na een tijdje) > duur
rem 00000111
Tim = TIMER
uit 888,7
doen
LOOP totdat (na een tijdje) > duur
rem 00000011
Tim = TIMER
uit 888,3
doen
LOOP totdat (na een tijdje) > duur
rem 00000001
Tim = TIMER
uit 888,1
doen
LOOP totdat (na een tijdje) > duur
rem ---------------------------------------------------------
rem 00000000
Tim = TIMER
uit 888,0
doen
LOOP totdat (na een tijdje) > duur
volgende x
uit 888,0
einde
