Most Popular Programming Languages 1965 - 2019

[AnandGupta]

I found this link in another forum.


The presentation is so cool that I am wondering if we make something similar in B4X, i.e. display big time-line data in such a cool and smooth manner !

And yes, hope B4X goes to top in 2020 !

Regards,

Anand

 

[LucaMs]

My poor COBOL!
And Visual Basic!!! (I still don't understand why C# but not VB.Net!)

Anyway, from 1965 to 2019 in less than 5 minutes; even my watch ran at the same speed

The only Python I know

 

[Erel]

Proof of concept (much smoother than in this animated gif):

 

[Alexander Stolte]

that I am wondering if we make something similar in B4X

Erel: Hold my Animation

 

[LucaMs]

Proof of concept (much smoother than in this animated gif):

Too bad, I was going to do it myself but... making B4X reach first place in 2020, as rightly "required" by Anand

 

[Erel]

BTW, the code is (surprisingly) simple and the same approach can be used for all kinds of transitions.

The main idea is to keep both the current values and the target values and limit the 'change per tick':

Dim ct As CTItem = Items.Get(i)
ct.CurrentValue = CalcNewValue(ct.CurrentValue, ct.TargetValue, MaxDelta / FromValueToPixels)
ct.CurrentHeight = CalcNewValue(ct.CurrentHeight, height, MaxDelta)
ct.CurrentTop = CalcNewValue(ct.CurrentTop, i * height, MaxDelta)

Private Sub CalcNewValue (CurrentValue As Float, TargetValue As Float, MaxDelta As Float) As Float
   If CurrentValue <= TargetValue Then
       Return Min(TargetValue, CurrentValue + MaxDelta)
   Else
       Return Max(TargetValue, CurrentValue - MaxDelta)
   End If
End Sub

 

[AnandGupta]

Proof of concept

WOW Erel ! You make dream come true !!

Regards,

Anand

 

[LucaMs]

Downloaded the Erel's project attached to post #3.
Before run it, I wanted to read it.
So I immediately noted a strange "type", CoolTimeline. What is it, I thought? Checked the libraries used... nothing.
Well, it should be a class, then.

A class wrote in a few minutes!!!
What envy !!!




However, I know that this is due to the fact that Erel already has all the necessary future code in mind and that... he dictates the code, he doesn't type it

 

[josejad]

Great¡¡
@Erel, you should publish it in the main forum in order the example be indexed.

 

[AnandGupta]

Great¡¡
@Erel, you should publish it in the main forum in order the example be indexed.

This is proof of concept. He will publish the proper class/view of B4X in few days, I presume.

Regards

Anand

 

[Erel]

This is proof of concept. He will publish the proper class/view of B4X in few days, I presume.

This element is too specialized for me to create a library.
It shouldn't be too difficult to take the code and further extend it as needed.

@Erel, you should publish it in the main forum in order the example be indexed.

I will move the thread to the questions forum.

 

[LucaMs]

Dim ct As CTItem = Items.Get(i)
ct.CurrentValue = CalcNewValue(ct.CurrentValue, ct.TargetValue, MaxDelta / FromValueToPixels)
ct.CurrentHeight = CalcNewValue(ct.CurrentHeight, height, MaxDelta) ' <------ ? This is not needed/useful
ct.CurrentTop = CalcNewValue(ct.CurrentTop, i * height, MaxDelta)

 

[Erel]

ct.CurrentHeight = CalcNewValue(ct.CurrentHeight, height, MaxDelta) ' <------ ? This is not needed/useful

This is not demonstrated in the example but it can be a nice transition if you add more items at runtime (though you will need to make some additional changes and to remove the "SetNow" flag).

 

[LucaMs]

the same approach can be used for all kinds of transitions.

it can be a nice transition if you add more items at runtime

In fact I was waiting hopefully for some your suggestions, what kinds of transitions you imagined

 

[Erel]

The concept behind the solution is that you can change anything you like and do it nicely using three parameters: Current value, target value and maximum change.

 

[Jack Cole]

Made a small modification. Text moves to left for values between 90 and 100 (so you can still see them). This is a cool class. Thanks Erel!

 

[LucaMs]

Some Wait For is needed, so that all lines reach their final position.

 

[rabbitBUSH]

My poor COBOL!

ah @LucaMs -> the DEAMON (sic) java ate it : just like my FORTRAN ! which at least made a comeback along the way and then ... poof

 

[MarkusR]

nice video
but the order at end 2019 i do not believe.