Novità

PER FAVORE UNA MODIFICA

salvo50 ha scritto:
Lo script è da riprendere ho modificato in modo che le ruote giocate corrispondono
alla famiglia della ruota appartenente
Clicca per espandere...
scusa salvo, se lo script c'è l'hai ancora, postalo.

era interessante vedere quella vecchia funzione iniziale mostrata dallo script di Mastrogino

che fu soppiantata da una altra più "concisa"che ne racchiudeva l'essenza

i vari modi di ragionare, dal mio rudimentale ad altri più elaborati è molto interessante da visionare per i neofiti
hai capito dove vorrei andare a parare?

Dimostrare che per elaborare uno script, non c'è un "Unico" modo (dipende dall'algoritmo elaborato dallo scripter)

so che per molti questo è Lingua Ostrogota...ci si prova...

Ripeto, io non sono uno scripter, non ho seguito alcuna lezione, non c'ero...
leggo, e cerco di capire con le piccole reminiscenze del basic C64
 
Ciao Baffo, lo script è quello del post 9, se ti riferisci a quello che c'era prima che lo modificassi
è sempre quello, solo che prima invece di cercare nelle tre famiglie (come li chiama Mastrogino)
la ricerca la facevo solo nelle 4 ruote che aveva scritto Mastrogino BA MI NA VE

Neanche io sono uno scripter, tu mi sopravvaluti.
 
Ciao BaffoBlù

Il Basic ... tutto sommato è lo stesso.

E' un linguaggio come lo è il latino per le lingue latine o lo è il Greco anch'esso ancora presente,

e modificato in molti casi del nostro italiano.

Da esso derivano "dialetti" simili e che spesso sono versioni modificate del Linguaggio Basic.

Nel caso di spaziometria ed in questo nello specifico è stata aggiunta una funzione

per calcolare la piramide.

Se non sbaglio quello che chiedi è al primo messaggio.

:)
 
Ultima modifica:
salvo50 ha scritto:
Ciao Baffo, lo script è quello del post 9, se ti riferisci a quello che c'era prima che lo modificassi
è sempre quello, solo che prima invece di cercare nelle tre famiglie (come li chiama Mastrogino)
la ricerca la facevo solo nelle 4 ruote che aveva scritto Mastrogino BA MI NA VE

Neanche io sono uno scripter, tu mi sopravvaluti.
Clicca per espandere...
he he he , ma tu ne hai fatti miliardi di script....

sei tu che ti sottovaluti...:)
 
joe ha scritto:
Ciao BaffoBlù

Il Basic ... tutto sommato è lo stesso.

E' un linguaggio come lo è il latino per le lingue latine o lo è il Greco anch'esso ancora presente,

e modificato in molti casi del nostro italiano.

Da esso derivano "dialetti" simili e che spesso sono versioni modificate del Linguaggio Basic.

Nel caso di spaziometria ed in questo nello specifico è stata aggiunta una funzione

per calcolare la piramide.

Se non sbaglio quello che chiedi è al primo messaggio.

:)
Clicca per espandere...
si lo so benissimo, e quello che mi è entrato in testa è entrato, il resto lo spingo (cerco),
il rimanente e quella parte ostica perché alcuni basi mancano...(non ho più l'eta...ci provo soltanto...)

io ero/sono affascinato dalle funzioni che adesso sono incorporate e si riducono ad una semplice "Frase".

Un tempo era una lotta per "costruire" in Basic una funzione, a volte ci volevano un interminabile numero di linee.

If, Then, GoTo, GoSub e ritorno...(che tempi...)

momento nostalgia:ROFLMAO::ROFLMAO::ROFLMAO:
 
BUONGIORNO A TUTTI VOI E BUONA FESTA ,
VI VORREI CHIEDERVI A CHI E DISPOSTO A INSERIRE UN PICCOLO MODIFICA AL GIA' BEN FATTO LISTATO
SI POTREBBE METTERE LA SOMMA DEI 5 ESTRATTI , COME LA SOMMA DEI 5 NUMERI SVOLTI IN PIRAMIDAZIONE
COME DA ESEMPIO SEGNATO IN ROSSO


48 + 35 + 21 + 22 + 71 = 17 <-- Ambata uguale alla somma dei 5 cuspidi
Estrazione n.10442 del 21.05.2024 BA 54.50.84.64.62 = 44

Estrazione generatrice del pronostico 10442 [ 81 - 21/05/2024]
G 0001 Numeri in gioco : 17 su BA MI NA VE per Estratto
V N. [17 ] [BA] [.. .. .. 17 ..] C. 5 Estratto 10447 [ 86 - 30/05/2024]
 
più che una modifica è uno script a parte, na fesseria...

Codice: 
Option Explicit
Sub Main()
   Dim ruota(10)
   Dim Ini,Fin,Es,R,P,a,ok,co
   Dim Nu(1),Posta(1),Clp
   Posta(1) = 1
   Clp = 13
   R = CInt(InputBox(" Scegli la ruota ",,"1"))
   Ini = 10323
   Fin = EstrazioneFin
   ok = 0
   co = 0
   For Es = Ini To Fin
      Messaggio "elab. estr. [" &(Es) & "] di " & DataEstrazione(Es,1)
      Call AvanzamentoElab(Ini,Fin,Es)
      a = SommaEstratti(Es,R)
      Nu(1) = Fuori90(a)
      If R = 1 Or R = 5 Or R = 6 Or R = 10 Then
         ruota(1) = 1
         ruota(2) = 5
         ruota(3) = 6
         ruota(4) = 10
         ok = 1
      End If
      If R = 2 Or R = 4 Or R = 7 Or R = 9 Then
         ruota(1) = 2
         ruota(2) = 4
         ruota(3) = 7
         ruota(4) = 9
         ok = 1
      End If
      If R = 3 Or R = 8 Then
         ruota(1) = 3
         ruota(2) = 8
         ok = 1
      End If
      If ok = 1 Then
         co = co + 1
         Scrivi String(100,"°") & " Caso n°" & co,1
         Scrivi DataEstrazione(Es) & " -- " & SiglaRuota(R) & " - " & StringaEstratti(Es,R) & " ** Somma " & a & " * Ambata :" & Format2(Nu(1)),1
         Scrivi String(100,"°"),1
         ImpostaGiocata 1,Nu,ruota,Posta,Clp
         Gioca Es,1
      End If
   Next
   Scrivi String(100,"*")
   ColoreTesto 2
   Scrivi" casi trovati : " & co,1
   ColoreTesto 0
   Scrivi String(100," * ")
   ScriviResoconto
End Sub
 
BaffoBlù ha scritto:
più che una modifica è uno script a parte, na fesseria...

Codice: 
Option Explicit
Sub Main()
   Dim ruota(10)
   Dim Ini,Fin,Es,R,P,a,ok,co
   Dim Nu(1),Posta(1),Clp
   Posta(1) = 1
   Clp = 13
   R = CInt(InputBox(" Scegli la ruota ",,"1"))
   Ini = 10323
   Fin = EstrazioneFin
   ok = 0
   co = 0
   For Es = Ini To Fin
      Messaggio "elab. estr. [" &(Es) & "] di " & DataEstrazione(Es,1)
      Call AvanzamentoElab(Ini,Fin,Es)
      a = SommaEstratti(Es,R)
      Nu(1) = Fuori90(a)
      If R = 1 Or R = 5 Or R = 6 Or R = 10 Then
         ruota(1) = 1
         ruota(2) = 5
         ruota(3) = 6
         ruota(4) = 10
         ok = 1
      End If
      If R = 2 Or R = 4 Or R = 7 Or R = 9 Then
         ruota(1) = 2
         ruota(2) = 4
         ruota(3) = 7
         ruota(4) = 9
         ok = 1
      End If
      If R = 3 Or R = 8 Then
         ruota(1) = 3
         ruota(2) = 8
         ok = 1
      End If
      If ok = 1 Then
         co = co + 1
         Scrivi String(100,"°") & " Caso n°" & co,1
         Scrivi DataEstrazione(Es) & " -- " & SiglaRuota(R) & " - " & StringaEstratti(Es,R) & " ** Somma " & a & " * Ambata :" & Format2(Nu(1)),1
         Scrivi String(100,"°"),1
         ImpostaGiocata 1,Nu,ruota,Posta,Clp
         Gioca Es,1
      End If
   Next
   Scrivi String(100,"*")
   ColoreTesto 2
   Scrivi" casi trovati : " & co,1
   ColoreTesto 0
   Scrivi String(100," * ")
   ScriviResoconto
End Sub
Clicca per espandere...
GRAZIE MILLE BAFFO SCUSAMI SE SBAGLIO MA NON DA LA SOMMA DEI CUSPIDI ?
48 + 35 + 21 + 22 + 71 = 17 <-- Ambata uguale alla somma dei 5 cuspidi
ACCANTO DOVREBBE DARE LA SOMMA DEI 5 ESTRATTI DEL CALCOLO
Estrazione n.10442 del 21.05.2024 BA 54.50.84.64.62 = 44

NON HA IMPORTANZA CHE METTE IN PREV , IL 44
L'AMBATA IN GIOCO E IL 17

MI SERVE PER TENERE D'OCCHIO LA SOMMA DEI 5 ESTRATTI PER NON FARE I CALCOLI OGNI VOLTA
E ANCHE DI NON TROVARLO TRA I CUSPITI
GRAZIE X LA RISPOSTA
 
scusa devo aver interpretato male.

tu vuoi solo visionare "a parte" la somma dei 5 estratti? giusto?




Codice: 
Option Explicit
Sub Main()
   Dim ruota(1)
   Dim Ini,Fin,Es,R,P,Nr(5),a,b
   Dim Chiave,T,Nu(1),Ru,Posta(1),Clp
   Posta(1) = 1 : Clp = 13
   Chiave = Array(0,281,372,463,554,645)
   ColoreTesto 2
   Scrivi String(75,"*")
   ColoreTesto 1
   Scrivi String(30," ") & "<<< Piramide >>>" & String(15," "),1
   ColoreTesto 2
   Scrivi String(75,"*")
   ColoreTesto 0
   R = CInt(InputBox(" Scegli la ruota ",,"1"))
   Ini = 10323
   Fin = EstrazioneFin
   For Es = Ini To Fin
      a = SommaEstratti(Es,R)
      b = Fuori90(a)
      T = 0
      For P = 1 To 5
         Nr(P) = Piramide(Estratto(Es,R,P) * 1000 + Chiave(P),,2)
         T = T + Nr(P)
      Next
      Scrivi " " & StringaNumeri(Nr," + ",True),1,0,,,2
      Nu(1) = Fuori90(T)
      Scrivi " = " & Format2(T),1
      Scrivi " Sooma 5 estratti : " & a & " Fuori 90 : " & Format2(b),1,,,1
      Scrivi String(75,"_"),1
      If R = 1 Or R = 5 Or R = 6 Or R = 10 Then Ru = Array(0,BA_,MI_,NA_,VE_)
      If R = 2 Or R = 4 Or R = 7 Or R = 9 Then Ru = Array(0,CA_,GE_,PA_,TO_)
      If R = 3 Or R = 8 Then Ru = Array(0,FI_,RO_)
      ImpostaGiocata 1,Nu,Ru,Posta,Clp
      Gioca Es,1
   Next
   ScriviResoconto
End Sub
 
Si esatto , come mi dà la somma dei cuspidi , il listato dia anche la somma dei 5 estratti, lo scopo di questo e vedere se c'è lo stesso numero in comune
 
Ciao a Tutti

Aggiunto la somma dei 5 estratti completa e col fuori 90 , accanto all'estrazione


Codice: 
Option Explicit
Sub Main
   Dim Fin,Clp,Ini,Es,R1,Caso,Casi,P1
   Dim BaseA,BaseB,BaseC,BaseD,BaseE
   Dim XA1,XA2,XA3,XA4,XA5,TotCusp
   Dim Cua1,Cua2,Cua3,Cua4,Cua5,Pir
   Dim Somma,Somma_F90
   Dim Amba(2),Ru,Posta(2),A(5)
   Posta(1) = 1
   Posta(2) = 1
   Fin = EstrazioneFin
   Ini = InputBox("Inserisci l'estrazione che vuoi iniziare",,10323)
   Clp = CInt(InputBox("Per quanti colpi vuoi fare la ricerca?",,13))
   Pir = InputBox("Vuoi visualizzare le piramidi? Metti 1 per SI, altro numero per NO ",,1)
   Call ScegliRange(Ini,Fin,Ini,Fin)
   Scrivi Space(1) & " Estratti Uniti a Chiavi Settenarie e Somma Cuspidi 2 - Script Salvo50",1,,4,,3,,1
   R1 = ScegliRuota
   For Es = Ini To Fin
      ' If IndiceMensile(Es) = 1 Then
      Caso = 0
      Somma = SommaEstratti(Es,R1)
      Somma_F90 = Fuori90(Somma)
      AvanzamentoElab Ini,Fin,Es
      For P1 = 1 To 5
         A(P1) = Estratto(Es,R1,P1)
      Next
      If A(1) > 0 Then
         BaseA = A(1) & 281
         BaseB = A(2) & 372
         BaseC = A(3) & 463
         BaseD = A(4) & 554
         BaseE = A(5) & 645
         For XA1 = 1 To Len(BaseA) - 2
            Cua1 =(Piramide(BaseA,XA1))
         Next
         For XA2 = 1 To Len(BaseB) - 2
            Cua2 =(Piramide(BaseB,XA2))
         Next
         For XA3 = 1 To Len(BaseC) - 2
            Cua3 =(Piramide(BaseC,XA3))
         Next
         For XA4 = 1 To Len(BaseD) - 2
            Cua4 =(Piramide(BaseD,XA4))
         Next
         For XA5 = 1 To Len(BaseE) - 2
            Cua5 =(Piramide(BaseE,XA5))
         Next
         TotCusp = Fuori90(90 + Cua1 + Cua2 + Cua3 + Cua4 + Cua5)
         Amba(1) = TotCusp : Amba(2) = Somma_F90
         Caso = Caso + 1
         Casi = Casi + 1
         Scrivi String(90,"*") & " Casi Totali " & FormattaStringa(Casi,"0000"),,,,1
         Scrivi String(80,"*") & " Estrazione " &(Es) & " caso " & FormattaStringa(Caso,"0000"),,,,2
         Scrivi(" Estrazione n." & Format2(Es) & " del " & DataEstrazione(Es)),1,0
         Scrivi "  " & SiglaRuota(R1) & " " & StringaEstratti(Es,R1),1,0
         Scrivi " Somma Estratti " & Format2(Somma),1,0,,1
         Scrivi " Col Fuori90 " & Format2(Somma_F90),1,,,2
         '
         If Pir = 1 Then
            Scrivi
            'Visualizzazione 1ª Piramide
            Scrivi Space(27) & Format2(BaseA),1,,,2,3
            For XA1 = 1 To Len(BaseA) - 2
               Scrivi Space(27) &(Piramide(BaseA,XA1)),1,,,,3
            Next
            Scrivi
            'Visualizzazione 2ª Piramide
            Scrivi Space(27) & Format2(BaseB),1,,,2,3
            For XA2 = 1 To Len(BaseB) - 2
               Scrivi Space(27) &(Piramide(BaseB,XA2)),1,,,,3
            Next
            Scrivi
            'Visualizzazione 3ª Piramide
            Scrivi Space(27) & Format2(BaseC),1,,,2,3
            For XA3 = 1 To Len(BaseC) - 2
               Scrivi Space(27) &(Piramide(BaseC,XA3)),1,,,,3
            Next
            Scrivi
            'Visualizzazione 4ª Piramide
            Scrivi Space(27) & Format2(BaseD),1,,,2,3
            For XA4 = 1 To Len(BaseD) - 2
               Scrivi Space(27) &(Piramide(BaseD,XA4)),1,,,,3
            Next
            Scrivi
            'Visualizzazione 5ª Piramide
            Scrivi Space(27) & Format2(BaseE),1,,,2,3
            For XA5 = 1 To Len(BaseE) - 2
               Scrivi Space(27) &(Piramide(BaseE,XA5)),1,,,,3
            Next
            Scrivi
         End If
         Scrivi
         Scrivi " " & Format2(Cua1) & " + " & Format2(Cua2) & " + " & Format2(Cua3),1,0
         Scrivi " + " & Format2(Cua4) & " + " & Format2(Cua5) & " = ",1,0
         Scrivi Format2(TotCusp),1,0,,2
         Scrivi " <-- Ambata uguale alla somma dei 5 cuspidi",1
         Scrivi
         If R1 = 1 Or R1 = 5 Or R1 = 6 Or R1 = 10 Then Ru = Array(0,BA_,MI_,NA_,VE_)
         If R1 = 2 Or R1 = 4 Or R1 = 7 Or R1 = 9 Then Ru = Array(0,CA_,GE_,PA_,TO_)
         If R1 = 3 Or R1 = 8 Then Ru = Array(0,FI_,RO_)
         ImpostaGiocata 1,Amba,Ru,Posta,Clp
         Gioca Es,1,,1
      End If
      'End If
   Next
   ScriviResoconto
End Sub
 
Ultima modifica:
BUONGIORNO VI VORREI NOTARE CHE IL LISTATO " FUSIONE " NON CORRISPONDE AI CALCOLI

SE I LISTATI VENGONO LANCIATI SEPARATAMENTE NON SUCEDE NULLA MA SE VENGONO LANCIATI INSIEME I NUMERI NON TORNANO
COME DA EAEMPIO QUI SOTTO VI INSERISCO IL LISTATO IN QUESTIONE

"" METODO + 4""
Estrazione generatrice del pronostico 10453 [ 92 - 08/06/2024]
G 0001 Numeri in gioco : 60.06 su GE PA per Estratto
In corso per altre 22 estrazioni


"" METODO DIVISO ""
Estrazione generatrice del pronostico 10453 [ 92 - 08/06/2024]
G 0001 Numeri in gioco : 39.33 su GE PA per Estratto
In corso per altre 22 estrazioni

"" METODO FUSIONE DEI 2 ""

Fusione Previsioni/Quartina : GE - PA * 39 - 33 - 32 - 23 *
°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°
Estrazione generatrice del pronostico 10453 [ 92 - 08/06/2024]
G 0001 Numeri in gioco : 39.33 su GE PA per Estratto
In corso per altre 22 estrazioni
G 0002 Numeri in gioco : 32.23 su GE PA per Estratto
In corso per altre 22 estrazioni
G 0003 Numeri in gioco : 39.33.32.23 su GE PA per Ambo
In corso per altre 22 estrazioni

Option Explicit
Sub Main
Dim Ini,fin,r1,r2,a,b,c,d,k,p1,co
Dim Nu(2),Ru(2),aNum(2),posta(1),poste(2),colpi,es
Dim Nu1(2),Ru1(2),aNum1(2)
Dim Nk(4)
colpi = 22
posta(1) = 1
poste(2) = 1
Ini = EstrazioneFin - 90
fin = EstrazioneFin
co = 0
For es = Ini To fin
Messaggio "elab. estr. [" &(es) & "] di " & DataEstrazione(es,1)
Call AvanzamentoElab(Ini,fin,es)
For r1 = 1 To 9
For r2 = r1 + 1 To 10
For p1 = 1 To 5
a = Estratto(es,r1,p1)
b = Estratto(es,r2,p1)
If a = b Then
k = k + 1
Nu(1) = a : Nu(2) = b
Ru(1) = r1 : Ru(2) = r2
aNum(1) = Fuori90(Nu(1) + Nu(2) / 4 + 4)
aNum(2) = Vert(aNum(1))
c = Estratto(es,r1,p1)
d = Estratto(es,r2,p1)
If c = d Then
k = k + 1
Nu1(1) = c : Nu(2) = d
Ru(1) = r1 : Ru(2) = r2
aNum1(1) = Fuori90(Nu1(1) + Nu1(2) + 4)
aNum1(2) = Vert(aNum1(1))
Nk(1) = aNum(1)
Nk(2) = aNum(2)
Nk(3) = aNum1(1)
Nk(4) = aNum1(2)
co = co + 1
Scrivi String(100,"°") & " Caso n°" & co,1
Scrivi DataEstrazione(es) & " - " & SiglaRuota(r1) & " - " & StringaEstratti(es,r1) & " * " & SiglaRuota(r2) & " - " & StringaEstratti(es,r2) & " * ",1
Scrivi String(60,"-"),1
Scrivi "1° Metodo Ambate : " & Format2(aNum(1)) & " - " & Format2(aNum(2)) & " a " & SiglaRuota(r1) & " - " & SiglaRuota(r2),1,,,1,2
Scrivi "2° Metodo Ambate : " & Format2(aNum1(1)) & " - " & Format2(aNum1(2)) & " a " & SiglaRuota(r1) & " - " & SiglaRuota(r2),1,,,1,2
Scrivi String(60,"-"),1
Scrivi "Fusione Previsioni/Quartina : " & SiglaRuota(r1) & " - " & SiglaRuota(r2) & " * " & Format2(aNum(1)) & " - " & Format2(aNum(2)) & " - " & Format2(aNum1(1)) & " - " & Format2(aNum1(2)) & " * ",1,,4,,2
Scrivi String(70,"°"),1
ImpostaGiocata 1,aNum,Ru,posta,colpi
ImpostaGiocata 2,aNum1,Ru,posta,colpi
ImpostaGiocata 3,Nk,Ru,poste,colpi
Gioca es,1,,1
End If
If ScriptInterrotto Then Exit For
End If
Next
Next
Next
Next
Call ScriviDistribuzioneCasiInCorso(True,"1,2,3,4,5,6,7,8,9,10,11,12,13")' se la vuoi dopo remma qui e togli remmatura sotto
Scrivi String(100,"*")
ColoreTesto 2
Scrivi" casi trovati : " & co,1
ColoreTesto 0
Scrivi String(100," * ")
TestoInBandaPassante(" *** Idea di MastroGino e FusioneScript by BaffoBlù *** "),1,3,0
ScriviResoconto
Scrivi
'Call ScriviDistribuzioneCasiInCorso(True,"1,2,3,4,5,6,7,8,9,10,11,12,13")' se la vuoi dopo togli la remmatura qui
End Sub
 
SICURAMENTE LA CONFUSIONE LO CREATO IO , MA NON SO COME USCIRNE
INSERISCO I DUE LISTATI

""METODO /4 +4""

Sub Main
Dim Nu(2),Ru(2),aNum(2),posta(1),colpi,es
colpi = 22
posta(1) = 1
Ini = EstrazioneFin - 90
fin = EstrazioneFin

For es = Ini To fin
For r1 = 1 To 9
For r2 = r1 + 1 To 10
For p1 = 1 To 5
a = Estratto(es,r1,p1)
b = Estratto(es,r2,p1)
If a = b Then ' numeri uguali
k = k + 1
Nu(1) = a : Nu(2) = b
Ru(1) = r1 : Ru(2) = r2
aNum(1) = Fuori90(Nu(1) + Nu(2) / 4 + 4)
aNum(2) = Vert(aNum(1))
ImpostaGiocata 1,aNum,Ru,posta,colpi
Gioca es,1
End If
Next
Next
Next
Call AvanzamentoElab(1,EstrazioneFin,es)
Next
ScriviResoconto
Scrivi
Call ScriviDistribuzioneCasiInCorso(True,"1,2,3,4,5,6,7,8,9,10,11,12,13")
End Sub

""METODO +4""

Sub Main
Dim Nu(2),Ru(2),aNum(2),posta(1),colpi,es
colpi = 22
posta(1) = 1
Ini = EstrazioneFin - 90
fin = EstrazioneFin

For es = Ini To fin
For r1 = 1 To 9
For r2 = r1 + 1 To 10
For p1 = 1 To 5
a = Estratto(es,r1,p1)
b = Estratto(es,r2,p1)
If a = b Then ' numeri uguali
k = k + 1
Nu(1) = a : Nu(2) = b
Ru(1) = r1 : Ru(2) = r2
aNum(1) = Fuori90(Nu(1) + Nu(2) + 4)
aNum(2) = Vert(aNum(1))
ImpostaGiocata 1,aNum,Ru,posta,colpi,1
Gioca es
End If
Next
Next
Next
Call AvanzamentoElab(1,EstrazioneFin,es)
Next
ScriviResoconto
Scrivi
Call ScriviDistribuzioneCasiInCorso(True,"1,2,3,4,5,6,7,8,9,10,11,12,13")
End Sub
 
mastrogino ha scritto:
SICURAMENTE LA CONFUSIONE LO CREATO IO , MA NON SO COME USCIRNE
INSERISCO I DUE LISTATI

""METODO /4 +4""

Sub Main
Dim Nu(2),Ru(2),aNum(2),posta(1),colpi,es
colpi = 22
posta(1) = 1
Ini = EstrazioneFin - 90
fin = EstrazioneFin

For es = Ini To fin
For r1 = 1 To 9
For r2 = r1 + 1 To 10
For p1 = 1 To 5
a = Estratto(es,r1,p1)
b = Estratto(es,r2,p1)
If a = b Then ' numeri uguali
k = k + 1
Nu(1) = a : Nu(2) = b
Ru(1) = r1 : Ru(2) = r2
aNum(1) = Fuori90(Nu(1) + Nu(2) / 4 + 4)
aNum(2) = Vert(aNum(1))
ImpostaGiocata 1,aNum,Ru,posta,colpi
Gioca es,1
End If
Next
Next
Next
Call AvanzamentoElab(1,EstrazioneFin,es)
Next
ScriviResoconto
Scrivi
Call ScriviDistribuzioneCasiInCorso(True,"1,2,3,4,5,6,7,8,9,10,11,12,13")
End Sub

""METODO +4""

Sub Main
Dim Nu(2),Ru(2),aNum(2),posta(1),colpi,es
colpi = 22
posta(1) = 1
Ini = EstrazioneFin - 90
fin = EstrazioneFin

For es = Ini To fin
For r1 = 1 To 9
For r2 = r1 + 1 To 10
For p1 = 1 To 5
a = Estratto(es,r1,p1)
b = Estratto(es,r2,p1)
If a = b Then ' numeri uguali
k = k + 1
Nu(1) = a : Nu(2) = b
Ru(1) = r1 : Ru(2) = r2
aNum(1) = Fuori90(Nu(1) + Nu(2) + 4)
aNum(2) = Vert(aNum(1))
ImpostaGiocata 1,aNum,Ru,posta,colpi,1
Gioca es
End If
Next
Next
Next
Call AvanzamentoElab(1,EstrazioneFin,es)
Next
ScriviResoconto
Scrivi
Call ScriviDistribuzioneCasiInCorso(True,"1,2,3,4,5,6,7,8,9,10,11,12,13")
End Sub
Clicca per espandere...

Scusa Mastrogino, non avevo capito che ti riferissi a quei metodi che hai postato da un altra parte.
Non centrano nulla con gli script richiesti qui all'inizio.

ecco perché la risposta ha tardato ad arrivare...

eccoti lo script "giusto" (scusa, si trattava di un semplice "1" mancante....)

Ti ho inserito la scelta del (L'elemento MastroGino) che ora è fisso a "4" (come da origine)
in caso tu volessi sbizzarrirti con altri (Elementi MastroGino...)...



Codice: 
Option Explicit
Sub Main
   Dim Ini,fin,r1,r2,a,b,c,d,k,p1,co,x
   Dim Nu(2),Ru(2),aNum(2),posta(1),poste(2),colpi,es
   Dim Nu1(2),Ru1(2),aNum1(2)
   Dim Nk(4)
   colpi = 22
   posta(1) = 1
   poste(2) = 1
   Ini = EstrazioneFin - 90
   fin = EstrazioneFin
   co = 0
   x = CInt(InputBox(" Inserisci l'Elemento MastroGino ",,"4"))
   For es = Ini To fin
      Messaggio "elab. estr. [" &(es) & "] di " & DataEstrazione(es,1)
      Call AvanzamentoElab(Ini,fin,es)
      For r1 = 1 To 9
         For r2 = r1 + 1 To 10
            For p1 = 1 To 5
               a = Estratto(es,r1,p1)
               b = Estratto(es,r2,p1)
               If a = b Then
                  k = k + 1
                  Nu(1) = a : Nu(2) = b
                  Ru(1) = r1 : Ru(2) = r2
                  aNum(1) = Fuori90(Nu(1) + Nu(2) / x + x)
                  aNum(2) = Vert(aNum(1))
                  c = Estratto(es,r1,p1)
                  d = Estratto(es,r2,p1)
                  If c = d Then
                     k = k + 1
                     Nu1(1) = c : Nu1(2) = d
                     Ru(1) = r1 : Ru(2) = r2
                     aNum1(1) = Fuori90(Nu1(1) + Nu1(2) + x)
                     aNum1(2) = Vert(aNum1(1))
                     Nk(1) = aNum(1)
                     Nk(2) = aNum(2)
                     Nk(3) = aNum1(1)
                     Nk(4) = aNum1(2)
                     co = co + 1
                     Scrivi String(100,"°") & " " & co,1
                     Scrivi DataEstrazione(es) & " - " & SiglaRuota(r1) & " - " & StringaEstratti(es,r1) & " * " & SiglaRuota(r2) & " - " & StringaEstratti(es,r2) & " * ",1
                     Scrivi String(60,"-"),1
                     Scrivi " " & Format2(aNum(1)) & " - " & Format2(aNum(2)) & " a " & SiglaRuota(r1) & " - " & SiglaRuota(r2),1,,,1,2
                     Scrivi " " & Format2(aNum1(1)) & " - " & Format2(aNum1(2)) & " a " & SiglaRuota(r1) & " - " & SiglaRuota(r2),1,,,1,2
                     Scrivi String(60,"-"),1
                     Scrivi " " & SiglaRuota(r1) & " - " & SiglaRuota(r2) & " * " & Format2(aNum(1)) & " - " & Format2(aNum(2)) & " - " & Format2(aNum1(1)) & " - " & Format2(aNum1(2)) & " * ",1,,4,,2
                     Scrivi String(70,"°"),1
                     ImpostaGiocata 1,aNum,Ru,posta,colpi
                     ImpostaGiocata 2,aNum1,Ru,posta,colpi
                     ImpostaGiocata 3,Nk,Ru,poste,colpi
                     Gioca es,1,,1
                  End If
                  If ScriptInterrotto Then Exit For
               End If
            Next
         Next
      Next
   Next
   Scrivi String(100,"*")
   ColoreTesto 2
   Scrivi" casi trovati : " & co,1
   ColoreTesto 0
   Scrivi String(100," * ")
   TestoInBandaPassante(" *** Idea di MastroGino e FusioneScript by BaffoBlù *** "),1,3,0
   ScriviResoconto,False
   Scrivi
   Call ScriviDistribuzioneCasiInCorso(True,"1,2,3,4,5,6,7,8,9,10,11,12,13")
End Sub
 
Ultima modifica:
BaffoBlù ha scritto:
Scusa Mastrogino, non avevo capito che ti riferissi a quei metodi che hai postato da un altra parte.
Non centrano nulla con gli script richiesti qui all'inizio.

ecco perché la risposta ha tardato ad arrivare...

eccoti lo script "giusto" (scusa, si trattava di un semplice "1" mancante....)

Ti ho inserito la scelta del (L'elemento MastroGino) che ora è fisso a "4" (come da origine)
in caso tu volessi sbizzarrirti con altri (Elementi MastroGino...)...



Codice: 
Option Explicit
Sub Main
   Dim Ini,fin,r1,r2,a,b,c,d,k,p1,co,x
   Dim Nu(2),Ru(2),aNum(2),posta(1),poste(2),colpi,es
   Dim Nu1(2),Ru1(2),aNum1(2)
   Dim Nk(4)
   colpi = 22
   posta(1) = 1
   poste(2) = 1
   Ini = EstrazioneFin - 90
   fin = EstrazioneFin
   co = 0
   x = CInt(InputBox(" Inserisci l'Elemento MastroGino ",,"4"))
   For es = Ini To fin
      Messaggio "elab. estr. [" &(es) & "] di " & DataEstrazione(es,1)
      Call AvanzamentoElab(Ini,fin,es)
      For r1 = 1 To 9
         For r2 = r1 + 1 To 10
            For p1 = 1 To 5
               a = Estratto(es,r1,p1)
               b = Estratto(es,r2,p1)
               If a = b Then
                  k = k + 1
                  Nu(1) = a : Nu(2) = b
                  Ru(1) = r1 : Ru(2) = r2
                  aNum(1) = Fuori90(Nu(1) + Nu(2) / x + x)
                  aNum(2) = Vert(aNum(1))
                  c = Estratto(es,r1,p1)
                  d = Estratto(es,r2,p1)
                  If c = d Then
                     k = k + 1
                     Nu1(1) = c : Nu1(2) = d
                     Ru(1) = r1 : Ru(2) = r2
                     aNum1(1) = Fuori90(Nu1(1) + Nu1(2) + x)
                     aNum1(2) = Vert(aNum1(1))
                     Nk(1) = aNum(1)
                     Nk(2) = aNum(2)
                     Nk(3) = aNum1(1)
                     Nk(4) = aNum1(2)
                     co = co + 1
                     Scrivi String(100,"°") & " " & co,1
                     Scrivi DataEstrazione(es) & " - " & SiglaRuota(r1) & " - " & StringaEstratti(es,r1) & " * " & SiglaRuota(r2) & " - " & StringaEstratti(es,r2) & " * ",1
                     Scrivi String(60,"-"),1
                     Scrivi " " & Format2(aNum(1)) & " - " & Format2(aNum(2)) & " a " & SiglaRuota(r1) & " - " & SiglaRuota(r2),1,,,1,2
                     Scrivi " " & Format2(aNum1(1)) & " - " & Format2(aNum1(2)) & " a " & SiglaRuota(r1) & " - " & SiglaRuota(r2),1,,,1,2
                     Scrivi String(60,"-"),1
                     Scrivi " " & SiglaRuota(r1) & " - " & SiglaRuota(r2) & " * " & Format2(aNum(1)) & " - " & Format2(aNum(2)) & " - " & Format2(aNum1(1)) & " - " & Format2(aNum1(2)) & " * ",1,,4,,2
                     Scrivi String(70,"°"),1
                     ImpostaGiocata 1,aNum,Ru,posta,colpi
                     ImpostaGiocata 2,aNum1,Ru,posta,colpi
                     ImpostaGiocata 3,Nk,Ru,poste,colpi
                     Gioca es,1,,1
                  End If
                  If ScriptInterrotto Then Exit For
               End If
            Next
         Next
      Next
   Next
   Scrivi String(100,"*")
   ColoreTesto 2
   Scrivi" casi trovati : " & co,1
   ColoreTesto 0
   Scrivi String(100," * ")
   TestoInBandaPassante(" *** Idea di MastroGino e FusioneScript by BaffoBlù *** "),1,3,0
   ScriviResoconto,False
   Scrivi
   Call ScriviDistribuzioneCasiInCorso(True,"1,2,3,4,5,6,7,8,9,10,11,12,13")
End Sub
Clicca per espandere...
Ciao , non ti devi scusare assolutamente , e ti ringrazio x quello che fai .
ti ho anche risposto di là
 
Devi accedere o registrarti per poter rispondere.

Ultima estrazione Lotto

  • Estrazione del lotto
    martedì 07 gennaio 2025
    Bari
    29
    37
    09
    53
    08
    Cagliari
    33
    56
    08
    61
    20
    Firenze
    55
    33
    09
    60
    28
    Genova
    56
    09
    78
    59
    04
    Milano
    73
    51
    34
    06
    70
    Napoli
    49
    30
    64
    80
    05
    Palermo
    89
    08
    74
    48
    30
    Roma
    46
    20
    13
    87
    05
    Torino
    05
    85
    90
    28
    16
    Venezia
    51
    42
    17
    05
    09
    Nazionale
    88
    90
    72
    25
    41
    Estrazione Simbolotto
    Bari
    06
    22
    29
    11
    31
    Archivio estrazioni lotto Ritardi top 15 Frequenze top 15

Ultimi Messaggi

Indietro
Alto