Follow along with the video below to see how to install our site as a web app on your home screen.
Nota: This feature may not be available in some browsers.
Le piu' sentite condoglianze da parte mia e un abbraccio a tuo figlio
Ciao Abitte cara, diciamo che stiamo abbastanza bene, mia suocera ci da parecchio da fare ma abbiamo deciso di accudirla e continuiamo imperterriti. Mi resta poco tempo ma non fa niente,prima la famiglia,giusto? I nipotini crescono bene,mi spiace per te non so cosa ti sia successo ma hai tutta la mia vicinanza. Lasciamo perdere questa situazione, dove ci hanno cacciato per fare i loro sporchi comodi e per ridurci sul lastrico.Ti abbraccio
grazie a te MieleGrazie,grazie di cuore a tutti/e...ho modificato il post....ora è giusto. Grazie per avermi fatto notare l'errore, vuol dire che seguite i miei lavori e di ciò vi ringrazio immensamente.Anzi vi chiedo, se vi è possibile, di continuare ,4 occhi vedono meglio di due. Purtroppo ho poco tempo e nella fretta può succedere. Di sicuro non cerco pubblicità,anche perchè non so fino a quando potrò continuare a postare previsioni. Spesso mi capita di farlo intorno alla mezzanotte...e non è facile. Faccio le mie condoglianze a BEA per il suo ex marito e tantissimi auguri di pronta guarigione a suo figlio.
Il famigerato 33 veniva da degli appunti precedenti dove c'era una quartina diversa (contenente il 33) che poi ho eliminato perchè poco redditizia.
NOTA: l'estrazione del 1-10.2020 ha dato ambata 02 e ambo 02.49 al 3°colpo.
Al 13° colpo per me sarebbe stata negativa. Con questo mi sembra di aver chiarito tutto,in caso contrario siete pregati di farmelo notare. Grazie ancora,vi abbraccio
Carissimo Bingo, nei mesi di settembre 2019 e febbraio 2020 si sono avuti 2 terni perchè ho sbagliato a trascrivere un numero nella prima quartina che in origine era 02-35-44-46 d'altronde si nota subito che questa quartina + ambata ha dato 4 terni mentre l'altra neanche uno. Si ho sbagliato e me ne scuso,mi dispiace. Ma neanche un idiota poteva postare di proposito quella quartina.Ciao
grazie miele50Grazie,grazie di cuore a tutti/e...ho modificato il post....ora è giusto. Grazie per avermi fatto notare l'errore, vuol dire che seguite i miei lavori e di ciò vi ringrazio immensamente.Anzi vi chiedo, se vi è possibile, di continuare ,4 occhi vedono meglio di due. Purtroppo ho poco tempo e nella fretta può succedere. Di sicuro non cerco pubblicità,anche perchè non so fino a quando potrò continuare a postare previsioni. Spesso mi capita di farlo intorno alla mezzanotte...e non è facile. Faccio le mie condoglianze a BEA per il suo ex marito e tantissimi auguri di pronta guarigione a suo figlio.
Il famigerato 33 veniva da degli appunti precedenti dove c'era una quartina diversa (contenente il 33) che poi ho eliminato perchè poco redditizia.
NOTA: l'estrazione del 1-10.2020 ha dato ambata 02 e ambo 02.49 al 3°colpo.
Al 13° colpo per me sarebbe stata negativa. Con questo mi sembra di aver chiarito tutto,in caso contrario siete pregati di farmelo notare. Grazie ancora,vi abbraccio
Ciao dido,stavolta ho fatto un casino...nella prima quartina il 66 è sbagliato,al suo posto ci va il 46,ora correggo. Ciao
Sub Main
' ***** metodo BARI FA FESTA di MIELE50 -------- Listato GioRyuKen72 *****
' https://forum.lottoced.com/threads/bari-fa-festa.2197206/
Scrivi " metodo BARI FA FESTA di MIELE50 -------- Listato GioRyuKen72 ",1,1,1,4,4,"verdana",1
Dim abb1,abb2,abb3,abb4,abb5,abb6,abb7,abb8,abb9,abb10,abb11,abb12,abb13,abb14,abb15
Dim Ruota(1),NumeroRicerca,Ambata,E1,P5
Dim Cinquina1(5),Cinquina2(5),Cinquina3(5),Quartina4(4),Ambata1(1)
Dim Ambo1(2),Ambo2(2),Ambo3(2),Ambo4(2),Ambo5(2)
Dim PostaA(2),PostaC(5),PostaABT(1),es,Ini,Fin,Caso,Casi,Colpi
PostaABT(1) = 1 ' 1,00 euro sull'estratto
PostaA(2) = 1 '1,00 euro sull'ambo secco
PostaC(2) = 1.55 ' euro sull'ambo in quartina
PostaC(3) = 0.35 ' euro sul terno in quartina
PostaC(4) = 0.05 ' euro sulla quaterna in quartina
PostaC(5) = 0.05 ' euro sulla quaterna in quartina
Fin = EstrazioneFin
Ini = InputBox("Da quale estrazione vuoi iniziare?",,9650)
Colpi = InputBox("Per quanti colpi vuoi giocare?",,10)
For es = Ini To Fin
Caso = 0
AvanzamentoElab Ini,Fin,es
If IndiceMensile(es) = 1 Then
Caso = Caso + 1
Casi = Casi + 1
NumeroRicerca = Estratto(es,GE_,1) ' cambia solo qui il numero di ricercaù
Scrivi String(55,"=") & " Caso n." & Casi & String(55,"="),1,,,1
' Scrivi String(80,"*") & " Estrazione " &(es) & " caso " & FormattaStringa(Caso,"0000"),1,,,1
Scrivi("Estrazione n." & Format2(es) & " del " & DataEstrazione(es)),1,0
Scrivi " " & SiglaRuota(GE_) & " ",1,0
For P5 = 1 To 5
E1 = Estratto(es,GE_,P5)
If E1 = NumeroRicerca Then
ColoreTesto 2
Else
ColoreTesto 0
End If
Scrivi Format2(E1) & " ",1,0
ColoreTesto 0
Next
Scrivi
Scrivi String(119,"="),1,,,1
'Scrivi String(36," = ") & "NUMERO di RICERCA " & NumeroRicerca,1,,,1,3
Ambata = Fuori90((90 + NumeroRicerca) - 1)
abb1 = 2
abb2 = 46
abb3 = 49
abb4 = 55
abb5 = 67
abb6 = 2 : abb7 = 35 : abb8 = 44 'prima cinquina (46 ripetuto)
abb10 = 4 : abb11 = 26 : abb9 = 66 'seconda cinquina (55 ripetuto)
abb12 = 11 : abb13 = 45 : abb15 = 68 ' terza cinquina (67 ripetuto)
Ruota(1) = BA_
Ambata1(1) = Ambata
ImpostaGiocata 1,Ambata1,Ruota,PostaABT,Colpi,1
Ambo1(1) = Ambata
Ambo1(2) = abb1
ImpostaGiocata 2,Ambo1,Ruota,PostaA,Colpi,2
Ambo2(1) = Ambata
Ambo2(2) = abb2
ImpostaGiocata 3,Ambo2,Ruota,PostaA,Colpi,2
Ambo3(1) = Ambata
Ambo3(2) = abb3
ImpostaGiocata 4,Ambo3,Ruota,PostaA,Colpi,2
Ambo4(1) = Ambata
Ambo4(2) = abb4
ImpostaGiocata 5,Ambo4,Ruota,PostaA,Colpi,2
Ambo5(1) = Ambata
Ambo5(2) = abb5
ImpostaGiocata 6,Ambo5,Ruota,PostaA,Colpi,2
Cinquina1(1) = Ambata
Cinquina1(2) = abb6
Cinquina1(3) = abb7
Cinquina1(4) = abb8
Cinquina1(5) = abb2
ImpostaGiocata 7,Cinquina1,Ruota,PostaC,Colpi,3
Cinquina2(1) = Ambata
Cinquina2(2) = abb10
Cinquina2(3) = abb11
Cinquina2(4) = abb4
Cinquina2(5) = abb9
ImpostaGiocata 8,Cinquina2,Ruota,PostaC,Colpi,3
Cinquina3(1) = Ambata
Cinquina3(2) = abb12
Cinquina3(3) = abb13
Cinquina3(4) = abb5
Cinquina3(5) = abb15
ImpostaGiocata 9,Cinquina3,Ruota,PostaC,Colpi,3
Quartina4(1) = Ambata
Quartina4(2) = abb9
Quartina4(3) = abb10
Quartina4(4) = abb11
'ImpostaGiocata 10,Quartina4,Ruota,PostaQ,Colpi,3
Gioca es,1,,1
End If
If ScriptInterrotto Then Exit For
Next
TestoInBandaPassante " ***** metodo BARI FA FESTA di MIELE50 -------- Listato GioRyuKen72 ***** ",1,1,4
ScriviDistribuzioneEsiti(True)
ScriviDistribuzioneCasiInCorso(True)
ScriviResoconto
End Sub
