Haberler:

Forum kuralları güncellendi LÜTFEN  okuyunuz:  https://bit.ly/2IjR3ME

Ana Menü

PBP Proton kod karşılık

Başlatan fofo, 14 Nisan 2017, 09:42:09

fofo

Bu kodun Proton karşılığı  nedir
           For i = 0 To 7 
           If BtnVal[i] > 350 Then 
               DByte1.0[i]=1
         Else     
          DByte1.0[i]=0
               EndIf
                  Next i
                      For i = 16 To 23
              If BtnVal[i] > 350 Then
                     DByte3.0[i-16]=1
               Else
            DByte3.0[i-16]=0
           EndIf
       Next i

silver_wolf

#1
Selam fofo;
PBP ile Proton+'nın değişken tanımlaması farklı değişkenleri de eklersen yani daha fazla detay verirsen diğer üyelerden de daha fazla cevap alabilirsin.  (Dbyte2 ve BtnVal 8-15 i eklemedim. Gerek var mı bilmiyorum!) Ne projesi bu. Şeması var mı?

PBP'yi Proton+'ya tercümesi aşağıdaki gibi olması lazım.

Saygılar  :)
Dim BtnVal[24] as Word '350 255'ten büyük olduğu için word
Dim Dbyte1 as Word 'DoubleByte ve .0 yazmışsın yani word
Dim Dbyte3 as Word 'DoubleByte ve .0 yazmışsın yani word
Dim i var Byte 

For i = 0 To 7
    If BtnVal[i] > 350 then
       DByte1.Byte0[i]=1
    Else
       DByte1.Byte0[i]=0
    EndIf
Next
For i = 16 To 23
    If BtnVal[i] > 350 then
       DByte3.Byte0[i-16]=1
    Else
       DByte3.Byte0[i-16]=0
    EndIf
Next