Hi,
wenn du einen Pin abfragen willst, dann heisst es If Pina.1= und NICHT if Porta =
Daran muß man sich gewöhnen.
Also Pin für Eingang, Port für Ausgang.
Außer bei der Konfiguration einzelner Eingänge
Da geht dann zB. config Pina.1 = Output

Allerdings kannst du da nur 0 und 1 abfragen.
Wenn du Analogwerte abfragen willst, dann mußt du

1. AD Wandler konfigurieren. Wenn Referenzspannung an AREF anliegt zB. so:

Config Adc = Single , Prescaler = Auto , Reference = Off

2. AD Wandler starten

Start Adc

3. Die Eingänge abfragen:

Analogwert= Getadc(0)



Dann kannst du abfragen.
If analogwert > 800 then : mach_was : endif
(Analogwerte gehen bei 10 Bit Auflösung von 0 bis 1023)
Den Wert kannst du dann ja noch in Volt umrechnen.

abgesehen davon gehen deine DO LOOP Schleifen nicht so, wie du dir das vorstellst.
Aus den inneren DO LOOPs kommst du ja nicht mehr raus.
Die müssen weg.



Gruß
Christopher