Sub haberetme
Dim Notification2 As CustomNotification
Notification2.Initialize(2)
If kackisi = 1 Then
If miktar = 1 Then
Notification2.TickerText = "Yenisi " & ayir2(0)
Notification2.SetText("title", ayir2(0))
Notification2.SetText("text", "Yenisi")
Notification2.SetImage("image", LoadBitmap(codlar.Profil, ayir2(0) & ".png"))
Else If miktar >1 Then
Notification2.TickerText = "Yenisi von " & ayir2(0)
Notification2.SetText("title", ayir2(0))
Notification2.SetText("text", miktar & " yeni geldi.")
Notification2.SetImage("image", LoadBitmap(codlar.Profil, ayir2(0) & ".png"))
End If
Else If kackisi > 1 Then
Notification2.TickerText = "Yenisi " & ayir2(0)
Notification2.SetText("title", "Kimene")
Notification2.SetText("text", miktar & " Yenisi " & kackisi & " kisiler")
Notification2.SetImage("image", LoadBitmap(File.DirAssets, "allgicon.png"))
End If
Notification2.Number = ayir2(0)
Notification2.SetTextSize("title", 16)
Notification2.setIcon("notiicon")
Notification2.DefaultVibrate = True
Notification2.DefaultLED = False
Notification2.setCustomLED(300, 3000)
Notification2.DefaultSound = True
Notification2.AutoCancel = True
Notification2.Notify (1)
Notification2.SetIntent(main)
End Sub