Anonymní profil AB – Programujte.com

Ne.

V Bascomu by to mělo být

Config Lcd = 16 * 2

Config Lcdpin = Pin , Port = Portb , E = Portd.6 , Rs = Portd.7

Aha! už to vidím.
Má být

while (ADCSRA & (1 << ADSC))  {}; 

Jak to, že nečeká?

      ADCSRA |= (1<<ADSC); //Start conversion

      while ((ADCSRA & (1 << ADSC)) == 1){}; 

      servo = 173+ADCW*172/1024; //cteni z prevodniku a uprava hodnoty 1024 na rozsah 173-345 pro PWM2

  

 servo = 173+ADCW*172/1024; 

 servo = 173+ADCW*172UL/1024; 

A jaký hlubší smysl má přečíst analogovou hodnotu, převést na digitální
a pak tutéž hodnotu převést zpátky na původní analogovou?

Buď bych musel mít podle uživatele AB stejný počet globálních proměnných pro jejich délky a nebo je mít uloženy v PROGMEM a když změním text tak měnit i uloženou délku a to je spousta místa pro chyby.

Ve funkci pošleme délku pole jako argument

const char str1[] PROGMEM = "ABCDEFG";



static void sendMsg(const char* data, uint8_t size)

{

   for(uint8_t i=0;i<size;i++)

   usartTx(pgm_read_byte(&data[i]));

 }



int main()

{

sendMsg(str1, sizeof(str1));

Proč ne jednoduše

unsigned char str1[] PROGMEM = "ABCDEFG";

uint8_t size;



int main()

{



size=sizeof(str1);

To je zajímavý dotaz, když uvážíme že celé toto vlákno včetně ukázky kódu je v asembleru.

Takže program je psaný pro CodeVision.
Takový program nemůžeš bez úprav překládat jiným překladačem.

Jak je vidět, chyba je v tom, že programátor nezapíše správně do čipu.
Jaký používáš programátor - hardware, software?
Jaké hlášky konkrétně píše?
Podařilo se ti s ním zapsat jiný program?

Jaký asembler používáš?
Proč je do asm souboru inkludovaný céčkový "mega162.h" ?

1. Klasickým ISP programátorem bych přečetl flash.
2. Zkontroloval bych, jestli je zapsaný bootloader. (měl by začínat na bajtové adrese 0x7000, nižší adresy by měly být prázdné).
3. Přečetl bych fuses a porovnal s default hodnotami v datašítu.

Teď vidím, že ten poslední delay by měl být delší aby během něho proběhly potřebné dvě přerušení.
Začal bych třeba se 100 ms.
Nepříjemné je to, že čím hustší budou přerušení, tím delší bude tento delay.

V zadání je mnoho neznámých, ale pokud

-jde o něco jako spínač na kole pro měření doby otáčky
-doba sepnutí je proti periodě krátká
-nemusí se měřit každá perioda
-nevadí zpoždění v ISR

zkusil bych něco takového:

volatile uint16_t interval;



ISR(INT0_vect)

{

uint16_t count;

static uint16_t count_old;



   count = TCNT1;   

   interval = count - count_old;

   count_old = count; 

   _delay_ms(25);                //překlenutí zákmitů  

   GIFR = (1<<INTF0);            //nuluj flag

}





int main()

{

uint16_t period;



   TCCR1B = 3;                  //start timer1, prescale = 64

   MCUCR = 3;                   //přerušení vzestupnou hranou

   GICR = (1<<INT0);            //povol přerušení

   

   for(;;)

   {

      cli();

      period = interval;

      printf("%u", period);

      // jiné činnosti 

      sei();

      _delay_us(10);

   }

}

Jestli čas mezi sepnutími je 25ms a kontakt zakmitává 50 ms tak bude nadějnější zabývat se kvadraturou kruhu, než tímto problémem.
Chce to buď kvalitní kontakt (prý existují takové, které zakmitávají pod 10ms), nebo použít jiné čidlo, fotodiodu, Hall.

    i2c_init();

      i2c_start();      

      i2c_write(0x9C);      \\Adresa čidla je 9C pro zápis

      i2c_write(0x00);      \\Výběr registru s hodnotou teploty

      i2c_write(0x9D);      \\Adresa čipu pro čtení (9D)

      t1=i2c_read(0);       \\Uložení MSB slova

      t2=i2c_read(0);       \\Uložení LSB slova

      i2c_stop(); 

    i2c_init();

      i2c_start();      

      i2c_write(0x9C);      \\Adresa čidla je 9C pro zápis

      i2c_write(0x00);      \\Výběr registru s hodnotou teploty

      i2c_start();

      i2c_write(0x9D);      \\Adresa čipu pro čtení (9D)

      t1=i2c_read(1);       \\Uložení MSB slova  ACK

      t2=i2c_read(0);       \\Uložení LSB slova   NACK

      i2c_stop(); 

Podívej se sem, uvidíš tam kód i simulaci.
http://www.mp222.wz.cz/Global/bascom.swf.html

Oprava:
Omlouvám se, hlavní smyčka má být

   Do

      If Tlacitko = 0 Then

         Toggle State

         Waitms 100

         While Tlacitko = 0 : Wend



         If State = 0 Then

            Gosub Blik1

         Else

            Gosub Blik2

         End If



      End If

   Loop

V těchto programech s blikajícími ledkami zaberou nejvíc času čekací smyčky "wait".
Podprogram, i když má šedesát řádků, trvá bez čekacích smyček v řádu mikrosekund.
Proto pokud chceme rychlou reakci na tlačítko, stačí tlačítko testovat v krátkých intervalech uvnitř těchto smyček.
Když zjistíme stisknuté tlačítko, vrátíme se do hlavního programu a tam se rozhodne, který podprogram dál zavolat.

Je to samozřejmě jedno z více možných řešení.
Přikládám stručný příklad

Tlacitko Alias Pind.6

Dim State As Bit

Dim I As Word



   Do

      If Tlacitko = 0 Then

         Toggle State

         Waitms 100

      End If



      If State = 0 Then

         Gosub Blik1

      Else

         Gosub Blik2

      End If



      While Tlacitko = 0 : Wend

   Loop

End

'----------------------------------------------------------



Blik1:

   Do

      Incr Portb



      'čekej 2000 ms a testuj tlačítko

      For I = 1 To 2000

         Waitms 1

         If Tlacitko = 0 Then Exit Do

      Next

   Loop

Return

http://programujte.com/?akce=diskuze&kam=vlakno&tema=14976-avr-a-lcd-displej

Ahoj,

Zkus toto:
Pin AVCC je na +5V.
Na pinu AREF je jen kond proti zemi !!

#include <mega88.h>  

#include <stdlib.h> 

#include <lcd.h>  

#include <delay.h>  



// Alphanumeric LCD Module functions

#asm

   .equ __lcd_port=0x0B ;PORTD

#endasm     



//definice I/O bitů

#define REFS0 6

#define ADSC  6

#define ADEN  7

#define ADPS2 2

#define ADPS1 1

#define ADPS0 0



#define REF (1<<REFS0)  // REFS1=0 REFS0=1 => Reference = AVCC 

#define Uref 5000       // referenční napětí 5000 mV (přesnou hodnotu změřit na pinu AREF)



//-----------------------------------------------------------------------------

 unsigned int read_adc(unsigned char kanal)  

 {  

   ADMUX  = REF | kanal;  

   ADCSRA |= (1<<ADSC);            // start převodu 

   while (ADCSRA & (1<<ADSC));     // čekej na konec převodu.

   return ADCW;  

 } 



//-----------------------------------------------------------------------------

main(void)   

{    

   unsigned long adc_value, napeti0, napeti1;

   static char   tempstr[10];



   //Init Ports

   PORTC = 0x00;  

   DDRC = 0x00;  

   

   //Init ADC

   ADCSRA = (1<<ADEN)|(1<<ADPS2)|(1<<ADPS1)|(1<<ADPS0);  // zapni ADC ; předdělič 128 



   //Init LCD

   lcd_init(16);



      while (1)  

        {  

           adc_value  = read_adc(0);     

           napeti0    = (adc_value * Uref) / 1024;   // napětí v mV 

           adc_value  = read_adc(1);     

           napeti1    = (adc_value * Uref) / 1024;   // napětí v mV 



           itoa(napeti0,tempstr); 

           lcd_gotoxy(3,0);  

           lcd_puts(tempstr);    

           delay_ms(500);

        }  

} 

je tam nutný psát sei(); globální přerušení, když ho tam dám tak mi to spousti program pořád od začátku

Mimo jiné čteš první hodnotu čítače v nedefinovaném okamžiku.
Pokud ji chceš číst při vzestupné hraně, použij

jb VSTUP,$
jnb VSTUP,$
přečti první hodnotu čítače
jb VSTUP,$
jnb VSTUP,$
přečti druhou hodnotu čítače