16F628

Alle vragen m.b.t digitale schakelingen m.b.v. losse i.c's
en oplossingen m.b.v. PIC processoren.
Plaats reactie
JARI NETWORKS
Berichten: 1697
Lid geworden op: zo 23 apr 2006, 19:01
Locatie: Hedalen. .. Noorwegen .. .. .. .. .. .. ...

Bericht door JARI NETWORKS »

ERROR line 12: ENDIF without a matching IF..THEN.

IF PORTA.0 = 1 Then V1
EndIF


V1:
PORTD.1 = 1 ' 1STE VERSNELLING

Volgens mij staat er toch wel n matching IF..THEN in die regel
http://pent.no/Vaer.aspx?ID=84337
600 MOH
tot nu toe koudste temp -29,9
De logica van Windows: klik op START om af te sluiten.
Mijn verrekijker vergroot 10x, maar bij de 11e keer werkte hij ook nog
Mat Janssen
Moderator
Moderator
Berichten: 11498
Lid geworden op: wo 10 dec 2003, 18:36
Locatie: nederweert. .. .. .. .. .. .. .. .. .

Bericht door Mat Janssen »

Hallo Jari N,
Je bent vergeten in het boekje te kijken hoe de if then else endif syntax eruit moet zien !!
Hier wat juiste voorbeelden en dan hoor ik je ochja zeggen.

Code: Selecteer alles


IF versn = 0 then goto V1

IF versn = 1 then
 C= 5
 goto V1
ENDIF

IF versn = 3 then
 A = 4
 goto V1
ELSE
 B = 2
 goto V2
ENDIF


Hier heb je 3 voorbeelden hoe het moet.
signature ruimte te huur ;-)
Verhuurd :!:
JARI NETWORKS
Berichten: 1697
Lid geworden op: zo 23 apr 2006, 19:01
Locatie: Hedalen. .. Noorwegen .. .. .. .. .. .. ...

Bericht door JARI NETWORKS »

Mat Janssen schreef:Hallo Jari N,
Je bent vergeten in het boekje te kijken hoe de if then else endif syntax eruit moet zien !!
Hier wat juiste voorbeelden en dan hoor ik je ochja zeggen.

Code: Selecteer alles


IF versn = 0 then goto V1

IF versn = 1 then
 C= 5
 goto V1
ENDIF

IF versn = 3 then
 A = 4
 goto V1
ELSE
 B = 2
 goto V2
ENDIF


Hier heb je 3 voorbeelden hoe het moet.

N ELSE is toch optioneel, n ENDIF niet.

IF ....THEN kan op 2 manieren,
de THEN in n IF....THEN is eigenlijk n GOTO.
Als de conditie WAAR is zal het programma gaan naar het label na de THEN.
Is de conditie fout het programma zal verder gaan met de regel na te IF...THEN.

zo las ik het volgens mij op pag 89 van het groene boekje
http://pent.no/Vaer.aspx?ID=84337
600 MOH
tot nu toe koudste temp -29,9
De logica van Windows: klik op START om af te sluiten.
Mijn verrekijker vergroot 10x, maar bij de 11e keer werkte hij ook nog
Mat Janssen
Moderator
Moderator
Berichten: 11498
Lid geworden op: wo 10 dec 2003, 18:36
Locatie: nederweert. .. .. .. .. .. .. .. .. .

Bericht door Mat Janssen »

Als je maar een ding (of meerdere met een : teken) achter je then hebt staan dan geen endif.
Wil je wel een endif gebruiken, dan mag er niks achter de then staan, dat moet dan naar de volgende regel !!!!!
signature ruimte te huur ;-)
Verhuurd :!:
JARI NETWORKS
Berichten: 1697
Lid geworden op: zo 23 apr 2006, 19:01
Locatie: Hedalen. .. Noorwegen .. .. .. .. .. .. ...

Bericht door JARI NETWORKS »

oke, dat scheelde n hoop,
nog n vraag waardoor ontstaat n compile timeout??
http://pent.no/Vaer.aspx?ID=84337
600 MOH
tot nu toe koudste temp -29,9
De logica van Windows: klik op START om af te sluiten.
Mijn verrekijker vergroot 10x, maar bij de 11e keer werkte hij ook nog
Mat Janssen
Moderator
Moderator
Berichten: 11498
Lid geworden op: wo 10 dec 2003, 18:36
Locatie: nederweert. .. .. .. .. .. .. .. .. .

Bericht door Mat Janssen »

Als je meer dan 10 keer achter elkaar compileerd. De buffer is dan vol. Als je het programma weer opnieuw opstart dan mag je weer 10 keer. Foutje in het programma met een verkeerde melding.
signature ruimte te huur ;-)
Verhuurd :!:
JARI NETWORKS
Berichten: 1697
Lid geworden op: zo 23 apr 2006, 19:01
Locatie: Hedalen. .. Noorwegen .. .. .. .. .. .. ...

Bericht door JARI NETWORKS »

oke, dank je Mat
http://pent.no/Vaer.aspx?ID=84337
600 MOH
tot nu toe koudste temp -29,9
De logica van Windows: klik op START om af te sluiten.
Mijn verrekijker vergroot 10x, maar bij de 11e keer werkte hij ook nog
JARI NETWORKS
Berichten: 1697
Lid geworden op: zo 23 apr 2006, 19:01
Locatie: Hedalen. .. Noorwegen .. .. .. .. .. .. ...

Bericht door JARI NETWORKS »

:evil:


@ DEVICE PIC16F877a,BOD_OFF
@ DEVICE PIC16F877a,LVP_OFF
@ DEVICE PIC16F877a,CPD_OFF
@ DEVICE PIC16F877a,PROTECT_OFF

DEFINE OSC 20

DEFINE LCD_DREG PORTB ' set LCD Data Port
DEFINE LCD_DBIT 4 ' set starting Data bit if 4 bit
DEFINE LCD_RSREG PORTB.3 ' set LCD Register Select port
DEFINE LCD_RSBIT 0 ' set LCD Register Select bit
DEFINE LCD_EREG PORTB.1 ' set LCD Enable port
DEFINE LCD_EBIT 1 ' set LCD enable bit
DEFINE LCD_BITS 4 ' set LCD bus size ( 4 bits )
DEFINE LCD_LINES 2 ' set number of lines on LCD ( 2 lines )
DEFINE LCD_COMMANDUS 2000 ' set command delay time in us
DEFINE LCD_DATAUS 50 ' set data delay time in us

TRISA %00111111
TRISE %00000111
TRISD %00000000

CMCON=7

Krijg ik n foutmelding op de 3 TRIS regels

??? :?
http://pent.no/Vaer.aspx?ID=84337
600 MOH
tot nu toe koudste temp -29,9
De logica van Windows: klik op START om af te sluiten.
Mijn verrekijker vergroot 10x, maar bij de 11e keer werkte hij ook nog
Gebruikersavatar
Stynus
Site Admin
Site Admin
Berichten: 5910
Lid geworden op: vr 16 mei 2003, 20:45
Locatie: Overpelt (België)
Contacteer:

Bericht door Stynus »

je moet er een = tussen zetten.

TRISA = %00111111
TRISE = %00000111
TRISD = %00000000
JARI NETWORKS
Berichten: 1697
Lid geworden op: zo 23 apr 2006, 19:01
Locatie: Hedalen. .. Noorwegen .. .. .. .. .. .. ...

Bericht door JARI NETWORKS »

:oops: :oops: :oops: :oops: :oops:

EDIT


En n syntax error na n ENDIF , wat kan daar de oorzaak van zijn??
http://pent.no/Vaer.aspx?ID=84337
600 MOH
tot nu toe koudste temp -29,9
De logica van Windows: klik op START om af te sluiten.
Mijn verrekijker vergroot 10x, maar bij de 11e keer werkte hij ook nog
JARI NETWORKS
Berichten: 1697
Lid geworden op: zo 23 apr 2006, 19:01
Locatie: Hedalen. .. Noorwegen .. .. .. .. .. .. ...

Bericht door JARI NETWORKS »

hier het bestandje waar ik mee bezig ben
Bijlagen
versnellingsbak-2.txt
(2.08 KiB) 1575 keer gedownload
http://pent.no/Vaer.aspx?ID=84337
600 MOH
tot nu toe koudste temp -29,9
De logica van Windows: klik op START om af te sluiten.
Mijn verrekijker vergroot 10x, maar bij de 11e keer werkte hij ook nog
JARI NETWORKS
Berichten: 1697
Lid geworden op: zo 23 apr 2006, 19:01
Locatie: Hedalen. .. Noorwegen .. .. .. .. .. .. ...

Bericht door JARI NETWORKS »

progje iets aangepast, zaten nog enkele fouten in zag ik,
de fouten die er nu nog in zitten moet ik nog n tijdje op turen
om te zien hoe die zijn op te lossen
http://pent.no/Vaer.aspx?ID=84337
600 MOH
tot nu toe koudste temp -29,9
De logica van Windows: klik op START om af te sluiten.
Mijn verrekijker vergroot 10x, maar bij de 11e keer werkte hij ook nog
Gebruikersavatar
Stynus
Site Admin
Site Admin
Berichten: 5910
Lid geworden op: vr 16 mei 2003, 20:45
Locatie: Overpelt (België)
Contacteer:

Bericht door Stynus »

Ik denk dat het fouten geeft omdat je na else verder hebt geschreven.

Code: Selecteer alles

IF PORTA.0 = 1 Then 
GoSub V1 
Else PORTD.1 = 0
EndIF
Moet dit worden:

Code: Selecteer alles

IF PORTA.0 = 1 Then 
GoSub V1 
Else 
PORTD.1 = 0
EndIF
JARI NETWORKS
Berichten: 1697
Lid geworden op: zo 23 apr 2006, 19:01
Locatie: Hedalen. .. Noorwegen .. .. .. .. .. .. ...

Bericht door JARI NETWORKS »

OKE, dank je.

is er n stelregel voor om te bepalen hoe groot de pull-up weerstand moet zijn die je plaatst tussen mclr en de vdd??
http://pent.no/Vaer.aspx?ID=84337
600 MOH
tot nu toe koudste temp -29,9
De logica van Windows: klik op START om af te sluiten.
Mijn verrekijker vergroot 10x, maar bij de 11e keer werkte hij ook nog
Gebruikersavatar
Stynus
Site Admin
Site Admin
Berichten: 5910
Lid geworden op: vr 16 mei 2003, 20:45
Locatie: Overpelt (België)
Contacteer:

Bericht door Stynus »

Ik neem meestal 4K7. Maar alles tussen 1k en 40K moet werken meen ik.
JARI NETWORKS
Berichten: 1697
Lid geworden op: zo 23 apr 2006, 19:01
Locatie: Hedalen. .. Noorwegen .. .. .. .. .. .. ...

Bericht door JARI NETWORKS »

:oops:

SORRY, maar ik blijf maar vragen.

@ DEVICE PIC16F877a,BOD_OFF
@ DEVICE PIC16F877a,LVP_OFF
@ DEVICE PIC16F877a,CPD_OFF
@ DEVICE PIC16F877a,PROTECT_OFF

DEFINE OSC 20



TRISA = %00111111
TRISE = %00000111
TRISD = %00000000

CMCON=7

UITLEZING:

IF PORTA.0 = 1 Then
PORTD.0 = 1
Else
PORTD.1 = 0
EndIF

IF PORTA.1 = 1 Then
PORTD.1 = 1
Else
PORTD.1 = 0
EndIF

GoTo UITLEZING

End

als ik port a.0 n voeding geef dmv n dip-switch
dan zal toch als het goed is port d.0 n led aan moeten sturen??

het zelfde geldt toch voor a.1 en d.1
http://pent.no/Vaer.aspx?ID=84337
600 MOH
tot nu toe koudste temp -29,9
De logica van Windows: klik op START om af te sluiten.
Mijn verrekijker vergroot 10x, maar bij de 11e keer werkte hij ook nog
reddevil
Berichten: 316
Lid geworden op: wo 7 feb 2007, 22:54
Locatie: lummen. .. .. .. .. .. .. .. .. .....

Bericht door reddevil »

JARI NETWORKS schreef::oops:



IF PORTA.0 = 1 Then
PORTD.0 = 1
Else
PORTD.1 = 0
EndIF


Ik denk dat je portd.1 naar portd.0 moet veranderen. Kijk het eens na of je je daar niet vergist hebt.
Professioneel LED Temmer :twisted: alléé dat hoop ik.
JARI NETWORKS
Berichten: 1697
Lid geworden op: zo 23 apr 2006, 19:01
Locatie: Hedalen. .. Noorwegen .. .. .. .. .. .. ...

Bericht door JARI NETWORKS »

daar zit idd n fout, zal het eens veranderen
en daarna weer eens proberen

EDIT:

hmmm, het heeft nix geholpen, de leds vertikken het gewoon om op te lichten
http://pent.no/Vaer.aspx?ID=84337
600 MOH
tot nu toe koudste temp -29,9
De logica van Windows: klik op START om af te sluiten.
Mijn verrekijker vergroot 10x, maar bij de 11e keer werkte hij ook nog
reddevil
Berichten: 316
Lid geworden op: wo 7 feb 2007, 22:54
Locatie: lummen. .. .. .. .. .. .. .. .. .....

Bericht door reddevil »

Kun je niet eens een led gewoon laten oplichten bv door PORTD.0 = 1 in je programma te zetten. Licht die niet op zijn er nog andere problamen. Soms laat ik ook eerst een led pinken op een uitgang. Ben je zeker dat voeding en kristal juist zijn, en de led natuurlijk.
Professioneel LED Temmer :twisted: alléé dat hoop ik.
JARI NETWORKS
Berichten: 1697
Lid geworden op: zo 23 apr 2006, 19:01
Locatie: Hedalen. .. Noorwegen .. .. .. .. .. .. ...

Bericht door JARI NETWORKS »

voeding is oke, heb daar n led overheen staan op breadboard.

xtal 20 MHz en 2 condensatoren van 22pF naar de 0 (VSS)
xtal op de pinnen 13 en 14 (osc1 en osc2) van pic16f877a

VDD op pin 32 en pin 11
VSS op pin 31 en pin 12

heb nu zelfs n led gezet over de doorverbonden voedinges pennen 11 en 12
doorverbonden naar 32 en 31

lange poot van de led op de + en de korte op de min
http://pent.no/Vaer.aspx?ID=84337
600 MOH
tot nu toe koudste temp -29,9
De logica van Windows: klik op START om af te sluiten.
Mijn verrekijker vergroot 10x, maar bij de 11e keer werkte hij ook nog
Mat Janssen
Moderator
Moderator
Berichten: 11498
Lid geworden op: wo 10 dec 2003, 18:36
Locatie: nederweert. .. .. .. .. .. .. .. .. .

Bericht door Mat Janssen »

je vergeet toch geen serieweerstand met de leds he.
signature ruimte te huur ;-)
Verhuurd :!:
JARI NETWORKS
Berichten: 1697
Lid geworden op: zo 23 apr 2006, 19:01
Locatie: Hedalen. .. Noorwegen .. .. .. .. .. .. ...

Bericht door JARI NETWORKS »

heb er n weerstand van 1K tussen zitten
http://pent.no/Vaer.aspx?ID=84337
600 MOH
tot nu toe koudste temp -29,9
De logica van Windows: klik op START om af te sluiten.
Mijn verrekijker vergroot 10x, maar bij de 11e keer werkte hij ook nog
reddevil
Berichten: 316
Lid geworden op: wo 7 feb 2007, 22:54
Locatie: lummen. .. .. .. .. .. .. .. .. .....

Bericht door reddevil »

En gaat die led over de pinnen van de ic?
Professioneel LED Temmer :twisted: alléé dat hoop ik.
JARI NETWORKS
Berichten: 1697
Lid geworden op: zo 23 apr 2006, 19:01
Locatie: Hedalen. .. Noorwegen .. .. .. .. .. .. ...

Bericht door JARI NETWORKS »

ja die led gaat vanaf pin19 (d0) naar de ground
http://pent.no/Vaer.aspx?ID=84337
600 MOH
tot nu toe koudste temp -29,9
De logica van Windows: klik op START om af te sluiten.
Mijn verrekijker vergroot 10x, maar bij de 11e keer werkte hij ook nog
Mat Janssen
Moderator
Moderator
Berichten: 11498
Lid geworden op: wo 10 dec 2003, 18:36
Locatie: nederweert. .. .. .. .. .. .. .. .. .

Bericht door Mat Janssen »

Met of zonder serieweerstand ??? Ik hoop met. met een waarde zo tussen de 390 ohm en 1K5.
signature ruimte te huur ;-)
Verhuurd :!:
Plaats reactie