Solved: Petrol Pump - Seven Segment Display

[PJ_Chambers]

Hi,
I'm designing and programming a petrol pump system, the program consists of 1 form with both pump and console display. I have used case statements for my seven segment display, I currently have the litres dispensed working using a While loop but i can't figure out cost which must turn at same time and also the speed must depend on price per litres.
any tips or help would be great

Here is litres dispended seven segment display code
While stoplitres = True
text1 = Me!text1
text1 = "Active"
text1.BackColor = vbGreen
ltxt0 = ltxt0 + 1
TimeDelay (0.009)
If ltxt0 >= 10 Then
ltxt1 = ltxt1 + 1
Me.Repaint
ltxt0 = 0
End If
If ltxt1 >= 10 Then
ltxt2 = ltxt2 + 1
Me.Repaint
ltxt1 = 0
End If
If ltxt2 >= 10 Then
ltxt3 = ltxt3 + 1
Me.Repaint
ltxt2 = 0
End If
If ltxt3 >= 10 Then
ltxt4 = ltxt4 + 1
Me.Repaint
ltxt3 = 0
End If
Wend

[mdmackillop]

Here's an outline Excel solution, which I'm sure you can adapt

[PJ_Chambers]

Here my entire code
Option Compare Database
Option Explicit
Dim ctxt0, ctxt1, ctxt2, ctxt3, ctxt4, ltxt0, ltxt1, ltxt2, ltxt3, ltxt4 As Integer
Dim lptxt0, lptxt1, lptxt2, lptxt3, lptxt4 As Integer
Dim myinterval, counter, amt, cost, price As Integer
Private Sub Form_Timer()
myinterval = 100
TimerInterval = myinterval
counter = 0
price = 99
ltxt1 = ltxt1 + 1
If ltxt1 >= 10 Then
ltxt2 = ltxt2 + 1
ltxt1 = 0
End If
If ltxt2 >= 10 Then
ltxt3 = ltxt3 + 1
ltxt2 = 0
End If
If ltxt3 >= 10 Then
ltxt4 = ltxt4 + 1
ltxt3 = 0
End If
Select Case ltxt1
Case 0
l11.Visible = True
l12.Visible = True
l13.Visible = True
l14.Visible = True
l15.Visible = True
l16.Visible = True
l17.Visible = False
Case 1
l11.Visible = False
l12.Visible = False
l13.Visible = False
l14.Visible = True
l15.Visible = True
l16.Visible = False
l17.Visible = False
Case 2
l11.Visible = False
l12.Visible = True
l13.Visible = True
l14.Visible = True
l15.Visible = False
l16.Visible = True
l17.Visible = True
Case 3
l11.Visible = False
l12.Visible = False
l13.Visible = True
l14.Visible = True
l15.Visible = True
l16.Visible = True
l17.Visible = True
Case 4
l11.Visible = True
l12.Visible = False
l13.Visible = False
l14.Visible = True
l15.Visible = True
l16.Visible = False
l17.Visible = True
Case 5
l11.Visible = True
l12.Visible = False
l13.Visible = True
l14.Visible = False
l15.Visible = True
l16.Visible = True
l17.Visible = True
Case 6
l11.Visible = True
l12.Visible = True
l13.Visible = True
l14.Visible = False
l15.Visible = True
l16.Visible = True
l17.Visible = True
Case 7
l11.Visible = False
l12.Visible = False
l13.Visible = True
l14.Visible = True
l15.Visible = True
l16.Visible = False
l17.Visible = False
Case 8
l11.Visible = True
l12.Visible = True
l13.Visible = True
l14.Visible = True
l15.Visible = True
l16.Visible = True
l17.Visible = True
Case 9
l11.Visible = True
l12.Visible = False
l13.Visible = True
l14.Visible = True
l15.Visible = True
l16.Visible = False
l17.Visible = True
End Select

Select Case ltxt2
Case 0
l21.Visible = True
l22.Visible = True
l23.Visible = True
l24.Visible = True
l25.Visible = True
l26.Visible = True
l27.Visible = False
Case 1
l21.Visible = False
l22.Visible = False
l23.Visible = False
l24.Visible = True
l25.Visible = True
l26.Visible = False
l27.Visible = False
Case 2
l21.Visible = False
l22.Visible = True
l23.Visible = True
l24.Visible = True
l25.Visible = False
l26.Visible = True
l27.Visible = True
Case 3
l21.Visible = False
l22.Visible = False
l23.Visible = True
l24.Visible = True
l25.Visible = True
l26.Visible = True
l27.Visible = True
Case 4
l21.Visible = True
l22.Visible = False
l23.Visible = False
l24.Visible = True
l25.Visible = True
l26.Visible = False
l27.Visible = True
Case 5
l21.Visible = True
l22.Visible = False
l23.Visible = True
l24.Visible = False
l25.Visible = True
l26.Visible = True
l27.Visible = True
Case 6
l21.Visible = True
l22.Visible = True
l23.Visible = True
l24.Visible = False
l25.Visible = True
l26.Visible = True
l27.Visible = True
Case 7
l21.Visible = False
l22.Visible = False
l23.Visible = True
l24.Visible = True
l25.Visible = True
l26.Visible = False
l27.Visible = False
Case 8
l21.Visible = True
l22.Visible = True
l23.Visible = True
l24.Visible = True
l25.Visible = True
l26.Visible = True
l27.Visible = True
Case 9
l21.Visible = True
l22.Visible = False
l23.Visible = True
l24.Visible = True
l25.Visible = True
l26.Visible = False
l27.Visible = True
End Select

Select Case ltxt3
Case 0
l31.Visible = True
l32.Visible = True
l33.Visible = True
l34.Visible = True
l35.Visible = True
l36.Visible = True
l37.Visible = False
Case 1
l31.Visible = False
l32.Visible = False
l33.Visible = False
l34.Visible = True
l35.Visible = True
l36.Visible = False
l37.Visible = False
Case 2
l31.Visible = False
l32.Visible = True
l33.Visible = True
l34.Visible = True
l35.Visible = False
l36.Visible = True
l37.Visible = True
Case 3
l31.Visible = False
l32.Visible = False
l33.Visible = True
l34.Visible = True
l35.Visible = True
l36.Visible = True
l37.Visible = True
Case 4
l31.Visible = True
l32.Visible = False
l33.Visible = False
l34.Visible = True
l35.Visible = True
l36.Visible = False
l37.Visible = True
Case 5
l31.Visible = True
l32.Visible = False
l33.Visible = True
l34.Visible = False
l35.Visible = True
l36.Visible = True
l37.Visible = True
Case 6
l31.Visible = True
l32.Visible = True
l33.Visible = True
l34.Visible = False
l35.Visible = True
l36.Visible = True
l37.Visible = True
Case 7
l31.Visible = False
l32.Visible = False
l33.Visible = True
l34.Visible = True
l35.Visible = True
l36.Visible = False
l37.Visible = False
Case 8
l31.Visible = True
l32.Visible = True
l33.Visible = True
l34.Visible = True
l35.Visible = True
l36.Visible = True
l37.Visible = True
Case 9
l31.Visible = True
l32.Visible = False
l33.Visible = True
l34.Visible = True
l35.Visible = True
l36.Visible = False
l37.Visible = True
End Select

Select Case ltxt4
Case 0
l41.Visible = True
l42.Visible = True
l43.Visible = True
l44.Visible = True
l45.Visible = True
l46.Visible = True
l47.Visible = False
Case 1
l41.Visible = False
l42.Visible = False
l43.Visible = False
l44.Visible = True
l45.Visible = True
l46.Visible = False
l47.Visible = False
Case 2
l41.Visible = False
l42.Visible = True
l43.Visible = True
l44.Visible = True
l45.Visible = False
l46.Visible = True
l47.Visible = True
Case 3
l41.Visible = False
l42.Visible = False
l43.Visible = True
l44.Visible = True
l45.Visible = True
l46.Visible = True
l47.Visible = True
Case 4
l41.Visible = True
l42.Visible = False
l43.Visible = False
l44.Visible = True
l45.Visible = True
l46.Visible = False
l47.Visible = True
Case 5
l41.Visible = True
l42.Visible = False
l43.Visible = True
l44.Visible = False
l45.Visible = True
l46.Visible = True
l47.Visible = True
Case 6
l41.Visible = True
l42.Visible = True
l43.Visible = True
l44.Visible = False
l45.Visible = True
l46.Visible = True
l47.Visible = True
Case 7
l41.Visible = False
l42.Visible = False
l43.Visible = True
l44.Visible = True
l45.Visible = True
l46.Visible = False
l47.Visible = False
Case 8
l41.Visible = True
l42.Visible = True
l43.Visible = True
l44.Visible = True
l45.Visible = True
l46.Visible = True
l47.Visible = True
Case 9
l41.Visible = True
l42.Visible = False
l43.Visible = True
l44.Visible = True
l45.Visible = True
l46.Visible = False
l47.Visible = True
End Select

Select Case lptxt0
Case 0
lp1.Visible = True
lp2.Visible = True
lp3.Visible = True
lp4.Visible = True
lp5.Visible = True
lp6.Visible = True
lp7.Visible = False
Case 1
lp1.Visible = False
lp2.Visible = False
lp3.Visible = False
lp4.Visible = True
lp5.Visible = True
lp6.Visible = False
lp7.Visible = False
Case 2
lp1.Visible = False
lp2.Visible = True
lp3.Visible = True
lp4.Visible = True
lp5.Visible = False
lp6.Visible = True
lp7.Visible = True
Case 3
lp1.Visible = False
lp2.Visible = False
lp3.Visible = True
lp4.Visible = True
lp5.Visible = True
lp6.Visible = True
lp7.Visible = True
Case 4
lp1.Visible = True
lp2.Visible = False
lp3.Visible = False
lp4.Visible = True
lp5.Visible = True
lp6.Visible = False
lp7.Visible = True
Case 5
lp1.Visible = True
lp2.Visible = False
lp3.Visible = True
lp4.Visible = False
lp5.Visible = True
lp6.Visible = True
lp7.Visible = True
Case 6
lp1.Visible = True
lp2.Visible = True
lp3.Visible = True
lp4.Visible = False
lp5.Visible = True
lp6.Visible = True
lp7.Visible = True
Case 7
lp1.Visible = False
lp2.Visible = False
lp3.Visible = True
lp4.Visible = True
lp5.Visible = True
lp6.Visible = False
lp7.Visible = False
Case 8
lp1.Visible = True
lp2.Visible = True
lp3.Visible = True
lp4.Visible = True
lp5.Visible = True
lp6.Visible = True
lp7.Visible = True
Case 9
lp1.Visible = True
lp2.Visible = False
lp3.Visible = True
lp4.Visible = True
lp5.Visible = True
lp6.Visible = False
lp7.Visible = True
End Select

Select Case lptxt1
Case 0
lp11.Visible = True
lp12.Visible = True
lp13.Visible = True
lp14.Visible = True
lp15.Visible = True
lp16.Visible = True
lp17.Visible = False
Case 1
lp11.Visible = False
lp12.Visible = False
lp13.Visible = False
lp14.Visible = True
lp15.Visible = True
lp16.Visible = False
lp17.Visible = False
Case 2
lp11.Visible = False
lp12.Visible = True
lp13.Visible = True
lp14.Visible = True
lp15.Visible = False
lp16.Visible = True
lp17.Visible = True
Case 3
lp11.Visible = False
lp12.Visible = False
lp13.Visible = True
lp14.Visible = True
lp15.Visible = True
lp16.Visible = True
lp17.Visible = True
Case 4
lp11.Visible = True
lp12.Visible = False
lp13.Visible = False
lp14.Visible = True
lp15.Visible = True
lp16.Visible = False
lp17.Visible = True
Case 5
lp11.Visible = True
lp12.Visible = False
lp13.Visible = True
lp14.Visible = False
lp15.Visible = True
lp16.Visible = True
lp17.Visible = True
Case 6
lp11.Visible = True
lp12.Visible = True
lp13.Visible = True
lp14.Visible = False
lp15.Visible = True
lp16.Visible = True
lp17.Visible = True
Case 7
lp11.Visible = False
lp12.Visible = False
lp13.Visible = True
lp14.Visible = True
lp15.Visible = True
lp16.Visible = False
lp17.Visible = False
Case 8
lp11.Visible = True
lp12.Visible = True
lp13.Visible = True
lp14.Visible = True
lp15.Visible = True
lp16.Visible = True
lp17.Visible = True
Case 9
lp11.Visible = True
lp12.Visible = False
lp13.Visible = True
lp14.Visible = True
lp15.Visible = True
lp16.Visible = False
lp17.Visible = True
End Select

Select Case lptxt2
Case 0
lp21.Visible = True
lp22.Visible = True
lp23.Visible = True
lp24.Visible = True
lp25.Visible = True
lp26.Visible = True
lp27.Visible = False
Case 1
lp21.Visible = False
lp22.Visible = False
lp23.Visible = False
lp24.Visible = True
lp25.Visible = True
lp26.Visible = False
lp27.Visible = False
Case 2
lp21.Visible = False
lp22.Visible = True
lp23.Visible = True
lp24.Visible = True
lp25.Visible = False
lp26.Visible = True
lp27.Visible = True
Case 3
lp21.Visible = False
lp22.Visible = False
lp23.Visible = True
lp24.Visible = True
lp25.Visible = True
lp26.Visible = True
lp27.Visible = True
Case 4
lp21.Visible = True
lp22.Visible = False
lp23.Visible = False
lp24.Visible = True
lp25.Visible = True
lp26.Visible = False
lp27.Visible = True
Case 5
lp21.Visible = True
lp22.Visible = False
lp23.Visible = True
lp24.Visible = False
lp25.Visible = True
lp26.Visible = True
lp27.Visible = True
Case 6
lp21.Visible = True
lp22.Visible = True
lp23.Visible = True
lp24.Visible = False
lp25.Visible = True
lp26.Visible = True
lp27.Visible = True
Case 7
lp21.Visible = False
lp22.Visible = False
lp23.Visible = True
lp24.Visible = True
lp25.Visible = True
lp26.Visible = False
lp27.Visible = False
Case 8
lp21.Visible = True
lp22.Visible = True
lp23.Visible = True
lp24.Visible = True
lp25.Visible = True
lp26.Visible = True
lp27.Visible = True
Case 9
lp21.Visible = True
lp22.Visible = False
lp23.Visible = True
lp24.Visible = True
lp25.Visible = True
lp26.Visible = False
lp27.Visible = True
End Select

Select Case lptxt3
Case 0
lp31.Visible = True
lp32.Visible = True
lp33.Visible = True
lp34.Visible = True
lp35.Visible = True
lp36.Visible = True
lp37.Visible = False
Case 1
lp31.Visible = False
lp32.Visible = False
lp33.Visible = False
lp34.Visible = True
lp35.Visible = True
lp36.Visible = False
lp37.Visible = False
Case 2
lp31.Visible = False
lp32.Visible = True
lp33.Visible = True
lp34.Visible = True
lp35.Visible = False
lp36.Visible = True
lp37.Visible = True
Case 3
lp31.Visible = False
lp32.Visible = False
lp33.Visible = True
lp34.Visible = True
lp35.Visible = True
lp36.Visible = True
lp37.Visible = True
Case 4
lp31.Visible = True
lp32.Visible = False
lp33.Visible = False
lp34.Visible = True
lp35.Visible = True
lp36.Visible = False
lp37.Visible = True
Case 5
lp31.Visible = True
lp32.Visible = False
lp33.Visible = True
lp34.Visible = False
lp35.Visible = True
lp36.Visible = True
lp37.Visible = True
Case 6
lp31.Visible = True
lp32.Visible = True
lp33.Visible = True
lp34.Visible = False
lp35.Visible = True
lp36.Visible = True
lp37.Visible = True
Case 7
lp31.Visible = False
lp32.Visible = False
lp33.Visible = True
lp34.Visible = True
lp35.Visible = True
lp36.Visible = False
lp37.Visible = False
Case 8
lp31.Visible = True
lp32.Visible = True
lp33.Visible = True
lp34.Visible = True
lp35.Visible = True
lp36.Visible = True
lp37.Visible = True
Case 9
lp31.Visible = True
lp32.Visible = False
lp33.Visible = True
lp34.Visible = True
lp35.Visible = True
lp36.Visible = False
lp37.Visible = True
End Select

Select Case lptxt4
Case 0
lp41.Visible = True
lp42.Visible = True
lp43.Visible = True
lp44.Visible = True
lp45.Visible = True
lp46.Visible = True
lp47.Visible = False
Case 1
lp41.Visible = False
lp42.Visible = False
lp43.Visible = False
lp44.Visible = True
lp45.Visible = True
lp46.Visible = False
lp47.Visible = False
Case 2
lp41.Visible = False
lp42.Visible = True
lp43.Visible = True
lp44.Visible = True
lp45.Visible = False
lp46.Visible = True
lp47.Visible = True
Case 3
lp41.Visible = False
lp42.Visible = False
lp43.Visible = True
lp44.Visible = True
lp45.Visible = True
lp46.Visible = True
lp47.Visible = True
Case 4
lp41.Visible = True
lp42.Visible = False
lp43.Visible = False
lp44.Visible = True
lp45.Visible = True
lp46.Visible = False
lp47.Visible = True
Case 5
lp41.Visible = True
lp42.Visible = False
lp43.Visible = True
lp44.Visible = False
lp45.Visible = True
lp46.Visible = True
lp47.Visible = True
Case 6
lp41.Visible = True
lp42.Visible = True
lp43.Visible = True
lp44.Visible = False
lp45.Visible = True
lp46.Visible = True
lp47.Visible = True
Case 7
lp41.Visible = False
lp42.Visible = False
lp43.Visible = True
lp44.Visible = True
lp45.Visible = True
lp46.Visible = False
lp47.Visible = False
Case 8
lp41.Visible = True
lp42.Visible = True
lp43.Visible = True
lp44.Visible = True
lp45.Visible = True
lp46.Visible = True
lp47.Visible = True
Case 9
lp41.Visible = True
lp42.Visible = False
lp43.Visible = True
lp44.Visible = True
lp45.Visible = True
lp46.Visible = False
lp47.Visible = True
End Select

Select Case ctxt0
Case 0
c1.Visible = True
c2.Visible = True
c3.Visible = True
c4.Visible = True
c5.Visible = True
c6.Visible = True
c7.Visible = False
Case 1
c1.Visible = False
c2.Visible = False
c3.Visible = False
c4.Visible = True
c5.Visible = True
c6.Visible = False
c7.Visible = False
Case 2
c1.Visible = False
c2.Visible = True
c3.Visible = True
c4.Visible = True
c5.Visible = False
c6.Visible = True
c7.Visible = True
Case 3
c1.Visible = False
c2.Visible = False
c3.Visible = True
c4.Visible = True
c5.Visible = True
c6.Visible = True
c7.Visible = True
Case 4
c1.Visible = True
c2.Visible = False
c3.Visible = False
c4.Visible = True
c5.Visible = True
c6.Visible = False
c7.Visible = True
Case 5
c1.Visible = True
c2.Visible = False
c3.Visible = True
c4.Visible = False
c5.Visible = True
c6.Visible = True
c7.Visible = True
Case 6
c1.Visible = True
c2.Visible = True
c3.Visible = True
c4.Visible = False
c5.Visible = True
c6.Visible = True
c7.Visible = True
Case 7
c1.Visible = False
c2.Visible = False
c3.Visible = True
c4.Visible = True
c5.Visible = True
c6.Visible = False
c7.Visible = False
Case 8
c1.Visible = True
c2.Visible = True
c3.Visible = True
c4.Visible = True
c5.Visible = True
c6.Visible = True
c7.Visible = True
Case 9
c1.Visible = True
c2.Visible = False
c3.Visible = True
c4.Visible = True
c5.Visible = True
c6.Visible = False
c7.Visible = True
End Select

Select Case ctxt1
Case 0
c11.Visible = True
c12.Visible = True
c13.Visible = True
c14.Visible = True
c15.Visible = True
c16.Visible = True
c17.Visible = False
Case 1
c11.Visible = False
c12.Visible = False
c13.Visible = False
c14.Visible = True
c15.Visible = True
c16.Visible = False
c17.Visible = False
Case 2
c11.Visible = False
c12.Visible = True
c13.Visible = True
c14.Visible = True
c15.Visible = False
c16.Visible = True
c17.Visible = True
Case 3
c11.Visible = False
c12.Visible = False
c13.Visible = True
c14.Visible = True
c15.Visible = True
c16.Visible = True
c17.Visible = True
Case 4
c11.Visible = True
c12.Visible = False
c13.Visible = False
c14.Visible = True
c15.Visible = True
c16.Visible = False
c17.Visible = True
Case 5
c11.Visible = True
c12.Visible = False
c13.Visible = True
c14.Visible = False
c15.Visible = True
c16.Visible = True
c17.Visible = True
Case 6
c11.Visible = True
c12.Visible = True
c13.Visible = True
c14.Visible = False
c15.Visible = True
c16.Visible = True
c17.Visible = True
Case 7
c11.Visible = False
c12.Visible = False
c13.Visible = True
c14.Visible = True
c15.Visible = True
c16.Visible = False
c17.Visible = False
Case 8
c11.Visible = True
c12.Visible = True
c13.Visible = True
c14.Visible = True
c15.Visible = True
c16.Visible = True
c17.Visible = True
Case 9
c11.Visible = True
c12.Visible = False
c13.Visible = True
c14.Visible = True
c15.Visible = True
c16.Visible = False
c17.Visible = True
End Select

Select Case ctxt2
Case 0
c21.Visible = True
c22.Visible = True
c23.Visible = True
c24.Visible = True
c25.Visible = True
c26.Visible = True
c27.Visible = False
Case 1
c21.Visible = False
c22.Visible = False
c23.Visible = False
c24.Visible = True
c25.Visible = True
c26.Visible = False
c27.Visible = False
Case 2
c21.Visible = False
c22.Visible = True
c23.Visible = True
c24.Visible = True
c25.Visible = False
c26.Visible = True
c27.Visible = True
Case 3
c21.Visible = False
c22.Visible = False
c23.Visible = True
c24.Visible = True
c25.Visible = True
c26.Visible = True
c27.Visible = True
Case 4
c21.Visible = True
c22.Visible = False
c23.Visible = False
c24.Visible = True
c25.Visible = True
c26.Visible = False
c27.Visible = True
Case 5
c21.Visible = True
c22.Visible = False
c23.Visible = True
c24.Visible = False
c25.Visible = True
c26.Visible = True
c27.Visible = True
Case 6
c21.Visible = True
c22.Visible = True
c23.Visible = True
c24.Visible = False
c25.Visible = True
c26.Visible = True
c27.Visible = True
Case 7
c21.Visible = False
c22.Visible = False
c23.Visible = True
c24.Visible = True
c25.Visible = True
c26.Visible = False
c27.Visible = False
Case 8
c21.Visible = True
c22.Visible = True
c23.Visible = True
c24.Visible = True
c25.Visible = True
c26.Visible = True
c27.Visible = True
Case 9
c21.Visible = True
c22.Visible = False
c23.Visible = True
c24.Visible = True
c25.Visible = True
c26.Visible = False
c27.Visible = True
End Select

Select Case ctxt3
Case 0
c31.Visible = True
c32.Visible = True
c33.Visible = True
c34.Visible = True
c35.Visible = True
c36.Visible = True
c37.Visible = False
Case 1
c31.Visible = False
c32.Visible = False
c33.Visible = False
c34.Visible = True
c35.Visible = True
c36.Visible = False
c37.Visible = False
Case 2
c31.Visible = False
c32.Visible = True
c33.Visible = True
c34.Visible = True
c35.Visible = False
c36.Visible = True
c37.Visible = True
Case 3
c31.Visible = False
c32.Visible = False
c33.Visible = True
c34.Visible = True
c35.Visible = True
c36.Visible = True
c37.Visible = True
Case 4
c31.Visible = True
c32.Visible = False
c33.Visible = False
c34.Visible = True
c35.Visible = True
c36.Visible = False
c37.Visible = True
Case 5
c31.Visible = True
c32.Visible = False
c33.Visible = True
c34.Visible = False
c35.Visible = True
c36.Visible = True
c37.Visible = True
Case 6
c31.Visible = True
c32.Visible = True
c33.Visible = True
c34.Visible = False
c35.Visible = True
c36.Visible = True
c37.Visible = True
Case 7
c31.Visible = False
c32.Visible = False
c33.Visible = True
c34.Visible = True
c35.Visible = True
c36.Visible = False
c37.Visible = False
Case 8
c31.Visible = True
c32.Visible = True
c33.Visible = True
c34.Visible = True
c35.Visible = True
c36.Visible = True
c37.Visible = True
Case 9
c31.Visible = True
c32.Visible = False
c33.Visible = True
c34.Visible = True
c35.Visible = True
c36.Visible = False
c37.Visible = True
End Select

Select Case ctxt4
Case 0
c41.Visible = True
c42.Visible = True
c43.Visible = True
c44.Visible = True
c45.Visible = True
c46.Visible = True
c47.Visible = False
Case 1
c41.Visible = False
c42.Visible = False
c43.Visible = False
c44.Visible = True
c45.Visible = True
c46.Visible = False
c47.Visible = False
Case 2
c41.Visible = False
c42.Visible = True
c43.Visible = True
c44.Visible = True
c45.Visible = False
c46.Visible = True
c47.Visible = True
Case 3
c41.Visible = False
c42.Visible = False
c43.Visible = True
c44.Visible = True
c45.Visible = True
c46.Visible = True
c47.Visible = True
Case 4
c41.Visible = True
c42.Visible = False
c43.Visible = False
c44.Visible = True
c45.Visible = True
c46.Visible = False
c47.Visible = True
Case 5
c41.Visible = True
c42.Visible = False
c43.Visible = True
c44.Visible = False
c45.Visible = True
c46.Visible = True
c47.Visible = True
Case 6
c41.Visible = True
c42.Visible = True
c43.Visible = True
c44.Visible = False
c45.Visible = True
c46.Visible = True
c47.Visible = True
Case 7
c41.Visible = False
c42.Visible = False
c43.Visible = True
c44.Visible = True
c45.Visible = True
c46.Visible = False
c47.Visible = False
Case 8
c41.Visible = True
c42.Visible = True
c43.Visible = True
c44.Visible = True
c45.Visible = True
c46.Visible = True
c47.Visible = True
Case 9
c41.Visible = True
c42.Visible = False
c43.Visible = True
c44.Visible = True
c45.Visible = True
c46.Visible = False
c47.Visible = True
End Select
End Sub

[mdmackillop]

I don't follow this as it's not clear what you are making visible.
Can you post your application?
Use Manage Attachments in thr Go Advanced section

[PJ_Chambers]

Hi,
I've added my database

[mdmackillop]

Ingenious.:clap2: :clap2: :clap2:

Change the start of your code as follows. The last line here is the limit of my changes


Option Compare Database
Option Explicit
Dim ctxt0, ctxt1, ctxt2, ctxt3, ctxt4, ltxt0, ltxt1, ltxt2, ltxt3, ltxt4 As Integer
Dim lptxt0, lptxt1, lptxt2, lptxt3, lptxt4 As Integer
Dim myinterval, counter, amt, cost As Single, txtCost As String, price As Single, txtPrice As String
Dim Litres As Long
Private Sub form_timer()
myinterval = 100
TimerInterval = myinterval
counter = 0
'Set Price box
price = 99.25
txtPrice = Format(price, "000.00")
lptxt0 = Mid(txtPrice, 6, 1)
lptxt1 = Mid(txtPrice, 5, 1)
lptxt2 = Mid(txtPrice, 3, 1)
lptxt3 = Mid(txtPrice, 2, 1)
lptxt4 = Mid(txtPrice, 1, 1)

'Set Cost box
Litres = Litres + 1
cost = (price / 100) * (Litres / 10)
txtCost = Format(cost, "000.00")
ctxt0 = Mid(txtCost, 6, 1)
ctxt1 = Mid(txtCost, 5, 1)
ctxt2 = Mid(txtCost, 3, 1)
ctxt3 = Mid(txtCost, 2, 1)
ctxt4 = Mid(txtCost, 1, 1)


ltxt1 = ltxt1 + 1

[Trevor]

You could simply use a lookup table or a seperate form for the end user to change the price per/liter
and for the cost use a fractional matmatical algarythem to bake down the cost of a 1/18 of a liter = x then multiply x by how many liters or factions of a liter that have pumped
Ie: 1 liter cost $2.00/ 10 = .20 cents .10 liters x .20 = 1/10 liter cost 20cents or say they pumpted 10 liters at the same cost, the cost would be $20.00
you could also shorten your code by using arrays instead of the long case list of .true .true. false .etc..
this looks like the software side of a hardware pumping application, so I wouln't worry to much on cost and liters at the same speed untill you get the hardware hooked up and then you can do calibrating between the software and hardware to get the 2 (hardware and software) synced up to work correctly.

[mdmackillop]

Have you seen this post (http://www.vbaexpress.com/forum/showthread.php?t=18573)?

[Carl A]

Have you seen this post (http://http://www.vbaexpress.com/forum/showthread.php?t=18573)?
Seems to be a bad link try this

http://www.vbaexpress.com/forum/showthread.php?t=18573" target="_blank" (http://www.vbaexpress.com/forum/showthread.php?t=18573)

[Trevor]

no , thanks for showin me someone beet me to the post