Aktyw Forum
Zarejestruj się na forum.ep.com.pl i zgłoś swój akces do Aktywu Forum. Jeśli jesteś już zarejestrowany wystarczy, że się zalogujesz.
Sprawdź punkty Zarejestruj sięModeratorzy:Jacek Bogusz, robertw, k.pawliczak, Moderatorzy
No właśnie , "własna putchar".Chyba porównujemy standardowe możliwości kompilatora , a nie z jakimiś "przeróbkami".Przecież nikt nikomu nie broni zoptymalizować , czy wręcz napisać po swojemu od nowa mcs.lib , a wtedy drżyj GCC przed BascomemSzczerze mowiac tez nierozumiem...
Pusty program, + definicja wlasna putchar, putstr; zajmuje mi 126B...
Kod: Zaznacz cały
$regfile = "m32def.dat"
$crystal = 1000000
Config Lcdpin = Pin , Db4 = Portb.2 , Db5 = Portb.3 , Db6 = Portb.4 , Db7 = Portb.5 , E = Portb.1 , Rs = Portb.0
Config Lcd = 16 * 2
Dim Godzina As Byte
Dim Minuta As Byte
Dim Sekunda As Byte
Do
Waitms 1000
Incr Sekunda
Lcd "" ; Sekunda ; "" ; Minuta ; "" ; Godzina
Loop Until Sekunda > 59
Do
Waitms 1000
Incr Minuta
Lcd "" ; Sekunda ; "" ; Minuta ; "" ; Godzina
Loop Until Minuta > 59
Do
Waitms 1000
Incr Godzina
Lcd "" ; Sekunda ; "" ; Minuta ; "" ; Godzina
Loop Until Godzina > 12
Do
Loop 
Kod: Zaznacz cały
$regfile = "m32def.dat"
$crystal = 1000000
Config Lcdpin = Pin , Db4 = Portb.2 , Db5 = Portb.3 , Db6 = Portb.4 , Db7 = Portb.5 , E = Portb.1 , Rs = Portb.0
Config Lcd = 16 * 2 ' LCD 16*2
Cursor Off ' Kursor
Cls
Dim Hours As Byte , Minutes As Byte , Seconds As Byte
Dim Temp As Integer , Flag As Bit , Key As Byte
Config Timer0 = Timer , Prescale = 1
Load Timer0 , 250
Enable Timer0
Enable Interrupts
On Timer0 Timer0_int
Start Timer0
'-------- initial time is 12:00 ---------
Hours = 12
Minutes = 0
Seconds = 0
Do
If Flag = 1 Then
Flag = 0
Locate 1 , 1
If Hours < 10 Then Lcd "0";
Lcd Hours ; ":" ;
If Minutes < 10 Then Lcd "0";
Lcd Minutes ; ":" ;
If Seconds < 10 Then Lcd "0";
Lcd Seconds
End If
Loop
Timer0_int:
Incr Key '50 x 70 =3500
If Key = 50 Then
Key = 0
'Call Klawisze
Incr Temp
If Temp = 70 Then
Flag = 1
Incr Seconds
Temp = 0
If Seconds = 60 Then
Seconds = 0
Incr Minutes
If Minutes = 60 Then
Minutes = 0
Incr Hours
If Hours = 24 Then
Hours = 0
End If
End If
End If
End If
End If
Return 
Czemu tak uważasz?A co wspólnego ma kot z uC
Natomiast co do assemblera , to być może pisanie w nim programów jest masochizmem , ale jego nieznajomość w przypadku 8/16 bitowych uC , jest poprostu ignoranctwem
Piotrek
Oczywiscie ze takCzy ktos teraz buduje z tradycyjnych cegieł ?
Rozmiar kodu tez, a do tego proponuje Ci napisac podany przez Ciebie przykladowy program pod PIC'em... w Bascomie oczywiscieZatem jaki jest sens uczenia się języka C???
Myślałem że chodzi o rozmiar kodu?
Tak.. to chetnie kupie z 2 tys Atmegi 128 za 1,5zl/szt... za tyle ostatnio kupilem 90S2313. Nawet te 7zl/szt to spoooora roznica. Z reszta wypowiedzi Jecynki nie bede polemizowal... nie mam spadochronu a budzi sie we mnie lek wysokosci.można używać ATmegi dużej np. 32 ,128. kosztują tyle co inne 2kbajtowe(...)Po co wydawać na kostke 6-7zł na 2kb i płakać że kod za duży, wydać 14zł i mamy 32kb
Użytkownicy przeglądający to forum: Obecnie na forum nie ma żadnego zarejestrowanego użytkownika i 20 gości
