Vítejte na Elektro Bastlírn?
Nuke - Elektro Bastlirna
  Vytvořit účet Hlavní · Fórum · DDump · Profil · Zprávy · Hledat na fóru · Příspěvky na provoz EB

Vlákno na téma KORONAVIRUS - nutná registrace


Nuke - Elektro Bastlirna: Diskuzní fórum

 FAQFAQ   HledatHledat   Uživatelské skupinyUživatelské skupiny   ProfilProfil   Soukromé zprávySoukromé zprávy   PřihlášeníPřihlášení 

ATmega128 - funguje mi jen jedno PWM
Jdi na stránku 1, 2  Další
 
Přidat nové téma   Zaslat odpověď       Obsah fóra Diskuzní fórum Elektro Bastlírny -> Programování PIC, ATMEL, EEPROM a dalších obvodů
Zobrazit předchozí téma :: Zobrazit následující téma  
Autor Zpráva
endthe



Založen: Mar 07, 2009
Příspěvky: 56
Bydliště: Brno
PříspěvekZaslal: so březen 07 2009, 13:11    Předmět: ATmega128 - funguje mi jen jedno PWM Citovat
Zdravim snazim se udelat program pro ATmega128 pro ovladani dvou serv HS 422 pripojenych na PB5 (OC1A) a PB6 (OC1B). ovladaní je pomoci PWM rizeneho tlacitky (krokovani UP a DOWN pro kazde servo (pres interupty na portu D)). Problem je v tom ze mi jede pouze jedno PWM na OC1A a nedari se mi rozchodit druhe PWM na OC1B Sad . Prikladam i zdrojak. Prosim o radu a celkem to specha. Dekuji

kod programu mam nasledujici v AVR studio 4:

kód:
/**************************************************************
Project : PWM
Version : 1.0
Date    : 21.2.2009
Author  :
Comentar: manualni PWM - melo by se dat ritit pomoci tlacitek
Pouzita serva: HS-422
Chip type           : ATmega128
Program type        : Application
Clock frequency     : 16,000000 MHz
Memory model        : Small
External RAM size   : 0
Data Stack size     : 1024
**************************************************************/
#include <avr/io.h>
#include <avr/iom128.h>
#include <avr/interrupt.h>
//#####################################################################
#define NSTEP 10
#define NDELAY 100 //bylo tu 500
int isdelay = 0;
//######################TLACITKA PRO SERVO 1################################

//###########################INT0 UP###########################
ISR (SIG_INTERRUPT0)
{

if (isdelay)
return;

PORTB=~PORTB; //pro kontrolu funce (ostatni LED na portu B blikaji)

 int tmp=(int)OCR1A;
 if ((tmp+NSTEP)<255)
   OCR1A+=NSTEP;
 else
   OCR1A=255;

   isdelay=1;
}

//###########################INT1 DOWN###########################
ISR (SIG_INTERRUPT1)
{

if (isdelay)
return;

PORTB=~PORTB; //pro kontrolu funce (ostatni LED na portu B blikaji)

 int tmp=(int)OCR1A;
 if ((tmp-NSTEP)<0)
   OCR1A-=NSTEP;
   
 else
   OCR1A=0;

   isdelay=1;
}

//######################TLACITKA PRO SERVO 2################################

//###########################INT2 UP###########################
ISR (SIG_INTERRUPT2)
{

if (isdelay)
return;

PORTB=~PORTB; //pro kontrolu funce (ostatni LED na portu B blikaji)

 int tmp=(int)OCR1B;
 if ((tmp+NSTEP)<255)
   OCR1B+=NSTEP;
   
 else
   OCR1B=255;
   
   isdelay=1;
}


//###########################INT3 DOWN###########################
ISR (SIG_INTERRUPT3)
{

if (isdelay)
return;

PORTB=~PORTB; //pro kontrolu funce (ostatni LED na portu B blikaji)

 int tmp=(int)OCR1B;
 if ((tmp-NSTEP)<0)
   OCR1B-=NSTEP;
 else
   OCR1B=0;

   isdelay=1;
}

//#####################################################################

void preruseni_init(void) // uvodni nastaveni podminek pro povoleni preruseni
{
  EICRA = 0;
  EIMSK = 0x0f;
  SREG |= (1<<SREG_I);
}

//#####################################################################

void delay(unsigned int msec);

//#####################################################################

int main(void)
{
  DDRB = 0x61; //povoleni portu PB5 a PB6 jako vystup PWM (OC1A a OC1B)
  DDRD = 0;    //Porty D jako vstupy (interupty nastavene pro tlacitka 1-4)
  PORTD = 0xff;
  preruseni_init();

//######################PWM PRO SERVO 1################################
 
ICR1=20000; //nastavenim ICR1=20000 dosahnu f=50Hz

TCCR1A|=(0<<COM1A0)|(1<<COM1A1)|(0<<COM1B0)
|(0<<COM1B1)|(0<<FOC1A)|(0<<FOC1B)|(1<<WGM11)|(0<<WGM10);
 
TCCR1B|=(0<<ICNC1)|(0<<ICES1)|(1<<WGM13)|(1<<WGM12)
| (0<<CS12)|(1<<CS11)|(0<<CS10);

//######################PWM PRO SERVO 2################################
ICR1=20000; //nastavenim ICR1=20000 dosahnu f=50Hz

TCCR1B|=(0<<COM1B0)|(1<<COM1B1)|(0<<COM1C0)
|(0<<COM1C1)|(0<<FOC1B)|(0<<FOC1A)|(1<<WGM11)|(0<<WGM10);


TCCR1C|=(0<<ICNC1)|(0<<ICES1)|(1<<WGM13)|(1<<WGM12)
| (0<<CS12)|(1<<CS11)|(0<<CS10);


//#####################################################################

  while(1) {
   if (isdelay)
    delay(NDELAY);
   };
 }

//#####################################################################

//void PWM(unsigned char motor1, unsigned char motor2)
//{
//   OCR1A = motor1; // Vystup servo 1
//   OCR1B = motor2; // Vystup servo 2
//}

//#####################################################################

void delay(unsigned int msec) {
 int unsigned i,n;
 for (i=msec;i>0;i--) {
  for (n=100;n>0;n--);
 }
 isdelay=0;
}


Arrow administrator: přejmenováno z "ATmega128 PWM"
Návrat nahoru
Zobrazit informace o autorovi Odeslat soukromou zprávu Odeslat e-mail
Andrea



Založen: Sep 07, 2007
Příspěvky: 9340
PříspěvekZaslal: so březen 07 2009, 13:30    Předmět: Citovat
V nastavení máš pomotané registry TCCR1A, B a C.

A jestli dobře počítám, tak ti to při 16MHz generuje 100Hz a ne 50.

Naposledy upravil Andrea dne so březen 07 2009, 13:43, celkově upraveno 1 krát.
Návrat nahoru
Zobrazit informace o autorovi Odeslat soukromou zprávu
endthe



Založen: Mar 07, 2009
Příspěvky: 56
Bydliště: Brno
PříspěvekZaslal: so březen 07 2009, 13:40    Předmět: Citovat
takze by to melo jit takto:
kód:

//######################PWM PRO SERVO 1################################
 
ICR1=20000; //nastavenim ICR1=20000 dosahnu f=50Hz

TCCR1A|=(0<<COM1A0)|(1<<COM1A1)|(0<<COM1B0)
|(0<<COM1B1)|(0<<FOC1A)|(0<<FOC1B)|(1<<WGM11)|(0<<WGM10);
 

//######################PWM PRO SERVO 2################################
ICR1=20000; //nastavenim ICR1=20000 dosahnu f=50Hz

TCCR1B|=(0<<COM1B0)|(1<<COM1B1)|(0<<COM1C0)
|(0<<COM1C1)|(0<<FOC1B)|(0<<FOC1A)|(1<<WGM11)|(0<<WGM10);



//#####################################################################
Návrat nahoru
Zobrazit informace o autorovi Odeslat soukromou zprávu Odeslat e-mail
endthe



Založen: Mar 07, 2009
Příspěvky: 56
Bydliště: Brno
PříspěvekZaslal: so březen 07 2009, 13:41    Předmět: Citovat
endthe napsal(a):
takze by to melo jit takto:
kód:

//######################PWM PRO SERVO 1################################
 
ICR1=20000; //nastavenim ICR1=20000 dosahnu f=50Hz

TCCR1A|=(0<<COM1A0)|(1<<COM1A1)|(0<<COM1B0)
|(0<<COM1B1)|(0<<FOC1A)|(0<<FOC1B)|(1<<WGM11)|(0<<WGM10);
 

//######################PWM PRO SERVO 2################################
ICR1=20000; //nastavenim ICR1=20000 dosahnu f=50Hz

TCCR1B|=(0<<COM1B0)|(1<<COM1B1)|(0<<COM1C0)
|(0<<COM1C1)|(0<<FOC1B)|(0<<FOC1A)|(1<<WGM11)|(0<<WGM10);



//#####################################################################


ja to delal podle datasheetu
Návrat nahoru
Zobrazit informace o autorovi Odeslat soukromou zprávu Odeslat e-mail
Andrea



Založen: Sep 07, 2007
Příspěvky: 9340
PříspěvekZaslal: so březen 07 2009, 13:47    Předmět: Citovat
Jestli to děláš podle datašítu, tak nevím podle kterého, protože to máš pořád stejně blbě.
Návrat nahoru
Zobrazit informace o autorovi Odeslat soukromou zprávu
endthe



Založen: Mar 07, 2009
Příspěvky: 56
Bydliště: Brno
PříspěvekZaslal: so březen 07 2009, 13:49    Předmět: Citovat
Andrea napsal(a):
Jestli to děláš podle datašítu, tak nevím podle kterého, protože to máš pořád stejně blbě.



no primo od atmela ale je mozne ze sem se do toho zamotal tak porad co opravit
Návrat nahoru
Zobrazit informace o autorovi Odeslat soukromou zprávu Odeslat e-mail
Andrea



Založen: Sep 07, 2007
Příspěvky: 9340
PříspěvekZaslal: so březen 07 2009, 13:58    Předmět: Citovat
endthe napsal(a):
Andrea napsal(a):
Jestli to děláš podle datašítu, tak nevím podle kterého, protože to máš pořád stejně blbě.



no primo od atmela ale je mozne ze sem se do toho zamotal tak porad co opravit

V datašítu jsou přece ty tři registry rozkreslené na jednotlivé bity, tak do nich strkej jen co do nich patří. Nebo kde vidíš, že FOC1A a FOC1B patří do TCCR1A, že COM1B patří do TCCR1A i do TCCR1B?
Návrat nahoru
Zobrazit informace o autorovi Odeslat soukromou zprávu
endthe



Založen: Mar 07, 2009
Příspěvky: 56
Bydliště: Brno
PříspěvekZaslal: so březen 07 2009, 14:02    Předmět: Citovat
ja se ridil taky pomoci http://winavr.scienceprog.com/example-avr-projects/servo-motor-control-using-avr.html

akorad sem ty tlacitka dal na interupty
Návrat nahoru
Zobrazit informace o autorovi Odeslat soukromou zprávu Odeslat e-mail
Andrea



Založen: Sep 07, 2007
Příspěvky: 9340
PříspěvekZaslal: so březen 07 2009, 14:05    Předmět: Citovat
endthe napsal(a):
ja se ridil taky pomoci http://winavr.scienceprog.com/example-avr-projects/servo-motor-control-using-avr.html

akorad sem ty tlacitka dal na interupty

Nojo, ale cpeš to do megy128, tak musíš koukat do datašítu megy128.
Návrat nahoru
Zobrazit informace o autorovi Odeslat soukromou zprávu
endthe



Založen: Mar 07, 2009
Příspěvky: 56
Bydliště: Brno
PříspěvekZaslal: so březen 07 2009, 14:06    Předmět: Citovat
to prvni PWM jede ale to druhe ne Sad a uz sem z toho zoufalej zas tak moc ty atmely neumim
Návrat nahoru
Zobrazit informace o autorovi Odeslat soukromou zprávu Odeslat e-mail
endthe



Založen: Mar 07, 2009
Příspěvky: 56
Bydliště: Brno
PříspěvekZaslal: so březen 07 2009, 14:13    Předmět: Citovat
kód:
//######################PWM PRO SERVO 1################################
 
ICR1=20000; //nastavenim ICR1=20000 dosahnu f=50Hz

TCCR1A|=(0<<COM1A0)|(1<<COM1A1)|(0<<COM1B0)
|(0<<COM1B1)|(1<<WGM11)|(0<<WGM10);


//######################PWM PRO SERVO 2################################
ICR1=20000; //nastavenim ICR1=20000 dosahnu f=50Hz

TCCR1B|=(0<<COM1B0)|(1<<COM1B1)|(0<<COM1C0)
|(0<<COM1C1)|(1<<WGM11)|(0<<WGM10);



//#####################################################################


takze by to melo byt takto?
Návrat nahoru
Zobrazit informace o autorovi Odeslat soukromou zprávu Odeslat e-mail
Andrea



Založen: Sep 07, 2007
Příspěvky: 9340
PříspěvekZaslal: so březen 07 2009, 14:19    Předmět: Citovat
Ne, podíval ses do toho datašítu ATmega128?
Kde v něm vidíš, že registr TCCR1B obsahuje bity COM1B0, COM1B1, COM1C0, COM1C1, WGM11, WGM10? Já vidím toto:

TCCR1x.gif
 Komentář:

Stáhnout
 Soubor:  TCCR1x.gif
 Velikost:  29.11 kB
 Staženo:  76 krát
Návrat nahoru
Zobrazit informace o autorovi Odeslat soukromou zprávu
endthe



Založen: Mar 07, 2009
Příspěvky: 56
Bydliště: Brno
PříspěvekZaslal: so březen 07 2009, 14:24    Předmět: Citovat
kód:
TCCR1B|=(0<<ICNC1)|(0<<ICES1)|(1<<WGM13)|(1<<WGM12)|(0<<CS12)|(1<<CS11)|(0<<CS10);


no tim padem takto
Návrat nahoru
Zobrazit informace o autorovi Odeslat soukromou zprávu Odeslat e-mail
endthe



Založen: Mar 07, 2009
Příspěvky: 56
Bydliště: Brno
PříspěvekZaslal: so březen 07 2009, 14:35    Předmět: Citovat
jinak uz me to nenapada Confused
Návrat nahoru
Zobrazit informace o autorovi Odeslat soukromou zprávu Odeslat e-mail
Andrea



Založen: Sep 07, 2007
Příspěvky: 9340
PříspěvekZaslal: so březen 07 2009, 14:43    Předmět: Citovat
No sláva a ještě co do TCCR1A.
Návrat nahoru
Zobrazit informace o autorovi Odeslat soukromou zprávu
Zobrazit příspěvky z předchozích:   
Přidat nové téma   Zaslat odpověď       Obsah fóra Diskuzní fórum Elektro Bastlírny -> Programování PIC, ATMEL, EEPROM a dalších obvodů Časy uváděny v GMT + 1 hodina
Jdi na stránku 1, 2  Další
Strana 1 z 2

 
Přejdi na:  
Nemůžete odesílat nové téma do tohoto fóra.
Nemůžete odpovídat na témata v tomto fóru.
Nemůžete upravovat své příspěvky v tomto fóru.
Nemůžete mazat své příspěvky v tomto fóru.
Nemůžete hlasovat v tomto fóru.
Nemůžete připojovat soubory k příspěvkům
Můžete stahovat a prohlížet přiložené soubory

Powered by phpBB © 2001, 2005 phpBB Group
Forums ©
Nuke - Elektro Bastlirna

Informace na portálu Elektro bastlírny jsou prezentovány za účelem vzdělání čtenářů a rozšíření zájmu o elektroniku. Autoři článků na serveru neberou žádnou zodpovědnost za škody vzniklé těmito zapojeními. Rovněž neberou žádnou odpovědnost za případnou újmu na zdraví vzniklou úrazem elektrickým proudem. Autoři a správci těchto stránek nepřejímají záruku za správnost zveřejněných materiálů. Předkládané informace a zapojení jsou zveřejněny bez ohledu na případné patenty třetích osob. Nároky na odškodnění na základě změn, chyb nebo vynechání jsou zásadně vyloučeny. Všechny registrované nebo jiné obchodní známky zde použité jsou majetkem jejich vlastníků. Uvedením nejsou zpochybněna z toho vyplývající vlastnická práva. Použití konstrukcí v rozporu se zákonem je přísně zakázáno. Vzhledem k tomu, že původ předkládaných materiálů nelze žádným způsobem dohledat, nelze je použít pro komerční účely! Tento nekomerční server nemá z uvedených zapojení či konstrukcí žádný zisk. Nezodpovídáme za pravost předkládaných materiálů třetími osobami a jejich původ. V případě, že zjistíte porušení autorského práva či jiné nesrovnalosti, kontaktujte administrátory na diskuzním fóru EB.


PHP-Nuke Copyright © 2005 by Francisco Burzi. This is free software, and you may redistribute it under the GPL. PHP-Nuke comes with absolutely no warranty, for details, see the license.
Čas potřebný ke zpracování stránky 0.18 sekund