Help with programming in VB6

Spamzor · Post by **Spamzor** » Sat May 24, 2003 4:02 am

update:

ok, i now have a completely working LCD program it runs in the background, needs some "jazzing" up, its usefull as long as you have the source -

http://members.optusnet.com.au/spamzor/FREE_LCD.zip

it displays CPU and RAM usage

its good for the basics a good starting point usefull if you need to start your own project

remember this was programmed for MY LCD and the source isnt to readable so let me know if you want to know something

Spamzor · Post by **Spamzor** » Mon May 26, 2003 1:35 am

ok, ive played around and worked out how it works, its a little confusing but heres what ive done now:

http://members.optusnet.com.au/spamzor/LCD_beta.zip

Spamzor · Post by **Spamzor** » Wed May 28, 2003 2:41 am

ok, im haveing troubles

i can turn my LCD backlight off

Code: Select all

MSComm1.Output = Chr$(&HFE) & Chr$(&H46)

but not on

Code: Select all

MSComm1.Output = Chr$(&HFE) & Chr$(&H4F) & Chr$(&H0)

i think its got something to do with the last segment

Code: Select all

Chr$(&H0)

what SHOULD be there ?

Post by **Henry** » Fri May 30, 2003 12:48 am

I think you have a mistake...

MSComm1.Output = Chr$(&HFE) & Chr$(&H4F) & Chr$(&H0)

you said &H4F which is wrong, it should be &H42

Spamzor · Post by **Spamzor** » Fri May 30, 2003 5:56 am

omg !!!

i spent so long trying to work it out !

i had actually fixed that, but it wasnt saved (crashed)

argh !!!

thanks

Spamzor · Post by **Spamzor** » Thu Jun 05, 2003 8:17 am

ok update, check thread post

dtorner · Post by **dtorner** » Fri Jul 04, 2003 1:04 pm

Henry wrote:I think you have a mistake...

MSComm1.Output = Chr$(&HFE) & Chr$(&H4F) & Chr$(&H0)
you said &H4F which is wrong, it should be &H42

I'm looking this thread and I'm confused about your Chr$ use... Why dont you use Chr$ like this (this code works OK) :

Public Function Light_On(Optional Minutos As Byte)
With MSComm1
.Output = Chr$(254)
.Output = Chr$(66)
If Minutos < 1 Or Minutos > 255 Then
.Output = Chr$(0)
Else
.Output = Chr$(Minutos)
End If
End With
End Function