16f877 data gönderme

[Mr.Thinking]

16f877 kullanılarak buton yardımı ile verici ile data gönderme ve alıcıda okumaya bir yazılım örneği verebilirmisiniz.

[Ankaralı]

16f877 kullanılarak buton yardımı ile verici ile data gönderme ve alıcıda okumaya bir yazılım örneği verebilirmisiniz.

Demek istediğin rf mi abicim?

[Mr.Thinking]

16f877 kullanılarak buton yardımı ile verici ile data gönderme ve alıcıda okumaya bir yazılım örneği verebilirmisiniz.

Demek istediğin rf mi abicim?

evet rf. Yardımcı olabilirseniz çok sevinirim

[Ankaralı]

Şimdi ben bunda buton yardımıyla step motor sürmüştüm.Siz kendiniz isteğinize göre programı ayarlarsınız.Kolay gelsin...



Alıcı;

@ DEVICE pic16F84A 
@ DEVICE pic16F84A, WDT_OFF
@ DEVICE pic16F84A, PWRT_OFF
@ DEVICE pic16F84A, XT_OSC
DEFINE OSC 4

TRISA=255
TRISB=0
PORTB=0

ALICI VAR Byte
ALICI=0
PAUSE 500

BASLA:

	SERIN2 PORTA.0,813,[Wait("ANIL"),ALICI]

	If ALICI=1 Then
	PORTB=%01100000
	PAUSE 50
	PORTB=%00110000
	PAUSE 50
	PORTB=%10010000
	PAUSE 50
	PORTB=%11000000
	PAUSE 50
	EndIf
	
	If ALICI=2 Then
	PORTB=%11000000
	PAUSE 50
	PORTB=%10010000
	pause 50
	PORTB=%00110000
	pause 50
	PORTB=%01100000
	pause 50
	EndIf
	
	GoTo BASLA
	End                

Verici;

@ DEVICE pic16F84A 
@ DEVICE pic16F84A, WDT_OFF
@ DEVICE pic16F84A, PWRT_OFF
@ DEVICE pic16F84A, XT_OSC
DEFINE OSC 4

TRISA=%00000
TRISB=%00000011

	VERICI VAR Byte	
	VERICI=0
	PAUSE 300

BASLA:

	If PORTB.0=0 Then
	VERICI=1
	GoSub GONDER
	PAUSE 100
	EndIf

	If PORTB.1=0 Then
	VERICI=2
	GoSub GONDER
	PAUSE 100
	EndIf

	GoTo BASLA
	
GONDER:
SEROUT2 PORTA.0,813,["A","N","I","L",VERICI]
SEROUT2 PORTA.0,813,["A","N","I","L",VERICI]
SEROUT2 PORTA.0,813,["A","N","I","L",VERICI]
Return
End