B4A Library [B4X] [XUI] AS NumberProgressBar

Hello,
i spend a lot of time in creating views, like this and to create a high quality view cost a lot of time. If you want to support me and further views, then you can do it here by Paypal.

Features

• cross-platform compatible
• Prefix and Suffix
• customizable
• Increment and Decrement Progress
• easy to use

ASNumberProgressBar
Author: Alexander Stolte
Version: 1.00

• ASNumberProgressBar
  • Functions:
    • Class_Globals As String
    • DecrementProgressBy (by As Int) As String
    • DesignerCreateView (Base As Object, Lbl As Label, Props As Map) As String
      Base type must be Object
    • getBarMax As Int
    • getCurrentProgress As Int
    • getPrefix As String
    • getReachedColor As Int
    • getReachedHeight As Float
    • getSuffix As String
    • getTextBackgroundColor As Int
    • getTextColor As Int
    • getTextFont As B4XFont
    • getTextOffset As Int
    • getUnreachedColor As Int
    • getUnreachedHeight As Float
    • IncrementProgressBy (by As Int) As String
    • Initialize (Callback As Object, EventName As String) As String
    • IsInitialized As Boolean
      Tests whether the object has been initialized.
    • setBarMax (bar_max As Int) As String
    • setCurrentProgress (current_progress As Int) As String
    • setPrefix (prefix As String) As String
    • setReachedColor (color As Int) As String
    • setReachedHeight (height As Float) As String
    • setSuffix (suffix As String) As String
    • setTextBackgroundColor (color As Int) As String
    • setTextColor (color As Int) As String
    • setTextFont (fnt As B4XFont) As String
    • setTextOffset (offset As Int) As String
    • setUnreachedColor (color As Int) As String
    • setUnreachedHeight (height As Float) As String
  • Properties:
    • BarMax As Int
    • CurrentProgress As Int
    • Prefix As String
    • ReachedColor As Int
    • ReachedHeight As Float
    • Suffix As String
    • TextBackgroundColor As Int
    • TextColor As Int
    • TextFont As B4XFont
    • TextOffset As Int
    • UnreachedColor As Int
    • UnreachedHeight As Float

Changelog

• 1.00
  • Release
• 1.01
  • BugFixes

Have Fun

 

[mcqueccu]

Am loving your releases

 

[Metalika]

hi @Alexander Stolte

thank you for share this awesome lib.

i want to change font :

Sub Process_Globals
Private Xui As XUI
Private FontXui As B4XFont=Xui.CreateFont(Typeface.LoadFromAssets("my.ttf"),15)
end sub
.
.
.
V_ProgressBar.TextFont(FontXui)

BUT NOT WORK. And B4a give Me Error in syntax.

Wher is my Wrong?

Thank u.

 

[Alexander Stolte]

V_ProgressBar.TextFont(FontXui)

V_ProgressBar.TextFont = FontXui

next time please make a new thread, thanks.

 

[hmagday]

this is awesome, thanks a lot @Alexander Stolte....

 

[Metalika]

hi how i can use this lib with code your example made in designer)
what is callback object ?
Initialize (Callback As Object, EventName As String) As String
i use this but it not work

Dim aa As Object
ASNumberProgressBar3.Initialize(aa,"ASNumberProgressBar3")
ASNumberProgressBar3.BarMax=100
ASNumberProgressBar3.CurrentProgress=50
Activity.AddView(aa,0,50%y,100%x,5%y)

@Alexander Stolte

 

[73Challenger]

@Alexander Stolte - Can it be used vertically? Any way to rotate the text orientation?

 

[Alexander Stolte]

Can it be used vertically?

no

Any way to rotate the text orientation?

and no

 

[73Challenger]

@Alexander Stolte - Thank you for the number progress bars. Donation sent via PayPal.
I had to write some significant code to customize them, but everything was in your library that I needed. They work great!
Sometime soon I'll post this in "Share your creations" and credit your work. Thanks again.

Color change to highlight "Hot, Neutral, Cold"

Scaling Change. As the count grows, I reset BarMax to keep the bars proportioned and within the view.

I only had one minor issue I haven't been able to resolve (circled in screenshot below). In some cases when I reset BarMax I get a small overlap. Not a big deal, it may be an issue with the way I increment BarMax, I'll try to figure it out someday.

Thanks again!

 

[Alexander Stolte]

Thank you for the number progress bars. Donation sent via PayPal.

thank you very much.

They work great!

I am very pleased that it helps you!

 

[james_sgp]

I`m getting an error trying to increment value, in B4i. The progress bar is in a card i`m displaying on a CLV (code below):

Error occurred on line: 235 (ASNumberProgressBar)
Object was not initialized (B4IRect)
Stack Trace: (
  CoreFoundation       DD8145FF-7279-3C33-9B3F-0DA5541DD7F9 + 39472
  libobjc.A.dylib      objc_exception_throw + 56
  CoreFoundation       DD8145FF-7279-3C33-9B3F-0DA5541DD7F9 + 975676
  Gear Invent          -[B4IObjectWrapper object] + 120
  Gear Invent          -[B4XCanvas ClearRect:] + 32
  Gear Invent          -[b4i_asnumberprogressbar _progress::] + 1548
  CoreFoundation       DD8145FF-7279-3C33-9B3F-0DA5541DD7F9 + 458128
  CoreFoundation       DD8145FF-7279-3C33-9B3F-0DA5541DD7F9 + 128216
  Gear Invent          +[B4I runDynamicMethod:method:throwErrorIfMissing:args:] + 1400
  Gear Invent          -[B4IShell runMethod:] + 420
 Gear Invent          -[B4IShell raiseEventImpl:method:args::] + 1968
 Gear Invent          -[B4IShellBI raiseEvent:event:params:] + 1360
 Gear Invent          -[b4i_asnumberprogressbar _progress::] + 292
 Gear Invent          -[b4i_asnumberprogressbar _settextfont::] + 464

Private Sub Createitem(id As String, usage As Int, repair As Int) As Panel
    Dim p As B4XView = xui.CreatePanel("")
    p.setlayoutanimated(0,0%x,0%y,100%x,5%y)
    p.LoadLayout("chart_card")
    tag_id.Text = id

    Log(usage & " - " & repair)
    usage_bar.TextFont = xui.CreateDefaultBoldFont(15)
    repair_bar.TextFont = xui.CreateDefaultBoldFont(15)
    
    If usage <> 0 Or usage <> Null Then
        usage_bar.incrementProgressBy(10)'usage)
    End If
    If repair <> 0 Or repair <> Null Then
        repair_bar.incrementProgressBy(20)'repair)
    End If
    
    Return p
End Sub

 

[Alexander Stolte]

where is the example project what shows the error?

 

[james_sgp]

I attached the code that I`m using to create the card on the CLV at the bottom of my post. As u an see i`ve even put values into the 'incrementprogressby'.

 

[Alexander Stolte]

I attached the code that I`m using to create the card on the CLV at the bottom of my post. As u an see i`ve even put values into the 'incrementprogressby'.

i tested it without clv and it works. If you want me to test it with clv, please provide a sample project. Thank you.

 

[james_sgp]

Thanks, its all working fine of B4A...its just giving me trouble on B4i.

Sample program attached

 

[Alexander Stolte]

Update

• 1.01
  • BugFixes

ts just giving me trouble on B4i.

should work now. Thanks for the example.

If repair <> 0 Or repair <> Null Then

In this line comes an error.
I recommend you to simply check if the value is greater than 0.

 

[bl4ck4nt]

hi, how to use this component with visible function ?

 

[Alexander Stolte]

how to use this component with visible function ?

.mBase.Visible = False If it's not that, then please create a new thread and describe what you want in more detail, thanks.