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.
secondo me stà storia che la lottomatica ci spia è una gran c........ata!!!!!! Scusate ma questo è il mio pensiero!!! Come se la lottomatica fosse rappresentata come un signore che stà lì tutto il giorno a spiare i tanti siti web sul lotto...e poi che fà con tutti i numeri che vengono postati???? Che caz......ta enorme!!!!
Invece io credo sarebbe meglio rimanere con i piedi per terra (come si suol dire) . Le vincite eclatanti sono sempre molto belle da vedersi però non bisogna a mio parere farsi prendere troppo dall'entusiasmo perchè ci può essere anche il momento negativo e quindi essere prudenti sempre nelle giocate e non stare sempre a chiedere : Che si gioca oggi? E domani che si gioca? Le previsioni sono scritte chiare e sempre a disposizione di tutti. Chi ci crede le continua , chi si stanca può sempre giocare altro.
Codice:Sub Main() Dim aruo(2) Dim aposte(3) aposte(1) = 10 'x ambata aposte(2) = 1 'x ambo aposte(3) = 1 'x terno Dim anum(10) r = CInt(InputBox("SU CHE RUOTA DI RICERCA?",,1)) spia = CInt(InputBox("QUALE NUMERO SPIA?",,79)) ee = CInt(InputBox("QUANTE ESTRAZIONI CONTROLLO?",,160)) clp = CInt(InputBox("QUANTI COLPI?",,9)) co = 0' contatore fin = EstrazioneFin ini = EstrazioneFin - ee For es = ini To fin If Posizione(es,r,spia) > 0 Then anum(1) = Fuori90(Estratto(es,BA_,1) + 73) anum(2) = Fuori90(Estratto(es,FI_,1)*53) anum(3) = Fuori90(90 + Estratto(es,NA_,3) - Estratto(es,CA_,5)) anum(4) = Fuori90(Estratto(es,RO_,4) + 41) anum(5) = Fuori90(Estratto(es,BA_,3) + Estratto(es,GE_,5)) anum(6) = Fuori90(Estratto(es,BA_,1) * Estratto(es,TO_,4)) aruo(1) = BA_ aruo(2) = CA_ co = co + 1 Scrivi Scrivi "Caso n°: " & CInt(co),1 Scrivi "NUMERO SPIA " & CInt(spia) & " su " & NomeRuota(r) & " in data " & DataEstrazione(es),1 ImpostaGiocata 1,anum,aruo,aposte,clp Gioca es End If Next ScriviResoconto End Sub [SIZE=2] [/SIZE]
Ciao Can de lottoscherzando scherzando ho alzato un polverone ...heheheh
Se siamo controllati (mio pensiero)non e' tramite forum ma tramite giocate se 5000 persone giocano la stessa terzina entro 1 minuto la lottomatica saprebbe il loro esborso e la convenienza di "taroccare" l'esito,quindi come ha truffato spesso l'uscita delle biglie del superenalotto (vedi filmati su you tube)potrebbe' benissimo farlo con giocate elevate.
Fra i se e i ma ci sono pensieri e parole niente di provabile e resta la speranza che sia sempre la fortuna o la sfiga a metterci lo zampino
Ciao
Sub main()
Dim am(2),am1(2),am2(3),am3(5),am4(5),am5(3),am6(3),am7(3),am8(10)
Dim ruote(2)
Dim ruot(1)
Dim posta(5)
Dim poste(5)
posta(1)=1
poste(2)=1
poste(3)=1
casi=0
fin=EstrazioneFin
ini=8319
For es=ini To fin
For r=1 To 1
For p=1 To 5
a=Estratto(es,r,p)
If a=79 Then 'numero spia di ricerca puoi sostituirlo
Scrivi "----------------------------------------------------"
Scrivi "Condizione: "&Left(NomeRuota(r),2)&" "&Cint(a)
ruote(1)=1
ruote(2)=2
am(1)=Fuori90(Estratto(es,BA_,1) + 73)
ImpostaGiocata 1,am,ruote,posta,12,0
am1(1)=am(1)
am1(2)=Fuori90(Estratto(es,FI_,1)*53)
ImpostaGiocata 2,am1,ruote,poste,12,0
am2(1)=am(1)
am2(2)=Fuori90(90 + Estratto(es,NA_,3) - Estratto(es,CA_,5))
ImpostaGiocata 3,am2,ruote,poste,12,0
am3(1)=Fuori90(Estratto(es,BA_,1) + 73)
am3(2)=Fuori90(Estratto(es,FI_,1)*53)
am3(3)=Fuori90(Estratto(es,RO_,4) + 41)
ImpostaGiocata 4,am3,ruote,poste,12,0
am4(1)=Fuori90(Estratto(es,BA_,1) + 73)
am4(2)=Fuori90(90 + Estratto(es,NA_,3) - Estratto(es,CA_,5))
am4(3)=Fuori90(Estratto(es,RO_,4) + 41)
ImpostaGiocata 5,am4,ruote,poste,12,0
am5(1)=Fuori90(Estratto(es,BA_,1) + 73)
am5(2)=Fuori90(Estratto(es,FI_,1)*53)
am5(3)=Fuori90(Estratto(es,BA_,1) * Estratto(es,TO_,4))
ImpostaGiocata 5,am5,ruote,poste,12,0
am6(1)=Fuori90(Estratto(es,BA_,1) + 73)
am6(2)=Fuori90(90 + Estratto(es,NA_,3) - Estratto(es,CA_,5))
am6(3)=Fuori90(Estratto(es,BA_,1) * Estratto(es,TO_,4))
ImpostaGiocata 6,am6,ruote,poste,12,0
am7(1)=Fuori90(Estratto(es,BA_,1) + 73)
am7(2)=Fuori90(90 + Estratto(es,NA_,3) - Estratto(es,CA_,5))
am7(3)=Fuori90(Estratto(es,RO_,4) + 41)
ImpostaGiocata 7,am7,ruote,poste,12,0
ruot(1)=11
am8(1)=am(1)
am8(2)=am1(2)
am8(3)=am2(2)
am8(4)=am3(3)
am8(5)=am4(3)
am8(6)=am5(3)
ImpostaGiocata 8,am8,ruot,poste,12,0
Gioca es
casi=casi+1+1
End If
Next
Next
Next
Scrivi
Scrivi
Scrivi "Numero Totale casi analizzati: "&Cint(casi)
ScriviResoconto
End Sub