?
Solved

counter increment

Posted on 2011-02-27
3
Medium Priority
?
368 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 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 learning courses: Active Directory Deep Dive

Get a firm grasp on your IT environment when you learn Active Directory best practices with Veeam! Watch all, or choose any amount, of this three-part webinar series to improve your skills. From the basics to virtualization and backup, we got you covered.

Question has a verified solution.

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

In Part II of this series, I will discuss how to identify all open instances of Excel and enumerate the workbooks, spreadsheets, and named ranges within each of those instances.
Microsoft Access is a place to store data within tables and represent this stored data using multiple database objects such as in form of macros, forms, reports, etc. After a MS Access database is created there is need to improve the performance and…
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…
Visualize your data even better in Access queries. Given a date and a value, this lesson shows how to compare that value with the previous value, calculate the difference, and display a circle if the value is the same, an up triangle if it increased…
Suggested Courses

800 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