Sub B4JSCoreFunctions
Log("------- Start B4JSCoreFunctions")
Log("(True And False): false <=> " & (True And False))
Log("(True Or False): true <=> " & (True Or False))
Log("Rnd(0,10): Number between 0 and 10 <=> " & Rnd(0,10))
Log("Abs(-2): 2 <=> " & Abs(-2))
Log("Not(False): true <=> " & Not(False))
Log("CosD(45): 0.70710678... <=> " & CosD(45))
Log("Cos(0.5): 0.87758256... <=> " & Cos(0.5))
Log("SinD(45): 0.70710678... <=> " & SinD(45))
Log("Sin(0.5): 0.47942553... <=> " & Sin(0.5))
Log("ACosD(-1): 180... <=> " & ACosD(-1))
Log("ACos(0.5): 1.04719755... <=> " & ACos(0.5))
Log("ASinD(-1): -90... <=> " & ASinD(-1))
Log("ASin(0.5): 0.52359877... <=> " & ASin(0.5))
Log("TanD(45): 0.99999999... <=> " & TanD(45))
Log("Tan(0.5): 0.54630248... <=> " & Tan(0.5))
Log("ATanD(45): 88.7269699... <=> " & ATanD(45))
Log("ATan(0.5): 0.46364760... <=> " & ATan(0.5))
Log("ATan2D(90,45): 3.4349488... <=> " & ATan2D(90,45))
Log("ATan2(8,4): 1.10714871... <=> " & ATan2(8,4))
Log("try/Catch example, only visible in B4JS.")
Try
Dim i As Int = 1/0 'ignore
Catch
Log(LastException.Message)
End Try
Log("Chr(65): A <=> " & Chr(65))
Log("Asc(""A""): 65 <=> " & Asc("A"))
Log("cE: 2.71828182... <=> " & cE)
Log("Ceil(1.65): 2 <=> " & Ceil(1.65))
Log("cPI: 3.14159265... <=> " & cPI)
Log("Floor(1.65): 1 <=> " & Floor(1.65))
Log("IsNumber(""alain""): false <=> " & IsNumber("alain"))
Log("IsNumber(""15.2""): true <=> " & IsNumber("15.2"))
Log("Logarithm(10, 1000): 0.33333333.... <=> " & Logarithm(10, 1000))
Log("Max(10,5): 10 <=> " & Max(10,5))
Log("Min(10,5): 5 <=> " & Min(10,5))
Log("Power(2,3): 8 <=> " & Power(2,3))
Log("Round(1.12345): 1 <=> " & Round(1.12345))
Log("Round2(1.12345, 2): 1.12 <=> " & Round2(1.12345, 2))
Log("Sqrt(9): 3 <=> " & Sqrt(9))
Dim str1 As String = "Test €100 is £84.73"
Dim theBytes() As Byte
theBytes = str1.GetBytes("UTF8")
Log("BytesToString(theBytes,0,theBytes.Length, ""UTF-8""): Test €100 is £84.73 <=> " & BytesToString(theBytes,0,theBytes.Length, "UTF-8"))
End Sub