Εμφάνιση αποτελεσμάτων : 1 έως 5 από 5

Θέμα: Πρόβλημα με εφαρμογή σε pic 18f2520(θερμόμετρο)

  1. #1
    Νέο Μέλος Το avatar του χρήστη beethoven
    Όνομα
    Κωνσταντίνος
    Εγγραφή
    Nov 2004
    Περιοχή
    Ν.Ιωνία-Βόλος
    Μηνύματα
    25

    Προεπιλογή Πρόβλημα με εφαρμογή σε pic 18f2520(θερμόμετρο)

    Το πρόγραμμα τρέχει κανονικά με το proteus αλλα στην πράξη δεν δουλεύη(το μόνο που κάνει είναι να ανάβει η οθόνη και στη πάνω γραμμή να βγάζει κατι κουτάκια). Οι μονες διαφορές που εχω κάνει με το κύκλωμα ειναι άλλος pic και η οθόνη αντι για 1x16 είναι 2x16. Στο build αλλάζω την ρύθμιση απο τον μικροελεγχτή που εχει σε αυτόν που έχω εγώ.
    Το κύκλωμα :
    circuit.jpg
    program thermometer452

    dim LCD_RS as sbit at RB4_bit
    LCD_EN as sbit at RB5_bit
    LCD_D4 as sbit at RB0_bit
    LCD_D5 as sbit at RB1_bit
    LCD_D6 as sbit at RB2_bit
    LCD_D7 as sbit at RB3_bit

    LCD_RS_Direction as sbit at TRISB4_bit
    LCD_EN_Direction as sbit at TRISB5_bit
    LCD_D4_Direction as sbit at TRISB0_bit
    LCD_D5_Direction as sbit at TRISB1_bit
    LCD_D6_Direction as sbit at TRISB2_bit
    LCD_D7_Direction as sbit at TRISB3_bit

    dim ADCResult as longword
    dim value as word[3]
    dim vstring as string[3]

    sub procedure GlobInit
    TRISB = 0
    PORTB = 0
    TRISA = 1
    ADCON1 = $4E
    LCD_Init
    LCD_Cmd(_LCD_CLEAR)
    LCD_Cmd(_LCD_CURSOR_OFF)
    LCD_Out(1, 1, "Temp:")
    LCD_Out(1, 15, "'C")
    end sub

    main:
    GlobInit
    while true
    ADCResult = (ADC_Read(0) * 500) >> 10
    value[0] = ADCResult div 100
    value[1] = (ADCResult div 10) mod 10
    value[2] = ADCResult mod 10
    vstring[0] = value[0] + 48
    vstring[1] = value[1] + 48
    vstring[2] = value[2] + 48
    LCD_Out(1, 10, vstring)
    delay_ms(50)
    wend
    end.

    0 Not allowed! Not allowed!
    Τελευταία επεξεργασία από το χρήστη beethoven : 03-03-12 στις 19:25

  2. #2
    Νέο Μέλος Το avatar του χρήστη beethoven
    Όνομα
    Κωνσταντίνος
    Εγγραφή
    Nov 2004
    Περιοχή
    Ν.Ιωνία-Βόλος
    Μηνύματα
    25

    Προεπιλογή

    Απαντάω μόνος μου.Το πρόβλημα ηταν απο κακή επαφή του ράστερ....

    0 Not allowed! Not allowed!

  3. #3
    Μέλος Το avatar του χρήστη kentar
    Όνομα
    Γιώργος
    Εγγραφή
    Jul 2009
    Περιοχή
    Κερατσινι
    Μηνύματα
    698

    Προεπιλογή

    Ποιον pic έχεις βάλει στο κύκλωμα ;

    0 Not allowed! Not allowed!

  4. #4
    Νέο Μέλος Το avatar του χρήστη PanosXY
    Όνομα
    Πάνος
    Εγγραφή
    Feb 2012
    Περιοχή
    Αθήνα
    Μηνύματα
    17

    Προεπιλογή

    Εάν είχες είδη ένα project με τον παλιό pic και απλά άλλαξες από το project properties τον pic πιθανόν να μην λειτουργεί για αυτόν τον λόγο.
    Επίσης από ότι βλέπω στο datasheet του 18f2520 η πόρτα B που χρησιμοποιείς για τα Data έχει και αναλογικές εισόδους. Γι' αυτό άλλαξε τις τιμές του αντίστοιχου καταχωρητή και
    δήλωσε την πόρτα σαν ψηφιακές είσοδο/έξοδο.

    0 Not allowed! Not allowed!

  5. #5
    Νέο Μέλος Το avatar του χρήστη beethoven
    Όνομα
    Κωνσταντίνος
    Εγγραφή
    Nov 2004
    Περιοχή
    Ν.Ιωνία-Βόλος
    Μηνύματα
    25

    Προεπιλογή

    Να κάνω μια ερώτηση επειδή δεν έχω μεγαλη εμπειρία στον προγραμματισμο. Έχω αρχίσει να ασχολούμε με την C συκεκριμένα με την mikroc (αν και το πρόγραμμα είναι σε mikrocbasic) και έχω ένα πρόγραμμα με άλλον μικροεπεξεργαστη αφου οι εντολές ειναι ίδιες γιατι πχ να μην δουλευει(όπως προανάφερα η εφαρμογή δούλεψε με επιφύλαξη πάντα γιατι το ραστερ μου τα έχει παίξει)?Και κάτι ακομα η πόρτα Β με την εντολη trisb=0 δεν κάνει αυτόματα την πόρτα ψηφιακή?

    0 Not allowed! Not allowed!

Παρόμοια Θέματα

  1. Πρόβλημα με PIC
    By AsavasA in forum Μικροελεγκτές
    Απαντήσεις: 49
    Τελευταίο Μήνυμα: 08-10-16, 17:16
  2. Ρολόι θερμόμετρο με lcd και pic;
    By jonito2000 in forum Μικροελεγκτές
    Απαντήσεις: 5
    Τελευταίο Μήνυμα: 14-04-14, 23:29
  3. Πρόβλημα με το θερμόμετρο σε mazda 323 του 1983
    By Panoss in forum Κυκλώματα για Auto & Moto
    Απαντήσεις: 4
    Τελευταίο Μήνυμα: 28-09-10, 16:29
  4. PC θερμόμετρο RS232 - Πρόβλημα με i2c
    By diggy in forum Κυκλώματα για Η/Υ
    Απαντήσεις: 20
    Τελευταίο Μήνυμα: 20-11-09, 15:57

Δικαιώματα - Επιλογές

  • Δημιουργία θεμάτων: Όχι
  • Υποβολή μηνυμάτων: Όχι
  • Σύναψη αρχείων: Όχι
  • Επεξεργασία μηνυμάτων: Όχι
  •  
  • BB code: σε λειτουργία
  • Smilies: σε λειτουργία
  • [IMG]: σε λειτουργία
  • [VIDEO] code is σε λειτουργία
  • HTML: εκτός λειτουργίας