VB6 Code Help

[charudatt]

Hello friends,

I am writing a VB6 Code to serially program a RTC Module via PIC for Alarm Time.

I am interested in knowing how to build a byte variable from 8 Check Boxes to be transfered to the Chip. These Check Boxes are to be labelled Days of the week the alarm needs to be on.

regards.

[mister_e]

Make things simple. Use some Text box and a Command button. Once you click on the Command button it send the whole string of the Texts boxs.

In the PIC side, you use the right modifier (HEX, DEC, STR).

If you need some VB EBook, drop me your e-mail address in my PM.

[Luciano]

Hi,

Try that:


Dim my_byte_value as byte

my_byte_value = 0

If Check1.Value = 1 Then my_byte_value = my_byte_value + 1
If Check2.Value = 1 Then my_byte_value = my_byte_value + 2
If Check3.Value = 1 Then my_byte_value = my_byte_value + 4
If Check4.Value = 1 Then my_byte_value = my_byte_value + 8
If Check5.Value = 1 Then my_byte_value = my_byte_value + 16
If Check6.Value = 1 Then my_byte_value = my_byte_value + 32
If Check7.Value = 1 Then my_byte_value = my_byte_value + 64
If Check8.Value = 1 Then my_byte_value = my_byte_value + 128
Best regards,

Luciano

[charudatt]

That was exactly what i wanted. Sorry for my ignorance.

And if i am not asking for more can you also tell me how to reverse it.

I am sure it would be simple , but still.

Now how do i break up a byte to show up in the check boxes. Tick means One !

Thank you steve. You have been a lot of help to me and one of my unsung hero's learnt a lot of programing skills from your inputs to different people on the Forum. I would surely send you a PM for that E-book

regards

[Luciano]

Hi,

Try that.

Best regards,

Luciano


Dim my_byte_value As Byte

my_byte_value = 6 '(Any value from 0 to 255)

If my_byte_value And 1 Then
Check1.Value = 1
Else
Check1.Value = 0
End If

If my_byte_value And 2 Then
Check2.Value = 1
Else
Check2.Value = 0
End If

If my_byte_value And 4 Then
Check3.Value = 1
Else
Check3.Value = 0
End If

If my_byte_value And 8 Then
Check4.Value = 1
Else
Check4.Value = 0
End If

If my_byte_value And 16 Then
Check5.Value = 1
Else
Check5.Value = 0
End If

If my_byte_value And 32 Then
Check6.Value = 1
Else
Check6.Value = 0
End If

If my_byte_value And 64 Then
Check7.Value = 1
Else
Check7.Value = 0
End If

If my_byte_value And 128 Then
Check8.Value = 1
Else
Check8.Value = 0
End If

Below is the reverse action using the OR operation:
(Same result as my first post).

Dim my_byte_value As Byte

my_byte_value = 0

If Check1.Value = 1 Then my_byte_value = my_byte_value Or 1
If Check2.Value = 1 Then my_byte_value = my_byte_value Or 2
If Check3.Value = 1 Then my_byte_value = my_byte_value Or 4
If Check4.Value = 1 Then my_byte_value = my_byte_value Or 8
If Check5.Value = 1 Then my_byte_value = my_byte_value Or 16
If Check6.Value = 1 Then my_byte_value = my_byte_value Or 32
If Check7.Value = 1 Then my_byte_value = my_byte_value Or 64
If Check8.Value = 1 Then my_byte_value = my_byte_value Or 128

[charudatt]

Thank you once again. I hope this is helpful to other on the forum as well.

regards