salvo50
Advanced Member >PLATINUM PLUS<
Ciao Mister 1729, dalla tua richiesta nel topic
Metodi Cabalistici, Ciclometrici & C
non ho capito niente, mi dici di evidenziare l'ambata e va bene
Mi dici di evidenziare l'ambo, ma se non è calcolato nello script, come faccio ad evidenziarlo?
Poi tutti i calcoli evidenziati sono sbagliati, domanda ma servono o no? Dimmi cosa vuoi ottenere e correggerò lo script, così puoi capire dove hai sbagliato
Prevedo una cosa lunga tra domande e risposte quindi parliamone qui, ti riposto lo script da te postato nell'altro topic
Se riesci cancella la richiesta nel topic - Metodi Cabalistici, Ciclometrici & C
Metodi Cabalistici, Ciclometrici & C
non ho capito niente, mi dici di evidenziare l'ambata e va bene
Mi dici di evidenziare l'ambo, ma se non è calcolato nello script, come faccio ad evidenziarlo?
Poi tutti i calcoli evidenziati sono sbagliati, domanda ma servono o no? Dimmi cosa vuoi ottenere e correggerò lo script, così puoi capire dove hai sbagliato
Prevedo una cosa lunga tra domande e risposte quindi parliamone qui, ti riposto lo script da te postato nell'altro topic
Se riesci cancella la richiesta nel topic - Metodi Cabalistici, Ciclometrici & C
Codice:
Sub Main()
Dim FIn,Es,Ini,A,B,C,D,Clp1,Clp2,Salvo50
Dim R1,R2,P1,P2,P3,P4,P5,P6,E1,E2
Dim Sp,Abb1,Abb2,Abb3,abb4,abb5,Caso,Casi
Dim M(4),Ruo(2),Posta(1),Poste(5)
Dim Ambata,Cinquina(5),Ruot(4)
Sp = " "
Posta(1) = 1
'Poste(2) = 1
'Poste(3) = 1
'Poste(4) = 1
FIn = EstrazioneFin
Ini = InputBox("Inserisci l'estrazione che vuoi iniziare",Salvo50,9760)
Clp1 = InputBox("Per quanti colpi vuoi giocare L'ambata?",,13)
Clp2 = InputBox("Per quanti colpi vuoi giocare l'ambo e la cinquina?",,13)
Call ScegliRange(Ini,FIn,Ini,FIn)
Scrivi Space(3) & " Ambo Ripetuto di Fabarri - script Salvo50",1,,4,,3,,1
For Es = Ini To FIn
Messaggio Es
AvanzamentoElab Ini,FIn,Es
Caso = 0
For R1 = 1 To 10
For P1 = 1 To 4
For P2 = P1 + 1 To 5
A = Estratto(Es,R1,P1)
B = Estratto(Es,R1,P2)
'
For R2 = R1 + 1 To 12
If R2 = 11 Then R2 = 12
For P3 = 1 To 4
For P4 = P3 + 1 To 5
C = Estratto(Es,R2,P3)
D = Estratto(Es,R2,P4)
If A = D And B = C Then
'A---B'
'| |'
'C---D'
M(1) = A : M(2) = B : M(3) = C : M(4) = D
Call OrdinaMatrice(M,1)
Abb1 = Fuori90(A + B)
Abb2 = Differenza(A,B)
Abb3 = Fuori90(Abb1 + Abb2)
abb4 = Fuori90(Abb3 + Abb1)
abb5 = Fuori90(Abb3 + Abb2)
Cinquina(1) = Abb1 : Cinquina(2) = Abb2 : Cinquina(3) = Abb3 : Cinquina(4) = abb4 : Cinquina(5) = abb5
Caso = Caso + 1
Casi = Casi + 1
Scrivi String(89,"*") & " Casi Totali " & FormattaStringa(Casi,"0000")
Scrivi String(80,"*") & " Estrazione " &(Es) & " caso " & FormattaStringa(Caso,"0000")
Scrivi(" Estrazione n." & Format2(Es) & " del " & DataEstrazione(Es)),1,0
Scrivi " " & SiglaRuota(R1) & " ",1,0
For P5 = 1 To 5
E1 = Estratto(Es,R1,P5)
If E1 = A Or E1 = B Then
ColoreTesto 2
Else
ColoreTesto 0
End If
Scrivi Format2(E1) & " ",1,0
ColoreTesto 0
Next
Scrivi
Scrivi(" Estrazione n." & Format2(Es) & " del " & DataEstrazione(Es)),1,0
Scrivi " " & SiglaRuota(R2) & " ",1,0
For P6 = 1 To 5
E2 = Estratto(Es,R2,P6)
If E2 = C Or E2 = D Then
ColoreTesto 2
Else
ColoreTesto 0
End If
Scrivi Format2(E2) & " ",1,0
ColoreTesto 0
Next
Scrivi
Scrivi Space(15) & Format2(M(2)) & " + " & Format2(M(1)) & " = " & Format2(Abb1) & " Abbinamento 1 ",1
Scrivi Space(15) & Format2(M(2)) & " - " & Format2(M(1)) & " = " & Format2(Abb2) & " Abbinamento 2 ",1
Scrivi Space(15) & Format2(M(2)) & " + " & Format2(M(1)) & " = " & Format2(Abb3) & " Abbinamento 3 ",1
Scrivi Space(15) & Format2(M(2)) & " + " & Format2(M(1)) & " = " & Format2(abb4) & " Abbinamento 4 ",1
Scrivi Space(15) & Format2(M(2)) & " + " & Format2(M(1)) & " = " & Format2(abb5) & " Abbinamento 5 ",1
Scrivi Space(21) & " Pronostico ",1,,,2
Scrivi Space(21) & " Ambata " & Format2(Fuori90(A + B)),1,,,2
Scrivi
Scrivi Space(15) & " Cinquina " & StringaNumeri(Cinquina," ",True),1,,,2
Ruo(1) = R1
Ruo(2) = R2
Scrivi
Ruo(1) = R1
Ruot(1) = BA_
Ruot(2) = NA_
Ruot(3) = VE_
Ruot(4) = TT_
ImpostaGiocata 1,Ambata,Ruo,Posta,Clp1
EliminaRipetuti Cinquina
ImpostaGiocata 3,Cinquina,Ruot,Poste,Clp2
Gioca Es,,,1
End If
Next
Next
Next
Next
Next
Next
If ScriptInterrotto Then Exit Sub
Next
ScriviResoconto
End Sub
