'TEMPERATURBEISPIEL.BAS $regfile = "M8def.dat" 'Frequenz= 1 MHZ intern durch setzen der entsprechenden Fuses im STK500 'Dazu paßt eine Baudrate von 4800 $baud = 4800 'Annahme: ADC0 ist der Eingang zum Messen der Temperatur 'Definition der Variablen Dim Steigung As Single Dim Konstante As Single Dim Temperatur As Single Dim Temp As Integer Dim Bitwert As Word 'Initialisierung Steigung = 0.503571 Konstante = -232.69 Config Adc = Single , Prescaler = Auto , Reference = Off Start Adc Anfang: Bitwert = Getadc(0) 'Liest den ADC Kanal 0 Temperatur = Bitwert 'Wechsel von Word in single-Variable Temperatur = Temperatur * Steigung Temperatur = Temperatur + Konstante 'Temperatur mit mehreren Kommastellen Temp = Temperatur 'Temperatur in Ganzzahl Goto Anfang End 'end program