Per Salvo Mike o altri x Modifica

trivellatomariotretre33 · 1 Agosto 2023

Salve Buongiorno Avrei Bisogno Per Questo Script Una Modifica
(1) Scelta ID Mensile
(2) Scelta Colpi
Vi Ringrazio Cordialmente.

Option Explicit
Sub Main
Dim Ini,fine,ct,retestratti,retidestr,nu,j,r1,ru2,rudue,p2,p3,p4,p5,p6,es2,es1,i,ct2
Dim an(1),ar(10),dati(10,5),cip
cip = 10200
r1 = 1 ' <-------------- 1^ ruota
rudue = 12 ' <---------- 2^ ruota
Ini = cip
fine = 10274
For j = 1 To 1
ar(j) = j
Next
For Ini = Ini + 1 To 10274
nu = Estratto(Ini,r1,1)
an(1) = nu
Call VerificaEsitoTurbo(an,ar,Ini + 1,1,1,,,,retestratti,retidestr)
If retestratti <> "" Then
ct = ct + 1
End If
Next
ColoreTesto 1
Scrivi"volte che si è ripetuto il 1° estratto di " & NomeRuota(r1) & " nell'estrazione sucessiva nella ruota di " & NomeRuota(rudue),1
ColoreTesto 0
Scrivi
Ini = cip
For Ini = Ini + 1 To 10274
es1 = Estratto(Ini,r1,1)
i = Ini
For ru2 = rudue To rudue
For p2 = 1 To 5
es2 = Estratto(i + 1,ru2,p2)
If es1 = es2 Then
ct2 = ct2 + 1
Scrivi Ini & " / " & Ini + 1 & " 1° estratto n° " & es1 & " a " & NomeRuota(r1) & " riestrato a " & NomeRuota(rudue) & " n° " & es2
End If
Next
Next
Next
Scrivi
ColoreTesto 1
Scrivi"volte che si è ripetuto il 2° estratto di " & NomeRuota(r1) & " nell'estrazione sucessiva nella ruota di " & NomeRuota(rudue),1
ColoreTesto 0
Scrivi
Ini = cip
For Ini = Ini + 1 To 10274
es1 = Estratto(Ini,r1,2)
i = Ini
For ru2 = rudue To rudue
For p3 = 1 To 5
es2 = Estratto(i + 1,ru2,p3)
If es1 = es2 Then
ct2 = ct2 + 1
ColoreTesto 0
Scrivi Ini & " / " & Ini + 1 & " 2° estratto n° " & es1 & " a " & NomeRuota(r1) & " riestrato a " & NomeRuota(rudue) & " n° " & es2
ColoreTesto 1
End If
Next
Next
Next
Scrivi
ColoreTesto 1
Scrivi"volte che si è ripetuto il 3° estratto di " & NomeRuota(r1) & " nell'estrazione sucessiva nella ruota di " & NomeRuota(rudue),1
ColoreTesto 0
Scrivi
Ini = cip
For Ini = Ini + 1 To 10274
es1 = Estratto(Ini,1,3)
i = Ini
For ru2 = rudue To rudue
For p4 = 1 To 5
es2 = Estratto(i + 1,ru2,p4)
If es1 = es2 Then
ct2 = ct2 + 1
ColoreTesto 0
Scrivi Ini & " / " & Ini + 1 & " 3° estratto n° " & es1 & " a " & NomeRuota(r1) & " riestrato a " & NomeRuota(rudue) & " n° " & es2
ColoreTesto 0
End If
Next
Next
Next
Scrivi
ColoreTesto 1
Scrivi"volte che si è ripetuto il 4° estratto di " & NomeRuota(r1) & " nell'estrazione sucessiva nella ruota di " & NomeRuota(rudue),1
ColoreTesto 0
Scrivi
Ini = cip
For Ini = Ini + 1 To 10274
es1 = Estratto(Ini,1,4)
i = Ini
For ru2 = rudue To rudue
For p5 = 1 To 5
es2 = Estratto(i + 1,ru2,p5)
If es1 = es2 Then
ct2 = ct2 + 1
ColoreTesto 0
Scrivi Ini & " / " & Ini + 1 & " 4° estratto n° " & es1 & " a " & NomeRuota(r1) & " riestrato a " & NomeRuota(rudue) & " n° " & es2
ColoreTesto 0
End If
Next
Next
Next
Scrivi
ColoreTesto 1
Scrivi"volte che si è ripetuto il 5° estratto di " & NomeRuota(r1) & " nell'estrazione sucessiva nella ruota di " & NomeRuota(rudue),1
ColoreTesto 0
Scrivi
Ini = cip
For Ini = Ini + 1 To 10274
es1 = Estratto(Ini,1,5)
i = Ini
For ru2 = rudue To rudue
For p6 = 1 To 5
es2 = Estratto(i + 1,ru2,p6)
If es1 = es2 Then
ct2 = ct2 + 1
ColoreTesto 0
Scrivi Ini & " / " & Ini + 1 & " 5° estratto n° " & es1 & " a " & NomeRuota(r1) & " riestrato a " & NomeRuota(rudue) & " n° " & es2
ColoreTesto 0
End If
Next
Next
Next
Scrivi
Scrivi
Scrivi "le totali ripetizioni dei 5 estratti sono " & ct2 & " volte ",1
End Sub

trivellatomariotretre33 · 2 Agosto 2023

?..................................

trivellatomariotretre33 · 4 Agosto 2023

BUONGIONO COME MAI NESSUNO PUO QUESTA MODIFICA ?
aggiungere id mensile a scelta
e colpi a scelta .
--------------------- ?????????

salvo50 · 4 Agosto 2023

Ciao a Tutti

Ciao Trivellato

Ho inserito solo la scelta dell'Indice Mensile,
per i colpi non ho idea di come fare.

Codice:

Option Explicit
Sub Main
   Dim Ini,fine,ct,retestratti,retidestr,nu,j,r1,ru2,rudue,p2,p3,p4,p5,p6,es2,es1,i,ct2
   Dim an(1),ar(10),dati(10,5),cip,IndMens
   cip = 1
   IndMens = CInt(InputBox("Inserire il numero dell'indice mensile",,1))

   r1 = 1 ' <-------------- 1^ ruota
   rudue = 12 ' <---------- 2^ ruota
   Ini = cip
   fine = EstrazioneFin
   For j = 1 To 1
      ar(j) = j
   Next
   For Ini = Ini + 1 To fine
      If IndiceMensile(Ini) = IndMens Then
         nu = Estratto(Ini,r1,1)
         If nu > 0 Then
         an(1) = nu
         Call VerificaEsitoTurbo(an,ar,Ini + 1,1,1,,,,retestratti,retidestr)
         If retestratti <> "" Then ct = ct + 1
        
         End If
      End If
   Next
   Scrivi Space(15) & " Indice Mensile Scelto " & Format2(IndMens)& Space(15),1,,4,,5,,1
   Scrivi
   ColoreTesto 1
   Scrivi"volte che si è ripetuto il 1° estratto di " & NomeRuota(r1) & " nell'estrazione sucessiva nella ruota di " & NomeRuota(rudue),1
   ColoreTesto 0
   Scrivi
   Ini = cip
   For Ini = Ini + 1 To fine
      If IndiceMensile(Ini) = IndMens Then
      'If IsUltimaDelMese (Ini) then
         es1 = Estratto(Ini,r1,1)
         If es1 > 0 Then
         i = Ini
         For ru2 = rudue To rudue
            For p2 = 1 To 5
               es2 = Estratto(i + 1,ru2,p2)
               If es1 = es2 Then
                  ct2 = ct2 + 1
                  Scrivi Ini & " / " & Ini + 1 & " 1° estratto n° " & es1 & " a " & NomeRuota(r1) & " riestrato a " & NomeRuota(rudue) & " n° " & es2
               End If
            Next
         Next
         End If
      End If
   Next
   Scrivi
   ColoreTesto 1
   Scrivi"volte che si è ripetuto il 2° estratto di " & NomeRuota(r1) & " nell'estrazione sucessiva nella ruota di " & NomeRuota(rudue),1
   ColoreTesto 0
   Scrivi
   Ini = cip
   For Ini = Ini + 1 To fine
      If IndiceMensile(Ini) = IndMens Then
         es1 = Estratto(Ini,r1,2)
         If es1 > 0 Then
         i = Ini
         For ru2 = rudue To rudue
            For p3 = 1 To 5
               es2 = Estratto(i + 1,ru2,p3)
               If es1 = es2 Then
                  ct2 = ct2 + 1
                  ColoreTesto 0
                  Scrivi Ini & " / " & Ini + 1 & " 2° estratto n° " & es1 & " a " & NomeRuota(r1) & " riestrato a " & NomeRuota(rudue) & " n° " & es2
                  ColoreTesto 1
               End If
            Next
         Next
         End If
      End If
   Next
   Scrivi
   ColoreTesto 1
   Scrivi"volte che si è ripetuto il 3° estratto di " & NomeRuota(r1) & " nell'estrazione sucessiva nella ruota di " & NomeRuota(rudue),1
   ColoreTesto 0
   Scrivi
   Ini = cip
   For Ini = Ini + 1 To fine
      If IndiceMensile(Ini) = IndMens Then
         es1 = Estratto(Ini,1,3)
         If es1 > 0 Then
         i = Ini
         For ru2 = rudue To rudue
            For p4 = 1 To 5
               es2 = Estratto(i + 1,ru2,p4)
               If es1 = es2 Then
                  ct2 = ct2 + 1
                  ColoreTesto 0
                  Scrivi Ini & " / " & Ini + 1 & " 3° estratto n° " & es1 & " a " & NomeRuota(r1) & " riestrato a " & NomeRuota(rudue) & " n° " & es2
                  ColoreTesto 0
               End If
            Next
         Next
         End If
      End If
   Next
   Scrivi
   ColoreTesto 1
   Scrivi"volte che si è ripetuto il 4° estratto di " & NomeRuota(r1) & " nell'estrazione sucessiva nella ruota di " & NomeRuota(rudue),1
   ColoreTesto 0
   Scrivi
   Ini = cip
   For Ini = Ini + 1 To fine
      If IndiceMensile(Ini) = IndMens Then
         es1 = Estratto(Ini,1,4)
         If es1 > 0 Then
         i = Ini
         For ru2 = rudue To rudue
            For p5 = 1 To 5
               es2 = Estratto(i + 1,ru2,p5)
               If es1 = es2 Then
                  ct2 = ct2 + 1
                  ColoreTesto 0
                  Scrivi Ini & " / " & Ini + 1 & " 4° estratto n° " & es1 & " a " & NomeRuota(r1) & " riestrato a " & NomeRuota(rudue) & " n° " & es2
                  ColoreTesto 0
               End If
            Next
         Next
         End If
      End If
   Next
   Scrivi
   ColoreTesto 1
   Scrivi"volte che si è ripetuto il 5° estratto di " & NomeRuota(r1) & " nell'estrazione sucessiva nella ruota di " & NomeRuota(rudue),1
   ColoreTesto 0
   Scrivi
   Ini = cip
   For Ini = Ini + 1 To fine
      If IndiceMensile(Ini) = IndMens Then
         es1 = Estratto(Ini,1,5)
         If es1 > 0 Then
         i = Ini
         For ru2 = rudue To rudue
            For p6 = 1 To 5
               es2 = Estratto(i + 1,ru2,p6)
               If es1 = es2 Then
                  ct2 = ct2 + 1
                  ColoreTesto 0
                  Scrivi Ini & " / " & Ini + 1 & " 5° estratto n° " & es1 & " a " & NomeRuota(r1) & " riestrato a " & NomeRuota(rudue) & " n° " & es2
                  ColoreTesto 0
               End If
            Next
         Next
         End If
      End If
   Next
   Scrivi
   Scrivi
   Scrivi "le totali ripetizioni dei 5 estratti sono " & ct2 & " volte ",1
End Sub

trivellatomariotretre33 · 4 Agosto 2023

Grazie di cuore Salvo50
ti invio una stretta di mano chilometrica.

Cerca

Cerca

Per Salvo Mike o altri x Modifica

trivellatomariotretre33

Super Member >PLATINUM<

trivellatomariotretre33

Super Member >PLATINUM<

trivellatomariotretre33

Super Member >PLATINUM<

salvo50

Advanced Member >PLATINUM PLUS<

trivellatomariotretre33

Super Member >PLATINUM<

Ultima estrazione Lotto

Ultimi Messaggi