RCMANIA.cz

Až to vyřešíš, tak to sem prosím písni,....zítra možná zakoupím také Beavera 1900mm rád bych to vyřešil také,......moc dík.

Tak ještě jednou musím poděkovat error414, protože ty odkazy jsou zajímavý zdroj informací. Už pokusně blikám
#define F_CPU 1000000UL

#include <inttypes.h>
#include <avr/io.h>
#include <util/delay.h>

int main(){
DDRB = 0b11111111;
while (1) {
PORTB = 0b00010000;
_delay_ms(100);
PORTB = 0b00000000;
_delay_ms(200);
PORTB = 0b00010000;
_delay_ms(100);
PORTB = 0b00010000;
_delay_ms(1000);
PORTB = 0b00001000;
_delay_ms(100);
PORTB = 0b00000000;
_delay_ms(200);
PORTB = 0b0001000;
_delay_ms(100);

}
}
Zatím mi není jasné to nastavení časování procesoru, ale nějak jsem to rozblikal.
Zkouším to na ATtiny13, ale má odpálený jeden port.

error414 píše:no ono zalezi na co to tzatel presne chce. Na jednu blikajici ledku staci 555, na cokoliv slozitejsiho je lepsi nejake AVR

... na cokoli slozitejsiho trochu umim PIC ... je pro mne lepsi v tom, ze malinko umim (uz asi 30 let) Basic a dostal se mi do rukou PICBasic...

To jyrry: tak vyzkoušej ten bascom.

mnov píše:Tak ještě jednou musím poděkovat error414, protože ty odkazy jsou zajímavý zdroj informací. Už pokusně blikám
#define F_CPU 1000000UL

#include <inttypes.h>
#include <avr/io.h>
#include <util/delay.h>

int main(){
DDRB = 0b11111111;
while (1) {
PORTB = 0b00010000;
_delay_ms(100);
PORTB = 0b00000000;
_delay_ms(200);
PORTB = 0b00010000;
_delay_ms(100);
PORTB = 0b00010000;
_delay_ms(1000);
PORTB = 0b00001000;
_delay_ms(100);
PORTB = 0b00000000;
_delay_ms(200);
PORTB = 0b0001000;
_delay_ms(100);

}
}
Zatím mi není jasné to nastavení časování procesoru, ale nějak jsem to rozblikal.
Zkouším to na ATtiny13, ale má odpálený jeden port.

doporucuji zacit na arduino (nebo klonech). Programovani je jednoduzsi. Naucis se principy co a jak funguje a pak muzes jit cim dal niz.

mnov píše:To jyrry: tak vyzkoušej ten bascom.

proc? Zatim mi to na moje blbinky staci ... :-)
treba servotester:
; 12F675

EEPROM 0,[$85] ; zero = 1,0 ms
eeprom 1,[$47] ; half = 1,5 ms
EEPROM 2,[$09] ; full = 2,0 ms
eeprom 14,[$10]; verze 1.0
EEPROM 32,[$B2] ; konstanta pro 20ms
EEPROM 33,[$FF]

define OSCCAL_1K 1
CMCON = 7
OPTION_REG = %01000010
TRISIO = %000011 ; GP4 a GP5 jako vstupy
WPU = %000010 ; pull-up odpory
INTCON = %11000000
PIE1 = 0
ADCON0 = %10000001
ANSEL = %00010001

tim20 var word
ms20 var byte
zero var byte
half var byte
full var byte
potak var word
plyn var byte
tlac var gpio.1
led var gpio.4
servo var gpio.5
mood var byte
prep var bit

READ 0, zero
READ 1, half
READ 2, full
READ 32, tim20.byte1 ; predvolba 20ms
READ 33, tim20.byte0

goto start

impuls: ; servoimpulz
if plyn > half - 1 and plyn < half + 1 then
led = 1
else
led = 0
endif
TMR0 = plyn
INTCON.2 = 0
servo = 1
repeat
until INTCON.2 = 1
servo = 0
return

ctipotak:
ADCON0.1 = 1
repeat
until ADCON0.1 =0
potak.byte1 = ADRESH
potak.byte0 = ADRESL
potak = potak / 8
plyn = full + potak.byte0
if plyn > zero then plyn = zero
return

settimer:
T1CON.0 = 0 ; zastaveni tmr1
PIR1.0 = 0 ; nulovani priznaku preruseni od tmr1
TMR1L = tim20.byte0 ; nastaveni registru tmr1
TMR1H = tim20.byte1
T1CON.0 = 1 ; rozbeh tmr1
return

mode:
repeat
until tlac
mood = mood + 1
if mood = 4 then mood = 0
return

horedole:
if prep and plyn < zero then plyn = plyn + 1
if not prep and plyn > full then plyn = plyn - 1
if plyn = zero then prep = 0
if plyn = full then prep = 1
return

on interrupt goto prerus

start:
led = 0
mood = 0
prep = 1
gosub settimer
PIE1.0 = 1 ; povoleni preruseni od tmr1

loop:
goto loop
end

disable ; obsluha preruseni
prerus:
gosub settimer
gosub impuls ; servoimpuls
if not tlac then gosub mode
if mood = 0 then gosub ctipotak
if mood = 1 then plyn = half
if mood = 2 and ms20.1 then gosub horedole
if mood = 3 then
gosub horedole
gosub horedole
endif
ms20 = ms20 + 1
if ms20 = 200 then ms20 = 0
resume
enable

taky začínám s programováním mcu a rozhodl jsem se pro arm od ST. Základní kit stojí asi 300 kč, a výborný seriál pro naučení je na mcu.cz. Je pravda že blikat didodou armem je trochu zhůvěřilost ale pokud se tím člověk chce zabývat víc tak zase není špatný začátek.

Ahojte, nemáte někdo podobný program (ATMEL / PIC) co by dokázal měnit nastavení blikání pro každou LED podle potřeby jak je to v tomto http://rcelektro.php5.sk/ledflash.htm zapojení?
(mám starou a chtěl bych to předělat na novou verzi)

P.

Jeden kamarád to po mě kdysi chtěl postavit, tak jsem mu to naprogramoval v Assembleru do AT89LP2052. Vše v SMD, takže plošňáček měl něco kolem 10g. Na vysílačce měl volný potenciometr, tak jsem to udělal, tak že v levé krajní poloze byla světla zhaslá, ve střední poloze blikali stejně jako poziční světla na skutečném letadle a v pravé krajní trvale svítili.

pkurcik píše:Ahojte, nemáte někdo podobný program (ATMEL / PIC) co by dokázal měnit nastavení blikání pro každou LED podle potřeby jak je to v tomto http://rcelektro.php5.sk/ledflash.htm zapojení?
(mám starou a chtěl bych to předělat na novou verzi)

P.

skus pozriet toto, ale je to trochu zlozitejsie zapojenie ... program som uverejnil v Amaterskom Radiu 2/12, v pripade zaujmu ho niekde mozem zavesit ...

http://www.drapko.sk/msystem/dokumenty/ ... ual_up.pdf

yogi