Public Sub Initialize
' B4XPages.GetManager.LogEvents = True
Me.As(JavaObject).RunMethod("startIntDiv", Array(7,3))
Dim Value1 As Int = 4
Dim Value2 As Int = 3
Me.As(JavaObject).RunMethod("startIntDiv", Array(Value1, Value2))
End Sub
Private Sub send_ii(i As Int)
' --- Show result Java integer division
Log(i)
End Sub
#IF JAVA
// result will be 7 / 3 = 2 and 4 / 3 = 1
public void startIntDiv(int value1, int value2){
subIiEvent("send", IntDiv(value1, value2));
}
public void subIiEvent(String EventName,int values) {
getBA().raiseEventFromUI(this, EventName.toLowerCase(BA.cul) + "_ii", values);
}
#End If
The issue though is overhead. So now we got rid of the casting, but we introduce a function call and then an entry into the event queue for something as simple as needing a plain integer division (without casting).
Well, maybe not.
Dim jo As JavaObject = Me
Dim start, stop, loopCount As Long
loopCount = 10000000000
Log($"Executing B4X's "integer" division ${loopCount} times"$)
start = DateTime.Now
b4xIntDiv(5, 7, loopCount)
stop = DateTime.Now
Log($"b4xIntDiv took ${stop-start} ticks to complete ${loopCount} operations"$)
Log($"Executing Java's integer division ${loopCount} times"$)
start = DateTime.Now
jo.RunMethod("JavaIntDiv", Array(5, 7, loopCount))
stop = DateTime.Now
Log($"Java took ${stop-start} ticks to complete ${loopCount} operations"$)public Sub b4xIntDiv(a As Int, b As Int, loopCount As Long) As Int
Dim result As Int
Dim counter As Long
Do While counter < loopCount
result = a / b
counter = counter + 1
Loop
Return result
End Sub#IF JAVA
public static int JavaIntDiv (int a, int b, long loopCount){
int result = 0;
for (long counter=0; counter < loopCount; counter++) {
result = a / b; // result will be 7 / 3 = 2 and 4 / 3 = 1
}
return result;
}
#End IfI was using JDK 11.0.1
#IF JAVA
public static void JavaIntDiv (int a, int b, long loopCount){
int result = 0;
long lc = 0;
while (lc++ < loopCount){
result = a / b; // result will be 7 / 3 = 2 and 4 / 3 = 1
}
}
#End IfDo you honestly believe that using in-line Java is quicker/simpler/more robust than use int() function? It came back again and again to the same point - why I have to cater for all this cr... stuff from the beginning? If you know such underwater stones then you can deal with them in numerous ways, but again why they have to be here in the first place? And no-one discard performance issue either.
))))))Sub Button1_Click
xui.MsgboxAsync("Hello World!", "B4X")
Dim jo As JavaObject = Me
Dim start, stop, loopCount As Long
loopCount = 100000000
Log($"Executing B4X's "integer" division ${loopCount} times"$)
start = DateTime.Now
b4xIntDiv(5, 7, loopCount)
stop = DateTime.Now
Log($"b4xIntDiv took ${stop-start} ticks to complete ${loopCount} operations"$)
Log($"Executing Java's integer division ${loopCount} times"$)
start = DateTime.Now
jo.RunMethod("JavaIntDiv", Array(5, 7, loopCount))
stop = DateTime.Now
Log($"Java took ${stop-start} ticks to complete ${loopCount} operations"$)
End Sub
'Executing B4X's "integer" division 100000000 times
'b4xIntDiv took 363 ticks To complete 100000000 operations
'Executing Java's integer division 100000000 times
'Java took 116 ticks To complete 100000000 operations
public Sub b4xIntDiv(a As Int, b As Int, loopCount As Long) As Int
Dim result As Int
Dim counter As Long
Do While counter < loopCount
a = a + 1 '<== added this
b = b + 1 '<== added this
result = a / b
counter = counter + 1
Loop
Return result
End Sub
#IF JAVA
public static int JavaIntDiv (int a, int b, long loopCount){
int result = 0;
for (long counter=0; counter < loopCount; counter++) {
a++; '<== added this
b++; '<== added this
result = a / b;
}
return result;
}
#End If
