' ********************************************************************** ' ** Programma: AD11ch.BAS - Versione : 1.1 - 26 Gennaio 2001 ** ' ** Compilatore : BASCOM AVR, (IDE V.1.11.4.0, LIB 1.11.4.0) ** ' ** Scheda : K51-AVR ** ' ** 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: Graziano GAIBA ** ' ********************************************************************** ' ' Questo programma visulizza una canale analogico su 11, gestiti da IC12 ' (TLC2543), la visualizzazione avviene nel formato esadecimale, dove ' tramite T1 e T2 si seleziona il canale da convertire, T1 incrementa ' mentre T2 decrementa. ' Ad ogni pressione di un tasto viene emesso un seganle acustico. ' Nei display viene visualizzato prima il canale in conversione, di ' seguito il valore del canale convertito a 12bit in esadecimale. ' '*********************************************************************** ' '****************** Direttive del compilatore ************************** ' $regfile = "8515def.dat" $romstart = &H0 ' indirizzo di partenza del codice $crystal = 5529600 ' frequenza di clock del micro $baud = 19200 'Config Debounce = 50 ' tempo di attesa per convalidare ' avvenuta pressione di un tasto ' Es: 10= 10ms, 50= 50ms ' ' *************** Elenco PIN per 89c1051/2051/4051 ********************* Config Sda = Portd.6 ' Pin 19 segnale dei DATI per I2CBUS Config Scl = Portd.7 ' Pin 18 segnale del Clock per I2CBUS T1 Alias Pinb.0 ' Pin 17 collegato al Tasto T1 Config Pinb.0 = Input T2 Alias Pinb.1 ' Pin 16 collegato al Tasto T2 Config Pinb.1 = Input T3 Alias Pinb.2 ' Pin 15 collegato al Tasto T3 Config Pinb.2 = Input Buz Alias Portd.5 ' Pin 9 collegato al Buzzer Config Pind.5 = Output Cs Alias Portb.3 ' PIN 14 segnale di Chip Select per IC12 Config Pinb.3 = Output Clk Alias Portb.4 ' PIN 13 seganle di Clock per IC12 Config Pinb.4 = Output Din Alias Portb.5 ' PIN 12 segnale di Dato In per IC12 Config Pinb.5 = Output Dout Alias Pinb.6 ' PIN 11 seganle di Dato Out per IC12 Config Pinb.6 = Input ' '****************** Dichiarazione delle costanti *********************** ' Const Saa1064 = &H38 ' Slave address SAA1064 Const Wsaa1064 = &H70 ' Slave address SAA1064 in Write Const Rsaa1064 = &H71 ' Slave address SAA1064 in Read ' ***************** Elenco indirizzi per Saa1064 *********************** Const Ctb = 0 ' Ind. Control byte Const Dig1 = 1 ' Ind. Digit 1 Const Dig2 = 2 ' Ind. Digit 2 Const Dig3 = 3 ' Ind. Digit 3 Const Dig4 = 4 ' Ind. Digit 4 '*********************************************************************** ' ' '****************** Dichiarazione delle procedure ********************** ' Declare Sub Iniz ' Inizializzazione periferiche Declare Sub Ad(byval Ch1 As Byte , Adout2 As Word) ' Conversione analogica Declare Sub Ad12(adin1 As Byte , Adout1 As Word) ' Gestione del A/D converter Declare Sub Cifre (valore1 As Byte , Fh As Byte , Fl As Byte ) ' converte un numero in 2 cifre HEX Declare Sub Digit (digm As Byte ) ' Converte un numero da 0-F in 7 segmenti Declare Sub Vis_word (nw1 As Word) ' visualizza una word in HEX Declare Sub Vis_ch(byval C1 As Byte) ' visualizza il canale in conversione ' '****************** 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 Nb As Byte ' byte per DY1 e DY2, o DY3 e DY4 Dim Nw As Word ' word per DY1, DY2, DY3 e DY4 Dim Adin As Byte ' dato da spedire a IC12 Dim Adout As Word ' conversione letta da IC12 Dim C As Byte ' indica il canale da convertire Dim Ch As Byte ' canale in conversione Dim Valore As Byte ' uso generico Dim X As Byte , Y As Byte , Z As Byte ' uso generico Dim 1bit As Bit ' uso generico ' '************************* Programma main ****************************** ' Main: ' Ritardo Assestamento segnali Waitms 1 Call Iniz ' inizializzazioni C = 0 ' canele 0 Do For Z = 1 To 10 ' visualizzo per 10 volte ' Ch = C Call Vis_ch (c) ' il canale da convertire Debounce T1 , 0 , Incrementa , Sub Debounce T2 , 0 , Decrementa , Sub Waitms 50 ' ritardo Next Z For Z = 1 To 35 ' visualizzo per 35 volte ' Ch = C Call Ad (c , Adout) ' conversione A/D Call Vis_word (adout) ' visualizza il valore A/D in HEX Debounce T1 , 0 , Incrementa , Sub Debounce T2 , 0 , Decrementa , Sub Waitms 50 ' ritardo Next Z Loop ' loop infinito Incrementa: ' Incremento il canale da convertire Buz = 0 ' attivo il buzzer Waitms 50 ' ritardo If C < 10 Then ' se minore di 10 Incr C ' lo incremento Else ' altrimenti C = 0 ' seleziono il canale 0 End If Buz = 1 ' disattivo il buzzer Return Decrementa: ' decremento il canale da convertire Buz = 0 ' attivo il buzzer Waitms 50 ' ritardo If C = 0 Then ' e selezionato il canale 0 C = 10 ' seleziono il canale 10 Else ' altrimenti Decr C ' decremento il canale End If 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 Cs = 1 Clk = 0 ' pongo a zero la linea del Clk Din = 0 ' pongo a zero la linea dei dati da trasmettere Buz = 1 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 End Sub ' ' ************************************************************************ ' ' ******************* Conversione analogica ****************************** ' Questa procedura permette di eseguire una conversione analogica a 12 bit ' su IC12 (TLC2543), in tutti e 11 canali esterni del componente. ' Parametri: ' Ingresso : ch as byte, indica il canale da convertire 0..10 ' Uscita : Adout as word, indica il valore convertito a 12 bit 0..FFF(0V..+Vref) ' ************************************************************************ ' Sub Ad(ch1 As Byte , Adout2 As Word) ' conversione analogica If Ch1 > 10 Then ' il canale maggiore di 10 Ch1 = 10 ' lo egualio a 10 End If Ch1 = Ch1 * &H10 ' shift a destra di 4 Ch1 = Ch1 Or &B00001000 ' seleziono la conversione a 12 bit Call Ad12(ch1 , Adout2) ' leggo la conversione precedente Delay ' ritardo Call Ad12(ch1 , Adout2) ' leggo la conversione richiesta End Sub ' ******************* Gestione del A/D converter ************************* ' Questa procedura esegue il colloquio seriale con IC12 (TLC2543), ' ad ogni impulso di Clock trasmette un bit e ne leggie un altro. ' Parametri: ' Ingresso : adin as byte, indica il dato da trasmettere a IC12 ' Uscita : Adout as word, indica il valore convertito a 12 bit 0..FFF(0V..+Vref) ' ************************************************************************ ' Sub Ad12(adin1 As Byte , Adout1 As Word) ' Gestione del A/D converter Adout1 = 0 ' azzero il valore convertito Cs = 0 ' abbaso il segnale CS Delay For X = 1 To 12 ' eseguo 12 cicli Clk = 0 ' abbasso il Clock Delay Y = Adin1 And &H80 ' leggo il Bit7 di Adin Adin1 = Adin1 And &H7F ' elimino il bit7 di Adin Adin1 = Adin1 * 2 ' shift a destra di 1 If Y = &H80 Then ' testo il bit7 di Adin Din = 1 ' setto a 1 il segnale per IC12 Delay Else ' altrimeti Din = 0 ' setto a 0 il segnale per IC12 Delay End If Clk = 1 ' alzo il segnale di Clock Delay 1bit = Dout ' leggo il dato trasmesso da IC12 If 1bit = 1 Then ' testo se uguale a 1 Adout1 = Adout1 Or 1 ' attivo il bit0 di Adout End If If X <> 12 Then ' non sono nel ciclo 12 Adout1 = Adout1 * 2 ' shift a destra di 1 End If Next X ' fine ciclo Clk = 0 ' abbasso il Clock Delay Cs = 1 ' also il CS Delay 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 (digm As Byte ) ' Converte un numero da 0-F in 7 segmenti If Digm < 16 Then ' il numero risulta minore di 16 Digm = Lookup(digm , Tab_7seg) ' leggo in tabella il valore Else Digm = 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 (valore1 As Byte , Fh As Byte , Fl As Byte ) ' converte un numero in due cifre HEX Fh = Valore1 And &HF0 ' prelevo i 4 bit alti Fh = Fh / 16 ' sposto in basso i 4 bit alti Fl = Valore1 And &H0F ' prelevo i 4 bit bassi End Sub ' ' *********************** Visualizza una Word in HEX ********************** ' Nei primi 2 display (DY1 e DY2) viene visualizzato il byte alto, mentre ' nei 2 rimanenti il byte basso (DY3 e DY4). ' Questa procedura permette di visualizzare una Word nel formato esadecimale. ' Es: 65535= FFFFH, 257= 101H ecc. ' Parametri: ' Ingresso : Nw as word, numero da visualizzare in HEX ' Nb as byte, preleva il byte alto o basso di Nw ' Uscita : nulla ' ************************************************************************ ' Sub Vis_word (nw1 As Word) ' visualizza un byte in HEX I2cstart ' sequenza di START I2cwbyte Wsaa1064 ' slave address I2cwbyte Dig1 ' punto al diplay 1 (DY1) Nb = High(nw1) Call Cifre (nb , Cifh , Cifl) ' converto il numero1 in 2 cifre HEX Call Digit(cifh) ' converto la cifra in HEX in 7 seg. I2cwbyte Cifh ' scrivo il display DY1 Call Digit(cifl) ' converto la cifra in HEX in 7 seg. I2cwbyte Cifl ' scrivo il display DY2 Nb = Low(nw1) Call Cifre (nb , Cifh , Cifl) ' converto il numero1 in 2 cifre HEX Call Digit(cifh) ' converto la cifra in HEX in 7 seg. I2cwbyte Cifh ' scrivo il display DY3 Call Digit(cifl) ' converto la cifra in HEX in 7 seg. I2cwbyte Cifl ' scrivo il display DY4 I2cstop ' sequenza di stop End Sub ' ' ******************* Conversione analogica ****************************** ' Questa procedura permette di visualizzare quale canale risulata essere in ' conversione, scrivendo "C", "H", ed il numero del canale in Hex. ' Parametri: ' Ingresso : c as byte, indica il canale in conversione 0..10 ' Uscita : nessuna ' ************************************************************************ ' Sub Vis_ch (c1 As Byte) ' visualizza il canale in conversione I2cstart ' sequenza di START I2cwbyte Wsaa1064 ' slave address I2cwbyte Dig1 ' punto al diplay 1 (DY1) I2cwbyte 0 ' scrivo il display DY1, off I2cwbyte &H39 ' scrivo il display DY2, C I2cwbyte &H76 ' scrivo il display DY3, H ' Y = C1 Call Digit(c1) ' converto la cifra in HEX in 7 seg. I2cwbyte C1 ' 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 ' ************************************************************************** '