' ********************************************************************** ' ** Programma: TERMOF2.BAS - Versione : 1.1 - 05 Giugno 2000 ** ' ** Compilatore : BASCOM 8051 DEMO, (IDE V.2.0.0.0, LIB V.2.0) ** ' ** Scheda : K51-AVR e GPC F2 ** ' ** Ditta: grifo(r) ITALIAN TECHNOLOGY ** ' ** Via Dell' Artigiano 8/6 40016 San Giorgio di Piano (BO) ** ' ** Tel.+39 051 892 052 Fax +39 051 893 661 ** ' ** http://www.grifo.com http://www.grifo.it ** ' ** sales@grifo.it tech@grifo.it grifo@grifo.it ** ' ** ** ' ** Realizzato da: Adriano Pedrielli ** ' ********************************************************************** ' ' Questo programma legge la temperatura misurata da IC3 (DS1621) e la ' visualizza in gradi centigradi con valori che vanno da -55 a +125,tramite ' 2 linee TTL pilotate dalla scheda GPC F2 avente un microcontrollore della ' famiglia 51. ' ' La gestione di questo programma avviene tramite la seriale RS232, quindi e' ' indispensabile collegare una COM libera del PC al connettore CN3 della GPC F2. ' Configurare il terminale del BASCOM 8051 nel menu OPTION/ COMUNICATION/ ' selezionare la COM e settare il BAUD a 9600, none, 8, 1. ' ' Eseguire i seguenti collegamenti come segue : ' GPC F2 K51 AVR ' +5Vdc (pin15 CN3) ----> +5Vdc (pin1 CN6) ' Gnd (pin16 CN3) ----> Gnd (pin2 CN6) ' T0 P3.4 (pin3 CN3) ----> SD (pin7 CN6) ' T1 P3.5 (pin1 CN3) ----> SC (pin8 CN6) ' ' Prima di compilare selezionare nel menu Option/Compiler/Misc/ : ' Byte End 5F. ' '*********************************************************************** ' '****************** Direttive del compilatore ************************** ' $regfile = "REG51.DAT" ' elenco registri della CPU $romstart = &H8050 ' indirizzo di partenza del codice ' &H8050 per MO52 Rel.1.1 in RAM IC8 ' &H0000 per EPROM senza RAM IC8 $ramstart = &HD000 ' ind. per variabili in RAM esterna $ramsize = &H2800 ' assegno 10K di RAM esterna per variabili $crystal = 11059200 ' frequenza di clock della CPU $baud = 9600 ' velocità di comunicazione RS-232 $large ' indirizzamento a 16 bit ' ' *************************** Elenco PIN per 8xc51 ********************* ' Config Sda = P3.4 ' Pin3 CN3 GPC F2, segnale dei DATI ' per I2CBUS Config Scl = P3.5 ' Pin1 CN3 GPC F2, segnale del Clock ' per I2CBUS Buz Alias P1.2 ' Pin 3 del micro sulla GPC F2, che ' risulta essere connesso al buzzer ' di bordo. Const Cler = 12 ' codice di clear screen Const Bel = 7 ' codice di Bell ' '****************** Dichiarazione delle costanti *********************** ' Dim Saa1064 As Const &H38 ' Slave address SAA1064 Dim Wsaa1064 As Const &H70 ' Slave address SAA1064 in Write Dim Rsaa1064 As Const &H71 ' Slave address SAA1064 in Read ' ***************** Elenco indirizzi per Saa1064 *********************** Dim Ctb As Const 0 ' Ind. Control byte Dim Dig1 As Const 1 ' Ind. Digit 1 Dim Dig2 As Const 2 ' Ind. Digit 2 Dim Dig3 As Const 3 ' Ind. Digit 3 Dim Dig4 As Const 4 ' Ind. Digit 4 ' ' ********************************************************************** ' Dim Ds1621 As Const &H4C ' Slave address DS1621 Dim Wds1621 As Const &H99 ' Slave address DS1621 in Write Dim Rds1621 As Const &H98 ' Slave address DS1621 in Read ' ***************** Elenco comandi per DS1621 ************************** Dim Cfg As Const &HAC ' R/W Reg. Config per DS1621 Dim Rtemp As Const &HAA ' Leggi temperatura 2 bytes Dim Strct As Const &HEE ' Start conversione temperatura Dim Stpct As Const &H22 ' Stop conversione temperatura ' '****************** Dichiarazione delle variabili ********************** ' Dim Valore As Byte ' valore da scrivere o leggere su I2CBUS ecc. Dim Dig As Byte ' numero in formato 7 seg Dim Th As Byte ' byte alto di temperatura Dim Tl As Byte ' byte basso di temperatura Dim Cifc As Byte ' cifra delle centinaia Dim Cifd As Byte ' cifra delle decine Dim Cifu As Byte ' cifra delle unita Dim Getdati(2) As Byte ' vettore di 3 byte Dim T As Byte ' codice del tasto premuto ' '****************** Dichiarazione delle procedure ********************** ' Declare Sub Iniz ' Inizializzazione periferiche Declare Sub Temperatura ' leggo la temperatura Declare Sub Cifre (valore As Byte , Cifc As Byte , Cifd As Byte , Cifu As Byte) ' Converte TH in gradi a cifre Declare Sub Digit (dig As Byte ) ' Converte un numero da 0-9 in 7 segmenti Declare Sub Vis_temp (th As Byte , Tl As Byte) ' visualizza la temperatura ' '************************* Programma main ****************************** ' Main: ' Ritardo Assestamento segnali Waitms 1 Call Iniz ' inizializzazioni Do Do Call Temperatura ' lettura temperatura Th = Getdati(0) ' prelevo il byte alto Tl = Getdati(1) ' prelevo il byte basso Call Vis_temp(th , Tl) ' visualizzo la temperatura T = Inkey ' leggo un carattere dalla seriale Loop Until T <> 0 ' esco se ho ricevuto un carattere If T = 27 Then ' e' stato premuto il tasto ESC Exit Do ' esco dal ciclo infinito Else Print Chr(bel); ' tasto non valido End If Loop Ljmp 0 ' esco e rilancio il monitor End ' '************************ Fine del programma *************************** ' ' '**************************** Procedure ******************************** ' ' ******************* Inizializzazione delle periferiche ***************** ' Questa procedura esegue tutte le inizializzazioni del sistema. ' Parametri: ' Ingresso : nulla ' Uscita : nulla ' ************************************************************************ ' Sub Iniz ' Inizializzazione periferiche Print Chr(cler); ' cancellazione dello schermo Print "Demo K51-AVR visualizzazione temperatura da IC3(DS1621) tramite GPC F2" Print "rel.1.1 05/06/2000" Print Print "Premi ESC per uscire" Do I2creceive Rsaa1064 , Valore ' leggo il registro di stato Loop Until Valore = 0 ' attendo accensione SAA1064 I2cstart ' sequenza di Start per I2CBUS I2cwbyte Wsaa1064 ' comunico lo Slave address I2cwbyte Ctb ' Punto al registro di controllo I2cwbyte &B00100111 ' bit0 =1 dynamic mode ' bit1 =1 digit 1+3 not blanked ' bit2 =1 digit 2+4 not blanked ' bit3 =0 no test segment ' bit4 =0 no 3mA segment current ' bit5 =1 6mA segment current ' bit6 =0 no 12mA segment current ' bit7 =0 indifferente I2cwbyte 0 ' scrive DY1 off I2cwbyte 0 ' scrive DY2 off I2cwbyte 0 ' scrive DY3 off I2cwbyte 0 ' scrive DY4 off I2cstop I2csend Wds1621 , Cfg ' chiedo, il Reg. di Config. I2creceive Rds1621 , Valore ' leggo il Reg. di Config. Valore = Valore And 1 ' Elimino tutti i bit tranne Bit 0 If Valore = 1 Then ' risulta non attiva la conversione ' di temperatura I2cstart ' sequenza di Start per I2CBUS I2cwbyte Wds1621 ' comunico lo Slave address I2cwbyte Cfg ' chiedo, il Reg. di Config. I2cwbyte &B00001010 ' Scrivo il Reg. di Config. ' bit1= 1 polarita "1" ' bit0= 0 conversione continua I2cstop Waitms 50 ' ritardo End If I2csend Wds1621 , Strct ' start conversione Temperatura End Sub ' ' ********************** Leggo la temperatura **************************** ' Questa procedura legge il valore di temperatura ' Parametri: ' Ingresso : nulla ' Uscita : Getdati(0), contiene TH, byte alto temperatura ' Getdati(1), contiene TL, byte basso temperatura ' ************************************************************************ ' Sub Temperatura ' leggo la temperatura I2csend Wds1621 , Rtemp ' chiedo, lettura temperatura I2creceive Rds1621 , Getdati() , 0 , 2 ' leggo TH e TL End Sub ' ' ***************** Converte un numero da 0 a 9 in 7 segmenti *********** ' Questa procedura converte una cifra da 0 a 9 nel formato 7 segmenti, se ' il valore e maggiore = 11 il display risulta spento, se = 10 viene ' rappresentato il segno negativo. ' Parametri: ' Ingresso : dig as byte, valore da 0 a 9 ' Uscita : dig as byte, valore in formato 7 segmenti. ' ************************************************************************ ' Sub Digit (dig As Byte ) ' Converte un numero da 0-F in 7 segmenti If Dig < 10 Then ' il numero risulta minore di 16 Dig = Lookup(dig , Tab_7seg) ' leggo in tabella il valore Else If Dig > 10 Then ' se vera spengo il dispaly Dig = 0 Else ' risulta essere = 10 Dig = 64 ' visualizzo il segno "-" End If End If End Sub ' ' ***************** Converte 1 byte in due cifre temperaturav ************* ' Questa procedura converte 1 byte da 0 a 255 in temperatura dove da ' 0 a 125 sono gradi centigradi positivi (+0..+125), mentre da 255 a 201 sono ' gradi centigradi negativi (-0...-55), in pratica il bit7 indica il segno, ' i gradi negativi si ottengono con il complemento. Es: Not 255=0, Not 201=54 ' Parametri: ' Ingresso : Valore as byte, valore da 0 a 255 ' Uscita : ' ************************************************************************ ' Sub Cifre (valore As Byte , Cifh As Byte , Cifl As Byte , Cifu As Byte) If Valore > 127 Then ' la temperatura risulta negativa Cifc = 10 ' attivo il segno meno Valore = Not Valore ' complemento il valore Else If Valore > 99 Then ' se positiva, supera 99 Cifc = 1 ' attivo il numero 1 delle centinaia Valore = Valore - 100 ' sottraggo 100 Else Cifc = 11 ' non supera 99, spengo la cigra ' delle centinaia End If End If If Valore > 9 Then ' supera 9 Cifd = Valore / 10 ' ricavo la cifra delle decine Cifu = Cifd * 10 ' ricavo la cifra delle unita Valore = Valore - Cifu Cifu = Valore Else If Cifc = 11 Then ' minore di 9 e cifra centinaia spenta Cifd = 11 ' spengo la cifra delle decine Else If Cifc = 10 Then ' minore di nove, e temp. negativa Cifd = 11 ' spengo la cifra delle decine Else Cifd = 0 ' minore di 9 e cifra centinaia attiva ' visualizzo uno zero End If End If Cifu = Valore ' salvo il valore delle unita End If End Sub ' ' *********************** Visualizza la temperatura *********************** ' Questa procedura permette di visualizzare la temperatura indicata da 2 byte ' TH byte alto e TL byte basso. ' TL indica il mezzo grado 0 o 128 (0 .. 0.5). ' TH indica i gradi 0 a 125 (+0..+125), e 255 a 21 ( -0..-54). ' Parametri: ' Ingresso : TH as byte, valore byte alto ' TL as byte, valore byte basso ' Uscita : nulla ' ************************************************************************ ' Sub Vis_temp (th As Byte , Tl As Byte) ' visualizza la temperatura I2cstart ' sequenza di START I2cwbyte Wsaa1064 ' slave address I2cwbyte Dig1 ' punto al diplay 1 (DY1) Call Cifre(th , Cifc , Cifd , Cifu) ' converto in 3 cifre Call Digit(cifc) ' converto la cifra centinaia in 7 seg. I2cwbyte Dig ' scrivo il primo display Call Digit(cifd) ' converto la cifra decine in 7 seg. I2cwbyte Dig Call Digit(cifu) ' converto la cifra unita in 7 seg. Dig = Dig Or 128 ' attivo il decimal point I2cwbyte Dig ' scrivo il terzo display If Tl = &H80 Then ' visualizzo il mezzo grado Call Digit(5) ' converto la cifra unita in 7 seg. Else Call Digit(0) ' converto la cifra unita in 7 seg. End If I2cwbyte Dig ' scrivo il quarto display I2cstop ' sequenza di stop End Sub ' ' ************* Tabella conversione per cifra a 7 segmenti ***************** Tab_7seg: ' num. 0 1 2 3 4 5 6 7 8 9 Data &H3F , &H06 , &H5B , &H4F , &H66 , &H6D , &H7D , &H07 , &H7F , &H6F ' ************************************************************************** '