New feature - inline casting

[AnandGupta]

No. It is not a "real" method. It is a compiler feature.

This got me thinking.
Is it like pre-processor directive (a compiler feature of Clipper/XBase) ?

 

[LucaMs]

I wish my national leaders would listen to the citizens voice before implementing a new law like what happened here. ?

I apologize in advance for my post as it is not the right place; but its ending part...

In Italy a relatively new party seemed to want to realize what you and I dream of; in addition, it streamed important meetings. In a short time it managed to get 33% of the votes in a national election. After that it disappointed everyone by not putting into practice what it proclaimed.

What is the ending that can be interesting? That I'd like to see Erel streaming while he...

I went back to the drawing board

More generally I'd like to see how he works.
I think I've already written this in the past.
When I asked him what tools he used, for example to generate diagrams, he replied:

I do not wonder at all if Erel used a UML editor.

No. Only paper and pen.

and correction fluid?

Never needed one.

?

 

[Erel]

It is not a preprocessor as it is managed together with all the code.

 

[aeric]

Never needed one.

Because Erel uses second piece of paper. The first one already become crumpled ball. ?

 

[Erel]

Another example:

Button1.As(JavaObject).RunMethod("setMouseTransparent", Array(True))
'equivalent to:
Dim jo As JavaObject = Button1
jo.RunMethod("setMouseTransparent", Array(True))

And a more complex one:

Log(Me.As(JavaObject).RunMethod("sum", Array((10).As(Float), (20).As(Double))))
'equivalent to:
Dim jme As JavaObject = Me
Dim f As Float = 10
Dim d As Double = 20
Log(jme.RunMethod("sum", Array(f, d)))

#if Java
public double sum(float n1, double n2) {
    return n1 + n2;
}
#End If

 

[Heuristx]

So visually even constants can have "methods". Brilliant as always.

 

[Sandman]

Another example

Great examples. Very clear and easy to like! ?

 

[LucaMs]

So visually even constants can have "methods". Brilliant as always.

? ?

 

[Daestrum]

So using your example above, against a previous problem question posted in forum, we could now get the correct result.

Original problem

Dim result As Long
result=24*60*60*180*1000  ' Result was incorrect

Could be written as

Dim result As Long
result=24*60*60*180*(1000).As(Long)

Which should result in the correct result.

 

[Sandman]

? ?

! ?

 

[Heuristx]

? ?

(10).As(Double)
A constant expression like 10 has a method called .As()

 

[LucaMs]

(10).As(Double)
A constant expression like 10 has a method called .As()

?

 

[LucaMs]

?

I would need glasses for the brain too, though.
?

 

[Heuristx]

I would need glasses for the brain too, though.
?

See, I have glasses for the brain. Glasses and glasses. Of beer.

 

[Alexander Stolte]

Soon we can write any app with B4X with only one line of code ?

 

[Heuristx]

Soon we can write any app with B4X with only one line of code ?

In 1986 a program code "listing" appeared in a magazine about the Sinclair Spectrum computer. The program defined graphics for a ship and a helicopter and the program made you control the helicopter to land on the ship(which was rocking in the ocean). The helicopter blew up if you missed the landing.
The program consisted of 28 lines of Sinclair Basic code.

 

[Erel]

So using your example above, against a previous problem question posted in forum, we could now get the correct result.

Original problem

Yes. Better to start with the Long type as the expression is evaluated from left to right:

result=(24).As(Long)*60*60*180*1000

 

[Erel]

Soon we can write any app with B4X with only one line of code

Testing nested IIf:

Private Sub Button1_Click
   Label1.Text = IIf(IsNumber(TextField1.Text) = False, "Invalid number", IIf(TextField1.Text > number, "My number is smaller", IIf(TextField1.Text < number, "My number is larger", "Well done!!!")))
End Sub

Guess my number game.

 

[Daestrum]

It's nice to see @Erel enjoying this new functionality as much as the rest of us will when it gets released.

 

[udg]

Label1.Text = IIf(edLanguageUsed.Text = "B4X", "Good choice, B4xer", IIf(edLanguageUsed.Text = "", "Start B4X Programming!","Switch to B4X. Right Now!"))

?