Byte Variable = Byte Variable return error: source and targe

pinkfloyd11 · Joined: 02 Jul 2007 Posts: 248

Hello

I need to set some bits in a byte and after send it.
More precisely I need to set bit 7 of Byte_to_send.
But I give back this:

Error : 242 Line : 90 Data type of source and target variables do not match [ 0] , in File : E:\Dropbox\....Firmware\Test Comandi Singoli\Test Comandi Singoli.bas

What is wrong?

Evert :-) · Joined: 18 Feb 2005 Posts: 2107

Hi,

This compiles fine with 2078.
Give me a complete not working sample. With only the SUB it's hard to debug.

pinkfloyd11 · Joined: 02 Jul 2007 Posts: 248

'////////////////////////////////////////////
' SPI SEND COMMAND
'////////////////////////////////////////////

'*********************************
'Direttive al compilatore
'*********************************
$regfile = "m328pdef.dat"
$hwstack = 32
$swstack = 32
$framesize = 32
$crystal = 16000000
$baud = 57600
'*********************************
$Include "CC1101 REGISTER.inc"

CONFIG SUBMODE = NEW
CONFIG Spi = Hard , Interrupt = Off , Data Order = Msb , Master = Yes , Polarity = Low , Phase = 0 , Clockrate = 16
SPIINIT

Declare Sub CC1101_Init
Declare Sub CC1101_Read_Value(byval Register As Byte)
Declare Sub CC1101_Write_Value(byval Register As Byte , Byval Value As Byte)
Declare Sub CC1101_Reset

Dim Carattere_ASCII as Byte

PRINT " -- TEST SPI COMMAND MENU --"
PRINT "1) READ CONFIG REGISTER"
PRINT "2) READ STATUS REGISTER"
PRINT ""
PRINT ""

DO
Carattere_ASCII = Inkey() 'get ascii value from serial port

If Carattere_ASCII > 0 Then
Print "ASCII = " ; Carattere_ASCII
End If

SELECT CASE Carattere_ASCII
CASE 49
PRINT "READ CONFIG REGISTER"
CC1101_Read_Value(&H0030)

CASE 50
PRINT "READ STATUS REGISTER"

CASE 51

CASE 52

END SELECT

LOOP

'_______________________________________________________________________________________

Sub CC1101_Init()

End Sub

'_______________________________________________________________________________________
Sub CC1101_Read_Value(ByVal Register_Address as Byte)
Local Byte_to_Send as Byte
Local Byte_Received as Byte

Byte_to_Send = 0
Byte_Received = 0

'Costruisco il Byte da Inviare secondo la struttura
'[7] := Header 1
'[6] := Burst 0
'[5-0] := Indirizzo Registro

Byte_to_Send = Register_Address
SET Byte_to_Send .7

SPIout Byte_to_Send , 1
SPIin Byte_Received , 1

Print "BYTE READ = "; Byte_Received

End Sub
'_______________________________________________________________________________________

Sub CC1101_Write_Value(Register , Value )

End Sub
'_______________________________________________________________________________________

Sub CC1101_Reset

End Sub

'_______________________________________________________________________________________

albertsm · Joined: 09 Apr 2004 Posts: 4975 Location: Holland

you have :

Declare Sub CC1101_Init
Declare Sub CC1101_Read_Value(byval Register As Byte)
Declare Sub CC1101_Write_Value(byval Register As Byte , Byval Value As Byte)
Declare Sub CC1101_Reset

and then check the implementation, it differs !
when using submode=new, you do not need the DECLARE , just put the sub/function before you call it, for example using an include file.
when you do use declare sub, make sure the declare matches the implementation.