Per salvo50

[salvo50]

Ciao ILegend, grazie, non era urgente, vai tranquillo, ti faccio tanti auguroni sinceri di buona guarigione

 

[i legend]

Grazie

 

[roy]

Ciao a tutti,Salvo ma nel primo script( post 5) è possibile inserire tramite l'inputbox la scelta delle ruote?Grazie

 

[salvo50]

Ciao a tutti,Salvo ma nel primo script( post 5) è possibile inserire tramite l'inputbox la scelta delle ruote?Grazie

Ciao Roy, (ma sei il Roy che scanna i fumetti?)

Lo posto qua quello del post 5, con ruote a scelta

Option Explicit
Sub Main
   Dim FIn,Es,Es1,Ini,Ini1,Clp,Salvo50
   Dim R1,R2,P1,P2,k,k2,Caso,Casi,Sp
   Dim A(5),B(5),FiA(5),FiB(5),Ruo(2),num3(10)
   Dim Posta(5),Poste(5),Num1(5),Num2(5)
   Posta(2) = 1
   Posta(3) = 1
   Poste(3) = 1
   Poste(4) = 1
   'Poste(5) = 1
   Sp = " "
   FIn = EstrazioneFin
   Ini = CInt(InputBox("INSERISCI L'ESTRAZIONE CHE VUOI INIZIARE",Salvo50,9700))'3575
   Clp = CInt(InputBox(" PER QUANTI COLPI VUOI GIOCARE?",Salvo50,10))
   R1 = CInt(InputBox(" INSERISCI IL NUMERO DELLA 1a RUOTA",Salvo50,1))
   R2 = CInt(InputBox(" INSERISCI IL NUMERO DELLA 2a RUOTA",Salvo50,2))
   If R1 <> R2 Then
      Call ScegliRange(Ini,FIn,Ini,FIn)
      Scrivi Space(6) & "PER MATEMATICO FIGURE IN 2 RUOTE con RUOTE A SCELTA - SCRIPT SALVO50",1,,4,,3,,1
      For Es = Ini To FIn
         Caso = 0
         Messaggio Es
         AvanzamentoElab Ini,FIn,Es
         For P1 = 1 To 5
            A(P1) = Estratto(Es,R1,P1)
            FiA(P1) = Figura(A(P1))
         Next
         For P2 = 1 To 5
            B(P2) = Estratto(Es,R2,P2)
            FiB(P2) = Figura(B(P2))
         Next
         For k = 1 To 5
            Num1(k) = FiA(k) & FiB(k)
            Fuori90(Num1(k))
            Num2(k) = Vert(Num1(k))
            Fuori90(Num2(k))
         Next
         For k2 = 1 To 10
            If k2 < 6 Then num3(k2) = Num1(k2)
            If k2 > 5 Then num3(k2) = Num2(k2 - 5)
         Next
         Ruo(1) = R1
         Ruo(2) = R2
         Caso = Caso + 1
         Casi = Casi + 1
         Scrivi String(89,"*") & " Casi Totali " & FormattaStringa(Casi,"0000"),1,,,2
         Scrivi String(80,"*") & " Estrazione " &(Es) & " caso " & FormattaStringa(Caso,"0000"),1,,,1
         Scrivi(" Estrazione n." & Format2(Es) & " del " & DataEstrazione(Es)),1,0
         Scrivi " " & SiglaRuota(R1) & Sp & StringaEstratti(Es,R1) & " Figure Estratti " & StringaNumeri(FiA," ",False),1
         Scrivi(" Estrazione n." & Format2(Es) & " del " & DataEstrazione(Es)),1,0
         Scrivi " " & SiglaRuota(R2) & Sp & StringaEstratti(Es,R2) & " Figure Estratti " & StringaNumeri(FiB," ",False),1
         Scrivi
         Scrivi " Numeri Gruppo 1 " & StringaNumeri(Num1," ",True),1
         Scrivi " Numeri Gruppo 2 " & StringaNumeri(Num2," ",True),1
         Scrivi " Numeri Gruppo 3 " & StringaNumeri(num3," ",True),1
         Scrivi
         ImpostaGiocata 1,Num1,Ruo,Posta,Clp
         ImpostaGiocata 2,Num2,Ruo,Posta,Clp
         ImpostaGiocata 3,num3,Ruo,Poste,Clp
         Gioca Es
         If ScriptInterrotto Then Exit Sub
      Next
      ScriviResoconto
   Else
      Scrivi "HAI INSERITO 2 RUOTE UGUALI ",1,,4,,6,,1
   End If
End Sub

 

[roy]

Ciao Roy, (ma sei il Roy che scanna i fumetti?)
...ahahahh no Salvo mai in vita mia ho scannato qualcosa,grazie