-
.
Ciao a tutti Forum,dopo un lungo esame sulle Quartine Super Frequenti riguardanti il mese di Aprile,sono riuscito a ricavare una Previsione Frequente da "provare " a giocare solo ad Apile su 2 Ruote:teniamola d'occhio,vediamo come si comportera'..Ecco in dettaglio la previsione.. Periodo Preso in Esame: 01-04-2005 / 01-04-2011
Quartine Frequenti da Giocare per Ambo e Terno : 3-66-71-83 / 43-48-54-84
Ruote dove giocare la previsione: Bari-Torino
Colpi di gioco: 12
Ecco la Statistica della Quartina 3-66-71-83 :
Ecco la Statistica della Quartina 43-48-54-84 :
Vediamo come si comportano da Martedi' prossimo..
Sono graditi i vostri voti per aiutare questo Forum a crescere.Grazie!
Saluti,sean69!!
Edited by sean69 - 3/4/2012, 13:47
. -
pillinchedda.
User deleted
ciao sean ma come devo fare per fare queste ricerche con l8+6 . -
.
ciao,ci vorrebbe troppo tempo adesso per spiegarti come fare,appena posso faccio un post adatto..perdonami,ma in questi giorni non riesco.. . -
navidal.
User deleted
Sean69 potresti inserirmi InputBox per canbiare le tre spie,e i numeri di ricerca così le potrei cambiare a piacimento
tiringrazio anticipamente saluti da navidal
Sub Main()
Dim ruote(10)
Dim numeri1(10)
Dim numeri2(10)
Dim posta(5)
Dim poste(5)
posta(2) = 1
poste(2) = 2
poste(3) = 1
s1 = 9 '<
s2 = 27 '< le tre spie, così le puoi cambiare a piacimento
s3 = 54 '<
k = 9
For n = 7212 To EstrazioneFin
Messaggio(n)
For r = 1 To 10
For p1 = 1 To 4
For p2 = p1 + 1 To 5
a = Estratto(n,r,p1)
b = Estratto(n,r,p2)
If((a = s1 And b = s2) Or(a = s1 And b = s3) Or(a = s2 And b = s3)) Then
For r1 = 1 To 10
For p3 = 1 To 5
c = Estratto(n,r1,p3)
If(r <> r1 And c <> a And c <> b) And(c = s1 Or c = s2 Or c = s3) Then
Scrivi "*************************************"
Scrivi "" & DataEstrazione(n) & ""
Scrivi "Su " & FormatSpace(NomeRuota(r),10) & " Spie " & a & " " & b
Scrivi "Su " & FormatSpace(NomeRuota(r1),10) & " Spia " & c
Scrivi
ruote(1) = r
ruote(2) = r1
numeri1(1) = 90 '<numeri da sostituire
numeri1(2) = 45 '<numeri da sostituire
ImpostaGiocata 1,numeri1,ruote,posta,k,2
numeri1(2) = 9 '<numeri da sostituire
ImpostaGiocata 2,numeri1,ruote,posta,k,2
numeri1(2) = 18 '<numeri da sostituire
ImpostaGiocata 3,numeri1,ruote,posta,k,2
numeri1(2) = 27 '<numeri da sostituire
ImpostaGiocata 4,numeri1,ruote,posta,k,2
numeri2(1) = 36 '<numeri da sostituire
numeri2(2) = 54
numeri2(3) = 63
numeri2(4) = 72
numeri2(5) = 81
ImpostaGiocata 5,numeri2,ruote,poste,k,2
For x = 1 To 5
For xx = 1 To 5
ImpostaInterruzioni x,xx,2
Next
Next
Gioca n
End If
Next
Next
End If
Next
Next
Next
Next
ScriviResoconto
End Sub
Edited by navidal - 13/4/2012, 17:35. -
.
ciao navidal,sara' pubblicato appena possibile..promesso(sempre se riesco..,altrimenti mi faccio aiutare..) . -
pillinchedda.
User deleted
sean negli aggiornamenti estrazioni manca il giorno 5 aprile . -
.
ciao pillinchedda,dove esattamente manca questa data?ho controllato tutti i programmi ed e' presente in ognuno.. . -
.
SEAN!!!!!!!
Buona domenica
un grande abbraccio. -
pillinchedda.
User deleted
visual lotto 5 . -
.
ciao,a me risulta tutto regolare,come si vede da immagine: 
domanda:hai sovrascritto il file archivio.dat nella cartella del programma?mi sembra strano che manchi quella data..
. -
pillinchedda.
User deleted
ok tutto risolto grazie .
Previsione Aprile :2 Quartine a Bari-Torino... |
Offline
Web
