B4J Tutorial [Web] Beginning Telegram Mini Apps - Alerts

Hi Fam

Demo (Open in Telegram Mobile App)

Source Code

In this tutorial we look at alerts. These are internal components built inside Telegram and we are just using an API to execute here.

 

[Mashiane]

Normal Alert

Sub btnshowalert_click (e As BANanoEvent)
    e.PreventDefault
    WA.showAlert(Me, "Hello SithasoTMA!")
End Sub

 

[Mashiane]

Confirmation

Sub btnshowconfirm_click (e As BANanoEvent)
    e.PreventDefault
    WA.showConfirm(Me, "Are you sure?")
End Sub

Sub ShowConfirm (Status As Boolean)
    app.ShowToastSuccess(Status)
End Sub

 

[Mashiane]

Request Write Access (interaction with the bot)

Sub btnrequestwriteaccess_click (e As BANanoEvent)
    e.PreventDefault
    WA.requestWriteAccess(Me)
End Sub

Sub RequestWriteAccess (Allowed As Boolean)
    Select Case Allowed
    Case True
        app.ShowToastSuccess("Access granted!")
    Case Else
        app.ShowToastError("User declined request!")    
    End Select
End Sub

 

[Mashiane]

Request to share the user contact details with the bot.

Sub btnrequestcontact_click (e As BANanoEvent)
    e.PreventDefault
    WA.requestContact(Me)
End Sub
'
Sub RequestContact (SharedContact As Boolean)
    Select Case SharedContact
    Case True
        app.ShowToastSuccess("Contact granted!")
    Case Else
        app.ShowToastError("Contact denied!")    
    End Select
End Sub

 

[Mashiane]

Show PopUp

Sub btnshowpopup_click (e As BANanoEvent)
    e.PreventDefault
    '
    Dim btns As List = WA.CreateButtons
    WA.AddDestructiveButton(btns, "delete", "Delete All")
    WA.AddDefaultButton(btns, "faq", "Open FAQ")
    WA.AddCancelButton(btns)
    WA.showPopup(Me, "TMA PopUp", "Lets show this popup.", btns)
End Sub
'
Sub ShowPopup (btnID As String)
    Select Case btnID
    Case "delete"
        WA.showAlert(Me, "'Delete All' selected.")
    Case "faq"
        WA.openLink("https://telegram.org/faq")
    End Select
End Sub

 

[Mashiane]

Show QR Code Scanner

Sub btnshowscanqrpopup_click (e As BANanoEvent)
    e.PreventDefault
    WA.showScanQrPopup(Me, "SithasoTMA")
End Sub
'
Sub QRTextReceived (qrCode As String)
    app.ShowToastSuccess(qrCode)    
End Sub