Op Elektronicaforum.nl is de kans om een antwoord op je vraag te krijgen heel groot. In overzichtelijke subcategorieën kun je vragen en antwoorden over elektronica zoeken, plaatsen en beantwoorden.
Elektronica Forum is onderdeel van Schakelingen Online
 


 
16F628
Ga naar Pagina Vorige  1, 2, 3, 4, 5, 6, 7, 8, 9, 10
 
Plaats nieuw bericht   Plaats Reactie    Schakelingen Online Forum Index -> Digitaal
Auteur Bericht
JARI NETWORKS



Geregistreerd op: 23-4-2006
Berichten: 1697
Woonplaats: Hedalen. Noorwegen ...

BerichtGeplaatst: Wo 1 Mrt 2017, 14:01    Onderwerp: Reageer met quote

is het mogelijk om een letter op n display te zetten, in pbp, door middel van n ascii code?

bv : 65 voor de letter A



heb t gevonden

toch bedankt
Naar boven
Bekijk gebruikers profiel Stuur privé bericht
Hedalen



Geregistreerd op: 17-10-2015
Berichten: 38
Woonplaats:

BerichtGeplaatst: Vr 15 Sep 2017, 12:32    Onderwerp: Reageer met quote

Symbol S1 = PORTB.0 ;Poort B.0 heeft nu de naam S1
Symbol S2 = PORTB.1 ;Poort B.1 heeft nu de naam S2
Symbol S3 = PORTB.2 ;Poort B.2 heeft nu de naam S3
Symbol S4 = PORTB.3 ;Poort B.3 heeft nu de naam S4
Symbol S5 = PORTB.4 ;Poort B.4 heeft nu de naam S5
Symbol S6 = PORTB.5 ;Poort B.5 heeft nu de naam S6
Symbol S7 = PORTB.6 ;Poort B.6 heeft nu de naam S7
Symbol S8 = PORTB.7 ;Poort B.8 heeft nu de naam S8

Symbol LED1 = PORTC.0
Symbol LED2 = PORTC.1
Symbol LED3 = PORTC.2
Symbol LED4 = PORTC.3
Symbol LED5 = PORTD.0
Symbol LED6 = PORTD.1
Symbol LED7 = PORTD.2
Symbol LED8 = PORTD.3

Symbol OUT1 = PORTC.4
Symbol OUT2 = PORTC.5
Symbol OUT3 = PORTC.6
Symbol OUT4 = PORTC.7
Symbol OUT5 = PORTD.4
Symbol OUT6 = PORTD.5
Symbol OUT7 = PORTD.6
Symbol OUT8 = PORTD.7

PORTB = %00000000 ;Alle niveaus van PORTB laag
PORTC = %00000000 ;Alle niveaus van PORTC laag
PORTD = %00000000 ;Alle niveaus van PORTD laag

TRISA = %00000000
TRISB = %11111111 ;Alle PORTB poorten omschakelen als INgang
TRISC = %00000000 ;Alle PORTC poorten omschakelen als uitgang
TRISD = %00000000 ;Alle PORTD poorten omschakelen als uitgang


als ik dit stukje programma bekijk, mag ik er toch van uit gaan dat :
alle poorten c en poorten d laag zijn?
of vergis ik me hier nu in
Naar boven
Bekijk gebruikers profiel Stuur privé bericht
stynus
Moderator
Moderator


Geregistreerd op: 16-5-2003
Berichten: 5787
Woonplaats: Overpelt (België)

BerichtGeplaatst: Vr 15 Sep 2017, 17:32    Onderwerp: Reageer met quote

Je kan best eerst tris zetten en dan pas port. Wat er nu kan gebeuren is dat een pin nog als ingang kan staan en door zweven een 1 wordt. Vervolgens zet je tris en dan blijft het 1.
_________________
Met vriendelijke groet,
Stynus
http://www.elektronicastynus.be

--> Elektronica bouwpakketten en componenten te koop. <--
Naar boven
Bekijk gebruikers profiel Stuur privé bericht Bekijk de homepage
Hedalen



Geregistreerd op: 17-10-2015
Berichten: 38
Woonplaats:

BerichtGeplaatst: Vr 29 Sep 2017, 13:06    Onderwerp: Reageer met quote

;-------------------------------------------------------------------------------
;**** Added by Fuse Configurator ****
; Use the Fuse Configurator plug-in to change these settings

Device = 16F877A

Config WDT_Off, PWRTE_ON, HS_OSC , LVP_off

;**** End of Fuse Configurator Settings ****
;-------------------------------------------------------------------------------

All_Digital TRUE ;Alle ingangen digitaal

Symbol S1 = PORTB.0
Symbol S2 = PORTB.1
Symbol S3 = PORTB.2
Symbol S4 = PORTB.3
Symbol S5 = PORTB.4
Symbol S6 = PORTB.5
Symbol S7 = PORTB.6
Symbol S8 = PORTB.7

Symbol LED1 = PORTC.0
Symbol LED2 = PORTC.1
Symbol LED3 = PORTC.2
Symbol LED4 = PORTC.3
Symbol LED5 = PORTD.0
Symbol LED6 = PORTD.1
Symbol LED7 = PORTD.2
Symbol LED8 = PORTD.3

Symbol OUT1 = PORTC.4
Symbol OUT2 = PORTC.5
Symbol OUT3 = PORTC.6
Symbol OUT4 = PORTC.7
Symbol OUT5 = PORTD.4
Symbol OUT6 = PORTD.5
Symbol OUT7 = PORTD.6
Symbol OUT8 = PORTD.7

While 1 = 1

If S1 = 1 Then
Toggle LED1
EndIf
If LED1 = 1 Then
High OUT1
EndIf
DelayMS 500

If S2 = 1 Then
Toggle LED2
EndIf
If LED2 = 1 Then
High OUT2
EndIf
DelayMS 500


If S3 = 1 Then
Toggle LED3
EndIf
If LED3 = 1 Then
High OUT3
EndIf
DelayMS 500


If S4 = 1 Then
Toggle LED4
EndIf
If LED4 = 1 Then
High OUT4
EndIf
DelayMS 500


If S5 = 1 Then
Toggle LED5
EndIf
If LED5 = 1 Then
High OUT5
EndIf
DelayMS 500

If S6 = 1 Then
Toggle LED6
EndIf
If LED6 = 1 Then
High OUT6
EndIf
DelayMS 500


If S7 = 1 Then
Toggle LED7
EndIf
If LED7 = 1 Then
High OUT7
EndIf
DelayMS 500

If S8 = 1 Then
Toggle LED8
EndIf
If LED8 = 1 Then
High OUT8
EndIf
DelayMS 500




GoSub VERANDER

Wend

VERANDER:
Toggle PORTA.0
Return

End ;Einde programma

waarom schakelen de uitgangen d6 en d7 niet mee in dit geval?


Laatst aangepast door Hedalen op Vr 29 Sep 2017, 13:19, in totaal 1 keer bewerkt
Naar boven
Bekijk gebruikers profiel Stuur privé bericht
Hedalen



Geregistreerd op: 17-10-2015
Berichten: 38
Woonplaats:

BerichtGeplaatst: Vr 29 Sep 2017, 13:07    Onderwerp: Reageer met quote

sorry, ik zie het al, dacht ik, maar nee dus
Naar boven
Bekijk gebruikers profiel Stuur privé bericht
Mat Janssen
Moderator
Moderator


Geregistreerd op: 10-12-2003
Berichten: 11178
Woonplaats: nederweert

BerichtGeplaatst: Vr 29 Sep 2017, 14:41    Onderwerp: Reageer met quote

TRIS vergeten ??
_________________
signature ruimte te huur Wink
Verhuurd Exclamation
Naar boven
Bekijk gebruikers profiel Stuur privé bericht
Hedalen



Geregistreerd op: 17-10-2015
Berichten: 38
Woonplaats:

BerichtGeplaatst: Vr 29 Sep 2017, 15:07    Onderwerp: Reageer met quote

klopt, alsmede de else in de if

dank je Mat
Naar boven
Bekijk gebruikers profiel Stuur privé bericht
Hedalen



Geregistreerd op: 17-10-2015
Berichten: 38
Woonplaats:

BerichtGeplaatst: Vr 29 Sep 2017, 15:17    Onderwerp: Reageer met quote

;-------------------------------------------------------------------------------
;**** Added by Fuse Configurator ****
; Use the Fuse Configurator plug-in to change these settings

Device = 16F877A

Config WDT_Off, PWRTE_ON, HS_OSC , LVP_off

;**** End of Fuse Configurator Settings ****
;-------------------------------------------------------------------------------

All_Digital TRUE ;Alle ingangen digitaal

TRISA = %00000000
TRISB = %11111111
TRISC = %00000000
TRISD = %00000000

PORTB = %00000000
PORTC = %00000000
PORTD = %00000000

Symbol S1 = PORTB.0
Symbol S2 = PORTB.1
Symbol S3 = PORTB.2
Symbol S4 = PORTB.3
Symbol S5 = PORTB.4
Symbol S6 = PORTB.5
Symbol S7 = PORTB.6
Symbol S8 = PORTB.7

Symbol LED1 = PORTC.0
Symbol LED2 = PORTC.1
Symbol LED3 = PORTC.2
Symbol LED4 = PORTC.3
Symbol LED5 = PORTD.0
Symbol LED6 = PORTD.1
Symbol LED7 = PORTD.2
Symbol LED8 = PORTD.3

Symbol OUT1 = PORTC.4
Symbol OUT2 = PORTC.5
Symbol OUT3 = PORTC.6
Symbol OUT4 = PORTC.7
Symbol OUT5 = PORTD.4
Symbol OUT6 = PORTD.5
Symbol OUT7 = PORTD.6
Symbol OUT8 = PORTD.7

While 1 = 1

If S1 = 1 Then
Toggle LED1
EndIf
If LED1 = 1 Then
High OUT1
Else Low OUT1
EndIf
DelayMS 500

If S2 = 1 Then
Toggle LED2
EndIf
If LED2 = 1 Then
High OUT2
Else Low OUT2
EndIf
DelayMS 500


If S3 = 1 Then
Toggle LED3
EndIf
If LED3 = 1 Then
High OUT3
Else Low OUT3
EndIf
DelayMS 500


If S4 = 1 Then
Toggle LED4
EndIf
If LED4 = 1 Then
High OUT4
Else Low OUT4
EndIf
DelayMS 500


If S5 = 1 Then
Toggle LED5
EndIf
If LED5 = 1 Then
High OUT5
Else Low OUT5
EndIf
DelayMS 500

If S6 = 1 Then
Toggle LED6
EndIf
If LED6 = 1 Then
High OUT6
Else Low OUT6
EndIf
DelayMS 500


If S7 = 1 Then
Toggle LED7
EndIf
If LED7 = 1 Then
High OUT7
Else Low OUT7
EndIf
DelayMS 500

If S8 = 1 Then
Toggle LED8
EndIf
If LED8 = 1 Then
High OUT8
Else Low OUT8
EndIf
DelayMS 500




GoSub VERANDER

Wend

VERANDER:
Toggle PORTA.0
Return

End ;Einde programma
Naar boven
Bekijk gebruikers profiel Stuur privé bericht
Plaats nieuw bericht   Plaats Reactie    Schakelingen Online Forum Index -> Digitaal Tijden zijn in GMT + 2 uur
Ga naar Pagina Vorige  1, 2, 3, 4, 5, 6, 7, 8, 9, 10
Pagina 10 van 10                     

 
Ga naar:  
Je mag geen nieuwe onderwerpen plaatsen
Je mag geen reacties plaatsen
Je mag je berichten niet bewerken
Je mag je berichten niet verwijderen
Ja mag niet stemmen in polls
Je mag geen attachments plaatsen in dit forum
Je mag bestanden downloaden in dit forum


Powered by phpBB © 2001, 2002 phpBB Group and phpBB SEO