Sub Main Dim FIn,Es,Es2,Salvo50,Ini,N1,N2,N3,Retnum,Retvinc Dim Caso,Casi,A,B,C,D,Clp,Ind_Me,Ambetto,k Dim Amba(1),Ambo(3),Posta(1),Poste(2),Ruo(3) Dim Ru1,Ru2,Ru3,Ru4,Ru5,Ru6,Ru7,Ru8,Ru9,Ru10,Ru11 FIn = EstrazioneFin Ini = InputBox("Inserisci l'estrazione che vuoi iniziare",,9700) Clp = InputBox("Per quanti colpi vuoi giocare?",Salvo50,12) Ind_Me = CInt(InputBox("Inserisci il numero dell'indice mensile",Salvo50,1)) Posta(1) = 1 Poste(2) = 1 'Scrivi "Solo Una Ambata ed un Ambo Secco di Nando52 PER LE SORTI DI AMBETTO AMBO TERNO- Con scelta Indice Mensile - Script Salvo50",1,,4,,3,,1 Ruo(1) = BA_ : Ruo(2) = CA_: Ruo(3) = TT_ For Es = Ini To FIn If IndiceMensile(Es) = Ind_Me Then Messaggio Es AvanzamentoElab Ini,FIn,Es Caso = 0 A = CInt(Estratto(Es,BA_,4)) B = CInt(Estratto(Es,PA_,4)) C = CInt(Estratto(Es,NA_,2)) D = CInt(Estratto(Es,TO_,2)) N1 = CInt(Decina(A) + Cadenza(A)) N1 = CInt(Fuori90(N1 + B + 23)) N2 = CInt(Fuori90(C * C)) N2 = CInt(Fuori90(N2 + D + 80)) N3 = CInt(Fuori90(C * C + 80)) : Ruo(2) = CA_ Caso = Caso + 1 Casi = Casi + 1 ColoreTesto 2 Scrivi String(89,"*") & " Casi Totali " & FormattaStringa(Casi,"0000") ColoreTesto 1 Scrivi String(80,"*") & " Estrazione " &(Es) & " caso " & FormattaStringa(Caso,"0000") ColoreTesto 0 Scrivi(" Estrazione n." & Format2(Es) & " del " & DataEstrazione(Es)),1,0 Scrivi Space(5) & "INDICE MENSILE INSERITO " & Ind_Me,1,,,1 Scrivi Amba(1) = N1 ImpostaGiocata 1,Amba,Ruo,Posta,Clp,1 Ambo(1) = N1 : Ambo(2) = N2: Ambo(3) = N3 ImpostaGiocata 2,Ambo,Ruo,Poste,Clp,2 Gioca Es Scrivi Space(20) & "AMBETTI",1,,,2 For k = 1 To Clp Ru1 = BA_ Es2 = Es + k If Es2 > FIn Then Exit For Ambetto = VerificaAmbetto(Ambo,Ru1,Es2,Retnum,Retvinc) If Ambetto > 0 Then Scrivi " Ambetto su " & Retnum & " Del " & DataEstrazione(Es2),1 Scrivi " Vincita di " & Retvinc & " Volte la posta",1 End If Ru2 = CA_ Ambetto = VerificaAmbetto(Ambo,Ru2,Es2,Retnum,Retvinc) If Ambetto > 0 Then Scrivi " Ambetto su " & Retnum & " Del " & DataEstrazione(Es2),1 Scrivi " Vincita di " & Retvinc & " Volte la posta",1 End If ' Ru3 = FI_ Ambetto = VerificaAmbetto(Ambo,Ru3,Es2,Retnum,Retvinc) If Ambetto > 0 Then Scrivi " Ambetto su " & Retnum & " Del " & DataEstrazione(Es2),1 Scrivi " Vincita di " & Retvinc & " Volte la posta",1 End If ' Ru4 = GE_ Ambetto = VerificaAmbetto(Ambo,Ru4,Es2,Retnum,Retvinc) If Ambetto > 0 Then Scrivi " Ambetto su " & Retnum & " Del " & DataEstrazione(Es2),1 Scrivi " Vincita di " & Retvinc & " Volte la posta",1 End If ' Ru5 = MI_ Ambetto = VerificaAmbetto(Ambo,Ru5,Es2,Retnum,Retvinc) If Ambetto > 0 Then Scrivi " Ambetto su " & Retnum & " Del " & DataEstrazione(Es2),1 Scrivi " Vincita di " & Retvinc & " Volte la posta",1 End If ' Ru6 = NA_ Ambetto = VerificaAmbetto(Ambo,Ru6,Es2,Retnum,Retvinc) If Ambetto > 0 Then Scrivi " Ambetto su " & Retnum & " Del " & DataEstrazione(Es2),1 Scrivi " Vincita di " & Retvinc & " Volte la posta",1 End If ' Ru7 = PA_ Ambetto = VerificaAmbetto(Ambo,Ru7,Es2,Retnum,Retvinc) If Ambetto > 0 Then Scrivi " Ambetto su " & Retnum & " Del " & DataEstrazione(Es2),1 Scrivi " Vincita di " & Retvinc & " Volte la posta",1 End If ' Ru8 = RO_ Ambetto = VerificaAmbetto(Ambo,Ru8,Es2,Retnum,Retvinc) If Ambetto > 0 Then Scrivi " Ambetto su " & Retnum & " Del " & DataEstrazione(Es2),1 Scrivi " Vincita di " & Retvinc & " Volte la posta",1 End If ' Ru9 = TO_ Ambetto = VerificaAmbetto(Ambo,Ru9,Es2,Retnum,Retvinc) If Ambetto > 0 Then Scrivi " Ambetto su " & Retnum & " Del " & DataEstrazione(Es2),1 Scrivi " Vincita di " & Retvinc & " Volte la posta",1 End If ' Ru10 = VE_ Ambetto = VerificaAmbetto(Ambo,Ru10,Es2,Retnum,Retvinc) If Ambetto > 0 Then Scrivi " Ambetto su " & Retnum & " Del " & DataEstrazione(Es2),1 Scrivi " Vincita di " & Retvinc & " Volte la posta",1 End If Ru11 = NZ_ Ambetto = VerificaAmbetto(Ambo,Ru11,Es2,Retnum,Retvinc) If Ambetto > 0 Then Scrivi " Ambetto su " & Retnum & " Del " & DataEstrazione(Es2),1 Scrivi " Vincita di " & Retvinc & " Volte la posta",1 End If Next If ScriptInterrotto Then Exit Sub End If Next ScriviResoconto End Sub
Come faccio a farmi restituite il verticale di questa funzione grazie
N3 = CInt(Fuori90(C * C + 80))
|