βοηθεια για προγραμμα ATMEL

[rep]

Εχω το εξης κολημα.το παρακατω κομματι ειναι απο ενα κωδικα που γραφω για το επομενο project μου.
Power_off: μεταβλητη που την καλω απο το κεντρικο μενου
Porta = 0 μηδενιζω την πορτα που θελω
Lcd "POWER OFF IN 3 SEC "ενδειξη στη οθονη
For I = 1 To 30 (dim I as byte)
If Pinb.1 = 0 Then pinb.1 kai pinb.0 ειναι ενας encoder
If Pinb.0 = 0 Then για την λειτουργια του menu
Goto Main1
Waitms 100
Next I
Else
Toggle Portb.5 αυτο το πιν θελω να κλεισει οταν
End If δεν εντοπισει καμια κινηση στο encoder
End If για 3 δευτερολεπτα.
το προβλημα μου ειναι οτι δεν λειτουργει...οποιος μπορει βοηθαει.

[mariosm]

Εχεις δυο συνεχομενα if που εκτελουν το ιδιο loop.
Ετσι οπως το εχεις το πρωτο if ειναι αχρηστο.
Επισης η εντολη toggle δεν κλεινει το portb.5 αλλα κανει κυκλικη εναλλαγη της καταστασης. Δηλαδη αν ειναι 1 θα γινει 0 και αν ειναι 0 θα γινει 1. Ειναι πιο σωστο στη περιπτωση αυτη να γραψεις Reset portb.5 ή Set portb.5.
Βαλε αν θελεις ολο τον κωδικα χωρις σχολια για να σου πω ακριβως τι πρεπει να κανεις.

[rep]

Το πρωτο toggle το κανει οταν ξεκηναει το προγραμμα και κλεινει μια επαφη για να δωσει στο επεξεργαστη +5v.θα σου το στειλω σε πμ ολο αν και δεν το εχω ετοιμο.

[rep]

Μαριε ευχαριστω θα το δοκιμασω το βραδυ.

[rep]

Αν υπαρχει καποιος ας βοηθησει να ξεκολησω απο το προβλημα.(στο ποστ.1)

[sabouras]

Η επανάληψη του for συνεχίζει μονο οταν εκτελεστεί και είναι αληθες το δευτερο if. Στη περιπτωση που αυτο δεν εκτελεστει ο βρογχος του for δεν κλεινει ποτε. Μετάφερε την εντολή Next I μετά το τέλος του δεύτερου end if.

[rep]

δεν δουλευει.πως να εκτελεσει την εντολη next i απο την στιγμη που το toggle portb.5 που ειναι πριν κοβει την τροφοδοσια του επεξεργαστη?