Habe aber jetzt ein neues problem....
Wenn ich dieses im Simulateur laufen lasse ist alles ok.
Doch auf dem Mc wenn ich eine Spannungsänderung am pin pa2
habe ändern sich beide Werte im terminal (resultpress + resulttemp)
am pin pao (ADC0) kann ich ändern wie ich will keine änderung am terminal ????????????????????
Habe ich ein probleme mit dem ISR
Kann ich nur einen Chanel zur zeit auslesen ???
Hier der Code

$regfile = "m16def.dat"
$crystal = 8000000
$baud = 9600

'$sim
Config Lcd = 20 * 4
Config Lcdpin = Pin , Db4 = Portb.4 , Db5 = Portb.5 , Db6 = Portb.6 , Db7 = Portb.7 , E = Portb.3 , Rs = Portb.2
Config Lcdmode = Port
Config Adc = Single , Prescaler = Auto , Reference = Avcc

On Adc Adc_isr Nosave
Enable Adc
Enable Interrupts

Dim Dval_1 As Word
Dim Dval_2 As Word
Dim Resulttemp As Single
Dim Resultpress As Single

Declare Sub Calcultemp(resulttemp As Single , Dval_1 As Word)
Declare Sub Calculpress(resultpress As Single , Dval_2 As Word)

Do
Cls
Start Adc
Idle
Stop Adc
Call Calcultemp(resulttemp , Dval_1)
'print UART valeur
Print "11 " ; Fusing(resulttemp , "##.# ")
Locate 1 , 1
Lcd "Temperature =" ; Fusing(resulttemp , "##.# ")
Call Calculpress(resultpress , Dval_2)
Print "22 " ; Fusing(resultpress , "##.#")
Locate 2 , 1
Lcd " Pression =" ; Fusing(resultpress , "##.#")
Waitms 500
Loop

End

Adc_isr:
Dval_1 = Getadc(0)
Dval_2 = Getadc(2)
Return

Sub Calcultemp(resulttemp As Single , Dval_1 As Word)
Resulttemp = Dval_1 - 141
Resulttemp = Resulttemp * 0.16
End Sub

Sub Calculpress(resultpress As Single , Dval_2 As Word)
Dim X As Single
X = 4000 / 1023
Resultpress = Dval_2 * X
End Sub[/code]

Gruss Gerwin