pic 16f628 uart <> PC instellen

device 16F628a               ;gebruikte µcontroller
';****************************************************************
';*   A.2,AN2,Vref  1 _|  ^  |_ 18 A.1,AN1                       *
';*   A.3,AN3,cmp1  2 _|     |_ 17 A.0,AN0                       *
';*   A.4,AN4,cmp2  3 _|     |_ 16 A.7,clckin,osc1               *lcd
';*   A.5,mclre,vpp 4 _|     |_ 15 A.6,clkout,osc2               *lcd
';*   gnd           5 _|     |_ 14 vdd                           *
';*   B.0,INT       6 _|     |_ 13 B.7,PGD,T1OSI                 *lcd
';*   B.1,RX,DT     7 _|     |_ 12 B.6,PGC,T1OSO,T1CKI           *lcd
';*   B.2,TX,CK     8 _|     |_ 11 B.5,                          *lcd
';*   B.3,CCP1      9 _|     |_ 10 B.4,PGM                       *lcd
';*                    |_____|                                   *
';****************************************************************

config intrc_osc_noclkout, wdt_off, lvp_off, mclre_on, pwrte_on,

;nu nog wat gezeik met registervermeldingen

;een berg decleraties                          ;maak gebruik van kristal als clock [clock snelheid is 20Mhz]
all_digital true                ;alle poorten zijn digitale poorten
portb_pullups true              ;dit commando zorgt voor wat minder hardware
           ;dit geeft aan hoeveel regels de lcd heeft
declare serial_baud 2400    ;de baudrate voor de seriële poort is op 57600 gezet
HSERIAL_RCSTA %10010000                                
HSERIAL_TXSTA %00100000                                
declare icd_req 1               ;hiermee zorgen we ervoor dat er kan worden gewerkt met een ICD
      
       
;poorten
;76543210                                                         
trisa = %11111111              ;hier staat dus welke A-poorten ingangen zijn (1 is ingang)
trisb = %00010000               ;hier staat dus welke B-poorten ingangen zijn (1 is ingang)          
portb = %00000010               ;hier staat welke poorten standaard hoog zijn.

;wat constante waarde
symbol aan  = 1                 ;als ergens 'aan' staat wordt bedoeld dat de poort hoog moet worden
symbol uit  = 0                 ;als ergens 'uit' staat wordt bedoeld dat de poort laag moet worden
symbol tijd = 100               ;dit geeft aan dat de naam tijd staat voor een waarde van 100
symbol sampletijd = 1000       ;dit geeft een constante waarde aan de naam sampletijd
symbol displaytijd = 1000      ;dit geeft een constante waarde aan de naam displaytijd


;wat makkelijke namen toekennen
symbol led       = portb.4      ;dit geeft aan op welke poort de controle led zit. en de poort heeft nu een naam
symbol vleermuis = portb.0      ;dit geeft aan op welke pin het signaal binnen komt. en de poort heeft nu een naam       
dim vleermuiss as word          ;dit is een soort dummy omdat we ergens de pulsjes moeten opslaan. [zie hoofdprogramma]

clear                           ;wis alle ramgeheugen  
delayms 500                     ;stabilisering van het display

;-------------------------------------------------------------------------------------------------------------------------------------------;
;hoofdprogramma
while 1=1                                   ;dit is een oneindige lus totdat we er uit springen
clear vleermuiss
vleermuiss = counter vleermuis, sampletijd  ;hier tellen we gedurende 'sampletijd' de pulsjes op 'vleermuis'
                                    ;wis het lcd scherm
         ;zorg voor een vertraging voordat het volgende commando uitvoeren.
Hserout ["frequentie"]
hserout [dec vleermuiss, " "]
hserout ["khz"]
hserout [bin porta , " "]
delayms displaytij[d
wend                                        ;begin opnieuw met deze lus
end                                         ;einde van het programma

'****************************************************************
'*  Name    : UNTITLED.BAS                                      *
'*  Author  : J.E.Esselink                                      *
'*  Notice  : Copyright (c) 2007 J.E.Esselink                   *
'*          : All Rights Reserved                               *
'*  Date    : 9-5-2007                                          *
'*  Version : 1.0                                               *
'*  Notes   :  stel hyperterminal als volgd in: baud =9600,     *                                           *
'*          :  data bits =8, pariteit =geen, stopbit =1         *
'*          :  datatransportbesturing =geen                     *
'****************************************************************
DEVICE 16F628                 ;Gebruik een 16F628  type
CONFIG WDT_OFF, PWRTE_ON, LVP_OFF, MCLRE_OFF, HS_OSC ; de config
XTAL 4                        ;Kristal van 4 MHz
ALL_DIGITAL TRUE              ;Alle ingangen digitaal

declare HSERIAL_BauD 9600     'set baudrate op 9600
DEclare HSERIAL_RCSTA $90     '  << VUL DEZE WAAREN IN MET HET PROGRAMMA
Declare HSERIAL_TXSTA $24     '   <<         PIC multi CALC 

DECLARE HSERIAL_CLEAR = ON    ' reset buffer bij een overflow? 


dim teller as byte            ' zet de grote van teller als een byte

teller = 0                    ' zet teller op waarde 0


begin:                        'hoofdprogramma

while teller < 10             'doe dit tot de waarde van teller groter word dan 10
toggle porta.0                'wissel de status van poort a.0 (pen 17)

hrsout dec teller             'stuur de waarde van teller serieel uit (rs232)
   teller = teller + 1        'verhoog de waarde van teller met een
delayms 500                   'wacht 500 miliseconden
TOGGLE PORTA.1                'wissel de status an poort a.1 (pen 18)
DELAYMS 500                   'wacht 500 miliseconden
wend                          'ga naar begin van de while lus

                              'hier kom je terecht als de waarde van teller grote word dan 10


teller =0                     'reset de teller, zet hem weer op 0
goto begin                    ' ga naar het  begin van het programma

 END                           ' hier is het gedan met de pret, einde programma

'****************************************************************
'*  Name    : UNTITLED.BAS                                      *
'*  Author  : J.E.Esselink                                      *
'*  Notice  : Copyright (c) 2007 J.E.Esselink                   *
'*          : All Rights Reserved                               *
'*  Date    : 9-5-2007                                          *
'*  Version : 1.0                                               *
'*  Notes   :  stel hyperterminal als volgd in: baud =9600,     *                                           *
'*          :  data bits =8, pariteit =geen, stopbit =1         *
'*          :  datatransportbesturing =geen                     *
'****************************************************************
DEVICE 16F628                 ;Gebruik een 16F628  type
CONFIG WDT_OFF, PWRTE_ON, LVP_OFF, MCLRE_OFF, HS_OSC ; de config
XTAL 4                        ;Kristal van 4 MHz
ALL_DIGITAL TRUE              ;Alle ingangen digitaal

declare HSERIAL_BauD 9600     'set baudrate op 9600
DEclare HSERIAL_RCSTA $90     '  << VUL DEZE WAAREN IN MET HET PROGRAMMA
Declare HSERIAL_TXSTA $24     '   <<         PIC multi CALC 

DECLARE HSERIAL_CLEAR = ON    ' reset buffer bij een overflow? 


dim waarde as byte            ' zet de grote van waarde als een byte

begin:                        'hoofdprogramma
hrsin dec waarde              'haal waarde op van de serieele poort (rs232)

hrsout  dec  waarde           'stuur de waarde die opgehaald is weer serieel uit (rs232)
  
delayms 10                    'wacht 10 miliseconden
TOGGLE PORTA.1                'wissel de status an poort a.1 (pen 18)
DELAYMS 100                   'wacht 500 miliseconden

goto begin                    ' ga naar het  begin van het programma


 END                           ' hier is het gedan met de pret, einde programma

config HS_OSC