Buton(Acil)

[Ankaralı]

Hocam bu şekilde olurmu?

   IF PORTB.7=0 AND PORTB.1=0 THEN
   PORTC.0=0  
   ELSE
   PORTC.0=0
   ENDIF
   
   IF PORTB.7=0 AND PORTB.6=0 THEN
   PORTC.0=1
   ELSE
   PORTC.0=0
   ENDIF
   IF PORTB.0=0 THEN PORTC.0=0
   PAUSE 5
   
   IF PORTB.6=0 AND PORTB.5=0 THEN
   PORTC.0=1
   ELSE
   PORTC.0=0
   ENDIF
   IF PORTC.7=0 THEN PORTC.0=0
   PAUSE 5
   
   IF PORTB.5=0 AND PORTB.4=0 THEN
   PORTC.0=1
   ELSE
   PORTC.0=0
   ENDIF
   IF PORTC.6=0 THEN PORTC.0=0
   PAUSE 5
   
   IF PORTB.4=0 AND PORTB.3=0 THEN
   PORTC.0=1
   ELSE
   PORTC.0=0
   ENDIF
   IF PORTC.5=0 THEN PORTC.0=0
   PAUSE 5
   
   IF PORTB.3=0 AND PORTB.2=0 THEN
   PORTC.0=1
   ELSE
   PORTC.0=0
   ENDIF
   IF PORTC.4=0 THEN PORTC.0=0
   PAUSE 5
   
   GOTO BASLA
   END

[Maxim]

Hocam birde böyle denedim gene olmadı sıyırmak üzereyim  :lol:  :cry:  :roll:  :roll:    :lol:   şimdi sizinkileri uygulayacağım


BASLA :

   IF PORTB.7=0 AND PORTB.1=0 THEN
   PORTC.0=0  
   ELSE
   PORTC.0=0
   ENDIF
   
   IF PORTB.7=0 AND PORTB.6=0 THEN
   PORTC.0=1
   ENDIF
   IF PORTB.0=0 THEN PORTC.0=0
   PAUSE 5
   
   IF PORTB.6=0 AND PORTB.5=0 THEN
   PORTC.0=1
   ENDIF
   IF PORTC.7=0 THEN PORTC.0=0
   PAUSE 5
   
   IF PORTB.5=0 AND PORTB.4=0 THEN
   PORTC.0=1
   ENDIF
   IF PORTC.6=0 THEN PORTC.0=0
   PAUSE 5
   
   IF PORTB.4=0 AND PORTB.3=0 THEN
   PORTC.0=1
   ENDIF
   IF PORTC.5=0 THEN PORTC.0=0
   PAUSE 5
   
   IF PORTB.3=0 AND PORTB.2=0 THEN
   PORTC.0=1
   ENDIF
   IF PORTC.4=0 THEN PORTC.0=0
   PAUSE 5
   GOTO BASLA
   END

hata sende gene ,

bak ,

burada B7 ve B1 low ise ledi yak ama bu iki giriş low değilse ne olursa olsun ledi kapat demişsin ..

If PORTB.7=0 And PORTB.1=0 Then
PORTC.0=0
Else
PORTC.0=0
EndIf


ama hemen bir alt satırda

If PORTB.7=0 And PORTB.6=0 Then
PORTC.0=1
EndIf
If PORTB.0=0 Then PORTC.0=0
PAUSE 5

ledi yakıyorsun ,
haliyle led yanıp sönüyor ..

bu denemede ben sadece B7 ve B6 yı low yaparak denedim ..


dediğim gibi kombinasyonları tek tek basamak halinde deneyerek yap ,
belki bir çizelge hazırlayabilirsin .

[Ankaralı]

Yok hocam denedim olmuyor ama daha sabaha çok var belki olur yaparım.Sizin son kez söyliyeceğiniz bir şey varmı ?

[Maxim]

Yok hocam denedim olmuyor ama daha sabaha çok var belki olur yaparım.Sizin son kez söyliyeceğiniz bir şey varmı ?

olmayan nedir onu söylermisin ?

[recebcolak]

kardeş ide bu kodu inçele istersen çalışıyor hatalarım olabilir .

TRISA=%00000000
TRISB=0
TRISC=%00001111
TRISD=0
'-------------------------------------------------------------------------------

DEFINE OSC 4

SYMBOL M0=PORTC.0
SYMBOL M1=PORTC.1
SYMBOL M2=PORTC.2
SYMBOL M3=PORTC.3
'---------------------------------------------------------------------------
BASLA :


IF M0=0 AND  M1=0 AND  M2=0 AND  M3=0 THEN SIFIR  
IF M0=0 AND  M1=0 AND  M2=0 AND  M3=1 THEN YAZBIR
IF M0=0 AND  M1=0 AND  M2=1 AND  M3=0 THEN YAZIKI
IF M0=0 AND  M1=0 AND  M2=1 AND  M3=1 THEN YAZUC
IF M0=0 AND  M1=1 AND  M2=1 AND  M3=1 THEN YAZDORT
IF M0=1 AND  M1=0 AND  M2=1 AND  M3=1 THEN YAZBES
IF M0=0 AND  M1=1 AND  M2=0 AND  M3=1 THEN YAZALTI
IF M0=0 AND  M1=0 AND  M2=1 AND  M3=1 THEN YAZYEDI
IF M0=0 AND  M1=1 AND  M2=1 AND  M3=1 THEN YAZSEKIZ
IF M0=1 AND  M1=0 AND  M2=1 AND  M3=1 THEN YAZDOKUZ
IF M0=0 AND  M1=1 AND  M2=0 AND  M3=1 THEN YAZALTI



GOTO BASLA


SIFIR:
  PORTB=%00111111
  PAUSE 1000
  PORTB=%00000000
  PAUSE 1000
  RETURN
 
YAZBIR:
  PORTB=%00000110
  PAUSE 1000
  PORTB=%00000000
  PAUSE 1000
  GOTO BASLA
YAZIKI:
  PORTB=%01011011
 PAUSE 1000
  PORTB=%00000000
  PAUSE 1000
  GOTO BASLA  
YAZUC:
  PORTB=%01001111
  PAUSE 1000
  PORTB=%00000000
  PAUSE 1000
  GOTO BASLA
YAZDORT:
  PORTB=%01100110
  PAUSE 1000
  PORTB=%00000000
  PAUSE 1000
  GOTO BASLA    
YAZBES:
  PORTB=%01101101
  PAUSE 1000
  PORTB=%00000000
  PAUSE 1000
  GOTO BASLA  
YAZALTI:
  PORTB=%01111101
  PAUSE 1000
  PORTB=%00000000
  PAUSE 1000
  GOTO BASLA
YAZYEDI:
  PORTB=%00000111
  PAUSE 1000
  PORTB=%00000000
  PAUSE 1000
  GOTO BASLA      
YAZSEKIZ:
  PORTB=%01111111
  PAUSE 1000
  PORTB=%00000000
  PAUSE 1000
  GOTO BASLA
YAZDOKUZ:
  PORTB=%01101111'
  PAUSE 1000
  PORTB=%00000000
  PAUSE 1000
  GOTO BASLA
 
;SIFIR_    EQU      b'00111111'
;BIR_      EQU      b'00000110'
;IKI_      EQU      b'01011011'
;UC_       EQU      b'01001111'
;DORT_     EQU      b'01100110'
;BES_      EQU      b'01101101'
;ALTI_     EQU      b'01111101'
;YEDI_     EQU      b'00000111'
;SEKIZ_    EQU      b'01111111'
;DOKUZ_    EQU      b'01101111'  
 
 
 
   
'00000000'BOSLUK
'01110111'A
'01111100'b
'00111001'C
'01011000'c
'01011110'd
'01110001'f
'00110000'I
'01101101'S
'01110110'H
'01110100'h
'00011110'J
'00111111'0
'01011100'o
'01110011'p
'01111001'E
'01010000'r
'00110001'R
'00111000'L
'00110111'N
'01010100'n
'01111000't
'01000000'-
'01111101'Ğ
'00111110'U
'00011100'u
'01101110'y










END

[Ankaralı]

Yok hocam denedim olmuyor ama daha sabaha çok var belki olur yaparım.Sizin son kez söyliyeceğiniz bir şey varmı ?

olmayan nedir onu söylermisin ?

Gene aynı sorun sizin dediğiniz gibi adım adım yaptım ama kesin gene bir yerlerde hata var tırmalayıp duruyorum.O yanıp sönme işlemini halledemedim yani istediğim butonları kontrol edemiyorum haladaha.Sizleri de yordum kusura bakmayın...

[Maxim]

işte proton plus ın güzelliği orada ,

ben kodları satır satır proteusun içerisinde çalıştırabiliyorum .

[Ankaralı]

işte proton plus ın güzelliği orada ,

ben kodları satır satır proteusun içerisinde çalıştırabiliyorum .

Ben proton plus bilmiyorum malesef...Başka fikriniz var mı?

[POWER]

@maxiboost
bende proton plus kullanıyorum.Kodların satır satır nasıl çalıştırıldığı hakkında bilgi verebilirmisin?

[Ankaralı]

@ Recepcolak


Kardeş verdiğin örnek işime yaradı    Dahada basitleşti ama program da uzadı  :lol:  sabaha kadar hallederim büyük ihtimalle... Herkesten Allah razı olsun...

[Gerok]

@POWER

Kodların satır satır işleyişini görebilmek için hex dosya yerine bas uzantılı dosyayı pic e yükle, resimdeki 1. ve 2. adımları uygula.

Tabi 2. adımı sürekli yinelemen lazım.

Kolay gelsin.

[Maxim]

işte proton plus ın güzelliği orada ,

ben kodları satır satır proteusun içerisinde çalıştırabiliyorum .

Ben proton plus bilmiyorum malesef...Başka fikriniz var mı?

genel bilgi olsun diye söylemiştim ,
mesela senin kodlarda hiç değişiklik yapmadan proton ile derledim ben