'Vorlage für Thermometer mit LM75 '------------------------------------------------------------------------ $regfile = "attiny2313.dat" 'Attiny2313 $crystal = 4000000 $baud = 9600 Ddrb = &B11111111 'Port B als Ausgangsport Ddrd = &B01110000 'D4, D5, D6 als Ausgang; Rest als Eingang Portd = &B10001111 'Eingänge auf high legen Config Scl = Portb.5 Config Sda = Portb.7 Config Lcd = 16 * 2 Config Lcdpin = Pin , Db4 = Portb.0 , Db5 = Portb.1 , Db6 = Portb.2 , Db7 = Portb.3 , E = Portb.6 , Rs = Portb.4 Config Lcdbus = 4 Initlcd Cls Dim Wert As Byte '****************** HAUPTPROGRAMMSCHLEIFE ********************************** ' Do I2cstart I2cwbyte &B10010001 I2crbyte Wert , Nack I2cstop Cls Lcd Wert 'Ausgabe Wert auf LCD Waitms 500 Printbin Wert Waitms 500 Loop End '************* ENDE HAUPTPROGRAMM ******************************************