proton plus hata veriyor

[canbulut]

.def bulunamadı. compilerin hedef cihazı desteklediğinden eminmisin gibi bir error ile karşılaşıyorum. Bilgisi olan varmıdır?

[ferit06]

Kullandığın denetleyiciyi ve protonun versiyonunu  da yazmış olsaydın iyi olurdu.

Program files(x86)/ProtonIDE/PDS/Includes/Defs klasorunde denetleyicine ait dosya var mı?
Var ise  kürek yenilemesi yapman gerekebilir.

Not: Mevcut olan bir denetleyicinin .def dosyasının adını değiştiriyorum program derlemede bütün değişkenler için hata veriyor, ancak sizin belirttiğiniz şekilde hata mesajı yok. Kürek yenilemesi yapmalısınız.

[canbulut]

dosya var nasıl yenileyebilirim.

[t2]

Aynı pici seçerek boş bir proje açalım.

Device   18F2550 

dur:

goto dur

gibi basit kod yazalım. bunu derlemiyor mu?

[ferit06]

https://www.picproje.org/index.php/topic,45366.0.html

Prplus.exe dosyasını PDS den silip  aynı yere yeni Prplus.exe yapıştıracaksınız.

[canbulut]

Aynı pici seçerek boş bir proje açalım.

Device   18F2550 

dur:

goto dur

gibi basit kod yazalım. bunu derlemiyor mu?

yeni açtım derlemeye başladı. teşekkürler hocam. derdi nedir?

yine yeni yükledim yine derlemiyor.

başına p vb. ekleyince çalışmıyor. sadece 16F688 yazdım çalıştı.
mesaj birleştirme:: 03 Haziran 2015, 16:56:35
arkadaslar bir sorum olacak çok hızlı basicde yapamadığımı protonda yapmaya çalışıyorum.
pbpda TUS.bit0(I)=0; değişkenin i bitine 0 yazar.
şeklinde yaptığımız kodu protonda nasıl derleyebilirim.
mesaj birleştirme:: 02 Haziran 2015, 17:10:07
pbpda TUS.bit0(I)=0; değişkenin i bitine 0 yazar.
şeklinde yaptığımız kodu protonda nasıl derleyebilirim.

[ferit06]

i değişken ise bu şekilde yapamazsın. Bit kaydırma ve AND, OR işlemlerini kullanmalısın.

[canbulut]

örnek verebilirmisiniz?

[ferit06]

 biraz uzun...

Dim i As Byte
Dim TUS As Byte
Dim dta As Byte
Dim yukle As Bit    'yuklenecek bit
'....

dta=0
If i=0 Then TUS.0= yukle
If i>0 Then
    dta.0=yukle
   if i>0 then dta= dta << i
[s] '   For a=1 To i
   '     If yukle=0 Then dta.0=1    
   '     If yukle=1 Then dta.0=0
  '      dta= dta << 1
  '  Next[/s]
    If yukle=0 Then TUS= TUS & dta      'and
    If yukle=1 Then TUS= TUS | dta      ' or
EndIf

[canbulut]

biraz uzun...

Dim i As Byte
Dim TUS As Byte
Dim dta As Byte
Dim yukle As Bit    'yuklenecek bit
'....

dta=0
If i=0 Then TUS.0= yukle
If i>0 Then
    dta.0=yukle
   if i>0 then dta= dta << i
[s] '   For a=1 To i
   '     If yukle=0 Then dta.0=1    
   '     If yukle=1 Then dta.0=0
  '      dta= dta << 1
  '  Next[/s]
    If yukle=0 Then TUS= TUS & dta      'and
    If yukle=1 Then TUS= TUS | dta      ' or
EndIf

basic proda yazdığım şu kod TUS.bit0(I)=0 proton plusta yukarıdaki kodlaramı denk geliyor :=) c görünümlü java olmuş bu :=) basic nerede.
mesaj birleştirme:: 03 Haziran 2015, 15:08:43
bunun daha kolay bir yolu yok mu?

[ferit06]

Biraz karıştırınca;

ClearBit ExVar,Index
         SetBit ExVar,Index

komutları var buarda index değişken olarak kullanılabiliyor.

If yukle=0 Then clearbit TUS,i  
        If yukle=1 Then setbit TUS,i

şeklinde kullanabilirsin.

[canbulut]

teşekkür ederim. inceliyorum.

[ferit06]

Ben genel bir işlem için örnek yazdım ve yükle değişkenini kullandım. Eğer siz değiştirmek istediğiniz bitin 0 veya 1 olması gerektiğini biliyorsanız doğrundan(if deyimini kulllanmadan) Clearbit veya setbit komutlarını kullanacaksınız. Bu komutlar sonunda değişkeninizin ilgili biti 0 veya 1 olur.