-
.
Ho dei metodi da testare, quindi vi chiedo se è possibile creare un listato generico che poi io cmabiano dei paramentre o implementando altre condizioni possa usare per altri metodi.
Inizio con questo:
Mi servrirebbe un metodo che cercaq due ambi di somma 80 su due ruote, trovati dobbiamo vedere la priorita della condizione.
La condizione principale è che uno dei due ambi deve essere unito poi dobbiamo vedere se c'e' un elemento isotopo fra le ruote.
Fatto cio vorrei prendere la previsione in considerazione dicendo che priorita ha e giocare 80 come ambata ed abbinare i numeri che compongono l'ambi base come ambi principale ed i loro trasposti.
Esempio: estr. 04/08/11 Firenze 20-30-50-59-88
Roma 04-61-47-19-75
Su Firenze abbiamo l'ambo di somma 80 30-50 unito in 2° e 3° posizione
Su Roma abbiamo l'ambo di somma 80 61-79 in 2° e 4° posizione quindi abbiamo un elemnto isotopo in 2° posizione
Ora giochiamo ambata 80 con 30-50-61-17 ambi principali e secondare trasposti 30-50-67-11
Al 1° colpo su Firenze uscì l'ambo secco principale e trasposto 80-30.
Grazie per l'aiuto. -
.
ciao,al piu' presto vediamo se si puo' fare qualcosa..grazie per il metodo . -
.ciao,al piu' presto vediamo se si puo' fare qualcosa..grazie per il metodo
Aspetto impaziente..... -
lones.
User deleted
vedi come va, per la trasposizione fai come meglio credi. CODICESub Main()
Dim nu1(10),nu2(10),ruote(4)
Dim posta(1),poste(3)
Dim nn(3),ruota(4),n(2)
posta(1) = 5
poste(2) = 3
poste(3) = 1.5
ce = InputBox("da quale estrazione vuoi controllare? ","estrazione",100)
k = InputBox("per quanti colpi?","colpi di gioco",14)
ini = EstrazioneFin-ce
fin = EstrazioneFin
Scrivi " lotto69(script by chilofa)",1
Scrivi String(80,"="),1
Scrivi "Resoconto da " & DataEstrazione(ini,1) & " a " & DataEstrazione(fin,1) & " (" &(fin - ce) & " estr.)"
For es = ini To EstrazioneFin
Messaggio "elab. estr. [" &(es) & "] di " & DataEstrazione(es,1)
For r1 = 1 To 12 'con nz
If r1 = 11 Then r1 = 12 'con nz
For p1 = 1 To 4
p2 = p1+1
a = Estratto(es,r1,p1)
b = Estratto(es,r1,p2)
ok1=Fuori90(a+b)
For r2 = r1+1 To 12 'con nz
If r2 = 11 Then r2 = 12 'con nz
If r2 <> r1 Then
For p3 = 1 To 4
For p4 =p3+ 1 To 5
c = Estratto(es,r2,p3)
d= Estratto(es,r2,p4)
ok2=Fuori90(c+d)
If ok1= 80 And ok1=ok2 Then
If (p1=p3 Or p1 = p4 Or p2 = p3 Or p2=p4) Then
casi = casi + 1
Scrivi String(65,"=") & " scrip by chilofa",2
Scrivi DataEstrazione(es,1) & " [ " & SiglaRuota(r1) & " - " & StringaEstratti(es,r1) & _
" ] [ " & Format2(a) & "." & Format2(b) & " ] in " &(p1) & "/" &(p2) & "^ pos."
Scrivi DataEstrazione(es,1) & " [ " & SiglaRuota(r2) & " - " & StringaEstratti(es,r2) & _
" ] [ " & Format2(c) & "." & Format2(d) & " ] in " &(p3) & "/" &(p4) & "^ pos."
Scrivi " somma comune degli ambi =80 "
Scrivi String(68,"-") & " caso n° " & casi
ruote(1) = r1
ruote(2) = r2
ruota(1) = 11
co = 0
nu1(1) = 80
nu1(2) = a
nu1(3) = b
nu1(4) = c
nu1(5) = d
co = co + 1
ImpostaGiocata co,nu1,ruote,poste,k
nu2(1) = 80
nu2(2) = Fuori90(Trasposizione(a,b))
nu2(3) = Fuori90(Trasposizione(c,d))
nu2(4) = Fuori90(Trasposizione(a,d))
nu2(5) = Fuori90(Trasposizione(c,b))
co = co + 1
ImpostaGiocata co,nu2,ruote,poste,k
co = co + 1
ImpostaGiocata co,nu2,ruota,poste,k
Gioca es
End If
End If
Next
Next
End If
Next
Next
Next
Next
Scrivi String(65,"=") & " scrip by chilofa",2
ScriviResoconto
Scrivi "lotto69 (script by chilofa)",1
End Sub. -
.
Grazie,grazie davvero...sempre gentilissimo..
. -
.
il listato prende in considerazione l'ambo unito solo della prima ruota, ma potrebbe essere pure al contrario, cioè l'ambo della prima ruota non è unito e della seconda è unito.
Non c'e' il controllo per l'ambata? che sarebbe l'80.
Come faccio a rimuovere il controllo a tutte le ruote?
se volessi controllare solo gli ambi secchi e non la cinquina?
Edited by lotto69 - 18/8/2011, 22:50. -
lones.
User deleted
togliCODICEil listato prende in considerazione l'ambo unito solo della prima ruota, ma potrebbe essere pure al contrario, cioè l'ambo della prima ruota non è unito e della seconda è unito.
For r2 = r1+1 To 12'<<<<<<<<<<<<<< r1
For r2 = 1 To 12'CODICECome faccio a rimuovere il controllo a tutte le ruote?
metti l'apicedavanti aCODICE'
ImpostaGiocata co,nu2,ruota,poste,kinserisciCODICENon c'e' il controllo per l'ambata? che sarebbe l'80.
nn(1) = 80
co = co + 1
ImpostaGiocata co,nn,ruote,posta,kCODICEe...............divertiti............ -
.
Grazie Lones per l'intervento,grazie davvero.. . -
.
[QUOTE=lones,20/8/2011, 09:17 ?t=57312653&st=0#entry467615326] togliCODICEil listato prende in considerazione l'ambo unito solo della prima ruota, ma potrebbe essere pure al contrario, cioè l'ambo della prima ruota non è unito e della seconda è unito.
For r2 = r1+1 To 12'<<<<<<<<<<<<<< r1
For r2 = 1 To 12'
Non capisco? io intendevo ambo unito e non ruote unite.
Mi potresti spiegare perchè il ciclo for è da 1 to 12 se le ruote sono 11?
1=Ba; 10=Ve; ho visto che 12=Nazionale ma 11 cosa è?. -
.
Ciao lotto69,da quello che so' io 11 vuol dire Tutte le Ruote..ti consiglio di mettere esempi pratici dove pensi il listato non corrisponde alle tue richieste,in modo che lones riesca ad esaudire cio' che chiedi.. . -
lones.
User deleted
lotto69 fai queste ulteriori modifiche
For p1 = 1 To 4
p2 = p1+1 '<<<<<<<<<<<<<CODICEFor p1 = 1 To 4
For p2 = p1+1 To 5'<<<<<<<<<<<<<<
' inserisci alla fine del listato un altro
next'<<<<<<<<<<<<<<<<<<<<<<<<<<<<
al posto di questa stringa
If ok1= 80 And ok1=ok2 Then
metti questaCODICEIf ok1= 80 And ok1=ok2 And (Distanza(p1,p2)=1 Or Distanza(p3,p4)=1 )Then
e rimetti
For r2 =r1+ 1 To 12 'con nz
non so il motivo ma senza questo ti da la doppia giocata. -
.
Grazie Lones,sempre gentilissimo.. . -
.
Grazie per il vostro aiuto, siete grandi . -
.
un grazie speciale va' a lones,sempre disponibile e gentilissimo.. .