HSerOut

[demirkan1]

Arkadaşlar merhaba,
protonda HSerOut komutunu çalıştıramadım, 16f777 , 16f877 ve 16f648a üçüde bir türlü hiperterminale bilgi gönderemiyorum ancak serout komutu çok güzel çalışıyor denediğim kodlar aşağıda artık protondan şüphelenmeye başladım


    Device 16F877                                   
    Config HS_OSC, WDT_OFF, PWRTE_ON, LVP_OFF
    XTAL=20                                       
    ALL_DIGITAL TRUE                                 
    PORTB_PULLUPS On 
   
    Declare LCD_TYPE 0                               
    Declare LCD_DTPIN PORTb.4
    Declare LCD_ENPIN PORTB.3
    Declare LCD_RSPIN PORTb.2
    Declare LCD_INTERFACE 4 
    Declare LCD_LINES  2
       
    hSERIAL_BAUD = 9600
    HSERIAL_RCSTA = %10010000
    HSERIAL_TXSTA = %00100000
    HSERIAL_CLEAR = On
   
    Dim A As byte
   
    TRISA=%00000000
    TRISB=%00000010
   
BASLA:
    For A=0 To 255
    HSerOut [A]
    Print At 1,1, Dec A 
    DelayMS 100
    Next A
    GoTo BASLA
                   

[Maxim]

HSERIAL_BAUD = 9600
HSERIAL_RCSTA = %10010000
HSERIAL_TXSTA = %100100
HSERIAL_SPBRG=129
HSERIAL_CLEAR = On

bunu deneyin

[ete]

Birde şunları dene;

HSERIAL_BAUD = 9600
HSERIAL_RCSTA = %10010000
HSERIAL_TXSTA = %00100100
HSERIAL_SPBRG=129
HSERIAL_CLEAR = On

Verdiğim değerler Maxiboost'un verdikleri ile aynı. Yalnızca TXSTA da eksik olan bitleri de yazdım. Belki kafa karıştırır diye düşündüm.

ete

[demirkan1]

her ikisini de denedim ancak olmadı ve lcd ye veri aktarılmıyor ancak hserout satırını silersem lcd saymaya başlıyor eger hserout satırı devredeyse lcd bişey gelmiyor

bu yazdığım kodu siz protonda denermisiniz sizde çalışıyormu acaba artık ben protondan şüpheleniyorum

[Maxim]

Device 16F877                                   
    Config HS_OSC, WDT_OFF, PWRTE_ON, LVP_OFF
    XTAL=20                                        
    ALL_DIGITAL TRUE                                  
    PORTB_PULLUPS On  
    
    
    TRISA=%00000000
    TRISB=%00000010
    TRISC=%10000000
    
    Declare LCD_TYPE 0                                
    Declare LCD_DTPIN PORTB.4 
    Declare LCD_ENPIN PORTB.3 
    Declare LCD_RSPIN PORTB.2 
    Declare LCD_INTERFACE 4  
    Declare LCD_LINES  2
       
HSERIAL_BAUD = 9600
HSERIAL_RCSTA = %10010000
HSERIAL_TXSTA = %00100100
HSERIAL_SPBRG=129
HSERIAL_CLEAR = On
    
    Dim A As Byte
    

    
BASLA:
    For A=0 To 255
    HSerOut [Dec A,13]
    Print At 1,1, Dec A  
    DelayMS 100
    Next A
    GoTo BASLA

[davul42]

Hocam verdiğiniz örnekteğin ALICI programı şu şekilde değilmidir???

Device = 16F877
XTAL=20
Config HS_OSC, WDT_OFF, PWRTE_ON, LVP_OFF
PORTB_PULLUPS On

ALL_DIGITAL = True

LCD_DTPIN = PORTD.4
LCD_RSPIN = PORTD.2
LCD_ENPIN = PORTD.3
LCD_INTERFACE = 4
LCD_LINES = 2
LCD_TYPE = 0


HSERIAL_BAUD  = 9600
HSERIAL_RCSTA = %10010000
HSERIAL_TXSTA = %00100100
HSERIAL_SPBRG = 129
HSERIAL_CLEAR = On

Dim A As Byte


giris:
Print At 1,1, "ALICI"
HSerIn 100000,hata,[A]
Print At 2,1,Dec A
GoTo giris

hata:
Cls
Print At 1,1,"hata"
GoTo hata


birde
HSerOut [Dec A,13] komutundeki 13 nedir?

[isikyasar]

Merhaba arkadaşlar,
vericide yapılan işi alıcı sorunsuz bir şekilde gerçekleştiriyor. Ama şöyle bir  sorun var  Vericide butona basıyorum veri gidiyor ve alıcıdaki led yanıyor. Butona basılı iken vericinin besleme enerjisini kestiğimde alıcıdaki led hala yanıyor..BU KONUDA YARDIMLARINIZI BEKLİYORUM....




'VERICI BÖLÜMÜ------------------------------------

device 16f84a

TRISA=%11110
TRISB=%01111111
PORTA=0
PORTB=0

dim VERICI as portb   
   VERICI=0

delayms 200

BASLA:
   VERICI=PORTB
  SEROUT PORTA.0,396 ,["S","A","R","I", VERICI]

GOTO BASLA
END

'ALICI BÖLÜMÜ-------------------------------------

device 16f84

trisa=255
porta=0

OUTPUT PORTB
portb=0

DIM ALICI AS PORTB

delayms 250

BASLA:

serin PORTA.0,396, [wait("SARI"),ALICI]

GOTO BASLA
   END
   ----------------------------------------------------------------------------------------

[ali_29]

BASLA:
serin PORTA.0,396, [wait("SARI"),ALICI]
GOTO BASLA
END
alıcıda ki bu kısmı

BASLA:
serin PORTA.0,396,1000,hata ,[wait("SARI"),ALICI]
GOTO BASLA
   END

hata:
ALICI = 0
GOTO BASLA

olarak değiştir düzelecektir.

[isikyasar]

uygulamalı olarak  ve proteus ta denedim verici kısmındaki pic i pasif ettiğim halde alıcıdaki led hala yanıyor..

BASLA:
serin PORTA.0,396,1000,hata ,[wait("SARI"),ALICI]
GOTO BASLA
   END

hata:
ALICI = 0
GOTO BASLA

[isikyasar]

uygulamalı olarak  ve proteus ta denedim verici kısmındaki pic i pasif ettiğim halde alıcıdaki led hala yanıyor..bu konuda yardımlarınızı bekliyorum..

BASLA:
serin PORTA.0,396,1000,hata ,[wait("SARI"),ALICI]
GOTO BASLA
   END

hata:
ALICI = 0
GOTO BASLA

[My75]

1000ms zaman aşımı çok yüksek ,100ms ve altını tavsiye ederim.

[isikyasar]

15 ms yapınca tam istediğim gibi oldu.. teşekkürler...