Μάθημα στην MikroBasic No1

[DT200]

ελπίζω να μην παρεξηγηθώ από το forum με αυτή μου την κίνηση ,
αλλά ίσος να υπάρχει κάποιος που να θέλει να μάθει όπως ο billtech
και επειδή το θέμα με το ρολόι έχει βγει λίγο εκτός ελέγχου λέω να
το σπάσουμε σε κομμάτια.

άρα η νέα άσκηση είναι η εξής:

σε δύο πιν της πόρτας Β βάλε δύο μπουτόν και σε δύο πιν της πόρτας Β
βάλε δύο Led , αυτά θα πρέπει να ανάβουν το κάθε ένα από το δικό του
μπουτόν και μάλιστα να αναβοσβήνουν το ένα ανεξάρτητα από το άλλο.

Υ.Γ. φυσικά σε αυτό το θέμα όλοι μπορείτε να επέμβετε με κάθε τρόπο.

[billtech]

δηλαδη οταν πατηθει το 7 πειραζι το μηδεν και οταν πατηθει το 6 να πειραζι το 1.
σωστα?

[DT200]

ναι, σωστά

[billtech]

αλλα δεν το θες οπως ειναι στα παραδειγματα ε?

[DT200]

Κάν'το πρώτα με οποιονδήποτε τρόπο και
μετά με τον δύσκολο

[billtech]

program enoee

main:
TRISB=%11110000 '7,6,5,4 eisidos//3,2,1,0 exodos
PORTB.0=1

START:
delay_ms(200)
if portb.7=0 then goto aaa
else if portb.6=0 then goto bb
else goto start
end if
end if

aaa:
delay_ms(50)
if portb.7=1 then
portb=not(portb.0)
goto start
else goto aaa
end if

bb:
delay_ms(50)
if portb.6=1 then
portb=not(portb.1)
goto start
else goto bb
end if

end.

τωρα καταλαβα τι εννουσες τοσες μερες.
αλλα εκανα αυτο το προγραμμα.δεν μπορω να καταλαβω τι φταει.εχω σκασει.θα βαλεις λιγο το χερι σου?μπας και βγει?

[DT200]

Αυτό το προγραμματάκι δουλεύει , αλλά όχι
τέλια, διότι έχει ένα λάθος που κάνει όλη τη ζημία.
το πρόβλημα είναι ότι ενώ το RB7 επηρεάζει μόνο το RB1,
το RB6 εναλλάσσει και τα δύο .
θα παρατηρήσεις όμως ότι και τα δύο κουμπιά έχουν ακριβός τον ίδιο
κώδικα, είναι λίγο σπαζοκεφαλιά.
φυσικά η αποστολή σου είναι να βρεις το πρόβλημα και να το
διορθώσεις και μετά να βάλεις και μία ρουτίνα ώστε
το πρόγραμμα να περιμένει να αφήσεις το κουμπί και να μην
τρέχει συνέχεια με το παρατεταμένο πάτημα του.

program enoee
DIM BUT   AS BYTE
DIM LED AS BYTE
main:
  TRISB=%11000000
  LED  =%11000011
  PORTB=255
  DELAY_MS(500)
  PORTB=0

START:
  delay_ms(200)
  BUT=PORTB
  if BUT.7=1 then GOTO AAA end if
  if BUT.6=1 then GOTO ASD end if
  PORTB=LED
  GOTO START
  
ASD:
  IF LED.6=1 THEN LED.6=0 LED.0=0
  ELSE LED.6=1 LED.0=1
  GOTO TEST END IF

AAA:
  IF LED.7=1 THEN LED.7=0 LED.1=0
  ELSE LED.7=1 LED.1=1
  GOTO TEST END IF

TEST:
  PORTB=LED
  GOTO START
end.

[soulhealer]

[quote=DT200;282719]ελπίζω να μην παρεξηγηθώ από το forum με αυτή μου την κίνηση ,
αλλά ίσος να υπάρχει κάποιος που να θέλει να μάθει όπως ο billtech


γνώση για όλους??
+10 στο γιάννη.. απ'ότι φαίνεται έχουμε ίδια ιδεολογία..
μόλις καταφέρω να μπω κι εγώ μέσα στον Pic θα χρειαστώ τις συμβουλές σου..

[DT200]

σε ευχαριστώ φίλε !
για ότι χρειαστείς από MikroBasic, o Nemessis ,εγώ και μερικοί άλλοι
θα ήμαστε εδώ .

[kopla]

Παντως δεν ξέρετε τι χανετε που δεν γράφετε σε assembly.
Σκέφτεσαι ενα απλό πρόγραμμα -ή καλύτερα κομμάτι του- αρκετή ώρα, το γράφεις σιγα σιγά, πονοκεφαλιάζεις για ενα ακριβές delay ..μετρώντας κύκλους μηχανής. Για τους midrange και κατω μΕ προσέχεις να είσαι παντα στη σωστή bank και page + χίλια αλλα δυο γενικά. Στο τέλος, αφού το compile ειναι επιτυχές, φορτώνεις στον PIC το HEX σου, και ......ο μΕ δεν κάνει τίποτα .