Nieprawidłowe działanie diody LED w Bascom przy użyciu portu A0 w AVR

Thu Mar 15, 2012 1:18 pm   

Witajcie.

Mam w Bascomie taką sytuację:

' Port A przyciski
Config Porta.0 = Input
Prog Alias Pina.0
Set Prog

' Port A leda
Config Porta.6 = Output
Leda1 Alias Porta.6
Reset Leda1

Do
........

If Prog = 0 Then
Reset Leda1
Else
Set Leda1
End If

.......
Loop

Nie podając 0 na wejscie A.0 leda zapala się jak chce...

Co robię źle?

Pozdrawiam.

Thu Mar 15, 2012 1:32 pm   

On 15.03.2012 13:18, Jacek wrote:

na port.

--
Pozdrawiam
Michoo

Thu Mar 15, 2012 1:44 pm   

Dnia Thu, 15 Mar 2012 13:32:54 +0100, Michoo napisał(a):


Podciągam programowo poprzez Set Prog.

Thu Mar 15, 2012 1:49 pm   

Czy woltomierz to potwierdza?

mw

Thu Mar 15, 2012 1:54 pm   

Dnia Thu, 15 Mar 2012 12:46:46 +0000 (UTC), Adam Wysocki napisał(a):


http://allegro.pl/zestaw-evb-4-3v4-atmega32-kurs-bascom-gratis-i2160888708.html

Nie probowalem na innym porcie.

Thu Mar 15, 2012 2:46 pm   

Jacek <ala@ola.pl> wrote:


Nie znam bascoma, ale jaki to procek? Może akurat ten nie ma pullupa
na pinie PA0 (lub ma domyślnie wyłączonego w fusebitach z powodu tego,
że jest tam jakaś alternatywna funkcjonalność). A może ten pullup ma
za dużą wartość i jakieś zakłócenia włażą na port... Na innym porcie
jest to samo?

--
Gof

Thu Mar 15, 2012 4:12 pm   

Dnia Thu, 15 Mar 2012 13:49:30 +0100, mw158979 napisał(a):


Potwierdza.
Kupiłem ten zetaw kilka dni temu celem 'powrotu do korzeni'
Wiele lat temu programowałem różne systemy typu PLC oraz dedykowan systemy
automatyki.
Zachciało mi się pobawic Atmega i na starcie porażka.
Oczywiście wynika to z mojej niewiedzy co do tego rozwiązania.

Ale...

' Port A przyciski
Config Porta.0 = Input
Prog Alias Porta.0
Set Prog

i w petli programu:

If Prog = 0 Then Call Buzzer(4)

gdzie procedura bzyczka:

Sub Buzzer(piki As Byte )
Dim I As Byte
For I = 1 To Piki
Buz = 1
Waitms 100
Buz = 0
Waitms 100
Next
End Sub

Naciskam przycisk Prog, sprawdzam miernikiem i z 1 zmienia się na 0.
A bzyczek nie bzyczy, chociaz w programi mam taką częśc, ktora bzyczy:

If T >= Tempwyl And Tempflaga = 0 Then
Tempflaga = 1
Set Leda1
Call Buzzer(3 )
Cls
Locate 1 , 1
Lcd "Tryb: SPOCZYNEK"
Locate 2 , 1
Lcd S ; Chr(0) ; "C "
End If

If T <= Tempzal And Tempflaga = 1 Then
Tempflaga = 0
Reset Leda1
Call Buzzer(2 )
Cls
Locate 1 , 1
Lcd "Tryb: PRACA"
Locate 2 , 1
Lcd S ; Chr(0) ; "C "
End If

Wiem, że muszę 'spojrzeć inaczej'
Stąd moje pytanie tutaj...

Thu Mar 15, 2012 4:51 pm   

W dniu 2012-03-15 16:12, Jacek pisze:

Stan wejść czyta się przez PINx. PORTx przechowuje stan wyjść.

Tak na szybko: google zwraca taki tutorial, na stronie 13 jest coś z
czytaniem stanu linii.

http://bahrambaba2.persiangig.com/other/bascom%20avr%20tutorial.pdf

Thu Mar 15, 2012 5:50 pm   

Jacek <ala@ola.pl> wrote:


Spróbuj:

1. Na innym porcie
2. Podłączyć ręcznie pullupa

Na pewno nie masz włączonego ADC, a bit PUD w SFIOR jest 0?

--
Gof

Thu Mar 15, 2012 5:52 pm   

Użytkownik "Jacek" <ala@ola.pl> napisał w wiadomości
news:16ynwtmcskwsz.188j2sun79otz$.dlg@40tude.net...

Słyszałeś o problemie drgania styków?
Słowo klucz: _debouncing_

PP

Thu Mar 15, 2012 5:54 pm   

Jacek <ala@ola.pl> wrote:


Jeszcze jedna rzecz przyszła mi do głowy. Nie wiem jak to jest w Bascomie,
ale czy sprawdzając stan Prog sprawdzasz na pewno bit w rejestrze PINA, a
nie PORTA? Podejrzewam że to nie to, bo opisane zachowanie (nieregularne
miganie LEDa) wskazuje na brak pullupa, ale warto się upewnić.

--
Gof

Thu Mar 15, 2012 6:26 pm   

Dnia Thu, 15 Mar 2012 17:52:21 +0100, Piotrek_P napisał(a):


Czytałeś, że '>> Nie podając 0 na wejscie A.0 leda zapala się jak chce...'?

Thu Mar 15, 2012 6:33 pm   

Użytkownik "Jacek" napisał w wiadomości grup
dyskusyjnych:16ynwtmcskwsz.188j2sun79otz$.dlg@40tude.net...

Witajcie.

Mam w Bascomie taką sytuację:

' Port A przyciski
Config Porta.0 = Input
Prog Alias Pina.0
Set Prog <<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< TU MUSI BYĆ Set Porta.0

' Port A leda
Config Porta.6 = Output
Leda1 Alias Porta.6
Reset Leda1

Do
........

If Prog = 0 Then
Reset Leda1
Else
Set Leda1
End If

.......
Loop

Nie podając 0 na wejscie A.0 leda zapala się jak chce...

Co robię źle?

Pozdrawiam.

Thu Mar 15, 2012 7:38 pm   

Dnia Thu, 15 Mar 2012 18:33:32 +0100, PC napisał(a):


Dzieki.
Ale w takim razie po co są zamienniki (aliasy)?

Thu Mar 15, 2012 7:57 pm   

W dniu 12-03-15 19:38, Jacek pisze:

Przecież Twój alias wskazuje na PINA.0 zamiast na PORTA.0 :)

--
butek
Safety note: Don't put all your enriched uranium hexafluoride in one
bucket. Use at least two or three buckets and keep them in separate
corners of the room. This will prevent the premature build-up of a
critical mass.