Per chi viole aiutarmi

[joi_lotto]

Ciao joe, ho seguito il tuo consiglio quello di provare a farmene uno mio e così ne ho inventato uno ora lo posto e dimmi che v......ta sto faciendo.

Option

[B][SIZE=2][COLOR=#000080][SIZE=2][COLOR=#000080]Option Explicit
Sub Main()
Dim posta(1)
Dim(1)
clp = 6
Ini EstrazioneFin - 157
fin EstrazioneFin
For es = Ini To fin
Messaggio Es
ruote(1) = 1
For p = 1 To 5
a = Estratto(es,BA_,1)
ok = 0
If a = 1 Then
e = Fuori90(Estratto(es,CA_,3) * Estratto(es,BA_,4))
n(1) = e
ok = 1
End If
If ok = 1 Then
co = co + 1
rute 1 = BA_
ImpostaGiocata 1,n,ruote,poste,clp,1
Gioca es
End If
Next
Next
ScriviResoconto
End Sub
[/COLOR][/SIZE][/COLOR][/SIZE][/B]

 

[joi_lotto]

Sembra che sia riuscito a postarlo nel modo giusto!!! ciao Joe fammi sapere (se vuoi) perchè anche questo è cannato.
Ciao
Joi

 

[Joe91]

Il primo punto ...

Il primo punto ...

ed eccoci ad approntare il ciclo For-Next che abbiamo detto essere la "spina-dorsale" dello script.

Stabiliamo arbitrariamente che il controllo del metodo inizi con l'estrazione 8300 e termini con "l'ultima in archivio"

e contiamo ( Co ) i casi (che per ora sono la quantità di estrazioni presenti entro i limiti ... senza distinzioni):

Sub Main()
 
 Ini = 8300 : Fin = EstrazioneFin
 
 For Es = Ini To Fin : Messaggio Es
  
    Co  = Co + 1
    
    Scrivi String(96,"=") & FormatSpace (" Caso n°" & Co,10,1),1


 Next
 
End Sub

 

[Joe91]

PS: Scusa Joi ... non avevo visto le tue prove ...

continuando ... correggeremo anche gli errori, in quest'ultima.

 

[joi_lotto]

Ma questo è "un'altro modo" per cominciare lo script,dagli esempi di Baffo e Caludio !!!?

 

[Baffoblu]

Sembra che sia riuscito a postarlo nel modo giusto!!! ciao Joe fammi sapere (se vuoi) perchè anche questo è cannato.
Ciao
Joi

Purtroppo no, non è il modo giusto !

ho fatto una guida apposita :

http://forum.lottoced.com/f12/guida-per-inserire-nel-forum-script-maniera-corretta-90408/

 

[joi_lotto]

Ciao Baffo, io intendevo inserire lo script nel forum attuale, in spaziometria so come farlo.
Grazie
Joi

 

[Joe91]

Ciao Baffo ...

si hai ragione ... lo script (l'ultimo di Joi) non è funzionante per i molti errori ...

eppoi non ha la formattazione utile per facilitarne la lettura,

comprenderne il funzionamento renderne più facile la correzione degli errori.

Sub Main()
 Dim poste(1)
Dim n(1)  
Dim Ruote(1)
 clp = 6
 Ruote(1)= BA_ : poste(1)=1
 Ini = EstrazioneFin - 157
 fin = EstrazioneFin
 For es = Ini To fin
  Messaggio Es
  Ruote(1) = 1
  For p = 1 To 5
   a = Estratto(es,BA_,1)
   ok = 0
   If a = 1 Then
    e = Fuori90(Estratto(es,CA_,3) * Estratto(es,BA_,4))
    n(1) = e
    ok = 1
   End If
   If ok = 1 Then
    co = co + 1
    'rute 1 = BA_  scritto sbagliato 
    ImpostaGiocata 1,n,Ruote,poste,clp,1
    Gioca es
   End If
  Next
 Next
 ScriviResoconto
End Sub[B][SIZE=2][COLOR=#0000c0][SIZE=2][COLOR=#0000c0][/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2][COLOR=#0000c0][SIZE=2][COLOR=#0000c0][/COLOR][/SIZE][/COLOR][/SIZE]

Così, dovrebbe funzionare ma ... la RILEVAZIONE DELLA SPIA (quello che avevo indicato come secondo punto)

è meglio (molto meglio) effettuarla diversamente. Dirò poi.

Utile, anche seguire il consiglio di Baffoblu sul come inserire gli script formattati.

Quindi joi ... esegui il tuo script ... guarda gli errori (che ti vengono segnalati) e controlla cosa ho modificato.

Coraggio ... sei a cavallo.

 

[Baffoblu]

Ciao Baffo, io intendevo inserire lo script nel forum attuale, in spaziometria so come farlo.
Grazie
Joi

Non essere affrettato....

il link che ti ho dato, parla proprio di quello che ti serve.

Non per niente la guida si chiama appunto :

http://forum.lottoced.com/f12/guida-per-inserire-nel-forum-script-maniera-corretta-90408/


Poi dai retta anche a joe91, che di script ne capisce moltissimo.

ti avevo corretto lo script, che conteneva molti errori,

ho visto joe91 che lo ha fatto prima di me, e lo saluto.

ripeto, segui lui e sopratutto non essere affrettato,

leggi le guide fino in fondo e non saltare niente.


ciao a tutti e due


comunque, metto qui lo script che ti avevo corretto :

Sub Main()
    Dim ruota(1),n(1),ruote(1),posta(1)
    posta(1) = 1
    clp = 6
    ini = EstrazioneFin - 157
    fin = EstrazioneFin
    co = 0
    For es = ini To fin
        Messaggio es
        ruote(1) = 1
        a = Estratto(es,1,1)
        If a = 01 Then
            e = Fuori90(Estratto(es,2,3) * Estratto(es,1,4))
            n(1) = e
            co = co + 1
            Scrivi String(70,"°") & " Caso n°" & co,1
            Scrivi DataEstrazione(es) & " " & SiglaRuota(1) & " " & StringaEstratti(es,1) & "    SPIA :   " & a & " - ",1
            Scrivi String(70,"°"),1
            ImpostaGiocata 1,n,ruote,posta,clp,1
            Gioca es
        End If
    Next
    ScriviResoconto
End Sub

 

[Joe91]

Secondo: Rilevare la spia ...

Secondo: Rilevare la spia ...

Ci sono molti modi per farlo ...tra essi, anche quelli sbagliati.

Puliamo lo script di Joi da tutto quanto è esterno a questo rilevamento ed osserviamo "cosa fa"

obbligandolo a fargli scrivere quanto "vale" ... A ... ad ognuno dei 5 passaggi. Per ugnuno dei valori "P".

'Option Explicit 
Sub Main() 
'Dim posta(1) '
'Dim(1)
'clp = 6
'Ini EstrazioneFin - 157
'fin EstrazioneFin
'   ^  RICORDA: PER ASSEGNARE UN VALORE SI DEVE SCRIVERE "=" 
Es = EstrazioneFin 
'For es = Ini To fin 
'Messaggio Es 
'ruote(1) = 1 
 For p = 1 To 5 
 a = Estratto(Es,BA_,[COLOR=#ff0000]1[/COLOR])
  Scrivi A
  'ok = 0 
 'If a = 1 Then 
 'e = Fuori90(Estratto(es,CA_,3) * Estratto(es,BA_,4)) 
 'n(1) = e 
 'ok = 1 
 'End If 
 'If ok = 1 Then 
 'co = co + 1 
 'rute 1 = BA_
  'ImpostaGiocata 1,n,ruote,poste,clp,1
  'Gioca es
  'End If
 Next
 'Next
 'ScriviResoconto
 End Sub

Notiamo che -A- contiene 5 volte lo stesso valore ...Si sarebbe dovuto scrivere :

Sub Main()
Es = EstrazioneFin
 
For P=1 To 5 

    A = Estratto (Es,BA_,[COLOR=#ff0000]P[/COLOR])

    Scrivi A 
Next
 End Sub

... per avere i 5 valori dei diversi numeri (estratti a Bari nell'ultima estrazione).

 

[joi_lotto]

Ciao Joe91, nell'esempio postato non volevo cercare un numero spia, volevo solamente vedere (come successo), dove sbagliavo per poi continuare.............
e avere: se possibile la Tua assistenza.
Grazie.

Ciao
joi

 

[Joe91]

Ora che i 5 estratti sono "letti" correttamente

è sufficiente eseguire il confronto (If) "Estratto" = Spia

che darà appunto esito favorevole (then) nel caso in cui essi siano uguali.

Unendo quanto si è detto sino ad'ora ... si potrà avere qaulcosa di simile:

Sub Main()
 Dim Ru(1)
 Spia = 4 
 Ru(1)= BA_
 Ini  = 8300 : Fin = EstrazioneFin
 For Es = Ini To Fin
  For P = 1 To 5
   If Estratto(Es,Ru(1),P) = Spia Then
    Scrivi DataEstrazione(Es) & "  ",1,0
    Scrivi StringaEstratti(Es,Ru(1)) & "  ",0,0
    Scrivi "Trovata la spia " & Spia & " / " & P & "° Estratto"
   End If
  Next
 Next
End Sub

... segue.

 

[Joe91]

Ok, Joi ...

Abbiamo corretto ... l'errore, ed applicato la correzione ottenendo

... uno script funzionante.

Ma il codice può essere migliorato, dunque è meglio farlo:

L'istruzione Posizione (Estrazione, Ruota, Numero) ...

ci restituisce ZERO se la spia non è presente oppure am contrario

il suo valore di posizione.

Come potrai notare questo codice produce gli stessi risultati ...

Sub Main()
 Dim Ru(1)
 Spia = 4 
 Ru(1)= BA_
 Ini  = 8300 : Fin = EstrazioneFin
 For Es = Ini To Fin
   P =[COLOR=#FF0000] Posizione(Es,Ru(1),Spia)
[/COLOR]   If P > 0 Then
    Scrivi DataEstrazione(Es) & "  ",1,0
    Scrivi StringaEstratti(Es,Ru(1)) & "  ",0,0
    Scrivi "Trovata la spia " & Spia & " / " & P & "° Estratto"
   End If
 Next
End Sub

Ci sono poi (come ha suggerito LuigiB) anche "istruzioni dedicate" e altri modi.

Ma ... mi fermerei a questa soluzione.

 

[Joe91]

Ok, Joi ...

Abbiamo corretto ... l'errore, ed applicato la correzione ottenendo

... uno script funzionante.

Ma il codice può essere migliorato, dunque è meglio farlo:

L'istruzione Posizione (Estrazione, Ruota, Numero) ...

ci restituisce ZERO se la spia non è presente oppure al contrario

il suo valore di posizione.

Come potrai notare questo codice produce gli stessi risultati ...

Sub Main()
 Dim Ru(1)
 Spia = 4 
 Ru(1)= BA_
 Ini  = 8300 : Fin = EstrazioneFin
 For Es = Ini To Fin
   P =[COLOR=#ff0000] Posizione(Es,Ru(1),Spia)
[/COLOR]   If P > 0 Then
    Scrivi DataEstrazione(Es) & "  ",1,0
    Scrivi StringaEstratti(Es,Ru(1)) & "  ",0,0
    Scrivi "Trovata la spia " & Spia & " / " & P & "° Estratto"
   End If
 Next
End Sub

Ci sono poi (come ha suggerito LuigiB) anche "istruzioni dedicate" e altri modi.

Ma ... mi fermerei a questa soluzione.

Perdonatemi, ma non ho resitito alla tentazione di provare l'istruzione che

SPAZIOMETRIA dedica ... a questo tipo di ricerca.

Essendo essa compatibile al 100% a quanto era il piccolissimo script che ho proposto...

la applico nel seguente modo:

Sub Main()
 Dim Ru(1)
 Spia = 4 
 Ru(1)= BA_
 Ini  = 8300 : Fin = EstrazioneFin
  For Es = Ini To Fin

     If [COLOR=#FF0000]IsNumeroPresenteInEstrazione (Es,Ru(1),Spia,P)[/COLOR] Then 
        Scrivi DataEstrazione(Es) & "  ",1,0
        Scrivi StringaEstratti(Es,Ru(1)) & "  ",0,0
        Scrivi "Trovata la spia " & Spia & " / " & P & "° Estratto"
     End If

  Next
End Sub

NB: E' evidente che questa versione ancora più efficiente dello script funziona con SPAZIOMETRIA.

 

[Joe91]

Il ciclo For-Next e la ricerca della Spia in un unico script.

Il ciclo For-Next e la ricerca della Spia in un unico script.

Sub Main()
 Dim Ru(1)
 Ru(1) = BA_ : Spia = 4
 Ini = 8300 : Fin = EstrazioneFin
 For Es = Ini To Fin
  If Posizione(Es,Ru(1),Spia) Then
   K = K + 1 :  Scrivi String(96,"=") & FormatSpace(" Caso n°" & K,10,1),1
   ' Qui ... i calcoli ...
   ' ... la simulazione giocata
  End If
 Next
 ColoreTesto 1 : Scrivi String(92,"=") & FormatSpace(" Script By Joe",10,1),1 : ColoreTesto 0
 ' Qui ... ScriviResoconto
End Sub

Dove, anche qui, non interessando la "Posizione" della Spia ... rileviamo solo il "True" dell'istruzione posizione.

... segue.

 

[Joe91]

Per il calocolo del pronostico mi riferisco alla grafica precedente ...

Quindi "C" è l' Ambata (come da calcoli effettuati) e poi ... N(1) = C ...

Essendo che "C" poi non seve a null'altro ... se non a trasportare ...

Si scrive direttamente N(1) = ... "i calcoli per ottenerlo" e ...

si risparmia l' uso della variabile "C" .

Poi ... analogamente è così ... per tutto il resto ... dove "palleggiando" (di variabile in variabile)

si ha una "melina" per la quale ... l'esito più probabile è l'autogoal.

Quindi è molto meglio scrivere:

Am(1) = N(1) "riportando" l'Ambata nella lunghetta

Am(2) = "I calcoli per ottenre Am(2)"

Am(3) = "I calcoli per ottenre Am(3)"

...ecc ...

Ed, in pratica il calcolo del pronostico ovvero il "terzo obiettivo" dello script sarà :

   N(1) = Fuori90(Estratto(Es,BA_,1) + Estratto(Es,NA_,5) - Estratto(Es,FI_,2)) '''''Ambata

   Am(1) = N(1) ''''' Aggiunge l'Ambata alla Lunghetta
   Am(2) = Fuori90(Estratto(Es,BA_,1) * Estratto(Es,TO_,5) + 91)
   Am(3) = Fuori90(Estratto(Es,BA_,1) * Estratto(Es,MI_,3) + Estratto(Es,CA_,3))
   Am(4) = Fuori90(Estratto(Es,BA_,1) - Estratto(Es,GE_,4) * 31)
   Am(5) = Fuori90(Estratto(Es,BA_,1) + Estratto(Es,FI_,1) * 49)

Mentre per la simulazione DELLE 2 GIOCATE (sottolineo 2) ... s'era detto che deve essere :

   ImpostaGiocata 1,N ,Ruote,Posta,clp,1
   ImpostaGiocata 2,Am,Ruote,Poste,clp,2
   Gioca es

ed avendo dunque risolto ... anche il "Quarto Obiettivo" ...

Si completa con "ScriviResoconto" tutto quanto ci si era preposto di realizzare.

 

[Joe91]

Lo script Completo :

Lo script Completo :

'Spia 4 a Bari  Test degli Adattatori Matematici Scritto da Joe per Joi V.4.1 del 18/01/2012  

Sub Main()
 Dim N(1),Am(5),Ruote(1),Posta(1),Poste(2) 
  
 Posta(1) = 10 : Poste(2) = 5 : clp = 9
 
 Ruote(1) = BA_ : Spia = 4
 
 Ini = 8300 : Fin = EstrazioneFin
 For Es = Ini To Fin
  Messaggio Es
  If Posizione(Es,Ruote(1),Spia) Then
   Co = Co + 1 :  Scrivi String(96,"=") & FormatSpace(" Caso n°" & Co,10,1),1
   N(1) = Fuori90(Estratto(Es,BA_,1) + Estratto(Es,NA_,5) - Estratto(Es,FI_,2)) '''''Ambata
   Am(1) = N(1) ''''' Aggiunge l'Ambata alla Lunghetta
   Am(2) = Fuori90(Estratto(Es,BA_,1) * Estratto(Es,TO_,5) + 91)
   Am(3) = Fuori90(Estratto(Es,BA_,1) * Estratto(Es,MI_,3) + Estratto(Es,CA_,3))
   Am(4) = Fuori90(Estratto(Es,BA_,1) - Estratto(Es,GE_,4) * 31)
   Am(5) = Fuori90(Estratto(Es,BA_,1) + Estratto(Es,FI_,1) * 49)
   ImpostaGiocata 1, N,Ruote,Posta,clp,1
   ImpostaGiocata 2,Am,Ruote,Poste,clp,2
   Gioca es
  End If
 Next
 ColoreTesto 1 : Scrivi String(92,"=") & FormatSpace(" Script By Joe",10,1),1 : ColoreTesto 0
 ScriviResoconto 
End Sub

 

[joi_lotto]

Ciao Joe, GRAZIE per quello che mi stai insegnando, però Ti prego vai piano altrimenti non riesco a seguirti. In questo periodo sono impegnato con i condomini per chiusura bilancio.
Anche se non sono l'amm.re, tutti i condomini vengono a rompere me (come se io ne sapessi più dell'amm.re).
Provo a fare quello che mi ai postato e (CAPIRE SOPRATUTTO), in caso di dubbi Ti cerco: se non disturbo.
Ancora Grazie.
Ciao
Joi.

 

[LuigiB]

ciao Joe devo ineffetti complimentarmi ufficialmente

 

[Baffoblu]

ciao Joe devo ineffetti complimentarmi ufficialmente

Quoto e mi accodo ai complimenti