|
|
Gepost op maandag 18 Mei 2009 22:42:53 |
  |
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 |
|
|
Gepost op dinsdag 19 Mei 2009 10:05:40 |
|
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 |
|
|
Gepost op dinsdag 19 Mei 2009 15:49:14 |
|
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 |
|
|
Gepost op dinsdag 19 Mei 2009 17:06:04 |
|
Ik zal als ik tijd heb effe kijken voor de code compleet te schrijven en te testen. |
Met vriendelijke groet, Stynus ||| www.elektronicastynus.be |
|
|
Gepost op dinsdag 19 Mei 2009 18:08:21 |
|
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 |
|
|
Gepost op dinsdag 19 Mei 2009 20:20:33 |
|
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 |
|
|
Gepost op dinsdag 19 Mei 2009 20:32:00 |
|
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 |
|
|
Gepost op dinsdag 19 Mei 2009 21:00:49 |
|
| 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 |
|
|
Gepost op dinsdag 19 Mei 2009 21:03:47 |
|
precies hetzelfde |
vallen doet geen pijn, het neerkomen wel | www.electrofreakz.tk |
|
|
Gepost op dinsdag 19 Mei 2009 21:15:44 |
|
| 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 |
|
|
Gepost op dinsdag 19 Mei 2009 21:18:53 |
|
ik weet niet hoe het kan, maar toch krijg ik weer hetzelfde resultaat |
vallen doet geen pijn, het neerkomen wel | www.electrofreakz.tk |
|
|
Gepost op dinsdag 19 Mei 2009 22:21:38 |
|
Dan zal ik morgen zelf wel even proberen. Want zo gokken blijkt niks te worden. |
Met vriendelijke groet, Stynus ||| www.elektronicastynus.be |
|
|
Gepost op woensdag 20 Mei 2009 20:02:10 |
|
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 |
|
|
Gepost op woensdag 20 Mei 2009 20:15:27 |
|
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 |
|
|
Gepost op woensdag 20 Mei 2009 22:57:17 |
|
| 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 |
|
|
Gepost op woensdag 20 Mei 2009 23:27:16 |
|
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 |
|
|
Gepost op vrijdag 22 Mei 2009 16:58:48 |
|
achja, hoe groot is de kans dat die 2 tegenlijk afgaan? |
vallen doet geen pijn, het neerkomen wel | www.electrofreakz.tk |
|
« 1 [2] |
|
|
