Solved

counter increment

Posted on 2011-02-27
3
365 Views
Last Modified: 2012-05-11
I have a global counter that is increased from 0 to 50 by a plus and a minus button.

I would like the incrementation to scale so fom 0 to 5 or 5 to 0 in steps of 1 and from 5 to 50 in steps of 5 or -5 if decreasing

my current code works but only in steps of 1 which is a lot of clicks

I tried a case with 0 to 4 with increments of 1
then 5 to 49 with increments of 5
but the counts go beyond 50 my upper limit so it all falls apart
Private Sub BtnVCCPlus_Click()
    Select Case vCCCount
     Case 0
      vCCCount = vCCCount + 1
    Case 1 To 49
     vCCCount = vCCCount + 1
     Case 50
 
 
     
     
     
     End Select
      LblVCCCount.Caption = vCCCount
End Sub
Private Sub BtnVCCMinus_Click()
     Select Case vCCCount
     
     Case 0
     
     Case 1 To 49
        vCCCount = vCCCount - 1
     Case 50
        vCCCount = vCCCount - 1
  
     
     
     
     
     End Select
      LblVCCCount.Caption = vCCCount
End Sub

Open in new window

0
Comment
Question by:PeterBaileyUk
[X]
Welcome to Experts Exchange

Add your voice to the tech community where 5M+ people just like you are talking about what matters.

  • Help others & share knowledge
  • Earn cash & points
  • Learn & ask questions
  • 2
3 Comments
 

Author Comment

by:PeterBaileyUk
ID: 34994865
I have almost got there the decrement works but the increment gets to 4 then jumps straight to 10
Private Sub BtnVCCPlus_Click()

     
     If vCCCount >= 0 And vCCCount <= 4 Then vCCCount = vCCCount + 1
      If vCCCount >= 5 And vCCCount <= 49 Then vCCCount = vCCCount + 5
    
     
     
     
     
     
      LblVCCCount.Caption = vCCCount
End Sub
Private Sub BtnVCCMinus_Click()

 If vCCCount >= 1 And vCCCount <= 5 Then vCCCount = vCCCount - 1
      If vCCCount >= 6 And vCCCount <= 49 Then vCCCount = vCCCount - 5
     If vCCCount = 50 Then vCCCount = vCCCount - 5
     
     
     
     

      LblVCCCount.Caption = vCCCount
End Sub

Open in new window

0
 
LVL 77

Accepted Solution

by:
peter57r earned 500 total points
ID: 34994878
up...


Select Case vCCCount
     Case 0 to 4
      vCCCount = vCCCount + 1
    Case 5 To 45
     vCCCount = vCCCount + 5
     Case else  
    ' do nothing
         
     End Select

and down...


Select Case vCCCount
     
      Case 1 to 5
      vCCCount = vCCCount -1
    Case 10 To 50
     vCCCount = vCCCount - 5
     Case else  
    ' do nothing
 End Select
     
     
     
     
     End Select
0
 

Author Closing Comment

by:PeterBaileyUk
ID: 34994892
just couldnt get my head around that one thank you
0

Featured Post

Online Training Solution

Drastically shorten your training time with WalkMe's advanced online training solution that Guides your trainees to action. Forget about retraining and skyrocket knowledge retention rates.

Question has a verified solution.

If you are experiencing a similar issue, please ask a related question

AutoNumbers should increment automatically, without duplicates.  But sometimes something goes wrong, and the next AutoNumber value is a duplicate.  This article shows how to recover from this problem.
The Windows Phone Theme Colours is a tight, powerful, and well balanced palette. This tiny Access application makes it a snap to select and pick a value. And it doubles as an intro to implementing WithEvents, one of Access' hidden gems.
Polish reports in Access so they look terrific. Take yourself to another level. Equations, Back Color, Alternate Back Color. Write easy VBA Code. Tighten space to use less pages. Launch report from a menu, considering criteria only when it is filled…
Add bar graphs to Access queries using Unicode block characters. Graphs appear on every record in the color you want. Give life to numbers. Hopes this gives you ideas on visualizing your data in new ways ~ Create a calculated field in a query: …

691 members asked questions and received personalized solutions in the past 7 days.

Join the community of 500,000 technology professionals and ask your questions.

Join & Ask a Question