Demo Scrolling Message display using a chart
Just a bit of fun to demo how you can create a scrolling dot matrix message display using a bit of VBA and charts.
Sub DotMatrix()
Dim lngIndex As Long
ColourNum = 3
ColourSelect
DispState = Sheet2.CheckBox1.Value
Sheet2.CheckBox1.Value = True
Sheet2.Range("C58").Value = 1
'Exit Sub
With Worksheets("LCD")
For lngIndex = 0 To (Len(.Range("DISPLAYTEXT").Value) * 6) Step 1
.Range("SLICE").Value = lngIndex
Range("C2").Select
DoEvents
Next
End With
'Reset To Static Message
ColourNum = 4
ColourSelect
Sheet2.Range("C58").Value = 0
Sheet2.Range("D55").Value = 0
Range("C2").Select
DoEvents
Sheet2.CheckBox1.Value = DispState
'FlashMsg
End Sub
Attachment | Size |
---|---|
Dot Matrix rev a.xls | 283.5 KB |
- AndyLitch's blog
- Login or register to post comments
- 4000 reads
Recent comments
5 years 36 weeks ago
6 years 22 weeks ago
6 years 34 weeks ago
6 years 37 weeks ago
6 years 38 weeks ago
6 years 43 weeks ago
6 years 52 weeks ago
7 years 2 days ago
7 years 3 days ago
7 years 3 days ago