częstotliwość odbierana = 12 - VFO.
Po dołożeniu jednej linijki programu z tym obliczeniem, BASCOM po kompilacji wywala bląd: Program will overwrite bootloader [12 too long]
Rozumiem z tego komunikatu, że program jest za duży. Czy da się to jakoś poprawić ? Sygnał częstotliwości jest dzielony przez 32.
[syntax=basic4gl]$regfile = "attiny2313.dat"
Enable Interrupts
$crystal = 16000000
Config Lcd = 16 * 2 'konfiguracja LCD
Config Lcdpin = Pin , Db4 = Portb.4 , Db5 = Portb.5 , Db6 = Portb.6 , Db7 = Portb.7 , E = Portb.3 , Rs = Portb.2
Config Portd = Input
Set Portd.5
Dim Freq As Long
Dim F As Single
Dim Pomoc As Byte
Dim L As Byte
Cursor Off
Dim S As String * 4
Config Timer1 = Counter , Edge = Rising 'konfiguracja timerow
Enable Timer1
Start Timer1
Config Timer0 = Timer , Prescale = 1024
Enable Timer0
Start Timer0
On Timer0 Sek
On Timer1 Fr
Cls
Do
Loop
Fr:
Incr Pomoc 'jesli przepe³nienie timera1 to zwieksz zmienna pomocnicza
Return 'potrzebna do obliczenia czestotliwosci
Sek:
Incr L
If L = 61 Then Gosub Licz 'jezeli procesor odliczy jedna sekunde to skok do podprogramu licz
Return
Licz:
Stop Timer1
L = 0
Cls
Freq = 65536 * Pomoc
Freq = Freq + Timer1
Freq = 358 - Freq '<--- TO JEST DOŁOŻONY KOD
F = Freq * 0.0000325559 'obliczenie czestotliwosci i korekcja
'wplywu rezonatora i pojemnosci z nim pracujacych
'oraz niedokladnosci odmierzenia 1 sekundy
S = Fusing(f , "#.###") 'formatowanie wyniku
Locate 1 , 4
Lcd "Pomiar F"
Locate 2 , 4
Lcd S ; " MHz" 'i wyswietlenie go na wyswietlaczu
Pomoc = 0
Timer0 = 0 'zerowanie timerow i zmiennych pomocniczych
Timer1 = 0
Start Timer1
Return[/syntax]Statystyki: Napisane przez Adyx — 10 lip 2018, o 12:13
]]>