B4J Code Snippet [BANano]: Sharing the goodness

write("For Each Loop<br /> ")
    Dim appNames() As String = Array("b4a", "b4i", "b4j", "b4r")
    For Each appName As String In appNames
        write(appName)
        write("<br />")
    Next
    write ("Exiting from the loop!")

write("Counter For Loop<br /> ")
    '
    Dim x As Int = 10
    Dim y As Int
    For y = 1 To x
        write($"y: ${y}"$)
        write("<br />")
   Next
    write ("Exiting counter loop!")

Dim x As Int = 10
    Dim y As Int
    For y = 10 To 1 Step -1
        write($"y: ${y}"$)
        write("<br />")
    Next
    write ("Exiting step counter loop!")

write("Starting Do Loop ")
        
    Do Until (count = 10)
        write($"Current Count : ${count}<br />"$)
        count = count + 1
        '*****
        If count = 5 Then Exit
    Loop
   
    write("Loop stopped!")

Dim b As Int = 0
    For b = 1 To 10
        If b = 6 Then
            Continue
        End If
        document.write($"Item: ${b}</br>"$)   
    Next

Sub AddElement(parentID As String, tag As String, id As String) As BANanoElement
    Dim el As BANanoElement = BANano.GetElement($"#${parentID}"$).Append($"<${tag} id="${id}"></${tag}>"$).Get($"#${id}"$)
    Return el
End Sub

AddElement("body", "h1", "myh1").SetText("h1. Neumorphism UI heading")

Sub BANano_Ready
    Dim canPersist As Boolean = BANano.Await(BANano.Navigator.GetField("storage").RunMethod("persisted", Null))
    Log(canPersist)
    
    'pgIndex.Init
End Sub

'request persistence
    Dim isPersisted As Boolean = BANano.Await(BANano.Navigator.GetField("storage").RunMethod("persist", Null))
    Log($"Persisted storage granted: ${isPersisted}"$)

'run a recursive method
Sub RunRecursive(data As Map, path As String) As Object
    Dim prevObj As BANanoObject = data
    Dim items As List = BANano.Split(".", path)
    Dim iTot As Int = items.Size
    Dim iCnt As Int
    '
    Dim strprev As String = ""
    Dim prtObj As BANanoObject
    Dim litem As String = items.Get(iTot - 1)
    '
    For iCnt = 1 To iTot - 1
        'get the previos path
        strprev = items.Get(iCnt - 1)
        'the parent object
        prtObj = prevObj.GetField(strprev)
        'this does not exist, return
        If BANano.IsUndefined(prtObj) Then
            Return Null
        Else
            prevObj = prtObj
        End If
    Next
    Dim res As Object = prevObj.RunMethod(litem, Null).Result
    If BANano.IsUndefined(res) Then
        res = Null
    End If
    Return res
End Sub

Dim lat As Double = BANanoShared.RunRecursive(place, "geometry.location.lat")
    Dim lng As Double = BANanoShared.RunRecursive(place, "geometry.location.lng")

#if javascript
function dataURItoBlob(dataURI) {
    // convert base64/URLEncoded data component to raw binary data held in a string
    var byteString;
    if (dataURI.split(',')[0].indexOf('base64') >= 0)
        byteString = atob(dataURI.split(',')[1]);
    else
        byteString = unescape(dataURI.split(',')[1]);

    // separate out the mime component
    var mimeString = dataURI.split(',')[0].split(':')[1].split(';')[0];

    // write the bytes of the string to a typed array
    var ia = new Uint8Array(byteString.length);
    for (var i = 0; i < byteString.length; i++) {
        ia = byteString.charCodeAt(i);
    }

    return new Blob([ia], {type:mimeString});
}
#End If

'convert a dataURI to blob for form data
Sub dataURItoBlob(sDataURI As String) As BANanoObject
    Dim out As BANanoObject = BANano.RunJavascriptMethod("dataURItoBlob", Array(sDataURI))
    Return out
End Sub

#if javascript
function rgbToHex(r, g, b) {
  return "#" + ((1 << 24) + (r << 16) + (g << 8) + b).toString(16).slice(1);
}

function hexToRgb(hex) {
  var result = /^#?([a-f\d]{2})([a-f\d]{2})([a-f\d]{2})$/i.exec(hex);
  if(result){
      var r= parseInt(result[1], 16);
      var g= parseInt(result[2], 16);
      var b= parseInt(result[3], 16);
      return r+","+g+","+b;//return 23,14,45 -> reformat if needed 
  } 
  return null;
}
#End If

'convert RGB to HEX
Sub RGBToHex(r As Int, g As Int, b As String) As String
    Dim sout As String = BANano.RunJavascriptMethod("rgbToHex", Array(r, g, b))
    Return sout    
End Sub

'convert HEX to RGB
Sub HexToRGB(hexValue As String) As String
    Dim sout As String = BANano.RunJavascriptMethod("hexToRgb", Array(hexValue))
    Return sout    
End Sub

Sub URLSearchParamsFromMap(params As Map) As BANanoObject
    Dim obj As BANanoObject
    obj.Initialize2("URLSearchParams", params)
    Return obj
End Sub

Sub URLQueryStringFromMap(params As Map) As String
    Dim sb As StringBuilder
    sb.Initialize 
    For Each k As String In params.Keys
        Dim v As String = params.Get(k)
        k = banano.EncodeURIComponent(k)
        v = banano.EncodeURIComponent(v)
        sb.Append($"${k}=${v}&"$)
    Next
    Dim sout As String = sb.ToString
    sout = BANanoShared.RemDelim(sout, "&")
    Return sout
End Sub

'show the browser notification
Sub ShowBrowserNotification(Title As String, Desc As String, Url As String, Icon As String, Vibrate As Boolean, Seconds As Int)        'ignoreDeadCode
    'get the notification oject
    Dim notif As BANanoObject = BANano.Window.GetField("Notification")
    'check the permission
    Dim permission As String = notif.GetField("permission").Result
    If permission <> "granted" Then
        'requestPermission
        Dim resp As String = BANano.Await(notif.RunMethod("requestPermission", Null))
        If resp <> "granted" Then Return
    End If
    
    Dim Options As Map = CreateMap()
    Options.Put("icon", Icon)
    Options.Put("body", Desc)
    Options.Put("vibrate", Vibrate)
    '
    Dim n As BANanoObject
    n.Initialize2("Notification", Array(Title, Options))
    Dim showEvent As String = "notification_show"
    Dim closeEvent As String = "notification_close"
    Dim errorEvent As String = "notification_error"
    Dim clickEvent As String = "notification_click"
    
    If SubExists(EventHandler, showEvent) Then
        n.AddEventListener("show", BANano.CallBack(EventHandler, showEvent, Null), False)
    End If
    If SubExists(EventHandler, clickEvent) Then
        n.AddEventListener("click", BANano.CallBack(EventHandler, clickEvent, Null), False)
    End If
    If SubExists(EventHandler, errorEvent) Then
        n.AddEventListener("error", BANano.CallBack(EventHandler, errorEvent, Null), False)
    End If
    If SubExists(EventHandler, closeEvent) Then
        n.AddEventListener("close", BANano.CallBack(EventHandler, closeEvent, Null), False)
    End If
    'close after
    Dim cbClose As BANanoObject = BANano.callback(Me, "CloseNotification", Array(n))
    Dim Sec As Int = Seconds * 1000
    BANano.Window.SetTimeout(cbClose, Sec)
End Sub


private Sub CloseNotification(n As BANanoObject)            'ignoreDeadCode
    n.RunMethod("close", Null)
End Sub

"use strict";

var paginate = function paginate(items) {
  var page = arguments.length > 1 && arguments[1] !== undefined ? arguments[1] : 1;
  var perPage = arguments.length > 2 && arguments[2] !== undefined ? arguments[2] : 10;
  var offset = perPage * (page - 1);
  var totalPages = Math.ceil(items.length / perPage);
  var paginatedItems = items.slice(offset, perPage * page);
  return {
    previousPage: page - 1 ? page - 1 : null,
    nextPage: totalPages > page ? page + 1 : null,
    total: items.length,
    totalPages: totalPages,
    items: paginatedItems
  };
};

Sub removeByValue(value As String)
    'get the options of the select
    Dim xOptions As Object = mElement.GetField("options")
    'convert the HTMLCollection to array
    Dim a As BANanoObject
    a.Initialize("Array")
    Dim aOptions As List = a.RunMethod("from", xOptions)
    'find the size of the array
    Dim aTot As Int = aOptions.Size - 1
    Dim aCnt As Int = 0
    For aCnt = 0 To aTot
        'get each option
        Dim optionx As BANanoObject = aOptions.Get(aCnt)
        'get the value
        Dim k As String = optionx.GetField("value").Result
        'if the value matches remove the item
        If k.EqualsIgnoreCase(value) Then
            mElement.RunMethod("remove", aCnt)
        End If
    Next
End Sub

Sub findIndexByValue(value As String) As Int
    'get the options of the select
    Dim xOptions As Object = mElement.GetField("options")
    'convert the HTMLCollection to array
    Dim a As BANanoObject
    a.Initialize("Array")
    Dim aOptions As List = a.RunMethod("from", xOptions)
    'find the size of the array
    Dim aTot As Int = aOptions.Size - 1
    Dim aCnt As Int = 0
    For aCnt = 0 To aTot
        'get each option
        Dim optionx As BANanoObject = aOptions.Get(aCnt)
        'get the value
        Dim k As String = optionx.GetField("value").Result
        'if the value matches return the index
        If k.EqualsIgnoreCase(value) Then
            Return aCnt
        End If
    Next
    'the item is not found
    Return -1
End Sub

'get the content of a template
Sub getTemplate As String
    Dim clon As BANanoObject = mElement.RunMethod("cloneNode", True)
    Dim fc As String = clon.GetField("firstElementChild").GetField("outerHTML").result
    Return fc
End Sub

Dim fileContents As Map = banano.Await(banano.GetFileAsJSON(strComp & "?" & DateTime.now, Null))