Script

[scarfacetony]

Buona serata a tutti,per tanti di voi sarà più semplice di bere un bicchiere di acqua,per me invece ho provato con L8 prime versioni ci sono riuscito,con Spaziometria non riesco.
Si tratterebbe di fare uno script di questo metodino

prima estrazione del mese

primo di NAPOLI +21
primo di NAPOLI +61

I due risultati x ambata,ambo,ambetto su Nazionale

Grazie mille a tutti per l'attenzione,buon fine settimana

 

[Pandit]

Non so se Ti può andare bene, ho aggiunto anche Napoli :

Anticipazione (Spoiler)

Option Explicit
Sub Main
' Script by Pandit per Scarfacetony da una sua idea
Dim es,Ruote(12),Nu(8),Posta(4)
Dim a,b,xa,k,x,x1,Ini,fin,poste(2)
Ruote(1) = 6: Ruote(2) = 12
Posta(1) = 1
Posta(2) = 1
poste(2) = 1
x1 = CInt(InputBox("Quante estrazioni di controllo?",,500))'
x = CInt(InputBox("Quanti colpi di gioco?",,9))'
k = x
Ini = EstrazioneFin - x1
fin = EstrazioneFin
For es = Ini To fin
Messaggio es
If IndiceMensile(es) = 1 Then
a = Fuori90(Estratto(es,6,1) + 21)
b = Fuori90(a + 61)
Nu(1) = a
Nu(2) = b
EliminaRipetuti Nu
ColoreTesto 1:Scrivi String(95,152)
Scrivi DataEstrazione(es) & " - " & SiglaRuota(1) & " - " & StringaEstratti(es,1) & " - " & SiglaRuota(1) & " -> " & CInt(a) & " -> " & CInt(b),1
ColoreTesto 1:Scrivi String(52,152)
ImpostaGiocata xa,Nu,Ruote,Posta,k
Gioca es,1
ColoreTesto 1:Scrivi " ---- AMBETTI ----",1
Scrivi
Nu(1) = a
Nu(2) = Fuori90(b + 1)
xa = xa + 1
ImpostaGiocata xa,Nu,Ruote,poste,k
Nu(1) = a
Nu(2) = Fuori90(90 + b - 1)
xa = xa + 1
ImpostaGiocata xa,Nu,Ruote,poste,k
Nu(1) = Fuori90(a + 1)
Nu(2) = b
xa = xa + 1
ImpostaGiocata xa,Nu,Ruote,poste,k
Nu(1) = Fuori90(90 + a - 1)
Nu(2) = b
xa = xa + 1
ImpostaGiocata xa,Nu,Ruote,poste,k
Gioca es,1
End If
Next
ScriviResoconto
End Sub

 

[mastrogino]

Non so se Ti può andare bene, ho aggiunto anche Napoli :

Anticipazione (Spoiler)

Option Explicit
Sub Main
' Script by Pandit per Scarfacetony da una sua idea
Dim es,Ruote(12),Nu(8),Posta(4)
Dim a,b,xa,k,x,x1,Ini,fin,poste(2)
Ruote(1) = 6: Ruote(2) = 12
Posta(1) = 1
Posta(2) = 1
poste(2) = 1
x1 = CInt(InputBox("Quante estrazioni di controllo?",,500))'
x = CInt(InputBox("Quanti colpi di gioco?",,9))'
k = x
Ini = EstrazioneFin - x1
fin = EstrazioneFin
For es = Ini To fin
Messaggio es
If IndiceMensile(es) = 1 Then
a = Fuori90(Estratto(es,6,1) + 21)
b = Fuori90(a + 61)
Nu(1) = a
Nu(2) = b
EliminaRipetuti Nu
ColoreTesto 1:Scrivi String(95,152)
Scrivi DataEstrazione(es) & " - " & SiglaRuota(1) & " - " & StringaEstratti(es,1) & " - " & SiglaRuota(1) & " -> " & CInt(a) & " -> " & CInt(b),1
ColoreTesto 1:Scrivi String(52,152)
ImpostaGiocata xa,Nu,Ruote,Posta,k
Gioca es,1
ColoreTesto 1:Scrivi " ---- AMBETTI ----",1
Scrivi
Nu(1) = a
Nu(2) = Fuori90(b + 1)
xa = xa + 1
ImpostaGiocata xa,Nu,Ruote,poste,k
Nu(1) = a
Nu(2) = Fuori90(90 + b - 1)
xa = xa + 1
ImpostaGiocata xa,Nu,Ruote,poste,k
Nu(1) = Fuori90(a + 1)
Nu(2) = b
xa = xa + 1
ImpostaGiocata xa,Nu,Ruote,poste,k
Nu(1) = Fuori90(90 + a - 1)
Nu(2) = b
xa = xa + 1
ImpostaGiocata xa,Nu,Ruote,poste,k
Gioca es,1
End If
Next
ScriviResoconto
End Sub

ciao a tutti chiedo come modificare l'estrazione non in base al 1° del mese ma ad ogni estrazione
credo che la riga sia questa !

x1 = CInt(InputBox("Quante estrazioni di controllo?",,200))'
x = CInt(InputBox("Quanti colpi di gioco?",,20))'
k = x
Ini = EstrazioneFin - x1
fin = EstrazioneFin

 

[Pandit]

devi togliere :
If IndiceMensile(es) = 1 Then
e
End If
alla fine, ma diminuisci le estrazioni di controllo, perchè
altrimenti solo per vederle ci impieghi mezzora.

 

[mastrogino]

devi togliere :
If IndiceMensile(es) = 1 Then
e
End If
alla fine, ma diminuisci le estrazioni di controllo, perchè
altrimenti solo per vederle ci impieghi mezzora.

grazie sempre gentilissimo

 

[claudio8]

Riscritto l'algoritmo.

Option Explicit
Sub Main
     ' Script by Pandit per Scarfacetony da una sua idea
     Dim es,Ruote(12),Nu(8),Posta(4),poste(2)
     Dim a,b,xa,k,x,x1,Ini,fin,i_Mese,r_Ricerca,r_Esito,pos,caso
     Posta(1) = 1  ' Ambata
     Posta(2) = 1  ' ambo
     poste(2) = 0.25  ' ambo da Ambetto
     x1 = CInt(InputBox("Quante estrazioni di controllo?",,500) - 1)'
     x = CInt(InputBox("Quanti colpi di gioco?",,9))'
     i_Mese = CInt(InputBox("Indice Mese?",,1))
     r_Ricerca = InputBox("Ruota di ricerca? BA=1 ...  NZ=12 ",,6)
     pos = InputBox("Posiz estratto di ricerca? 1... 5 ",,1)
     r_Esito = InputBox("Ruota di verifica esito? ",,12)
     k = x
     Ruote(1) = r_Ricerca
     Ruote(2) = r_Esito

     Ini = EstrazioneFin - x1
     fin = EstrazioneFin
     For es = Ini To fin
          Messaggio NomeRuota(r_Ricerca) & " - " & es
          If IndiceMensile(es) = i_Mese Then ' remmare se non si usa IndiceMensile
          caso = caso + 1
               a = Fuori90(Estratto(es,r_Ricerca,pos) + 21) ' 1a ambata
               b = Fuori90(Estratto(es,r_Ricerca,pos) + 61) ' 2a ambata
               Nu(1) = a
               Nu(2) = b
               '' EliminaRipetuti Nu
               ColoreTesto 1 ' ":" evitarne  l'uso per non complicare la lettura altrui
               Scrivi String(95,155) & " caso n° " & caso
               Scrivi DataEstrazione(es) & " - " & SiglaRuota(r_Ricerca) & " - " & StringaEstratti(es,r_Ricerca) & " in gioco -> " & CInt(a) & " -> " & CInt(b),1
               ColoreTesto 1
               Scrivi String(52,152)
               xa = 0
               ImpostaGiocata  xa,Nu,Ruote,Posta,k
               Gioca  es,1,,1
               ColoreTesto 1
               Scrivi " ---- AMBETTI ----",1
               Scrivi
               Nu(1) = a
               Nu(2) = Fuori90(b + 1)
               xa = xa + 1
               ImpostaGiocata xa,Nu,Ruote,poste,k
               Nu(1) = a
               Nu(2) = Fuori90(90 + b - 1)
               xa = xa + 1
               ImpostaGiocata xa,Nu,Ruote,poste,k
               Nu(1) = Fuori90(a + 1)
               Nu(2) = b
               xa = xa + 1
               ImpostaGiocata xa,Nu,Ruote,poste,k
               Nu(1) = Fuori90(90 + a - 1)
               Nu(2) = b
               xa = xa + 1
               ImpostaGiocata xa,Nu,Ruote,poste,k
               Gioca es,1,,1

          End If ' remmare anche questa riga se non si usa IndiceMensile
     Next
     ScriviResoconto
End Sub

 

[Pandit]

Grazie Claudio, sempre preciso..
non si finisce mai di Imparare e migliorare..