Serdecznie witam mam problem ze sterowanie 4094 przesy³am bas mo¿e kto¶ pomo¿e ? Marek S posy³am listing ' a=131' Zmienna do przes³ania ' to jest zmienna, która bêdzie przes³ana do rejestru 4094 '*************************************************************************** $regfile = "2313def.dat" $crystal = 8000000 Dim A As Byte , Clk As Byte , Ena As Byte , Be As Byte A = 131 Be = 0 Portb.7 = 0 Alias Out Config Pinb.7 = Output Portb.6 = 0 Alias Clk Config Pinb.6 = Output Portb.4 = 0 Alias Ena Do For Be = 0 To 7 ' pêtla, która bêdzie wykonywana 8 razy 'Out = Be , 0 'tu to zglasza blad !! bit do wyslania 'na wejscie ser ukladu dana z najm³odszego bitu a.0 Set Clk ' tu jest wlasnie clock ;) Reset Clk
Shift A , Right , 1 ' lub rotate ' przesuw o jeden w prawo, ¿eby do a.0 trafi³ bit a.1 Next Be ' Pocz±tku Pêtli.
Set Ena 'przepisanie wartosci na wyjscia Reset Ena Loop 'end program