Na początek parę prostych programów które można sprawdzić na płytce testowej






A {
LINE-HEIGHT: 100%
}




Na początek parę prostych programów które można
sprawdzić na płytce testowej


 

Wizytówka

Wyświetlacz
LED
Pamięć
EPROM
Odbiornik
kodu RC5
Poszukiwanie
adresu układu podpiętego do magistrali I2C
Wyświetlacz
LCD
Miernik
częstotliwości


Wizytówka
Do płytki testowej  w miejsce procka wpinamy emulator sprzętowy.
W oknie programu wpisujemy:
$sim 'deklaracja pracy z symulatoremConfig Lcd = 16 * 1 ' konfiguracja
rodzaju wyswietlaczaCls ' inicjalizacja wyświetlaczaLcd "Bascom
8051"
Po urucomieniu symulatora na wyświetlaczu powinien pojawić się napis -
"Bascom 8051"
 
Do góry


Wyświetlacz LED
Należy wykonać następujące połączenia: 




Port procka


Segment LED



P1.0

A


P1.1

B


P1.2

C


P1.3

D


P1.4

E


P1.5

F


P1.6

G

 
 
Dim X As ByteDim Cyfra As Byte , Segment As ByteDim Konwerter As
BitDoPrint "Podaj liczbę od 0 do 9"Input CyfraGosub
KonwerterPrint P1LoopKonwerter:Restore TabelaFor X =
0 To 9Read SegmentIf X = Cyfra ThenP1 = SegmentExit ForEnd
IfNextReturnTabela:Data 192 , 249 , 164 , 176 , 153 , 146 ,
130 , 248 , 128 , 144
 
Do
góry                    


Zapis do pamięci Eprom
Config Sda = P1.6Config Scl = P1.7Declare Sub Write_eeprom(adres As
Byte , Value As Byte)Declare Sub Read_eeprom(adres As Byte , Value As
Byte)Dim R As ByteDim Value As Byte , Adres As ByteFor R = 0 To
5Print "Podaj wartosć " ; R ; "[0...255]";Input ValueCall
Write_eeprom , R , ValueNext RPrint "Weryfikacja zapisu:"For R =
0 To 5Call Read_eeprom , R , ValuePrint "Wartość " ; R ; " = " ;
ValueNext REndSub Write_eeprom(adres As Byte , Value As
Byte)I2cstartI2cwbyte 160I2cwbyte AdresI2cwbyte
ValueI2cstopWaitms 10End SubSub Read_eeprom(adres As Byte ,
Value As Byte)I2cstartI2cwbyte 160I2cwbyte
AdresI2cstartI2cwbyte 161I2crbyte Value , 9I2cstopEnd
Sub
 
Do góry


Odbiornik kodu RC5
Dim Kod As BitDim Command As Byte , Subadress As ByteConfig Lcd = 16
* 1aReset Tcon.0On Int0 Receiverc5Enable Int0Enable
InterruptsClsLcd "Czekam na RC5"Cursor OffDoIf Kod = 1
ThenDisable Int0ClsLcd "Adr:" ; Subadress ; "Rozkaz:" ;
CommandKod = 0Enable Int0End
IfLoopReceiverc5:Getrc5(subadress , Command)Kod =
1Return
 
Do góry


Poszukiwanie adresu układu podpiętego do magistrali I2C
$simConfig Lcd = 16 * 1aDim Adres As BytePrint "start
poszukiwania"ClsLcd "Start"ClsFor Adres = 0 To 254 Step
2I2cstartI2cwbyte AdresI2cstopIf Err = 0 ThenPrint "Układ
pod adresem" ; AdresClsLcd "Adres ukladu " ; Adres ;
","ElsePrint "pod adresem " ; Adres ; "nie ma układu"End IfWait
1Next AdresPrint "koniec"ClsLcd "koniec"
 
Do góry


Wyświetlacz LCD
Wyświetla tekst wpisany do tabeli
$simConfig Lcd = 16 * 1Dim Tekst As String *
10        ' cyfra po znaku mnożenia rezerwuje
ilość znaków jakie ma zawierać zmienna tekstowaDim A As ByteDim C As
ByteRestore TabelaFor A = 1 To 4Read TekstClsLcd
TekstFor C = 1 To 200Next CNext ATabela:Data "Jestem" ,
"Studentem" , "bez" , "pieniedzy" 
Do góry


Miernik częstotliwości
Config Timer0 = Counter , Gate = External , Mode = 1Config Timer1 = Timer
, Gate = Internal , Mode = 1Config Lcd = 16 * 1Dim Frequency As
LongDim Temp As ByteDim Counts As ByteDeclare Sub 1 SekundaOn
Timer1 Timer1_intEnable InterruptsEnable Timer0Enable
Timer1ClsDoClsLcd "FRQ=' " ; Frequency ; "Hz"Frequency =
0Counter0 = 0Temp = 0Call 1sekundaStop Counter0Frequency =
65536 * TempTemp = Counter0Frequency = Frequency + TempLoopSub
1sekundaCounts = 0Counter1 = 4150Start Timer1Start
Timer0DoIf Counts = 15 ThenStop Timer1Stop Timer0Exit
DoEnd IfLoopEnd SubTimer1_int:Counter1 = 4150Start
Timer1Incr CountsReturn
 
Do góry


Część programów przepisana z Elektroniki dla wszystkich.Ostatnia
modyfikacja: 03
lutego, 2001
.