' ********************************************************************** ' ** Programma: DAF2.BAS - Versione : 1.1 - 22 Maggio 2000 ** ' ** Compilatore : BASCOM 8051, (IDE V.1.0.0.20, LIB V.1.20) ** ' ** 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 permette di gestire un canala D/A converter su IC2 ' (PCF8591),tramite 2 linee TTL pilotate dalla scheda GPC F2 avente un ' microcontrollore della famiglia 51, agendo sul tasto 1 si incrementa il ' valore, mentre sul 2 decrementa il valore il quale viene visualizzato nel ' formato esadecimale sui display a 7 segmenti. ' ' 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) ' ' Ad ogni pressione di un tasto viene emesso un seganle acustico. ' 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 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 Pcf8591 As Const &H48 ' Slave address PCF8591 Dim Wpcf8591 As Const &H90 ' Slave address PCF8591 in Write Dim Rpcf8591 As Const &H91 ' Slave address PCF8591 in Read ' '****************** Dichiarazione delle variabili ********************** ' Dim Dig As Byte ' valore di un digit Dim Cifh As Byte ' cifra 4 bit alti in HEX Dim Cifl As Byte ' cifra 4 bit bassi in HEX Dim N1 As Byte ' numero 1 byte per DY3 e DY4 Dim Valore As Byte ' numero da convertire Dim T As Byte ' codice del tasto premuto Dim Tstr As String * 1 ' stringa di un carattere ' '****************** Dichiarazione delle procedure ********************** ' Declare Sub Iniz ' Inizializzazione periferiche Declare Sub Dac(valore As Byte) ' Gestione del D/A converter Declare Sub Cifre (valore As Byte , Cifh As Byte , Cifl As Byte ) ' converte un numero in 2 cifre HEX Declare Sub Digit (dig As Byte ) ' Converte un numero da 0-F in 7 segmenti Declare Sub Vis_num (n1 As Byte) ' visualizza un byte in HEX ' '************************* Programma main ****************************** ' Main: ' Ritardo Assestamento segnali Waitms 1 Call Iniz ' inizializzazioni Valore = 0 Do Do Call Dac(valore) ' Gestione del D/A converter Call Vis_num(valore) ' visualizzo il byte in HEX T = Inkey ' leggo un carattere dalla seriale Loop Until T <> 0 ' esco se ho ricevuto un carattere Tstr = Chr(t) ' converto il carattere in stringa Select Case Tstr ' controllo il tasto premuto Case "1" : Gosub Incrementa Case "2" : Gosub Decrementa Case "3" : Ljmp 0 ' esco e rilancio il monitor Case Else : Print Chr(bel); ' tasto non valido End Select Loop Incrementa: Waitms 50 ' ritardo Incr Valore Sound Buz , 100 , 250 ' attivo il buzzer Buz = 1 ' disattivo il buzzer Return Decrementa: Waitms 50 ' ritardo Decr Valore Sound Buz , 100 , 250 ' attivo il buzzer Buz = 1 ' disattivo il buzzer Return 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 per D/A IC2(PCF8591) tramite GPC F2 rel.1.1 22/05/2000" Print Print " 1) Incrementa il valore del D/A converter" Print " 2) Decrementa il valore del D/A converter" Print " 3) Esci" Print Print "Premi uno dei 3 tasti sulla tastiera del P.C." 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 94 ' scrive DY1 "d" I2cwbyte 119 ' scrive DY2 "A" I2cwbyte 0 ' scrive DY3 off I2cwbyte 0 ' scrive DY4 off I2cstop End Sub ' ' ***************** Gestione del D/A converter **************************** ' Questa procedura permette di settare un valore in uscita al D/A converter, ' disponibile su IC2 (PCF8591). ' Parametri: ' Ingresso : Valore as byte, valore da 0 a 255 (0v ..+Vref) ' Uscita : ' ************************************************************************ ' Sub Dac(valore As Byte) ' Gestione del D/A converter I2cstart ' sequenza di Start per I2CBUS I2cwbyte Wpcf8591 ' comunico lo Slave address I2cwbyte &H40 ' comando di attivazione D/A I2cwbyte Valore ' valore per il D/A I2cstop End Sub ' ' ***************** Converte un numero da 0 a F in 7 segmenti *********** ' Questa procedura converte una cifra da 0 a F nel formato 7 segmenti, se ' il valore e maggiore di F il display risulta spento. ' Parametri: ' Ingresso : dig as byte, valore da 0 a F ' 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 < 16 Then ' il numero risulta minore di 16 Dig = Lookup(dig , Tab_7seg) ' leggo in tabella il valore Else Dig = 0 ' se = 10 o superiore azzero End If End Sub ' ' ***************** Converte 1 byte in due cifre HEX ******************** ' Questa procedura converte 1 byte da 0 a 255 in due cifre esadecimali a ' 4 bit. ' Parametri: ' Ingresso : Valore as byte, valore da 0 a 255 ' Uscita : Cifh as byte, cifra del nibble alto ' Cifl as byte, cifra del nibble basso ' ************************************************************************ ' Sub Cifre (valore As Byte , Cifh As Byte , Cifl As Byte ) ' converte un numero in due cifre HEX Cifh = Valore And &HF0 ' prelevo i 4 bit alti Cifh = Cifh / 16 ' sposto in basso i 4 bit alti Cifl = Valore And &H0F ' prelevo i 4 bit bassi End Sub ' ' *********************** Visualizza un byte in HEX ********************** ' Questa procedura permette di visualizzare un byte nel formato esadecimale. ' sui display DY3 e DY4. Es: 255= FFH, 32= 20H ecc. ' Parametri: ' Ingresso : N1 as byte, numero da visualizzare in HEX ' Uscita : nulla ' ************************************************************************ ' Sub Vis_num (n1 As Byte) ' visualizza un byte in HEX I2cstart ' sequenza di START I2cwbyte Wsaa1064 ' slave address I2cwbyte Dig3 ' punto al diplay 3 (DY3) Call Cifre(n1 , Cifh , Cifl) ' converto il numero1 in 2 cifre Call Digit(cifh) ' converto la cifra decine in 7 seg. I2cwbyte Dig ' scrivo il display DY3 Call Digit(cifl) ' converto la cifra unita in 7 seg. I2cwbyte Dig ' scrivo il display DY4 I2cstop ' sequenza di stop End Sub ' ' ************* Tabella conversione per cifra a 7 segmenti da 0 a 15 ******* Tab_7seg: ' num. 0 1 2 3 4 5 6 7 8 9 Data &H3F , &H06 , &H5B , &H4F , &H66 , &H6D , &H7D , &H07 , &H7F , &H6F ' num. A b C d E F Data &H77 , &H7C , &H39 , &H5E , &H79 , &H71 ' ************************************************************************** '