-
.
gentilmente se si può avere lo scrpit di questo mio metodino:
ultima del mese su BA-CA, sommare la figura dei terzi estratti e del risultato se necessario fare il fuori 9;
del risultato ottenuto fare il complemento a 90 = ambata
per ambo abbinare il + e - 1 e 2 dell'ambata, per recupero giocare anche la cinquina per ambo e terno, tutto sulle due rute di ricavo.
es. ultima estraz. di agosto/11
BA 3° estratto 90 figura 9
CA 3° estratto 79 figura 7
9+7=16 fuori 9=7
90-7= 83 ambata su BA e CA
per ambo 83/81-82-84-85
per ambo e terno 81-82-83-84-85
esito 1° colpo ambo in cinquina su BA 81-82
da giocare per 7 colpi
grazie. -
.
up . -
.
ciao tommaso,appena possibile cerchiamo di farne un listato.. . -
.
Vedi se va' bene ( grazie a chilofa per l'aiuto) : SPOILER (clicca per visualizzare)Sub main()
Dim n(5),ruote(1),nu(5),posta(1)
ce=InputBox("da quale estrazione vuoi controllare? ","estrazione",EstrazioneFin-100)
ini=ce
fin=EstrazioneFin
Scrivi "metodo knopfler61 forum IL LOTTO DI SEAN69 ",1
Scrivi String(86,"="),1
Scrivi "resoconto da "&DataEstrazione(ini,1)&" a "& DataEstrazione(fin,1)&" ("&(fin-ce)&" estr.)",1
For es=ini To EstrazioneFin
Messaggio "elab. estr. ["&(es)&"] di " & DataEstrazione (es,1)
For r1=1 To 10
For p=1 To 5
n(p)=Estratto (es,r1,p)
Next
OrdinaMatrice n,-1
so=(n(1)+n(2)+n(3)+n(4)+n(5))
If so>138 And so <226 Then
a=Fuori90(228-n(1)): b=Fuori90(227-n(1))
If Estratto (es,r1,p)=a Or Estratto (es,r1,p)=b Then a=Fuori90(228-n(2)): b=Fuori90(227-n(2))
ruote(1)=r1:posta(1)=1
casi=casi+1:Scrivi String(65,"="),1
Scrivi DataEstrazione(es,1)&" [ "&siglaRuota(r1)&" - "&StringaEstratti(es,r1)&" ]"& Chr (10)&_
"Somma 1° 2° 3° 4° 5° [ "&Format2(so) &" ]num. magg.->[ "&(n(1))&" ] ambate "&(a)&"//"&(b) ,1
If Estratto (es,r1,p)=a Or Estratto (es,r1,p)=b Then
Scrivi " estratto =ambata <ricalcolo> - "&(a)&""&(b)
End if
Scrivi String(60,"-")&" caso n° "&(casi):co=0
nu(1)=a:nu(2)=b
co=co+1
ImpostaGiocata co,nu,ruote,posta,14
Gioca es
End If
Next :
Next
ScriviResoconto
Scrivi "metodo knopfler61 ",1
End Sub. -
.
grazie sean ma non è il metodo che avevo richiesto, comunque funziona bene, aspetto il listato del mio metodino . -
.
hai ragione era un'altra richiesta,scusami,mi sono confuso..al piu' presto cerchiamo di rimediare.. . -
.
Ecco quello giusto ( spero): grazie a nonsisa per l'aiuto.. SPOILER (clicca per visualizzare)ColoreTesto 1 :Scrivi "BARI- CAGLIARI forum IL LOTTO DI SEAN69 "
ColoreTesto 1 :Scrivi "List nonsisa"
Scrivi : ColoreTesto 0
Sub main()
Dim posta(5)
Dim ruote(5)
Dim am(10)
posta(2)=1
posta(3)=1
casi=0
fin=EstrazioneFin
ini=EstrazioneFin-900
For es=ini To fin
If Indicemensile(es+1)=1 Then
a=Fuori9(Figura(Estratto(es,1,3))+Figura(Estratto(es,2,3)))
aa=(90-a)
aaa=(aa-1)
b=(aa-2)
bb=Fuori90(aa+1)
bbb=Fuori90(aa+2)
Scrivi String(65,"=")
Scrivi DataEstrazione(es,1)&" [ "& SiglaRuota(1)&" "&_
StringaEstratti(es,1) &" ] [ "& Format2(Estratto(es,1,3))&" ] pos. 3"
Scrivi DataEstrazione(es,1)&" [ "& SiglaRuota(2)&" "&_
StringaEstratti(es,2)&" ] [ "& Format2(Estratto(es,2,3))&" ] pos. 3"
Scrivi "figure dei 3^ estr. "& Format2 (Figura(Estratto(es,1,3)))&"+"& Format2 (Figura(Estratto(es,2,3)))& "-9 = "&(a)
Scrivi "ambata 90- "& a&"= "&(aa)
Scrivi "abbinamenti +-1//2 dell'ambata "&aa&"= "&(aaa)&" "& b&" "&(bb)&" "&(bbb)
Scrivi String(65,"-")
ColoreTesto 2 :Scrivi "--ultima estrazione del mese---------------------------",1
ruote(1)=1
ruote(2)=2
am(1)=aa
am(2)=aaa
am(3)=b
am(4)=bb
am(5)=bbb
ImpostaGiocata 1,am,ruote,posta,14
Gioca es
casi=casi+1
End If
Next
Scrivi
Scrivi
Scrivi "Numero Totale mesi analizzati : "&Cint(casi)
ScriviResoconto
End Sub
Function Fuori9(nn)
If nn -(9*Int(nn/9)) = 0 Then Fuori9 = 9 Else Fuori9 =(nn -(9*Int(nn/9)))
End Function. -
.
grazie sean funziona benissimo e grazie anche a chi nonsisa . -
.
Qui' ho aggiunto anche il gioco di Ambata: CODICEColoreTesto 1 :Scrivi "BARI- CAGLIARI forum IL LOTTO DI SEAN69 "
ColoreTesto 1 :Scrivi "List nonsisa"
Scrivi : ColoreTesto 0
Sub main()
Dim poste(1)
Dim posta(5)
Dim ruote(5)
Dim amb(1)
Dim am(10)
poste(1)=1
posta(2)=1
posta(3)=1
casi=0
fin=EstrazioneFin
ini=EstrazioneFin-900
For es=ini To fin
If Indicemensile(es+1)=1 Then
a=Fuori9(Figura(Estratto(es,1,3))+Figura(Estratto(es,2,3)))
aa=(90-a)
aaa=(aa-1)
b=(aa-2)
bb=Fuori90(aa+1)
bbb=Fuori90(aa+2)
Scrivi String(65,"=")
Scrivi DataEstrazione(es,1)&" [ "& SiglaRuota(1)&" "&_
StringaEstratti(es,1) &" ] [ "& Format2(Estratto(es,1,3))&" ] pos. 3"
Scrivi DataEstrazione(es,1)&" [ "& SiglaRuota(2)&" "&_
StringaEstratti(es,2)&" ] [ "& Format2(Estratto(es,2,3))&" ] pos. 3"
Scrivi "figure dei 3^ estr. "& Format2 (Figura(Estratto(es,1,3)))&"+"& Format2 (Figura(Estratto(es,2,3)))& "-9 = "&(a)
Scrivi "ambata 90- "& a&"= "&(aa)
Scrivi "abbinamenti +-1//2 dell'ambata "&aa&"= "&(aaa)&" "& b&" "&(bb)&" "&(bbb)
Scrivi String(65,"-")
ColoreTesto 2 :Scrivi "--ultima estrazione del mese---------------------------",1
ruote(1)=1
ruote(2)=2
amb(1)=aa
am(1)=aa
am(2)=aaa
am(3)=b
am(4)=bb
am(5)=bbb
ImpostaGiocata 1,amb,ruote,poste,14
ImpostaGiocata 2,am,ruote,posta,14
Gioca es
casi=casi+1
End If
Next
Scrivi
Scrivi
Scrivi "Numero Totale mesi analizzati : "&Cint(casi)
ScriviResoconto
End Sub
Function Fuori9(nn)
If nn -(9*Int(nn/9)) = 0 Then Fuori9 = 9 Else Fuori9 =(nn -(9*Int(nn/9)))
End Function
ecco il risultato:CODICE=================================================================
mar 30.08.2011 [ Ba 24.38.90.31.60 ] [ 90 ] pos. 3
mar 30.08.2011 [ Ca 12.19.79.39.53 ] [ 79 ] pos. 3
figure dei 3^ estr. 09+07-9 = 7
ambata 90- 7= 83
abbinamenti +-1//2 dell'ambata 83= 82 81 84 85
-----------------------------------------------------------------
--ultima estrazione del mese---------------------------
mar 30.08.2011 [8423]
G 1: M 83 Ba Ca 11/14
in corso (11° su 14)
G 2: AT 83.82.81.84.85 Ba Ca 11/14
A 81.82 su Ba 1° colpo [8424/01.09.2011]
in corso (11° su 14).