1. sayfa
| PBP de viewden compile and program options a gir. Ekrana küçük bir pencere gelir ve orada 3 sekme vardır. Bu sekmelerden 2ci(assembler) olanına gir ve ordaki "Use MPASM" nin yanındaki kutunun işaretini kaldır sorunun çözülür. |
|
PORTA=0 : PORTB=0 : portc=0 : portd=0 TRISA=0 : TRISB=0 : trisc=0 : trisd=0 porte=0 : trise=0 harf_reg var Byte adres_sec var Byte yinele var Byte sutun_reg var Byte[200] veri var Byte yazi_reg var Byte i VAR Byte x var Byte z var Byte y var Byte t var Byte q var Byte sure var Byte yedek var Byte Clear : portd=255:sure=200 :GoTo oku: oku: Call yazi : yazi_reg=yazi_reg+1 : z=harf_reg For i=1 To z Call yazi : yazi_reg=yazi_reg+1 : Call data_sec For y=0 To yinele Call datalar sutun_reg[t]=veri : t=t+1 adres_sec=adres_sec+1 Next y Next i t=0 GoTo gonder gonder: For Q=0 To 5 For i=0 To 15 PORTB=sutun_reg[t] : t=t+1 PORTA=i portc=%11111110:pauseus sure:portc=%11111111 Next i For i=0 To 15 PORTB=sutun_reg[t] : t=t+1 PORTA=i portc=%11111101:pauseus sure:portc=%11111111 Next i For i=0 To 15 PORTB=sutun_reg[t] : t=t+1 PORTA=i portc=%11111011:pauseus sure:portc=%11111111 Next i For i=0 To 11 PORTB=sutun_reg[t] : t=t+1 PORTA=i portc=%11110111:pauseus sure:portc=%11111111 Next i t=0 Next Q GoTo kaydir kaydir: yedek=sutun_reg[0] For i=0 To 239 sutun_reg=sutun_reg[i+1] Next i sutun_reg[240]=yedek GoTo gonder yazi: LookUp yazi_reg,[40,"DENEME "],harf_reg Return data_sec: Select Case harf_reg Case "A" adres_sec=0 : yinele=5 : Return Case "B" adres_sec=6 : yinele=5 : Return Case "C" adres_sec=12 : yinele=5 : Return Case "D" adres_sec=18 : yinele=5 : Return Case "E" adres_sec=24 : yinele=5 : Return Case "F" adres_sec=30 : yinele=5 : Return Case "G" adres_sec=36 : yinele=5 : Return Case "H" adres_sec=42 : yinele=5 : Return Case "I" adres_sec=48 : yinele=3 : Return Case "i" adres_sec=52 : yinele=3 : Return Case "J" adres_sec=56 : yinele=5 : Return Case "K" adres_sec=62 : yinele=5 : Return Case "L" adres_sec=68 : yinele=5 : Return Case "M" adres_sec=74 : yinele=5 : Return Case "N" adres_sec=80 : yinele=5 : Return Case "O" adres_sec=86 : yinele=5 : Return Case "P" adres_sec=92 : yinele=5 : Return Case "Q" adres_sec=98 : yinele=5 : Return Case "R" adres_sec=104 : yinele=5 : Return Case "S" adres_sec=110 : yinele=5 : Return Case "T" adres_sec=116 : yinele=5 : Return Case "U" adres_sec=122 : yinele=5 : Return Case "ü" adres_sec=128 : yinele=5 : Return Case "V" adres_sec=134 : yinele=5 : Return Case "W" adres_sec=140 : yinele=5 : Return Case "X" adres_sec=146 : yinele=5 : Return Case "Y" adres_sec=152 : yinele=5 : Return Case "Z" adres_sec=158 : yinele=5 : Return Case " " adres_sec=164 : yinele=5 : Return Case "0" adres_sec=170 : yinele=5 : Return Case "1" adres_sec=176 : yinele=3 : Return Case "2" adres_sec=180 : yinele=5 : Return Case "3" adres_sec=186 : yinele=5 : Return Case "4" adres_sec=192 : yinele=5 : Return Case "5" adres_sec=198 : yinele=5 : Return Case "6" adres_sec=204 : yinele=5 : Return Case "7" adres_sec=210 : yinele=5 : Return Case "8" adres_sec=216 : yinele=5 : Return Case "9" adres_sec=222 : yinele=5 : Return End Select datalar: LookUp adres_sec,[$7C,$0A,$09,$0A,$7C,0_ ;A ,$7F,$49,$49,$49,$36,0_ ;B ,$3E,$41,$41,$41,$22,0_ ;C ,$7F,$41,$41,$41,$3E,0_ ;D ,$7F,$49,$49,$49,$41,0_ ;E ,$7F,$09,$09,$09,$01,0_ ;F ,$3E,$41,$49,$49,$3A,0_ ;G ,$7F,$08,$08,$08,$7F,0_ ;H ,$41,$7F,$41,0_ ;I ,$44,$7D,$44,0_ ;İ ,$20,$40,$41,$3F,$01,0_ ;J ,$7F,$08,$14,$22,$41,0_ ;K ,$7F,$40,$40,$40,$40,0_ ;L ,$7F,$02,$04,$02,$7F,0_ ;M ,$7F,$04,$08,$10,$7F,0_ ;N ,$3E,$41,$41,$41,$3E,0_ ;O ,$7F,$09,$09,$09,$06,0_ ;P ,$3E,$41,$51,$61,$3E,0_ ;Q ,$7F,$09,$19,$29,$46,0_ ;R ,$26,$49,$49,$49,$32,0_ ;S ,$01,$01,$7F,$01,$01,0_ ;T ,$3F,$40,$40,$40,$3F,0_ ;U ,$1E,$41,$01,$41,$1E,0_ ;Ü ,$1F,$20,$40,$20,$1F,0_ ;V ,$3F,$40,$30,$40,$3F,0_ ;W ,$63,$14,$08,$14,$63,0_ ;X ,$07,$08,$70,$08,$07,0_ ;Y ,$61,$51,$49,$45,$43,0_ ;Z ,$00,$00,$00,$00,$00,0_ ;Space ,$3E,$51,$49,$45,$3E,0_ ;0 ,$42,$7F,$40,0_ ;1 ,$62,$51,$49,$45,$42,0_ ;2 ,$22,$49,$49,$49,$36,0_ ;3 ,$18,$14,$12,$7F,$10,0_ ;4 ,$2F,$49,$49,$49,$31,0_ ;5 ,$3E,$49,$49,$49,$32,0_ ;6 ,$61,$11,$09,$05,$03,0_ ;7 ,$36,$49,$49,$49,$36,0_ ;8 ,$26,$49,$49,$49,$3E,0],veri ;9 Return NOT:Bu program alıntı olup kayan yazıyla ilgilidir. samed2005 Arkadaşım o kutucuktaki işareti kaldırdığımda PBP kendi derlemeye kalkıyor ve MPLAB a yönlendiriyor. |
|
Verdiğiniz örneği derledim. Micro Code studio 3.0 kullanıyorum. < Resime gitmek için tıklayın > bunu sorduğunda MPASM'yi seçebilirsiniz. yada view/compiler options'dan MPASM kutucuğunu işaretleyebilirsiniz; < Resime gitmek için tıklayın > |
| Tamam arkadaşlar sorunu çözdüm.Birde şunu farkettim.PBP programından bas uzantılı bir dosya açtığınızda ve açtığınız dosyanın yolu 62 karakterden fazla ise yazılım doğru olsa bile derlemede hata çıkıyor. |
|
Şimdi de şöyle bir sorun var.Basit bir program yapıp PIC 18F452 yi programlıyorum.Fakat çalışmıyor.Aynı programı 16F877 de yaptığımda devre çalışıyor.Bu konuda nasıl bir yorum yapabiliriz. NOT:Derlemeyi hata vermeden yapıyor. |
| 18f452 nin register ayarlarını yaptınmı genelde registerden kaynaklanıyor |
| Bir örnekle açıklayabilirmisin? |
1. sayfa
Not:Derlemeye çalıştığım program hazır ISIS te çalışan program.Yani programda bir hata yok.
DH forumlarında vakit geçirmekten keyif alıyor gibisin ancak giriş yapmadığını görüyoruz.
Üye Ol Şimdi DeğilÜye olduğunda özel mesaj gönderebilir, beğendiğin konuları favorilerine ekleyip takibe alabilir ve daha önce gezdiğin konulara hızlıca erişebilirsin.