Mirley - Elektronika i Programowanie

Testowałeś ten program w praktyce? bo wydaje mi się, a nawet jestem prawie pewny że to nie ma szans zadziałać. Obsługa przycisków leży poza pętlą główna a program nigdy nie wyjdzie poza pętlę główna. Dodatkowo po co to:

If Plus = 1 Then
   Gosub Up
   End If
 
......

i

Up:
Freq = Freq + 1
Return

nie wystarczyło:

If Plus = 1 Then
   Freq = Freq + 1
End If

To wyżej daremnie zajmuje stos procesora i wprowadza plątaninę w kodzie. jeszcze te 3 timery i ich tryby pracy..... sam nie wiem w jakich trybach działają te wszystkie timery, no może poza klasyczną konfiguracją Timera1.

Do zrealizowania tego zadania wystarczy jeden timer no może dwa działające w klasycznym ustawieniu timera

Coś lepiej?

'Miernik obrotów, generator PWM, generator częstotliwości na ATMEGA8
 
'||||| Konfiguracja procesora |||||
$crystal = 8000000
$regfile "m8def.dat"
 
Config Lcdpin = Pin , Db4 = Portb.0 , Db5 = Portb.1 , Db6 = Portb.2 , Db7 = Portb.3 , E = Portb.4 , Rs = Portb.5
Config Lcd = 16 * 4
 
'||||| Konfiguracja wej/wyj pinów |||||
Config Portb = &B1111101
Config Portc = &C000000
Config Portd = &D0100000
 
Dim Wynik As Long
Dim Freq As Long
 
'||||| Aliasy Dimy |||||
Plus Alias Portc.2
Minus Alias Portc.3
Swpwm1 Alias Portc.4
Swpwm2 Alias Portc.5
 
'||||| Timery |||||
Config Timer0 = Counter , Edge = Rising                     'Co zmienić w tym?
Config Timer1 = Pwm , Pwm = 8 , Prescale = 1 , Compare A Pwm = Clear Down , Compare B Pwm = Clear Down       'Timer dwóch PWM
Config Timer2 = Timer , Gate = Internal , Mode = 2          'Ten pewnie nie będzie potrzebny.
 
Enable Interrupts : On Timer1 Strobo
Start Timer2
 
Cursor Off
Cls
 
Pwm1a = 0
Pwm1b = 0
 
'||||| Pętla główna |||||
Do
Timer0 = 0
Start Timer0
Wait 1
Stop Timer0
 
Wynik = Timer0 * 30
 
 
Cls
Lcd "RPM" ; Wynik
Lowerline
Lcd "f" ; Freq
Thirdline
Lcd "PWM 1" ; Pwm1a
Fourthline
Lcd "PWM 2" ; Pwm1b
 
If Plus = 1 Then
   Incr Freq
   End If
 
If Minus = 1 Then
   Decr Freq
   End If
 
If Plus = 1 And Swpwm1 = 1 Then
   Incr Pwm1a
   End If
 
If Minus = 1 And Swpwm1 = 1 Then
   Decr Pwm1a
   End If
 
If Plus = 1 And Swpwm2 = 1 Then
   Incr Pwm1b
   End If
 
If Minus = 1 And Swpwm2 = 1 Then
   Decr Pwm1b
   End If
 
Strobo:
Toggle Portb.3
Load Timer2 , Freq
Return
 
Loop
End

Do kolegi pod spodem: Nie, niestety nie. Naprawdę nie wiem jak to ma być...

Przepraszam że się wtrącę ale czy ten post to nie efekt 1 kwietnia???

Na pewno nikt nie robił by sobie jaj pisząc kawał bo wtedy bez pytania poleci konto użytkownika wraz z postem do kasacji: ) Dodatkowo: nie pisze się odpowiedzi na pytanie edytując post wcześniej, takie działanie jest niedozwolone

Próbowałeś to wogóle kompilować? bo juz na początku wyleci mnóstwo błędów:

Config Portb = &B1111101
Config Portc = &C000000
Config Portd = &D0100000

Pierwszy port ok bo wpisujesz do niego liczbę binarną &Bxxxx ale &c lub &d, co to za format liczby? Nie mówiąc już że żaden port nie ma przypisanych wartości początkowych.

po drugie konfiguracja timera prawdopodobnie wklejona z programu dla 2051:

Config Timer2 = Timer , Gate = Internal , Mode = 2  

nie zadziała dla procesora AVR, przynajmniej nigdy nie słyszałem o takich trybach timera

Ściągnij sobie kurs mikroprocesorowej oślej łączki i zacznij od podstaw programów w bascomie, bo tego kodu nie da się poprawić. Trzeba go napisac od początku

No cóż. Dziękuję za wyrozumiałość :)
Pozdrawiam

Witam.

Pytanie nie na temat ale to tylko jedno malutkie:
w jakim internetowym sklepie z elektronika mozna dostac atmegi w obudowie plcc i czy w polsce sa w ogole osiagalne?

Nie spotkałem jeszcze w sklepie w takiej obudowie

Szkda ja tez nie widzialem a tak swoja droga to mogli by sprzedawac można lutowac jak DIP a zajmuje kupe mniej miejsca.

P.S. Zobaczyłem w tme maja atmege8515 ale ceny układów mają niezłe ale czego sie nie da za oszczednosc miejsca na pcb.....