Prosty programik w BASCOM proszę o pomoc.

Main Page -> Forum Index -> Microcontrollers Generally -> AVR Microcontrollers -> Prosty programik w BASCOM proszę o pomoc.

Author

Message

Bartek47
Poziom 9

Joined: 21 Aug 2009
Posts: 44

28 Feb 2010 20:55

Prosty programik w BASCOM proszę o pomoc.

Chodzi mi o to żeby jednym przyciskiem uruchamiać
Rotate Portb , Left
A drugim
Rotate Portb , Right

Tylko żeby to się zapętlało a nie działało tylko wtedy gdy się trzyma przycisk tylko włączało się na stałe

Przyjmijmy że jeden przycisk to Pind.4 a drugi Pind.5.

$regfile = "attiny2313.dat" 'określenie uc
$crystal = 1000000 'okreslenie kwarcu

Config Portb = &B11111111 'wszytskie jako wyjścia
Portb = &B00000001 'wszędzie stan spoczynkowy 1
Config Portd = &B00000000
Portd = &B11111111

Code:

Do
If Pind.4 = 0 Then
Rotate Portb , Left
Waitms 950
End If
If Pind.5 = 0 Then
Rotate Portb , Right
Waitms 950
End If
Loop

Google

Google Adsense

28 Feb 2010 20:55

atom1477
Poziom 25

Joined: 14 Jul 2005
Posts: 6596

#2 28 Feb 2010 20:59 helpful post - solution

Re: Prosty programik w BASCOM proszę o pomoc.

Code:

Dim State As Byte
Dim I As Byte

Do
For I = 0 To 100
If Pind.4 = 0 Then
State = 0
End If

If Pind.5 = 0 Then
State = 1
End If

Waitms 10
Next I

If State = 0 Then
Rotate Portb , Left
Else
Rotate Portb , Right
End If
Loop

Google

Google Adsense

# 28 Feb 2010 20:59 helpful post - solution

Bartek47
Poziom 9

Joined: 21 Aug 2009
Posts: 44

28 Feb 2010 22:14

Re: Prosty programik w BASCOM proszę o pomoc.

Działa dzięki!

A mógłby mi ktoś wytłumaczyć o co tutaj chodzi
For I = 0 To 100
Next I
??

Google

Google Adsense

28 Feb 2010 22:14

atom1477
Poziom 25

Joined: 14 Jul 2005
Posts: 6596

#4 28 Feb 2010 22:51

Re: Prosty programik w BASCOM proszę o pomoc.

Ta pętla nie jest konieczna.
Dodałem ją żeby przyciski działały cały czas.
Bo jak byś napisał Waitms 1000 to przez całe 1000ms przyciski by nie działały.
A tak w pętli co raz masz sprawdzenie przycisków i odmierzanie czasu 10ms.
Czyli łączenie te 1000ms i tak uzyskasz a przy okazji przyciski będą normalnie działały.

M. S.
Poziom 22

Joined: 12 Jan 2005
Posts: 1508
Location: Czechowice - Dziedzice

#5 01 Mar 2010 00:08

Re: Prosty programik w BASCOM proszę o pomoc.

Quote:

Dodałem ją żeby przyciski działały cały czas.

Tylko po co sprawdzać przyciski jeśli efektu tego sprawdzenia nie będzie? Jedyne co można osiągnąć w ten sposób to umożliwienie zmiany decyzji w trakcie trwania pętli for, w którą stronę nastąpi ROTATE po zakończeniu tej pętli. Wykonane zostanie ostatnie naciśnięcie przycisku.

Dodano po 3 [minuty]:

Quote:

Dodałem ją żeby przyciski działały cały czas.

atom1477
Poziom 25

Joined: 14 Jul 2005
Posts: 6596

#6 01 Mar 2010 00:43

Re: Prosty programik w BASCOM proszę o pomoc.

No i właśnie taki był cel. Inaczej przycisk musiał by być trzymany aż nastąpi moment zmiany stanu na porcie (a także wykonanie reszty kodu poza waitmsem 1000 więc i sprawdzenie przycisków).
Przecież każde menu jest tak rozwiązane. Nawet kliknięcie myszką na coś na pulpicie. Nie musisz trzymać aż zadziała. Klikasz raz a dalej włącza się samo. Czasami bardzo długo. Ale trzymać przez ten cały czas już nie musisz.

Google

Google Adsense

# 01 Mar 2010 00:43

M. S.
Poziom 22

Joined: 12 Jan 2005
Posts: 1508
Location: Czechowice - Dziedzice

#7 01 Mar 2010 13:56

Re: Prosty programik w BASCOM proszę o pomoc.

Ok. Jednak naciśnięcie przycisku bez wywołania reakcji (potwierdzenia) jest co nieco denerwujące. Przydałaby się jakaś dioda led albo sygnał dźwiękowy. Podpowiem, że w tym przypadku prosiłoby się też użycie przerwań zewnętrznych. W końcu płacąc za procesor płacimy za cały sprzęt.

Main Page -> Forum Index -> Microcontrollers Generally -> AVR Microcontrollers -> Prosty programik w BASCOM proszę o pomoc.

Page 1 of 1

Page generation time: 0.086 seconds

FAQ || Administrator || Moderators || Widgets and banners || Contact