platoonn
Üye
- Katılım
- 30 Eki 2007
- Mesajlar
- 5
- Puanları
- 1
- Yaş
- 40
arkadaşlar Ir alıcı verici yapmak istiyorum ancak şu 38 khz kafamı karıştırıyor.
Serin serout komutlarıyla yapmak mümkünmü bunu yoksa bu 38 khz i kendimizmi üretmek zorundayız.
devrenin cok hassas olması gerekmiyor çalışsın yeter.
bide derleme yaparken Error[113] C:\PBP\PBPPIC14.LIB 1630 : symbol not previusly defined (PORTA) diyor programı kendim yazmadığım için anlamıyorum sorun nerde .Belen biri varsa bi el atsın
vericinin nin komutu
Include "Modedefs.Bas"
Include "Irserout.Inc" ' Load in the New Subroutine
' ** Set Xtal Value in mHz **
Define OSC 4 ' Set Xtal Frequency
' ** New Defines for IRSEROUT **
Define IRSEROUT_PORT PortB ' Set IRSEROUT Port
Define IRSEROUT_BIT 7 ' Set IRSEROUT Pin
Define IRSEROUT_BAUD 2400 ' Set IRSEROUT Baud Rate
Define IRSEROUT_PACING 1 ' Set the delay between bytes sent (in ms)
Define IRSEROUT_HEADER 0 ' Turn on/off the three byte header "#OK"
' ** Declare Variables **
Counter Var Byte ' Count from 0 to 255
IR_ID Con 1 ' Transmitter number
' ** Start of Program **
Start: Pause 500 ' Wait For the Pic to Initialize
Main: For Counter=0 to 255
IR_BYTE="#":Gosub IRSerout ' Send a three byte header
IR_BYTE="O":Gosub IRSerout ' to syncronise the receiver
IR_BYTE="K":Gosub IRSerout ' with the actual byte sent
IR_BYTE=IR_ID:Gosub IRSerout ' Send out the transmitter number
IR_BYTE=Counter ' Send out the data byte
Gosub IRserout
Next
Goto Main ' Infinite Loop
bide bunun alt programı var ama programın tam olarak mantığını anlamadım iyi bilen birisi bi göz geçirse.
Serin serout komutlarıyla yapmak mümkünmü bunu yoksa bu 38 khz i kendimizmi üretmek zorundayız.
devrenin cok hassas olması gerekmiyor çalışsın yeter.
bide derleme yaparken Error[113] C:\PBP\PBPPIC14.LIB 1630 : symbol not previusly defined (PORTA) diyor programı kendim yazmadığım için anlamıyorum sorun nerde .Belen biri varsa bi el atsın
vericinin nin komutu
Include "Modedefs.Bas"
Include "Irserout.Inc" ' Load in the New Subroutine
' ** Set Xtal Value in mHz **
Define OSC 4 ' Set Xtal Frequency
' ** New Defines for IRSEROUT **
Define IRSEROUT_PORT PortB ' Set IRSEROUT Port
Define IRSEROUT_BIT 7 ' Set IRSEROUT Pin
Define IRSEROUT_BAUD 2400 ' Set IRSEROUT Baud Rate
Define IRSEROUT_PACING 1 ' Set the delay between bytes sent (in ms)
Define IRSEROUT_HEADER 0 ' Turn on/off the three byte header "#OK"
' ** Declare Variables **
Counter Var Byte ' Count from 0 to 255
IR_ID Con 1 ' Transmitter number
' ** Start of Program **
Start: Pause 500 ' Wait For the Pic to Initialize
Main: For Counter=0 to 255
IR_BYTE="#":Gosub IRSerout ' Send a three byte header
IR_BYTE="O":Gosub IRSerout ' to syncronise the receiver
IR_BYTE="K":Gosub IRSerout ' with the actual byte sent
IR_BYTE=IR_ID:Gosub IRSerout ' Send out the transmitter number
IR_BYTE=Counter ' Send out the data byte
Gosub IRserout
Next
Goto Main ' Infinite Loop
bide bunun alt programı var ama programın tam olarak mantığını anlamadım iyi bilen birisi bi göz geçirse.