bubù
Advanced Member >PLATINUM PLUS<
--13°estrazione del mese---------------------------
Estrazione generatrice del pronostico 10088 [ 65 - 31/05/2022]
G 0001 Numeri in gioco : 69.61 su BA per Estratto
In corso per altre 1 estrazioni
G 0002 Numeri in gioco : 69.85.61.86.26.39 su BA per Ambo
In corso per altre 1 estrazioni
ecco come:
'31-12-2021
ColoreTesto 1
Scrivi String(37,32) & " 13° mese BARI in 1 colpo by BubùLotto Production ",1
Scrivi
ColoreTesto 0
Sub Main()
TestoInBandaPassante "************* BubùLotto Production Presenta *****************",1,1,5
Scrivi
ColoreTesto 1
TestoInBandaPassante "===== BARI a ogni 13^ estrazione by BubùLotto ======",1
ColoreTesto 0
Scrivi " ------------------------------------------------------------------",1
ColoreTesto 1
TestoInBandaPassante "================ Listato by BubùLotto ================",1
Scrivi "-------------------------------------------------------------------",1
ColoreTesto 2
TestoInBandaPassante "======= SI_RACCOMANDA_LA_MASSIMA_MODERAZIONE_NELLE_GIOCATE ========",1
ColoreTesto 0
Dim ruote(10)
Dim numeri1(10),numeri3(10),numeri4(10),numeri5(10),amb(10)
Dim posta(5)
Dim poste(5)
posta(1) = 1
poste(2) = 1
cp = 1'InputBox("Per quanti colpi vuoi giocare?",,3)
ruote(1) = 1
ini = 9827
fin = EstrazioneFin
For n = ini To fin
If IndiceMensile = 13 Then
Messaggio DataEstrazione
amb(1) = Fuori90(Estratto(n,1,1) + 57)'Ambata
amb(2) = Fuori90(Estratto(n,3,1) + 11)
amb(3) = Fuori90(Estratto(n,7,1) + 23)'Ambata
amb(4) = Fuori90(Estratto(n,9,2) + Estratto(n,12,5) + 21)
amb(5) = Fuori90(90 - Estratto(n,5,3) + 24)
amb(6) = Fuori90(90 - Estratto(n,7,4) + Estratto(n,9,5) + 57)
ColoreTesto 2 :Scrivi "--13°estrazione del mese---------------------------",1
numeri1(1) = amb(1)
numeri1(2) = amb(3)
ImpostaGiocata 1,numeri1,ruote,posta,eval(cp)
numeri3(1) = amb(1)
numeri3(2) = amb(2)
numeri3(3) = amb(3)
numeri3(4) = amb(4)
numeri3(5) = amb(5)
numeri3(6) = amb(6)
ImpostaGiocata 2,numeri3,ruote,poste,eval(cp)
Gioca n
End If
Next
Scrivi
ScriviResoconto
ColoreTesto 2
End Sub
Buona Fortuna
Estrazione generatrice del pronostico 10088 [ 65 - 31/05/2022]
G 0001 Numeri in gioco : 69.61 su BA per Estratto
In corso per altre 1 estrazioni
G 0002 Numeri in gioco : 69.85.61.86.26.39 su BA per Ambo
In corso per altre 1 estrazioni
ecco come:
'31-12-2021
ColoreTesto 1
Scrivi String(37,32) & " 13° mese BARI in 1 colpo by BubùLotto Production ",1
Scrivi
ColoreTesto 0
Sub Main()
TestoInBandaPassante "************* BubùLotto Production Presenta *****************",1,1,5
Scrivi
ColoreTesto 1
TestoInBandaPassante "===== BARI a ogni 13^ estrazione by BubùLotto ======",1
ColoreTesto 0
Scrivi " ------------------------------------------------------------------",1
ColoreTesto 1
TestoInBandaPassante "================ Listato by BubùLotto ================",1
Scrivi "-------------------------------------------------------------------",1
ColoreTesto 2
TestoInBandaPassante "======= SI_RACCOMANDA_LA_MASSIMA_MODERAZIONE_NELLE_GIOCATE ========",1
ColoreTesto 0
Dim ruote(10)
Dim numeri1(10),numeri3(10),numeri4(10),numeri5(10),amb(10)
Dim posta(5)
Dim poste(5)
posta(1) = 1
poste(2) = 1
cp = 1'InputBox("Per quanti colpi vuoi giocare?",,3)
ruote(1) = 1
ini = 9827
fin = EstrazioneFin
For n = ini To fin
If IndiceMensile = 13 Then
Messaggio DataEstrazione
amb(1) = Fuori90(Estratto(n,1,1) + 57)'Ambata
amb(2) = Fuori90(Estratto(n,3,1) + 11)
amb(3) = Fuori90(Estratto(n,7,1) + 23)'Ambata
amb(4) = Fuori90(Estratto(n,9,2) + Estratto(n,12,5) + 21)
amb(5) = Fuori90(90 - Estratto(n,5,3) + 24)
amb(6) = Fuori90(90 - Estratto(n,7,4) + Estratto(n,9,5) + 57)
ColoreTesto 2 :Scrivi "--13°estrazione del mese---------------------------",1
numeri1(1) = amb(1)
numeri1(2) = amb(3)
ImpostaGiocata 1,numeri1,ruote,posta,eval(cp)
numeri3(1) = amb(1)
numeri3(2) = amb(2)
numeri3(3) = amb(3)
numeri3(4) = amb(4)
numeri3(5) = amb(5)
numeri3(6) = amb(6)
ImpostaGiocata 2,numeri3,ruote,poste,eval(cp)
Gioca n
End If
Next
Scrivi
ScriviResoconto
ColoreTesto 2
End Sub
Buona Fortuna