salvo50
Advanced Member >PLATINUM PLUS<
Ciao Adele
Scusa ma non riesco a capirti
Comunque ti posto lo script con la ricerca dell'ambata, penso che possa esserti utile
perché ti risparmia molti calcoli, e la ricerca della differenza nelle altre ruote
La prima ruota la devi scegliere
Scusa ma non riesco a capirti
Comunque ti posto lo script con la ricerca dell'ambata, penso che possa esserti utile
perché ti risparmia molti calcoli, e la ricerca della differenza nelle altre ruote
La prima ruota la devi scegliere
Codice:
Option Explicit
Sub Main
Dim Fin,Es,Ini,Caso,Casi,K,Clp
Dim R1,R2,P1,P2,P3,P5,P6,Salvo50
Dim A,B,C,D,E1,E2,DAB,DCD,Diam_DCD
Dim Ruote(2),Posta(1),Amba(1),Terno(3)
Dim Poste(3)
Posta(1) = 1
Poste(2) = 1
Poste(3) = 1
Fin = EstrazioneFin
Ini = InputBox("Inserisci l'estrazione che vuoi iniziare",Salvo50,10400)'
Clp = InputBox("Per quanti colpi vuoi giocare l'ambata?",,16)
Scrivi Space(5) & " CHIESTO DA ADELEADELE - Script di Salvo50",1,,4,,3,,1
R1 = ScegliRuota
'Call ScegliRange(Ini,Fin,Ini,Fin)
For Es = Ini To Fin
Messaggio Es
AvanzamentoElab Ini,Fin,Es
Caso = 0
For P1 = 1 To 4
For P2 = P1 + 1 To 5
A = Estratto(Es,R1,P1)
B = Estratto(Es,R1,P2)
For P3 = 1 To 5
For R2 = 1 To 12
If R2 = 11 Then R2 = 12
If R1 <> R2 Then
C = Estratto(Es,R2,P3)
If A > 0 And C > 0 Then
DAB = Differenza(A,B)
If DAB = C Then
D = Estratto(Es,R1,P3)
DCD = Differenza(D,C)
Diam_DCD = Diametrale(DCD)
Amba(1) = Diam_DCD
Terno(1) = DAB
Terno(2) = DCD
Terno(3) = Diam_DCD
'
Caso = Caso + 1
Casi = Casi + 1
Scrivi String(90,"o") & " Casi Totali " & FormattaStringa(Casi,"00000"),1,,,1
Scrivi String(80,"o") & " Estrazione " &(Es) & " caso " & FormattaStringa(Caso,"00000"),1,,,2
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 Then
ColoreTesto 2
Else
ColoreTesto 0
End If
Scrivi Format2(E2) & " ",1,0
ColoreTesto 0
Next
Scrivi
Scrivi
Scrivi " La Differenza tra " & Format2(A) & " e " & Format2(B) & " = ",1,0
Scrivi Format2(DAB),1,,,2
Scrivi " La Differenza tra " & Format2(C) & " e " & Format2(D) & " = ",1,0
Scrivi Format2(DCD),1,,,2
Scrivi " Il Diametrale di " & Format2(DCD) & " = ",1,0
Scrivi Format2(Diam_DCD) & " Ambata ",1,,,1
Ruote(1) = R1 : Ruote(2) = R2
Scrivi
ImpostaGiocata 1,Amba,Ruote,Posta,Clp
ImpostaGiocata 2,Terno,Ruote,Poste,Clp
Gioca Es,,,1
End If
End If
End If
Next
Next
Next
Next
If ScriptInterrotto Then Exit Sub
Next
ScriviResoconto
End Sub
Ultima modifica: