When you Dim R_data(4) as byte at Ade7753 Overlay you have 4 single bytes Dim R_data(1) to Dim R_data(4) it is exactly the same as
Dim R_data1 as byte
Dim R_data2 as byte
Dim R_data3 as byte
Dim R_data4 as byte
but what happens in this case is that they are overlayed accross the
Dim Ade7753 as long
so you can just use three to get the 24 bits so as you read out each byte it is put into Ade7753 the fourth byte is left as is so as I have said just change the Dim statement the put Ade7753 on the LCD and you will see, you need no other changes to your code to get that to happen
Regards Paul
↧