salvo50
Advanced Member >PLATINUM PLUS<
Questo è lo script di Baffo del post 6, fatto con meno righe, ma dovete
controllare se l'output è uguale io non ho modo di farlo, non sono
riuscito a caricare lo script di Baffo, perché il computer mi va in
Overflow
controllare se l'output è uguale io non ho modo di farlo, non sono
riuscito a caricare lo script di Baffo, perché il computer mi va in
Overflow
Codice:
Option Explicit
Sub Main()
Dim A,k,Ini,fin,es,r1,r2,co,ok,tm,Im,P1
Dim Num1(2),Num2(2),Num3(2),Num4(2),Num5(2),N1(2)
'Dim ruota(11)
Dim ruote(1)
Dim poste(2)
poste(2) = 1
r2 = 11
r1 = CInt(InputBox(" Scegli la ruota ",,"1"))
Im = CInt(InputBox(" Indice mensile ? ",,"1"))
tm = CInt(InputBox(" Quante estrazioni vuoi controllare ? ",,"500"))
k = CInt(InputBox(" Per quanti colpi vuoi giocare ? ",,"12"))
Ini = EstrazioneFin - tm
fin = EstrazioneFin
co = 0
ok = 0
ResetTimer
For es = Ini To fin
Messaggio "elab. estr. [" &(es) & "] di " & DataEstrazione(es,1)
Call AvanzamentoElab(Ini,fin,es)
If IndiceMensile(es) = Im Then
For P1 = 1 To 5
A = Estratto(es,r1,P1)
If A = 1 Then N1(1) = 28: N1(2) = 18 : ok = 1
If A = 2 Then N1(1) = 58: N1(2) = 37 : ok = 1
If A = 3 Then N1(1) = 34: N1(2) = 33 : ok = 1
If A = 4 Then N1(1) = 10: N1(2) = 21 : ok = 1
If A = 5 Then N1(1) = 46: N1(2) = 17 : ok = 1
If A = 6 Then N1(1) = 52: N1(2) = 26 : ok = 1
If A = 7 Then N1(1) = 88: N1(2) = 07 : ok = 1
If A = 8 Then N1(1) = 04: N1(2) = 22 : ok = 1
If A = 9 Then N1(1) = 70: N1(2) = 24 : ok = 1
If A = 10 Then N1(1) = 46: N1(2) = 36 : ok = 1
If A = 11 Then N1(1) = 87: N1(2) = 38 : ok = 1
If A = 12 Then N1(1) = 87: N1(2) = 38 : ok = 1
If A = 13 Then N1(1) = 79: N1(2) = 80 : ok = 1
If A = 14 Then N1(1) = 40: N1(2) = 27 : ok = 1
If A = 15 Then N1(1) = 16: N1(2) = 72 : ok = 1
If A = 16 Then N1(1) = 82: N1(2) = 75 : ok = 1
If A = 17 Then N1(1) = 58: N1(2) = 05 : ok = 1
If A = 18 Then N1(1) = 34: N1(2) = 01 : ok = 1
If A = 19 Then N1(1) = 28: N1(2) = 71 : ok = 1
If A = 20 Then N1(1) = 76: N1(2) = 07 : ok = 1
If A = 21 Then N1(1) = 80: N1(2) = 04 : ok = 1
If A = 22 Then N1(1) = 28: N1(2) = 08 : ok = 1
If A = 23 Then N1(1) = 04: N1(2) = 12 : ok = 1
If A = 24 Then N1(1) = 70: N1(2) = 09 : ok = 1
If A = 25 Then N1(1) = 46: N1(2) = 75 : ok = 1
If A = 26 Then N1(1) = 65: N1(2) = 06 : ok = 1
If A = 27 Then N1(1) = 88: N1(2) = 14 : ok = 1
If A = 28 Then N1(1) = 28: N1(2) = 71 : ok = 1
If A = 29 Then N1(1) = 40: N1(2) = 79 : ok = 1
If A = 30 Then N1(1) = 16: N1(2) = 42 : ok = 1
If A = 31 Then N1(1) = 46: N1(2) = 40 : ok = 1
If A = 32 Then N1(1) = 58: N1(2) = 88 : ok = 1
If A = 33 Then N1(1) = 16: N1(2) = 03 : ok = 1
If A = 34 Then N1(1) = 10: N1(2) = 51 : ok = 1
If A = 35 Then N1(1) = 76: N1(2) = 56 : ok = 1
If A = 36 Then N1(1) = 52: N1(2) = 10 : ok = 1
If A = 37 Then N1(1) = 28: N1(2) = 08 : ok = 1
If A = 38 Then N1(1) = 04: N1(2) = 53 : ok = 1
If A = 39 Then N1(1) = 70: N1(2) = 53 : ok = 1
If A = 40 Then N1(1) = 55: N1(2) = 31 : ok = 1
If A = 41 Then N1(1) = 22: N1(2) = 70 : ok = 1
If A = 42 Then N1(1) = 88: N1(2) = 30 : ok = 1
If A = 43 Then N1(1) = 64: N1(2) = 74 : ok = 1
If A = 44 Then N1(1) = 40: N1(2) = 38 : ok = 1
If A = 45 Then N1(1) = 16: N1(2) = 90 : ok = 1
If A = 46 Then N1(1) = 82: N1(2) = 50 : ok = 1
If A = 47 Then N1(1) = 04: N1(2) = 86 : ok = 1
If A = 48 Then N1(1) = 34: N1(2) = 44 : ok = 1
If A = 49 Then N1(1) = 10: N1(2) = 81 : ok = 1
If A = 50 Then N1(1) = 76: N1(2) = 46 : ok = 1
If A = 51 Then N1(1) = 51: N1(2) = 34 : ok = 1
If A = 52 Then N1(1) = 28: N1(2) = 89 : ok = 1
If A = 53 Then N1(1) = 04: N1(2) = 39 : ok = 1
If A = 54 Then N1(1) = 43: N1(2) = 78 : ok = 1
If A = 55 Then N1(1) = 46: N1(2) = 70 : ok = 1
If A = 56 Then N1(1) = 56: N1(2) = 35 : ok = 1
If A = 57 Then N1(1) = 88: N1(2) = 73 : ok = 1
If A = 58 Then N1(1) = 64: N1(2) = 62 : ok = 1
If A = 59 Then N1(1) = 40: N1(2) = 84 : ok = 1
If A = 60 Then N1(1) = 16: N1(2) = 55 : ok = 1
If A = 61 Then N1(1) = 01: N1(2) = 18 : ok = 1
If A = 62 Then N1(1) = 58: N1(2) = 85 : ok = 1
If A = 63 Then N1(1) = 34: N1(2) = 36 : ok = 1
If A = 64 Then N1(1) = 10: N1(2) = 50 : ok = 1
If A = 65 Then N1(1) = 76: N1(2) = 85 : ok = 1
If A = 66 Then N1(1) = 52: N1(2) = 78 : ok = 1
If A = 67 Then N1(1) = 28: N1(2) = 71 : ok = 1
If A = 68 Then N1(1) = 04: N1(2) = 21 : ok = 1
If A = 69 Then N1(1) = 70: N1(2) = 41 : ok = 1
If A = 70 Then N1(1) = 46: N1(2) = 55 : ok = 1
If A = 71 Then N1(1) = 40: N1(2) = 28 : ok = 1
If A = 72 Then N1(1) = 88: N1(2) = 15 : ok = 1
If A = 73 Then N1(1) = 64: N1(2) = 83 : ok = 1
If A = 74 Then N1(1) = 40: N1(2) = 79 : ok = 1
If A = 75 Then N1(1) = 82: N1(2) = 16 : ok = 1
If A = 76 Then N1(1) = 82: N1(2) = 85 : ok = 1
If A = 77 Then N1(1) = 58: N1(2) = 82 : ok = 1
If A = 78 Then N1(1) = 34: N1(2) = 54 : ok = 1
If A = 79 Then N1(1) = 10: N1(2) = 74 : ok = 1
If A = 80 Then N1(1) = 76: N1(2) = 13 : ok = 1
If A = 81 Then N1(1) = 16: N1(2) = 49 : ok = 1
If A = 82 Then N1(1) = 64: N1(2) = 77 : ok = 1
If A = 83 Then N1(1) = 76: N1(2) = 73 : ok = 1
If A = 84 Then N1(1) = 61: N1(2) = 59 : ok = 1
If A = 85 Then N1(1) = 73: N1(2) = 76 : ok = 1
If A = 86 Then N1(1) = 58: N1(2) = 47 : ok = 1
If A = 87 Then N1(1) = 87: N1(2) = 77 : ok = 1
If A = 88 Then N1(1) = 55: N1(2) = 32 : ok = 1
If A = 89 Then N1(1) = 67: N1(2) = 52 : ok = 1
If A = 90 Then N1(1) = 58: N1(2) = 45 : ok = 1
If P1 = 1 Then Num1(1) = N1(1) : Num1(2) = N1(2)
If P1 = 2 Then Num2(1) = N1(1) : Num2(2) = N1(2)
If P1 = 3 Then Num3(1) = N1(1) : Num3(2) = N1(2)
If P1 = 4 Then Num4(1) = N1(1) : Num4(2) = N1(2)
If P1 = 5 Then Num5(1) = N1(1) : Num5(2) = N1(2)
Next
If ok = 1 Then
'ruota(1) = r1
ruote(1) = r2
co = co + 1
Scrivi String(100,"°") & " Caso n°" & co,1
Scrivi DataEstrazione(es) & " " & SiglaRuota(r1) & " - " & StringaEstratti(es,r1),1,,,1,2
Scrivi "Ambi a Tutte : ",1
Scrivi Format2(Num1(1)) & " - " & Format2(Num1(2)),1,,,1,2
Scrivi Format2(Num2(1)) & " - " & Format2(Num2(2)),1,,,1,2
Scrivi Format2(Num3(1)) & " - " & Format2(Num3(2)),1,,,1,2
Scrivi Format2(Num4(1)) & " - " & Format2(Num4(2)),1,,,1,2
Scrivi Format2(Num5(1)) & " - " & Format2(Num5(2)),1,,,1,2
Scrivi String(70,"°"),1
ImpostaGiocata 1,Num1,ruote,poste,k',2,,1 ' se vuoi il primo esito raggiunto togli apice dopo k
ImpostaGiocata 2,Num2,ruote,poste,k',2,,2
ImpostaGiocata 3,Num3,ruote,poste,k',2,,3
ImpostaGiocata 4,Num4,ruote,poste,k',2,,4
ImpostaGiocata 5,Num5,ruote,poste,k',2,,5
Gioca es,1,,1
End If
End If
Next
Scrivi String(100,"*")
ColoreTesto 2
Scrivi" casi trovati : " & co,1
ColoreTesto 0
Scrivi String(100," * ")
TestoInBandaPassante(" Variante di Alien su Idea di Mastrogino e Script by BaffoBlù "),1,3,0
ScriviResoconto,False
End Sub