B4A Library [Class]ClsWheel Input wheels

klaus · Dec 15, 2012

Attached you find a new CLASS ClsWheel.

It allows to display different data input screens with wheels.

What can be done ?
You can define nine different types of Wheel input screens:

DATE a date input : year / month / day
A default value can be defined or Now, the current date.
The returned value has the current DateFormat.
TIME_HM a time input : hour / minute
A default value can be defined or Now, the current time.
The returned value has the current TimeFormat.
TIME_HMS a time input : hour / minute / second
A default value can be defined or Now, the current time.
The returned value has the current TimeFormat.
DATE_TIME a date + time input : year / month / day / hour / minute
A default value can be defined or Now, the current date and time.
The returned value has the current DateFormat and TimeFormat.
CUSTOM a custom input with user defined input values.
The number of side by side wheels is user defined (max. 5 wheels).
A default value can be defined.
A specific separation character can be defined, a blanc character is default.
INTEGER positive and negative integers
INTEGER_POS only positive integers
NUMBER positive and negative numbers
NUMBER_POS only positive numbers

Main functions:
Initialize initializes the wheel class Note: the Initialize routine hasone more parameter cContinusScrolling As Boolean (since version 1.3) .
Example :
whlDate.Initialize(Me, Activity, "Enter date", 3, Null, 24, 0, True)
Me = calling module, the current
Activity =
Enter date = title of the input
3 = number of wheels, this number is used only for CUSTOM input types
Null = no input data, set internally
24 = text size
0 = DATE input type
True = continus scrolling

Show show the input wheel(s)
Example :
whlDate.Show(lblSelection, "11/22/2001")
lblSelection = Label which gets the result
11/22/2001 = Default value to preset the wheels

Show2 show the input wheel(s)
Example :
whlCustum.Show2("whlCustom", "")
"whlCustom" = EventName
"" = no default value
The event is called 'Closed'.
The event routine in the calling module, for the example, must be
Sub whlCustom_Closed(Canceled As Boolean, Selection As String)

The width and height are defined by the program according to the font size.

If the width or the height exceed the screen width or height the font size is downscaled.

You can change most of the colors.

Needs the Reflection library.

Bug reports and suggestions are welcome.

I hope that the code is enough self explanatory, but if you want more explanations I can add them.
Anyway the best way to know what can be done is to test it.

PS. There is no logic in the custom input screen just to demonstrate the possibility.

Best regards.

EDIT: 2020.11.25 Version 2.7
Amended warning in line 946: Comparison of Object to other types will fail if exact types do not match.
EDIT: 2015.04.29 Version 2.0
Added a Tag property

EDIT: 2017.06.27 Version 2.6
Replaced DoEvents by Sleep(0)
Needs B4A version 7.00+

EDIT: 2017.03.30 Version 2.5
Amended the wish expressed HERE
Different font sizes for title and wheels.
With long titles, the font size of both, title and wheels, was reduced.
Now only the title font size is reduced.

EDIT: 2017.03.28 Version 2.4
Amended the error reported HERE
Problem with +/- in number wheels

EDIT: 2015.09.22 Version 2.3
Amended the error reported in post #185

EDIT: 2015.05.10 Version 2.2
Amended the variable declaration problem reported in post #175

EDIT: 2015.05.10 Version 2.1
Amended the timer problem reported in post #170

EDIT: 2014.09.09 Version 1.9
Added number wheels INTEGER, INTEGER_POS, NUMBER, NUMBER_POS wheels
Amended day scroll problem reported in post #141

EDIT: 2014.04.21 Version 1.7
Amended OutOfMemory problem reported HERE.

EDIT: 2013.09.15 Version 1.6
Added min MinYear and NumberOfYears properties to adapt the years to select

EDIT: 2013.08.08 Version 1.5
Added StartScroll and EdnScroll events

EDIT: 2013.06.14 Version 1.4
Modified OK event to Closed event post#37
Amended screen color problem post#36
Amendet getSeparationText error post #41

EDIT: 2013.06.12 Version 1.3
Mofied property routines.
Added Show2 for raising an event when clicking the OK button
Added optional continus scrolling

EDIT: 2013.05.28 Version 1.2
Amended the bug reported in post #32

EDIT: 2012.12.15 Version 1.1
Amended the reported bugs.

enrico · Dec 9, 2013

How can I calculate ItemNb to better fill pnlMainHeight (for bigger screens) ?

klaus · Dec 9, 2013

The easiest way would be to add it as a parameter in the Initialize routine and the two lines below:

B4X:

Public Sub Initialize(CallbackModule As Object, Parent As Object, cTitle As String, cWheelNb As Int, cWheelContent() As List, cFontSize As Float, cWheelType As Int, cContinusScrolling As Boolean, cItemNb As Int)
    ItemNb = cItemNb
    ItemNb_2 = Floor(ItemNb / 2)

And add the parameter in the calling routine.
The number must be an odd number.

You might aslo play with the TextSize parameter.

enrico · Dec 9, 2013

So I need a function to calculate the nearest odd integer below a number.
For example if I have 10.8, it has to be 9.

Maybe this ?
floor((x + 1)/2)*2 - 1

klaus · Dec 9, 2013

Yes. But you should adapt it to the screen size.

enrico · Dec 9, 2013

Ok. I've modified it to pass the Height of the panel :

B4X:

Public Sub Initialize(CallbackModule As Object, Parent As Object, cTitle As String, cWheelNb As Int, cWheelContent() As List, cFontSize As Float, cWheelType As Int, cContinusScrolling As Boolean, cPanelMaxHeight As Int)

And then calculate ItemNb :

B4X:

ItemNb = Floor((PanelMaxHeight/lblHeight + 1)/2)*2 - 1        'Added to set ItemNb according to pnlMainHeight (PanelMaxHeight)

The screen size is good, but now I've some problems with the value selection.
With ItemNb = 9 I get the preceding two places value (sorry for my english).
For example in a time wheel, if I select 05:03, I get 03:01

klaus · Dec 9, 2013

You should replace line 876 in Sub getSelection and line 914 in Sub getSelection2 (the number could be different depending on your changes) by :
j = Floor(scvWheel(i).ScrollPosition / lblHeight + 0.5) + ItemNb_2
Replace 2 by ItemNb_2

I wouldn't transmit the pnlMainHeight value because this height is calculated in the class depending on the text size.
I suggest you to calculate ItemNb depending on the physical sceen dimension.
In my opinion you should also adapt the text size to the physical sceen dimension.
Don't forget to calculate ItemNb_2 = Floor(ItemNb / 2) just after ItemNb.

enrico · Dec 9, 2013

Thanks. Now I am quite satisfied.

merlin2049er · Mar 18, 2014

Nice looking wheel, I'm going to try this for my remote.

Shadow&Max · Mar 23, 2014

Hi... This is a beautiful class, but I'm trying to get time in AM/PM, Hours & Minutes. I've set DateTime.TimeFormat = "hh:mm" and the wheels in the demo are still showing me 24 hour time. How can I fix this?

klaus · Mar 24, 2014

This would need to make new wheel variants.
I have never thought about it because I'm used to the 24 hours display.
Note that even the wheels show 24 hours, the returned value is displayed in the format you set in the program.

Harris · Mar 24, 2014

klaus said:
Possible yes.
It would need quite some time to add this and I am not really convinced of the usefullness of this option.
But feel free to adapt it to your wishes, it's an open project.

Horizontal example: directional indicator.

klaus · Mar 24, 2014

What is the advantage having this horizontally instead of vertically ?
I don't want to make the class too complicated for relative special cases.

Harris · Mar 24, 2014

I understand. Just a thought.
Thanks.

Shadow&Max · Mar 24, 2014

klaus said:
This would need to make new wheel variants.
I have never thought about it because I'm used to the 24 hours display.
Note that even the wheels show 24 hours, the returned value is displayed in the format you set in the program.

I'm not sure how to do this Klaus... Love the class though. What I'd like to do is display hours in 12 or 24 hour based upon their phone settings, and display only 4 items in minutes... 0,15,30,45.

I lived in Europe for a year, so I know about the 24 hour format, but if that's presented to most from the US, they wouldn't know how to deal with it!

Do I create three separate lists to do this???

klaus · Mar 24, 2014

You can do it with a Custom wheel.
Look at the attached test program.
Click onto the Label to show the wheel.
You can check the settings and depending on the settings you can initialize either the 24h wheel or the 12AM/PM wheel.
In the whlTimeAmPm_Closed routine you can handle the time string to your needs.

Shadow&Max · Mar 25, 2014

Damn you're good! Thanks Klaus... The only change I made was changing "0" to "12"

I'm trying to figure out how to detect the time format chosen in the phone's setup now.

In terms of Harris' question... it would be very helpful for game and flight controls headings could be changed with a horizontal swipe etc... I don't have any need for it personally, but I can see it's use...

LucaMs · Apr 2, 2014

It is very nice, Klaus!

How to use Scale on it?

Perhaps it might be useful to transform it into a custom view, also.

klaus · Apr 2, 2014

How to use Scale on it?

If you change the TextSize the views dimensions are automaticaly scaled.
If the wheel becomes too wide or too heigh the text size is changed to fit into the screen.

Perhaps it might be useful to transform it into a custom view, also.

Currently, the wheels class is designed as a pseudo modal input dialog and not as a custom view.
There is no scheddule to transform it also to a custom view.

luke2012 · Aug 29, 2014

Harris said:
View attachment 23792

Horizontal example: directional indicator.

WOW! @Harris!
It's your wheel customization ?

Harris · Aug 29, 2014

luke2012 said:
WOW! @Harris!
It's your wheel customization ?

No sorry, it was just an example picture from a GPS app I found...

B4A Library [Class]ClsWheel Input wheels

Attachments

Active Member

Expert

Active Member

Expert

Active Member

Expert

Active Member

Well-Known Member

Active Member

Expert

Expert

Expert

Expert

Active Member

Expert

Attachments

Active Member

Expert

Expert

Well-Known Member

Expert

Similar Threads

Privacy & Transparency

Privacy & Transparency