-
.
Questo metodo e' stato lpreso su superlotto di luglio, volevo chiedere se qualcuno mi aiutasse a programmarlo il lotto script, avendo più metodi simili posso provare da solo con gli altri.
Questo è il primo generico
La metodologia ricava una terzina da seguire su tutte le ruote per ambo e terno a partire dalla 7° estr. del mese per tre colpi. Per elaborare la previsione del mese di Settembre ’11 abbiamo bisogno del mese di Agosto ‘11
A= 3° estrazione del mese : 5° Pa + fisso 32:
B= 3° estrazione del mese: 5° Pa + fisso 70;
C= 10° estrazione del mese: 4° Na + fisso 76;
La terzina elaborata va giocata il mese successivo al calcolo a partire dalla settima estrazione del mese, solo per tre colpi.
Esempio: Per elaborare la previsioni di Giugno ‘11 ci servono i seguenti estratti appartenenti al mese di Maggio ‘11.
3° estr. del mese: 5° Pa=73;
10° estr. del mese: 4° Na=28;
A= 73 + fisso 32=105-90=15;
B=73 + fisso 70=143-90=53;
C=28 + fisso 76=104-90=14;
Ora nel mese di Giugno ’11 a partire dalla settima estrazione del mese giochiamo la terzina 15-53-14 su tutte le ruote per tre colpi di gioco.
Esito al 3° colpo di gioco su Bari uscì l'ambo 15-14..
Grazie per l'aiuto. -
.
Ciao,in questo tipo di listati non mi sono mai cimentato..vediamo se qualcuno riesce a farlo.. . -
.Ciao,in questo tipo di listati non mi sono mai cimentato..vediamo se qualcuno riesce a farlo..
Speriamo. -
lones.
User deleted
vedi se fa il suo dovere SPOILER (clicca per visualizzare)Sub main()
Dim ruote(2),nu2(3),poste(3)
poste(2)=1:poste(3)=1
ce=InputBox("da quale estrazione vuoi controllare? ","estrazione",200)
k=InputBox ("per quanti colpi?","colpi di gioco",3)
ini=EstrazioneFin-ce
fin=EstrazioneFin
Scrivi "Resoconto da "&DataEstrazione(ini,1)&" a "& DataEstrazione(fin,1)&" ("&(fin-ce)&" estr.)",1
For es=ini To fin
If Indicemensile(es)=7 Then
x=PrimaMesePRec(es)
Messaggio "elab. estr. ["&(es)&"] di " & DataEstrazione (es,1)
casi=casi+1:Scrivi String(69,"=")&" by chinonlofa",1
Scrivi "metodo superlotto x lotto69 "
Scrivi String(68,"-")
Scrivi " 5° Estratto su Pa+32 della 3^ mese prec. "&DataEstrazione(x+2)& " [ "&Estratto(x+2,7,5)&" ] + 32 / A "
Scrivi " 5° Estratto su Pa+70 della 3^ mese prec. "&DataEstrazione(x+2)& " [ "&Estratto(x+2,7,5)&" ] + 70 / B "
Scrivi " 4° Estratto su Na+76 della 10^ mese prec. "&DataEstrazione(x+9)& " [ "&Estratto(x+9,6,4)&" ] + 76 / C "
Scrivi String(69,"-")&" caso n° "&(casi)
ruote(1)=11:ruote(2)=12:co=0
a=Fuori90(Estratto(x+2,7,5)+32)
b=Fuori90(Estratto(x+2,7,5)+70)
c=Fuori90(Estratto(x+9,6,4)+ 76)
nu2(1)=a:nu2(2)=b :nu2(3)=c
co=co+1
ImpostaGiocata co,nu2,ruote,poste,k
Gioca es
End If
Next
ScriviResoconto
End Sub
Function PrimaMesePrec(es)
For x= es To es-25 step-1
If Cadenza(Distanza(Mese(es),Mese(x)))=1 And Indicemensile(x)=1 Then
PrimaMesePrec=x
Exit For
End If
Next
End Function
Edited by sean69 - 11/9/2011, 17:25. -
.
Perfetto,grazie lones,grazie davvero..lo inseriro' nell'archivio dei listati,merita davvero.. . -
.
Ci sono due errori, il numero c va calcolato sommando 76 e non 70, poi il controllo lo script parte dall'ottava estrazione del mese e non dalla settima.
per il fisso ho cambiato io mettendo c=Fuori90(Estratto(x+9,6,4)+ 76)
ma non capisco perchè i tre colpi di gioco controlla 8° 9° e 10° del mese, come posso partire dalla settima?
Grazie
. -
.
ciao Lotto69,ho corretto il listato mettendo il fisso giusto da sommare al fisso c ( colpa mia)..per partire dalla settima,devi cambiare qui': CODICEIf Indicemensile(es)=7 Then
al posto di 7 devi mettere 6:CODICEIf Indicemensile(es)=6 Then
vedi se va bene adesso:SPOILER (clicca per visualizzare)Sub main()
Dim ruote(2),nu2(3),poste(3)
poste(2)=1:poste(3)=1
ce=InputBox("da quale estrazione vuoi controllare? ","estrazione",200)
k=InputBox ("per quanti colpi?","colpi di gioco",3)
ini=EstrazioneFin-ce
fin=EstrazioneFin
Scrivi "Resoconto da "&DataEstrazione(ini,1)&" a "& DataEstrazione(fin,1)&" ("&(fin-ce)&" estr.)",1
For es=ini To fin
If Indicemensile(es)=6 Then
x=PrimaMesePRec(es)
Messaggio "elab. estr. ["&(es)&"] di " & DataEstrazione (es,1)
casi=casi+1:Scrivi String(69,"=")&" by chinonlofa",1
Scrivi "metodo superlotto x lotto69 "
Scrivi String(68,"-")
Scrivi " 5° Estratto su Pa+32 della 3^ mese prec. "&DataEstrazione(x+2)& " [ "&Estratto(x+2,7,5)&" ] + 32 / A "
Scrivi " 5° Estratto su Pa+70 della 3^ mese prec. "&DataEstrazione(x+2)& " [ "&Estratto(x+2,7,5)&" ] + 70 / B "
Scrivi " 4° Estratto su Na+76 della 10^ mese prec. "&DataEstrazione(x+9)& " [ "&Estratto(x+9,6,4)&" ] + 76 / C "
Scrivi String(69,"-")&" caso n° "&(casi)
ruote(1)=11:ruote(2)=12:co=0
a=Fuori90(Estratto(x+2,7,5)+32)
b=Fuori90(Estratto(x+2,7,5)+70)
c=Fuori90(Estratto(x+9,6,4)+ 76)
nu2(1)=a:nu2(2)=b :nu2(3)=c
co=co+1
ImpostaGiocata co,nu2,ruote,poste,k
Gioca es
End If
Next
ScriviResoconto
End Sub
Function PrimaMesePrec(es)
For x= es To es-25 step-1
If Cadenza(Distanza(Mese(es),Mese(x)))=1 And Indicemensile(x)=1 Then
PrimaMesePrec=x
Exit For
End If
Next
End Function
sean69. -
.
Grazie delle correzioni
Posso chiederti un'altro piacere?
Se avessi un'altro metodo simile, ma si gioca alla prima estrazione del mese cosa devo cambiare?
If Indicemensile(es)=6 Then (cosa devo cambiare)?
. -
.
ciao,basta cambiare il valore dopo la virgola(6= 6a estrazione del mese, 1= 1a estrazione del mese,ecc.): CODICEIf Indicemensile(es)=1 Then
Se invece vuoi giocare dall'ultima del mese,devi scrivere cosi':CODICEIf Indicemensile(es+1)=1 Then
saluti,sean69!!. -
.
[QUOTE=sean69,12/9/2011, 10:27 ?t=57730843&st=0#entry470648869]
ciao,basta cambiare il valore dopo la virgola(6= 6a estrazione del mese, 1= 1a estrazione del mese,ecc.):CODICEIf Indicemensile(es)=1 Then
Se inserisco "if indicemensile(es)=1" gioco dalla seconda estrazione del mese e non dalla prima
. -
claudiotto.
User deleted
Qualche automazione in + , un saluto
Sub Main()
Dim ruote(2),nu2(3),poste(3)
Dim im
poste(2) = 1
poste(3) = 1
ce = InputBox("da quale estrazione vuoi controllare? ","estrazione",200)
k = InputBox("per quanti colpi?","colpi di gioco",3)
im = InputBox( " per quale Indice Mese di rilevamento?","",7)' sesta mese
r1 = InputBox ( " ruota del 1°estratto?","",7)' ruota di Milano eccc
p1 = InputBox( " posizione del 1°estratto?","",5)
fi1 = InputBox( " primo fisso","",32)
'''''''''''
r2 = InputBox( " ruota del 2°estratto?","",7)
p2 = InputBox( " posizione del 2°estratto?","",5)
fi2 = InputBox( " secondo fisso","",70)
'''''''''''
r3 = InputBox( " ruota del 3°estratto?","",6)
p3 = InputBox( " posizione del 3°estratto?","",4)
fi3 = InputBox( " terzo fisso?","",76)
'''''''''''
ini = EstrazioneFin - ce
fin = EstrazioneFin
Scrivi "Resoconto da " & DataEstrazione(ini,1) & " a " & DataEstrazione(fin,1) & " (" &(fin - ce) & " estr.)" & " Indice Mese = " & im ,1
For es = ini To fin
If IndiceMensile(es) = 7 Then
x = PrimaMesePrec(es)
Messaggio "elab. estr. [" &(es) & "] di " & DataEstrazione(es,1)
casi = casi + 1
Scrivi String(69,"=") & " by chinonlofa",1
Scrivi "metodo superlotto x lotto69 "
Scrivi String(68,"-")
Scrivi p1 & "° Estratto di " & NomeRuota(r1) & " della " & IndiceMensile(x+2)&"^ Mese prec. " & DataEstrazione(x + 2) & " [ " & Estratto(x + 2,r1,p1) & " ] + " & fi1 & " / A "
Scrivi p2 & "° Estratto di " & NomeRuota(r2) & " della " & IndiceMensile(x+2)&"^ Mese prec. " & DataEstrazione(x + 2) & " [ " & Estratto(x + 2,r2,p2) & " ] + " & fi2 & " / A "'Scrivi " 5° Estratto su Pa+70 della 3^ mese prec. " & DataEstrazione(x + 2) & " [ " & Estratto(x + 2,r2,p2) & " ] + 70 / B "
Scrivi p3 & "° Estratto di " & NomeRuota(r3) & " della " & IndiceMensile(x+9)&"^ Mese prec. " & DataEstrazione(x + 2) & " [ " & Estratto(x + 2,r3,p3) & " ] + " & fi3 & " / A "
Scrivi String(69,"-") & " caso n° " &(casi)
ruote(1) = 11
ruote(2) = 12
co = 0
a = Fuori90(Estratto(x + 2,r1,p1) + fi1)
b = Fuori90(Estratto(x + 2,r2,p2) + fi2)
c = Fuori90(Estratto(x + 9,r3,p3) + fi3)
' a = Fuori90(Estratto(x + 2,7,5) + 32) ' originale
' b = Fuori90(Estratto(x + 2,7,5) + 70) ' originale
' c = Fuori90(Estratto(x + 9,(6),4) + 76)' originale
nu2(1) = a
nu2(2) = b
nu2(3) = c
co = co + 1
ImpostaGiocata co,nu2,ruote,poste,k
Gioca es
End If
Next
ScriviResoconto
End Sub
Function PrimaMesePrec(es)
For x = es To es - 25 Step - 1
If Cadenza(Distanza(Mese(es),Mese(x))) = 1 And IndiceMensile(x) = 1 Then
PrimaMesePrec = x
Exit For
End If
Next
End Function.