pwm jelgenerator + bovitesek
- albinolynx
- Tranzisztorgyógyász
- Hozzászólások: 161
- Csatlakozott: 2007. október 28. vasárnap, 6:00
Ertem, hogy miert nem lehet egyenlo.
Igy elmeletileg akkor mar dofi is:
if cntr = tarolo then...
...mert ugye a szamlalo erteke a lenyeges, amit figyelni kell.
Igy viszont, hogy partiban legyen a ketto valtozo, az cnrt is word tipusu valtozo lesz. Az elek szamolasakor ugy is pozitivan no csak az ertek. Minusz az ertelmezesem szerint nem lehet.
Jo lesz igy?
Igy elmeletileg akkor mar dofi is:
if cntr = tarolo then...
...mert ugye a szamlalo erteke a lenyeges, amit figyelni kell.
Igy viszont, hogy partiban legyen a ketto valtozo, az cnrt is word tipusu valtozo lesz. Az elek szamolasakor ugy is pozitivan no csak az ertek. Minusz az ertelmezesem szerint nem lehet.
Jo lesz igy?
- albinolynx
- Tranzisztorgyógyász
- Hozzászólások: 161
- Csatlakozott: 2007. október 28. vasárnap, 6:00
Ezt meglatom majd, valoszinuleg szukseg lesz ra. Szinte 0-rol indul majd a frekvencia (1-2Hz) es a vege elmeletileg csak 20Hz lesz. De meglatjuk, ez csak elmelkedes egyelore...Az A értékével játszod be a frekvenciát. Kalibrálnod kell majd úgyis.
For-nop-next helyett lehet hogy For-waitus 1-next kell, ha kis számokat akarsz beírni az A értékere.
- albinolynx
- Tranzisztorgyógyász
- Hozzászólások: 161
- Csatlakozott: 2007. október 28. vasárnap, 6:00
- albinolynx
- Tranzisztorgyógyász
- Hozzászólások: 161
- Csatlakozott: 2007. október 28. vasárnap, 6:00
Hulyen szamoltam tegnap, szukseg lesz a teljes 0-30kHz tartomanyra. Mivel exponencialisan valtozik, ki kell szamolni a K konstans erteket:
step frekvencia = K / "a"
a = terminal ablakban beirt ertek
Szkoppal ki kell merni a kimeneti jelet es utanna konnyu szamolni majd.
Azt hiszem akkor ez igy teljes mar indulashoz.
step frekvencia = K / "a"
a = terminal ablakban beirt ertek
Szkoppal ki kell merni a kimeneti jelet es utanna konnyu szamolni majd.
Azt hiszem akkor ez igy teljes mar indulashoz.
- albinolynx
- Tranzisztorgyógyász
- Hozzászólások: 161
- Csatlakozott: 2007. október 28. vasárnap, 6:00
pwm multi freki
Kód: Egész kijelölése
$regfile = "2313def.dat"
$crystal = 10000000
$baud = 9600
Dim Hi As Word
Dim Lo As Word
Dim Tim1 As Word
Dim Tim2 As Word
Config Pind.5 = Output
Config Timer1 = Timer , Prescale = 1
Enable Interrupts
On Timer1 Icnr Nosave
Enable Timer1
Do
Input "High [1-65535]" , Hi
Input "Low [1-65535]" , Lo
Disable Timer1
Tim1 = Hi
Tim2 = Lo
Portd.5 = 1
Enable Timer1
Loop
Icnr:
$asm
in r2, sreg
'push r0
'push r1
push r2
'push r3
'push r4
'push r5
'push r6
'push r7
'push r8
'push r9
'push r10
'push r11
'push r12
'push r13
'push r14
'push r15
push r16
push r17
'push r18
push r19
'push r20
'push r21
'push r22
'push r23
push r24
'push r25
push r26
'push r27
'push r28
'push r29
'push r30
'push r31
$end Asm
return
Load Timer1 , Tim1
Swap Tim1 , Tim2
Portd.5 = Not Pind.5
$asm
'pop r31
'Pop r30
'pop r29
'pop r28
'pop r27
pop r26
'pop r25
pop r24
'pop r23
'pop r22
'pop r21
'pop r20
pop r19
'pop r18
pop r17
pop r16
'pop r15
'pop r14
'pop r13
'pop r12
'pop r11
'pop r10
'pop r9
'pop r8
'pop r7
'pop r6
'pop r5
'pop r4
'pop r3
pop r2
'pop r1
'pop r0
Out Sreg , R2
$end Asm
- feherbalint
- DrótVégénSzéndarab
- Hozzászólások: 42
- Csatlakozott: 2008. augusztus 29. péntek, 6:00