Vettem egy motor shield-et a TavIR-Webshop-ból.
Bascom alatt próbáltam életre kelteni, egyenlőre sikertelüml
Kérem, ha van időtök és kedvetek nézzetek rá, mit csinálhatok rosszul.
Shift regisztert még nem használtam, főleg nem Bascom alól.
MIntakód:
Kód: Egész kijelölése
$regfile = "m8def.dat"
$crystal = 8000000
Config Pind.5 = Output
Config Pind.6 = Output
Config Pind.7 = Output
Config Pinb.0 = Output
Dir_clk Alias Pinb.0
Dir_en Alias Pind.7
Dir_ser Alias Pind.6
Dir_latch Alias Pind.5
Dim L As Long
Reset Dir_clk
Reset Dir_en
Reset Dir_ser
Reset Dir_latch
L = 1
Shiftout Dir_ser , Dir_clk , L
Waitms 500
Set Dir_latch
Waitms 500
Reset Dir_latch
End