Witam!
Chciałem sobie skompilować plik bas z necika i co chwila mi błędy wyskakują że funkcja RESET I SET nie może współpracować z tym parametrem czy coś takiego ... jak to zrobić aby było dobrze? przetestowałem 2 kompilatory i nic, a plik był pisany przez specjalistów z edw więc powinno wszystko śmigać
Jestem początkującym programistą (to jest mój pierwszy program w basicu) więc proszę o jakąś łopatologiczną metodę tłumaczenia
Na dole fragment kodu:
Dim New As Bit
Dim Command As Byte , Subaddress As Byte
Reset Tcon.0
On Int0 Receiverc5
Config Sda = P3.1
Config Scl = P3.0
Declare Sub Warning
Declare Sub Code_registration
Declare Sub Commands_registration
Declare Sub Waitingforcode
Declare Sub Waitingforcommand
Declare Sub Ledredshort
Declare Sub Ledgreenshort
Declare Sub Write_eeprom(adres As Byte , Value As Byte)
Declare Sub Read_eeprom(adres As Byte , Value As Byte)
Declare Sub Reading
Declare Sub Switch
Dim Flag1 As Bit
Dim Flag2 As Bit
Dim Adres As Byte , Value As Byte
Dim Licznik2 As Byte
Dim Count As Word
Relay1 Alias P1.7
Relay2 Alias P1.6
Relay3 Alias P1.5
Relay4 Alias P1.4
Relay5 Alias P3.5
Relay6 Alias P3.7
Relay7 Alias P1.2
Relay8 Alias P1.3
Ledgreen Alias P1.0
Ledred Alias P1.1
Jumper1 Alias P3.3
Jumper2 Alias P3.4
Enable Interrupts
Enable Int0
Dim R As Byte
Dim Licznik As Byte
Dim Adres2 As Byte
Reset Relay1 : Reset Relay2 : Reset Relay3 : Reset Relay4 : Reset Relay5
Reset Relay6 : Reset Relay7 : Reset Relay8
Set Ledred : Set Ledgreen
Set Jumper1 : Set Jumper2
Call Read_eeprom 255 , Value
If Value <> 133 Then...
Chciałem sobie skompilować plik bas z necika i co chwila mi błędy wyskakują że funkcja RESET I SET nie może współpracować z tym parametrem czy coś takiego ... jak to zrobić aby było dobrze? przetestowałem 2 kompilatory i nic, a plik był pisany przez specjalistów z edw więc powinno wszystko śmigać
Dim New As Bit
Dim Command As Byte , Subaddress As Byte
Reset Tcon.0
On Int0 Receiverc5
Config Sda = P3.1
Config Scl = P3.0
Declare Sub Warning
Declare Sub Code_registration
Declare Sub Commands_registration
Declare Sub Waitingforcode
Declare Sub Waitingforcommand
Declare Sub Ledredshort
Declare Sub Ledgreenshort
Declare Sub Write_eeprom(adres As Byte , Value As Byte)
Declare Sub Read_eeprom(adres As Byte , Value As Byte)
Declare Sub Reading
Declare Sub Switch
Dim Flag1 As Bit
Dim Flag2 As Bit
Dim Adres As Byte , Value As Byte
Dim Licznik2 As Byte
Dim Count As Word
Relay1 Alias P1.7
Relay2 Alias P1.6
Relay3 Alias P1.5
Relay4 Alias P1.4
Relay5 Alias P3.5
Relay6 Alias P3.7
Relay7 Alias P1.2
Relay8 Alias P1.3
Ledgreen Alias P1.0
Ledred Alias P1.1
Jumper1 Alias P3.3
Jumper2 Alias P3.4
Enable Interrupts
Enable Int0
Dim R As Byte
Dim Licznik As Byte
Dim Adres2 As Byte
Reset Relay1 : Reset Relay2 : Reset Relay3 : Reset Relay4 : Reset Relay5
Reset Relay6 : Reset Relay7 : Reset Relay8
Set Ledred : Set Ledgreen
Set Jumper1 : Set Jumper2
Call Read_eeprom 255 , Value
If Value <> 133 Then...