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
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