SchemaTheek
 
Home Nieuws Forum Schema's Artikelen Magazine Downloads Links Shops Zoeken
 
Controle Paneel
Gebruikersnaam
Wachtwoord
  Onthoud mij
» Wachtwoord?
» Registreren
Site info
» Het Team
» Contact
» FAQ
» Leden
» Upload Archief
Stats
Totaal online: 9
9 gasten
0 leden:
Forum > Digitaal > teller met PIC
« 1 [2]
electro_freakz
Lid
Berichten: 82
Gepost op maandag 18 Mei 2009 22:42:53 QuoteWijzig

als ik inplaatsvan dec3 gewoon dec pak bij alle 2 de ''kanalen'' krijg ik het nummer 655349070 te zien, wat nu?


vallen doet geen pijn, het neerkomen wel | www.electrofreakz.tk
Stynus
Admin
Berichten: 2849
Gepost op dinsdag 19 Mei 2009 10:05:40 QuoteWijzig

Ik zie dat je nog steeds fout zit.

Ik heb in mijn laatste post je fout gewoon gecopieerd

Dit moet het zijn:

Code
IF PORTB.0 = 0 AND lightbit = 0 THEN
INC lightning
lightbit = 1
ELSEIF PORTB.0 = 1 THEN
lightbit= 0
ENDIF


Met vriendelijke groet, Stynus ||| www.elektronicastynus.be
electro_freakz
Lid
Berichten: 82
Gepost op dinsdag 19 Mei 2009 15:49:14 QuoteWijzig

hallo stynus,
ik krijg het maar niet werkend. nu krijg ik 49070 op het display te staan
zou je misschien de hele code willen posten?
want ik weet niet meer wat ik allemaal moet aanpassen aan de code, om het uberhoubt werkend te krijgen.


vallen doet geen pijn, het neerkomen wel | www.electrofreakz.tk
Stynus
Admin
Berichten: 2849
Gepost op dinsdag 19 Mei 2009 17:06:04 QuoteWijzig

Ik zal als ik tijd heb effe kijken voor de code compleet te schrijven en te testen.


Met vriendelijke groet, Stynus ||| www.elektronicastynus.be
electro_freakz
Lid
Berichten: 82
Gepost op dinsdag 19 Mei 2009 18:08:21 QuoteWijzig

testen is niet direct nodig, kan ik ook wel doen. heb ik tenminste ook iets gedaan


vallen doet geen pijn, het neerkomen wel | www.electrofreakz.tk
Stynus
Admin
Berichten: 2849
Gepost op dinsdag 19 Mei 2009 20:20:33 QuoteWijzig

Ok, dan moet je eerst even voor 1 kanaal testen.


Code

DEVICE 16F628A
CONFIG INTRC_OSC_NOCLKOUT, WDT_OFF, PWRTE_ON, LVP_OFF, MCLRE_OFF
ALL_DIGITAL TRUE

;Poortnamen
SYMBOL S1 = PORTA.1
SYMBOL S2 = PORTA.0

DIM lightning AS WORD
DIM lightbit AS BIT

main:
IF S1 = 0 AND lightbit = 0 THEN
INC lightning
lightbit = 1
ELSEIF PORTB.0 = 1 THEN
lightbit= 0
ENDIF

PRINT AT 1,1, DEC lightning

GOTO main
END



Met vriendelijke groet, Stynus ||| www.elektronicastynus.be
electro_freakz
Lid
Berichten: 82
Gepost op dinsdag 19 Mei 2009 20:32:00 QuoteWijzig

als ik met die code de pic opstart, dan begint ie zelf al te tellen, als ik s2 indruk stopt ie.
youtube filmpje


vallen doet geen pijn, het neerkomen wel | www.electrofreakz.tk
Stynus
Admin
Berichten: 2849
Gepost op dinsdag 19 Mei 2009 21:00:49 QuoteWijzig


Code
DEVICE 16F628A
CONFIG INTRC_OSC_NOCLKOUT, WDT_OFF, PWRTE_ON, LVP_OFF, MCLRE_OFF
ALL_DIGITAL TRUE

;Poortnamen
SYMBOL S1 = PORTA.1
SYMBOL S2 = PORTA.0

DIM lightning AS WORD
DIM lightbit AS BIT

main:
IF S1 = 1 AND lightbit = 0 THEN
INC lightning
lightbit = 1
ELSEIF S1  = 0 THEN
lightbit= 0
ENDIF

PRINT AT 1,1, DEC lightning

GOTO main
END


Met vriendelijke groet, Stynus ||| www.elektronicastynus.be
electro_freakz
Lid
Berichten: 82
Gepost op dinsdag 19 Mei 2009 21:03:47 QuoteWijzig

precies hetzelfde


vallen doet geen pijn, het neerkomen wel | www.electrofreakz.tk
Stynus
Admin
Berichten: 2849
Gepost op dinsdag 19 Mei 2009 21:15:44 QuoteWijzig


Code
DEVICE 16F628A
CONFIG INTRC_OSC_NOCLKOUT, WDT_OFF, PWRTE_ON, LVP_OFF, MCLRE_OFF
ALL_DIGITAL TRUE

;Poortnamen
SYMBOL S1 = PORTA.1
SYMBOL S2 = PORTA.0

DIM lightning AS WORD
DIM lightbit AS BIT

main:
IF S1 = 1 AND lightbit = 0 THEN
INC lightning
lightbit = 1
ELSEIF S1 = 1 THEN
lightbit= 0
ENDIF

PRINT AT 1,1, DEC lightning

GOTO main
END


Met vriendelijke groet, Stynus ||| www.elektronicastynus.be
electro_freakz
Lid
Berichten: 82
Gepost op dinsdag 19 Mei 2009 21:18:53 QuoteWijzig

ik weet niet hoe het kan, maar toch krijg ik weer hetzelfde resultaat


vallen doet geen pijn, het neerkomen wel | www.electrofreakz.tk
Stynus
Admin
Berichten: 2849
Gepost op dinsdag 19 Mei 2009 22:21:38 QuoteWijzig

Dan zal ik morgen zelf wel even proberen. Want zo gokken blijkt niks te worden.


Met vriendelijke groet, Stynus ||| www.elektronicastynus.be
electro_freakz
Lid
Berichten: 82
Gepost op woensdag 20 Mei 2009 20:02:10 QuoteWijzig

hallo Stynus.
bedankt voor de hulp, maar technojunk (ook actief op schematheek) heeft mij een volledige code ontworpen, en getest. ik kan nu dus verder.
heel erg bedankt voor alle moeite


vallen doet geen pijn, het neerkomen wel | www.electrofreakz.tk
Stynus
Admin
Berichten: 2849
Gepost op woensdag 20 Mei 2009 20:15:27 QuoteWijzig

Ok, ik wou net men development bordje uit de kast halen .

Kan je de code die het nu wel doet ook even posten?


Met vriendelijke groet, Stynus ||| www.elektronicastynus.be
electro_freakz
Lid
Berichten: 82
Gepost op woensdag 20 Mei 2009 22:57:17 QuoteWijzig


Code

  
'****************************************************************
'*  Name    : Fabian.bas                                        *
'*  Author  : Niels Kloppenburg                                 *
'*  Notice  : Copyright (c) 2009 Technojunk.nl                  *
'*          : All Rights Reserved                               *
'*  Date    : 20-5-2009                                         *
'*  Version : 1.0                                               *
'*  Notes   :                                                   *
'*          :                                                   *
'****************************************************************
DEVICE 16F628A                ;Gebruik een 16F628A type
CONFIG INTRC_OSC_NOCLKOUT, WDT_OFF, PWRTE_ON, LVP_OFF, MCLRE_OFF
ALL_DIGITAL TRUE

;       76543210              ; Poortjes instellen
TRISB= %00000011
PORTA= %00000000

DIM teller AS BYTE            ; Variabelen instellen
DIM teller1 AS BYTE

SYMBOL s1 = PORTB.0
SYMBOL s2 = PORTB.1

PORTB_PULLUPS ON              ; Pullups portb aan

CLEAR

DELAYMS 500

PRINT AT 1, 5,"bliksem"
PRINT AT 2, 5,"vleermuizen" 
                        ; zet variabelen op 0
chek:  
         
IF s1 = 0 THEN                ; Als schakelaar geinverteerd aan is dan
    DELAYMS 25                ; Wacht 25Ms
     WHILE s1 = 0 : WEND         ; Als schakelaar geinverteerd aan is dan ga terug
    INC teller                ; Verhoog variabele teller
ENDIF

IF s2 = 0 THEN                ; Als schakelaar geinverteerd aan is dan
    DELAYMS 25                ; Wacht 25Ms
     WHILE s2 = 0 : WEND         ; Als schakelaar geinverteerd aan is dan ga terug
    INC teller1               ; Verhoog variabele teller1
ENDIF  

PRINT AT 1, 1, DEC teller     ; Laat teller zien
PRINT AT 2, 1, DEC teller1    ; Laat teller1 zien

GOTO chek                     ; ga terug naar chek

END                           ; eind



met dank aan Technojunk voor het maken van de code. www.technojunk.nl


vallen doet geen pijn, het neerkomen wel | www.electrofreakz.tk
Stynus
Admin
Berichten: 2849
Gepost op woensdag 20 Mei 2009 23:27:16 QuoteWijzig

Nu heb je wel het probleem dat als de puls van de bliksem hoog is dat dan de vleermuizen niet optellen. En andersom juist hetzelfde.


Met vriendelijke groet, Stynus ||| www.elektronicastynus.be
electro_freakz
Lid
Berichten: 82
Gepost op vrijdag 22 Mei 2009 16:58:48 QuoteWijzig

achja, hoe groot is de kans dat die 2 tegenlijk afgaan?


vallen doet geen pijn, het neerkomen wel | www.electrofreakz.tk
« 1 [2]

Active Topics

» Virtual Chemist probleem
» Probleem met Toyota Av...
» Whirlpool kookplaat
» 24 volt motor vertrage...
» Show je mini projecten
» Purer 8.3se
» MULTIMETERS geven alle...
» Werkplaatsinrichting
» 2022
» De tuin.

» Meer actieve topics

Advertenties

PCBway

© 2004-2022 SchemaTheek
Laadtijd: 0.31373 sec.