Go Premium for a chance to win a PS4. Enter to Win

x
?
Solved

counter increment

Posted on 2011-02-27
3
Medium Priority
?
376 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
  • 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 2000 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

Free Tool: Subnet Calculator

The subnet calculator helps you design networks by taking an IP address and network mask and returning information such as network, broadcast address, and host range.

One of a set of tools we're offering as a way of saying thank you for being a part of the community.

Question has a verified solution.

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

Microsoft Access has a limit of 255 columns in a single table; SQL Server allows tables with over 255 columns, but reading that data is not necessarily simple.  The final solution for this task involved creating a custom text parser and then reading…
Windows Explorer let you handle zip folders nearly as any other folder: Copy, move, change, and delete, etc. In VBA you can also handle normal files and folders, but zip folders takes a little more - and that you'll find here.
Using Microsoft Access, learn some simple rules for how to construct tables in a relational database. Split up all multi-value fields into single values: Split up fields that belong to other things into separate tables: Make sure that all record…
In Microsoft Access, learn different ways of passing a string value within a string argument. Also learn what a “Type Mis-match” error is about.
Suggested Courses

972 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