Private Sub Form_Load()
Caption = "o.0"

'Reseting the clusters to blanks
lcd_off = &HE0E0E0
decimalpoint.FillColor = lcd_off
For y = 10 To 50 Step 10
    For x = 1 To 7
        lcd(y + x).FillColor = lcd_off
    Next
Next


End Sub


Public Sub set_lcd(cluster_id, cluster_value)
lcd_on = &HFF&
lcd_off = &HE0E0E0

decimalpoint.FillColor = lcd_on


If cluster_value = 0 Then
lcd(((cluster_id * 10) + 1)).FillColor = lcd_on
lcd(((cluster_id * 10) + 2)).FillColor = lcd_on
lcd(((cluster_id * 10) + 3)).FillColor = lcd_on
lcd(((cluster_id * 10) + 4)).FillColor = lcd_on
lcd(((cluster_id * 10) + 5)).FillColor = lcd_on
lcd(((cluster_id * 10) + 6)).FillColor = lcd_on
lcd(((cluster_id * 10) + 7)).FillColor = lcd_off
End If

If cluster_value = 1 Then
lcd(((cluster_id * 10) + 1)).FillColor = lcd_off
lcd(((cluster_id * 10) + 2)).FillColor = lcd_on
lcd(((cluster_id * 10) + 3)).FillColor = lcd_on
lcd(((cluster_id * 10) + 4)).FillColor = lcd_off
lcd(((cluster_id * 10) + 5)).FillColor = lcd_off
lcd(((cluster_id * 10) + 6)).FillColor = lcd_off
lcd(((cluster_id * 10) + 7)).FillColor = lcd_off
End If

If cluster_value = 2 Then
lcd(((cluster_id * 10) + 1)).FillColor = lcd_on
lcd(((cluster_id * 10) + 2)).FillColor = lcd_on
lcd(((cluster_id * 10) + 3)).FillColor = lcd_off
lcd(((cluster_id * 10) + 4)).FillColor = lcd_on
lcd(((cluster_id * 10) + 5)).FillColor = lcd_on
lcd(((cluster_id * 10) + 6)).FillColor = lcd_off
lcd(((cluster_id * 10) + 7)).FillColor = lcd_on
End If

If cluster_value = 3 Then
lcd(((cluster_id * 10) + 1)).FillColor = lcd_on
lcd(((cluster_id * 10) + 2)).FillColor = lcd_on
lcd(((cluster_id * 10) + 3)).FillColor = lcd_on
lcd(((cluster_id * 10) + 4)).FillColor = lcd_on
lcd(((cluster_id * 10) + 5)).FillColor = lcd_off
lcd(((cluster_id * 10) + 6)).FillColor = lcd_off
lcd(((cluster_id * 10) + 7)).FillColor = lcd_on
End If

If cluster_value = 4 Then
lcd(((cluster_id * 10) + 1)).FillColor = lcd_off
lcd(((cluster_id * 10) + 2)).FillColor = lcd_on
lcd(((cluster_id * 10) + 3)).FillColor = lcd_on
lcd(((cluster_id * 10) + 4)).FillColor = lcd_off
lcd(((cluster_id * 10) + 5)).FillColor = lcd_off
lcd(((cluster_id * 10) + 6)).FillColor = lcd_on
lcd(((cluster_id * 10) + 7)).FillColor = lcd_on
End If

If cluster_value = 5 Then
lcd(((cluster_id * 10) + 1)).FillColor = lcd_on
lcd(((cluster_id * 10) + 2)).FillColor = lcd_off
lcd(((cluster_id * 10) + 3)).FillColor = lcd_on
lcd(((cluster_id * 10) + 4)).FillColor = lcd_on
lcd(((cluster_id * 10) + 5)).FillColor = lcd_off
lcd(((cluster_id * 10) + 6)).FillColor = lcd_on
lcd(((cluster_id * 10) + 7)).FillColor = lcd_on
End If

If cluster_value = 6 Then
lcd(((cluster_id * 10) + 1)).FillColor = lcd_on
lcd(((cluster_id * 10) + 2)).FillColor = lcd_off
lcd(((cluster_id * 10) + 3)).FillColor = lcd_on
lcd(((cluster_id * 10) + 4)).FillColor = lcd_on
lcd(((cluster_id * 10) + 5)).FillColor = lcd_on
lcd(((cluster_id * 10) + 6)).FillColor = lcd_on
lcd(((cluster_id * 10) + 7)).FillColor = lcd_on
End If

If cluster_value = 7 Then
lcd(((cluster_id * 10) + 1)).FillColor = lcd_on
lcd(((cluster_id * 10) + 2)).FillColor = lcd_on
lcd(((cluster_id * 10) + 3)).FillColor = lcd_on
lcd(((cluster_id * 10) + 4)).FillColor = lcd_off
lcd(((cluster_id * 10) + 5)).FillColor = lcd_off
lcd(((cluster_id * 10) + 6)).FillColor = lcd_off
lcd(((cluster_id * 10) + 7)).FillColor = lcd_off
End If

If cluster_value = 8 Then
lcd(((cluster_id * 10) + 1)).FillColor = lcd_on
lcd(((cluster_id * 10) + 2)).FillColor = lcd_on
lcd(((cluster_id * 10) + 3)).FillColor = lcd_on
lcd(((cluster_id * 10) + 4)).FillColor = lcd_on
lcd(((cluster_id * 10) + 5)).FillColor = lcd_on
lcd(((cluster_id * 10) + 6)).FillColor = lcd_on
lcd(((cluster_id * 10) + 7)).FillColor = lcd_on
End If

If cluster_value = 9 Then
lcd(((cluster_id * 10) + 1)).FillColor = lcd_on
lcd(((cluster_id * 10) + 2)).FillColor = lcd_on
lcd(((cluster_id * 10) + 3)).FillColor = lcd_on
lcd(((cluster_id * 10) + 4)).FillColor = lcd_on
lcd(((cluster_id * 10) + 5)).FillColor = lcd_off
lcd(((cluster_id * 10) + 6)).FillColor = lcd_on
lcd(((cluster_id * 10) + 7)).FillColor = lcd_on
End If

End Sub

Private Sub input_box_Change()
If input_box.Text = "" Then
    input_box.Text = 0
End If

Number = input_box.Text
label_inputnumber.Caption = Number


hundreds = Int(Number / 100)
tens = Int((Number - (hundreds * 100)) / 10)
units = Int(Number - ((hundreds * 100) + (tens * 10)))
fraction = (((Number * 100) - ((hundreds * 10000) + (tens * 1000) + (units * 100))))
dp1 = Int(fraction / 10)
dp2 = Int(fraction - (dp1 * 10))
'Label_display.Caption = fraction
'label_fraction.Caption = fraction
label_dp2.Caption = dp2
label_dp1.Caption = dp1
label_units.Caption = units
label_tens.Caption = tens
label_hundreds.Caption = hundreds



'dp2
cluster_id = 1
cluster_value = dp2
Call set_lcd(cluster_id, cluster_value)

'dp1
cluster_id = 2
cluster_value = dp1
Call set_lcd(cluster_id, cluster_value)

'units
cluster_id = 3
cluster_value = units
Call set_lcd(cluster_id, cluster_value)

'tens
cluster_id = 4
cluster_value = tens
Call set_lcd(cluster_id, cluster_value)

'hundreds
cluster_id = 5
cluster_value = hundreds
Call set_lcd(cluster_id, cluster_value)

End Sub