hserout bit 2 en 3 niet laten tellen

Je kunt toch gewoon bij ontvangst de bits die je niet nodig hebt negeren?

weet niet hoe,
heb 6 schakelaars
aan port.0 .3 .4 .5 .6 .7
aan port.2 zit de txd

hoe doe ik dat dan daar kom ik niet uit
en het terug halen bij de ondvanger
hserin

Daar waar je de serieele data ontvangt, doe je gewoon niks met bit 2 en 3...
(Aan de zend-kant zend je gewoon een hele byte uit)

Oke ik heb dezen code ge probeerd en hij doet het niet wil iemand kijken naar de Coden aub wat ik evtw fout heb. ik kom er niet uit om de databyte te ondvangen en dezen zo neer te zeten op de 8 portb zo de databyte word ondvangen

; 12 Kanaals Zender 433.??? copy right R.vis mag alleen gebruikt woren met toestemming

Device 16F628A ;Gebruik een 16F628A type
Config hs_osc, WDT_Off, PWRTE_ON, lvp_off, MCLRE_OFF
Xtal = 8

;;;;;;;;Hserial_Baud = 9600 ;Transmissiesnelheid van de data over de bus
Hserial_SPBRG = 25
Hserial_RCSTA = %10010000 ;Bit7:Enable serial port / Bit4:Continu ontvangen
Hserial_TXSTA = %00100000 ;Bit5:Transmitpin ingeschakeld

Dim DATAbyte As Byte

TRISB = %00001100
TRISB.4 = 0
DelayMS 1000
PORTB.4 = 1
DelayMS 1000
PORTB.4 = 0

While 1=1
HSerIn [DATAbyte]
If DATAbyte = DATABYTE Then
DATABYTE = PORTB
EndIf
Wend

End

en de zender die werkt WEL PERFECT

; 12 Kanaals Zender 433.??? copy right R.vis mag alleen gebruikt woren met toestemming

Device 16F628A ;Gebruik een 16F628A type
Config hs_osc, WDT_Off, PWRTE_ON, lvp_off, MCLRE_OFF
Xtal = 16

;;;;;;;;Hserial_Baud = 9600 ;Transmissiesnelheid van de data over de bus
Hserial_SPBRG = 25
Hserial_RCSTA = %10010000 ;Bit7:Enable serial port / Bit4:Continu ontvangen
Hserial_TXSTA = %00100000 ;Bit5:Transmitpin ingeschakeld

TRISB = %11111111
Dim teller As Byte

DelayMS 3000

teller = %11111111

While 1=1
teller = PORTB
HSerOut [teller]
DelayMS 10
Wend

End

ik hoop toch dat er iemand is die me wil helpen met de coden van de ontvanger ik kom er niet uit
Kan iemand mijn vertellen hoe ik dit dan weer op pik ook met en teller of niet ik kom er niet uit
Bij de ontvanger

Op 15 september 2011 22:55:20 schreef ricardo12345:
wat ik evtw fout heb

Een spellingschecker zou het lezen van je posts een stuk prettiger maken. En misschien wel voor meer antwoorden zorgen.

Ik zie het probleem niet zo. Waarom moeten die zes schakelaars netjes achter elkaar staan in een byte? Of je nou bit 2 & 3 negeert of bit 7 & 8, dat is niet zo'n verschil.

oke spelling is aan gepast . en ja ik moet er op letten.
de schakelaars dat heb ik nu ook door zag het eerst niet .
ze zender doet het wel perfect

maar die ondvanger wil maar niks binnen krijgen

schakeling ondvanger is wel goed heb ik getest met 2 vaste byte te versturen alles goog en alles laag

maar ik kom nu niks verder met de code van dezen ondvanger

Nou he he ik ben een stuk verder dezen code doet het maar er is 1 klein probleem.

wat de zender verstuurd komt er aan de andere kan omgedraaid uit dus alle leds aan is bij de ondvanger alles uit en om gekeerd

weet iemand hoe je dit aan pak hier de code

; 12 Kanaals Zender 433.??? copy right R.vis mag alleen gebruikt woren met toestemming

Device 16F628A ;Gebruik een 16F628A type
Config hs_osc, WDT_Off, PWRTE_ON, lvp_off, MCLRE_OFF
Xtal = 8

;;;;;;;;Hserial_Baud = 9600 ;Transmissiesnelheid van de data over de bus
Hserial_SPBRG = 25
Hserial_RCSTA = %10010000 ;Bit7:Enable serial port / Bit4:Continu ontvangen
Hserial_TXSTA = %00100000 ;Bit5:Transmitpin ingeschakeld

Dim DATAbyte As Byte
Dim teller As Byte
TRISB = %00000000
TRISB.4 = 0
DelayMS 1000
PORTB.4 = 1
DelayMS 1000
PORTB.4 = 0

DelayMS 3000

While 1 = 1
HSerIn [teller]
If teller = teller Then
PORTB = teller
EndIf
Wend

End

[Bericht gewijzigd door klein is fijn op zaterdag 17 september 2011 15:20:29 (0%)]

kan iemand mijn helpen met het werkend te krijgen om via een schakelaar s1 een signaal opdracht te versturen
met dezen coden ik heb all zo veel ge probeert .ik denk om da t het hserout is en niet een software matige dat je dat heel anders moet doen maar goed dat weet ik dus niet zeker misschien kan iemand me vertellen hoe dat zit

alleen ik kom hier niet uit heb een sub aan gemak en getest op s1 gedrukt zender doet niks en war je en pausen heb staan in de lus daar heb ik dan de code aan gepast en dat doet i ook niet ik snap dit
zodra er een delayms 5 staat doet i het wel . ik snap
echt niet waarom dit niet werk komt dit door dat het hserout is of iets hier de werken de code
wil alleen maar dat als er een pulsje kom .dat er dan een byte word verzonden
groetjes

alvast bedankt

Device 16F628A ;Gebruik een 16F628A type
Config hs_osc, WDT_Off, PWRTE_ON, lvp_off, MCLRE_OFF
All_Digital = true
Xtal = 16

;;;;;;;;Hserial_Baud = 9600 ;Transmissiesnelheid van de data over de bus
Hserial_SPBRG = 25
Hserial_RCSTA = %10010000 ;Bit7:Enable serial port / Bit4:Continu ontvangen
Hserial_TXSTA = %00100000 ;Bit5:Transmitpin ingeschakeld

TRISB = %11111111
TRISA.1 = 1
Dim teller As Byte
teller = %11111111
Symbol S1 = PORTA.2

DelayMS 3000
;--------------------
Clear
START:
teller = PORTB ; hier moet iets komen wanneer puks komt zent opdracht dit lukt echt niet
HSerOut [teller]

DelayMS 100
GoTo START
;---------------------

End
End