podtrzymanie sygnału na wyjściu

pgnige wrote:

Kolejna - konfiguracja portów odbywa się na rejestrze PORTC, a nie PINC, który jest przeznaczony do odczytu stanu pinu portu c.

Config PINX.Y = Input/Output

landy13 wrote:

pgnige wrote:

Kolejna - konfiguracja portów odbywa się na rejestrze PORTC, a nie PINC, który jest przeznaczony do odczytu stanu pinu portu c.

To nieprawda. Konfiguracja odbywa się w rejestrze DDR a nie PORT. W Bascomie pojedyńcze piny konfiguruje się właśnie

Code:

Config PINX.Y = Input/Output

Także użycie waitów do odmierzania czasu opuszczania rolety nie zda egzaminu. Można liczyć obroty wałka lub zastosować krańcówkę (np. kontaktron)

pgnige wrote:

Witam, pierwsza sprawa jest taka, że $regfile dołącza bibliotekę danego mikroprocesora.
Kolejna - konfiguracja portów odbywa się na rejestrze PORTC, a nie PINC, który jest przeznaczony do odczytu stanu pinu portu c.
Jeszcze dobrze by było nadać początkowe wartości pinów portów tzn. wejścia podciągnąć do 1, a wyjścia 0
Portd = 255
Portc = 0
Odpowiadając na zadane pytanie, najprostszym sposobem jest zawieszenie procesora funkcją wait np.:

Code:

If Pind.5 = 0 then

  Set Portc.2

  Wait 12

  Reset Portc.2

Endif

If Pind.6 = 0 then

  Set Portc.1

  Wait 12

  Reset Portc.1

Endif

$REGFILE = "m8def.dat"

$CRYSTAL = 8000000 



Config Pind.5 = Input `przycisk 1

Config Pind.6 = Input `przycisk 2

Config Pinc.0 = input  `transoptor

Config Pinc.2 = Ouput `roleta w dół

Config Pinc.1 = Ouput `roleta w górę



P1 Alias Portd.5 `przypisanie nazwy włącznikom

P2 Alias Portd.6

S1 Alias Portc.2 ` przypisanie nazwy wyjścia do przekaźników

S2 Alias portc.1



do



If P1 = 0 then

  Set S1

  Waitms 12000

  Reset S1

Endif



lop