Vítejte na Elektro Bastlírn?
Nuke - Elektro Bastlirna
  Vytvořit účet Hlavní · Fórum · DDump · Profil · Zprávy · Hledat na fóru · Příspěvky na provoz EB

Vlákno na téma KORONAVIRUS - nutná registrace


Nuke - Elektro Bastlirna: Diskuzní fórum

 FAQFAQ   HledatHledat   Uživatelské skupinyUživatelské skupiny   ProfilProfil   Soukromé zprávySoukromé zprávy   PřihlášeníPřihlášení 

PIC-Problem s nastavenim portov.

 
Přidat nové téma   Zaslat odpověď       Obsah fóra Diskuzní fórum Elektro Bastlírny -> Programování PIC, ATMEL, EEPROM a dalších obvodů
Zobrazit předchozí téma :: Zobrazit následující téma  
Autor Zpráva
dudo02



Založen: Feb 27, 2007
Příspěvky: 991

PříspěvekZaslal: po prosinec 14 2015, 11:24    Předmět: PIC-Problem s nastavenim portov. Citovat

Zdravim,

Snazim sa naprogramovat casovac,ktory bude ovladat bodovu zvaracku.
Pracujem v MPLABe.
Procesor PIC16F628A.

Mam problem s nastavenim portov A ako vstupnych a to konkretne A0, A1, A2, A3.Planujem na nich napojit pull-upp rezistory.
Program ako je napisany v code funguje korektne pokial sa nepokusim spominane porty v programe pouzit.

V datasheete sa uvadza:



2: On Reset, the TRISA register is set to all
inputs. The digital inputs (RA<3:0>) are
disabled and the comparator inputs are
forced to ground to reduce current
consumption.


Cize pravdepodobnym dovodom preco program blbne je to ze su porty vypnute,popr. to ze su povolene komparatory.
Na a neviem vycitat z datasheetu ako porty zapnut, popr.deaktivovat komparatory, alebo co vlastne robit
kód:
; Projekt: Bodovacka
 LIST   p=16F628A          ;type of processor
#INCLUDE   <P16F628A.INC>   ; definitoins

; configguration bits settings
 __CONFIG _PWRTE_ON & _WDT_OFF & _MCLRE_OFF & _BODEN_OFF & _LVP_OFF & _INTRC_OSC_NOCLKOUT

 

; definitions
#DEFINE   OPT    PORTA,2  ;optocoupler
#DEFINE   LED    PORTA,3  ;led
#DEFINE FOOT   PORTA,6  ;foot switch
#DEFINE SW1    PORTB,7  ;SW1-SW11 rotary switch
#DEFINE SW2    PORTB,6
#DEFINE SW3    PORTB,5
#DEFINE SW4    PORTB,4
#DEFINE SW5    PORTB,3
#DEFINE SW6    PORTB,2
#DEFINE SW7    PORTB,1
#DEFINE SW8    PORTB,0
#DEFINE SW9    PORTA,7 
#DEFINE SW10   PORTA,5
#DEFINE SW11   PORTA,4


 CBLOCK 0X20
 D1
 D2
 ENDC


;program
 RESET ORG 0x0000      ; start program on adress 0000h

;inicializacia portov
 BSF STATUS,RP0 
 BCF OPTION_REG, 7   ; enable internal pullups   
 MOVLW b'11110011'   ; RA1,RA2=OUT, rest=IN
 MOVWF TRISA   
 MOVLW b'11111111'   ; RB0-7= all IN
 MOVWF TRISB
 BCF   STATUS,RP0

 GOTO START
    
   
;podprogram DELAY 50ms
DELAY   MOVLW   0x0F
        MOVWF   D1
       MOVLW   0x28
        MOVWF   D2

DELAY_0 DECFSZ   D1, F
       goto   $+2
       decfsz   D2, F
       goto   DELAY_0
;2 cycles
       GOTO   $+1
       RETURN   ; return when if d1=0


;Podprogramy DELAYs
DELAY_50   BSF  OPT
         CALL DELAY
         BCF  OPT
         CALL DELAY
         CALL DELAY
         CALL DELAY
         CALL DELAY
         CALL DELAY
         CALL DELAY
         CALL DELAY
         CALL DELAY
         CALL DELAY
         CALL DELAY
         BSF  OPT
         CALL DELAY
         CALL DELAY
         BCF  OPT
         RETURN

DELAY_100  BSF  OPT
         CALL DELAY
         BCF  OPT
         CALL DELAY
         CALL DELAY
         CALL DELAY
         CALL DELAY
         CALL DELAY
         CALL DELAY
         CALL DELAY
         CALL DELAY
         CALL DELAY
         CALL DELAY
         BSF  OPT
         CALL DELAY
         CALL DELAY
         BCF  LED
         RETURN

DELAY_150  BSF  OPT
         CALL DELAY
         BCF  OPT
         CALL DELAY
         CALL DELAY
         CALL DELAY
         CALL DELAY
         CALL DELAY
         CALL DELAY
         CALL DELAY
         CALL DELAY
         CALL DELAY
         CALL DELAY
         BSF  OPT
         CALL DELAY
         CALL DELAY
         CALL DELAY
         BCF  OPT
         RETURN

DELAY_200  BSF  OPT
         CALL DELAY
         BCF  OPT
         CALL DELAY
         CALL DELAY
         CALL DELAY
         CALL DELAY
         CALL DELAY
         CALL DELAY
         CALL DELAY
         CALL DELAY
         CALL DELAY
         CALL DELAY
         BSF  OPT
         CALL DELAY
         CALL DELAY
         CALL DELAY
         CALL DELAY
         BCF  OPT
         RETURN

DELAY_250  BSF  OPT
         CALL DELAY
         BCF  OPT
         CALL DELAY
         CALL DELAY
         CALL DELAY
         CALL DELAY
         CALL DELAY
         CALL DELAY
         CALL DELAY
         CALL DELAY
         CALL DELAY
         CALL DELAY
         BSF  OPT
         CALL DELAY
         CALL DELAY
         CALL DELAY
         CALL DELAY
         CALL DELAY
         BCF  OPT
         RETURN

DELAY_300  BSF  OPT
         CALL DELAY
         BCF  OPT
         CALL DELAY
         CALL DELAY
         CALL DELAY
         CALL DELAY
         CALL DELAY
         CALL DELAY
         CALL DELAY
         CALL DELAY
         CALL DELAY
         CALL DELAY
         BSF  OPT
         CALL DELAY
         CALL DELAY
         CALL DELAY
         CALL DELAY
         CALL DELAY
         CALL DELAY
         BCF  OPT
         RETURN

DELAY_350  BSF  OPT
         CALL DELAY
         BCF  OPT
         CALL DELAY
         CALL DELAY
         CALL DELAY
         CALL DELAY
         CALL DELAY
         CALL DELAY
         CALL DELAY
         CALL DELAY
         CALL DELAY
         CALL DELAY
         BSF  OPT
         CALL DELAY
         CALL DELAY
         CALL DELAY
         CALL DELAY
         CALL DELAY
         CALL DELAY
         CALL DELAY
         BCF  OPT
         RETURN

DELAY_400  BSF  OPT
         CALL DELAY
         BCF  OPT
         CALL DELAY
         CALL DELAY
         CALL DELAY
         CALL DELAY
         CALL DELAY
         CALL DELAY
         CALL DELAY
         CALL DELAY
         CALL DELAY
         CALL DELAY
         BSF  OPT
         CALL DELAY
         CALL DELAY
         CALL DELAY
         CALL DELAY
         CALL DELAY
         CALL DELAY
         CALL DELAY
         CALL DELAY
         BCF  OPT
         RETURN

DELAY_450  BSF  OPT
         CALL DELAY
         BCF  OPT
         CALL DELAY
         CALL DELAY
         CALL DELAY
         CALL DELAY
         CALL DELAY
         CALL DELAY
         CALL DELAY
         CALL DELAY
         CALL DELAY
         CALL DELAY
         BSF  OPT
         CALL DELAY
         CALL DELAY
         CALL DELAY
         CALL DELAY
         CALL DELAY
         CALL DELAY
         CALL DELAY
         CALL DELAY
         CALL DELAY
         BCF  OPT
         RETURN

DELAY_500  BSF  OPT
         CALL DELAY
         BCF  OPT
         CALL DELAY
         CALL DELAY
         CALL DELAY
         CALL DELAY
         CALL DELAY
         CALL DELAY
         CALL DELAY
         CALL DELAY
         CALL DELAY
         CALL DELAY
         BSF  OPT
         CALL DELAY
         CALL DELAY
         CALL DELAY
         CALL DELAY
         CALL DELAY
         CALL DELAY
         CALL DELAY
         CALL DELAY
         CALL DELAY
         CALL DELAY
         BCF  OPT
         RETURN

NON_STOP   BSF  OPT
         CALL DELAY
         BCF  OPT
         CALL DELAY
         CALL DELAY
         CALL DELAY
         CALL DELAY
         CALL DELAY
         CALL DELAY
         CALL DELAY
         CALL DELAY
         CALL DELAY
         CALL DELAY
         BSF   OPT
         BTFSS FOOT
         GOTO  $-1
         BCF   OPT
         RETURN
   
;main program
START   BSF     LED
        CALL    DELAY
       BCF     LED
       CALL    DELAY
       CALL    DELAY
       CALL    DELAY
       CALL    DELAY
       CALL    DELAY
       CALL    DELAY
       CALL    DELAY
       CALL    DELAY
       BCF     LED
      BTFSC   FOOT
       GOTO    START

       BTFSS   SW1         
       CALL    DELAY_50

       BTFSS   SW2
       CALL    DELAY_100

       BTFSS   SW3
       CALL    DELAY_150

       BTFSS   SW4
       CALL    DELAY_200

       BTFSS   SW5
       CALL    DELAY_250

       BTFSS   SW6
       CALL    DELAY_300

       BTFSS   SW7
       CALL    DELAY_350

       BTFSS   SW8         
       CALL    DELAY_400

       BTFSS   SW9              
        CALL    DELAY_450
      
        BTFSS   SW10
        CALL    DELAY_500


        BTFSS   SW11
        CALL    NON_STOP


       BTFSS   FOOT
       GOTO    $-1
       GOTO    START      
      
        END
   
Návrat nahoru
Zobrazit informace o autorovi Odeslat soukromou zprávu
mikollar



Založen: Dec 26, 2004
Příspěvky: 1426
Bydliště: Košice - okolie

PříspěvekZaslal: po prosinec 14 2015, 11:44    Předmět: Citovat

Mas to priamo v katalogu

kód:
CLRF PORTA ;Initialize PORTA by
;setting
;output data latches
MOVLW 0x07 ;Turn comparators off and
MOVWF CMCON ;enable pins for I/O
;functions
BCF STATUS, RP1
BSF STATUS, RP0 ;Select Bank1
MOVLW 0x1F ;Value used to initialize
;data direction
MOVWF TRISA ;Set RA<4:0> as inputs
;TRISA<5> always
;read as ‘1’.
;TRISA<7:6>
;depend on oscillator
;mode
Návrat nahoru
Zobrazit informace o autorovi Odeslat soukromou zprávu
dudo02



Založen: Feb 27, 2007
Příspěvky: 991

PříspěvekZaslal: po prosinec 14 2015, 21:20    Předmět: Citovat

Vdaka, programovat zacinam a nebol som si isty. Funguje to,tak ako ma.
Návrat nahoru
Zobrazit informace o autorovi Odeslat soukromou zprávu
petrfilipi



Založen: Sep 13, 2005
Příspěvky: 2648

PříspěvekZaslal: st prosinec 16 2015, 20:20    Předmět: Citovat

Je to v datasheetu na straně 54 - viz obrázek. Musíš nastavit bity 0,1,2 registru CMCON na 1, abys měl PortA jako digitální.

PF



Komparátor 16F628.jpg
 Komentář:

Stáhnout
 Soubor:  Komparátor 16F628.jpg
 Velikost:  137.46 kB
 Staženo:  82 krát

Návrat nahoru
Zobrazit informace o autorovi Odeslat soukromou zprávu Odeslat e-mail
Zobrazit příspěvky z předchozích:   
Přidat nové téma   Zaslat odpověď       Obsah fóra Diskuzní fórum Elektro Bastlírny -> Programování PIC, ATMEL, EEPROM a dalších obvodů Časy uváděny v GMT + 1 hodina
Strana 1 z 1

 
Přejdi na:  
Nemůžete odesílat nové téma do tohoto fóra.
Nemůžete odpovídat na témata v tomto fóru.
Nemůžete upravovat své příspěvky v tomto fóru.
Nemůžete mazat své příspěvky v tomto fóru.
Nemůžete hlasovat v tomto fóru.
Nemůžete připojovat soubory k příspěvkům
Můžete stahovat a prohlížet přiložené soubory

Powered by phpBB © 2001, 2005 phpBB Group
Forums ©
Nuke - Elektro Bastlirna

Informace na portálu Elektro bastlírny jsou prezentovány za účelem vzdělání čtenářů a rozšíření zájmu o elektroniku. Autoři článků na serveru neberou žádnou zodpovědnost za škody vzniklé těmito zapojeními. Rovněž neberou žádnou odpovědnost za případnou újmu na zdraví vzniklou úrazem elektrickým proudem. Autoři a správci těchto stránek nepřejímají záruku za správnost zveřejněných materiálů. Předkládané informace a zapojení jsou zveřejněny bez ohledu na případné patenty třetích osob. Nároky na odškodnění na základě změn, chyb nebo vynechání jsou zásadně vyloučeny. Všechny registrované nebo jiné obchodní známky zde použité jsou majetkem jejich vlastníků. Uvedením nejsou zpochybněna z toho vyplývající vlastnická práva. Použití konstrukcí v rozporu se zákonem je přísně zakázáno. Vzhledem k tomu, že původ předkládaných materiálů nelze žádným způsobem dohledat, nelze je použít pro komerční účely! Tento nekomerční server nemá z uvedených zapojení či konstrukcí žádný zisk. Nezodpovídáme za pravost předkládaných materiálů třetími osobami a jejich původ. V případě, že zjistíte porušení autorského práva či jiné nesrovnalosti, kontaktujte administrátory na diskuzním fóru EB.


PHP-Nuke Copyright © 2005 by Francisco Burzi. This is free software, and you may redistribute it under the GPL. PHP-Nuke comes with absolutely no warranty, for details, see the license.
Čas potřebný ke zpracování stránky 0.15 sekund