Per chi viole aiutarmi

[joi_lotto]

Ciao e grazie per chi mi aiuta. Ho modificato questo script fatto a suo tempo da Baffo e ora non rieco fargli fare i conti giusti, perchè gira, ma in modo errato e non
riesco a capire dove sbaglio, inoltre vorrei che la giocata fosse su due ruote. Mentre la ricerca su unica ruota.


GRAZIE ANCORA.
SubMain()
Dim ruote(1)
Dim posta(1)
Dim poste(2)
Dim n(1)
Dimam(4)
posta(1)= 10
poste(2)= 5
clp = 9
ini = EstrazioneFin -150
fin = EstrazioneFin
co = 0
Fores = ini To fin
Messaggioes
ruote(1) = 1
For p = 1 To 5
a = Estratto(es,2,p)
ok = 0
If a = 86 Then
primodibari = Estratto(es,1,1)
Secondodigenova =Estratto(es,4,2)
Primodicagliari =Estratto(es,2,1)
Primodifirenze =Estratto(es,3,1)
quintodicagliari =Estratto(es,2,5)
Secondodicagliari =Estratto(es,2,2)
quintodipalermo =Estratto(es,7,5)
quintodifirenze =Estratto(es,3,5)
quartoditorino =Estratto(es,9,4)
b =primodibari * secondodigenova
c = Fuori90(b* secondodigenova) 'ambata
d =primodicagliari + primodifirenze
e = Fuori90(d+ Primodifirenze) '1°abb.to
f =Secondodicagliari * quintodipalermo
g = Fuori90(f* quintodipalermo) '2°abb.to
h =qiuntodifirenze + quartoditorino
i = Fuori90(h+ quartoditorino) '3°abb.to
l =quintodicagliari + 61
m = Fuori90(l+ 61) '4°abb.to

n(1) = c
am(1)= e
am(2)= g
am(3)= i
am(4)= m
ok= 1
EndIf
Ifok = 1 Then
co= co + 1
Scrivi String(70,"°")& " Caso n°" & co,1
Scrivi String(70,"°"),1
ruote(1) =1
ImpostaGiocata1,n,ruote,posta,clp,1
n(1) =c
ImpostaGiocata2,am,ruote,poste,clp,2
am(1) = e
am(2)= g
am(3)= i
am(4)= m
Giocaes
EndIf
Next
Next
ScriviResoconto
EndSub

 

[LuigiB]

ciao il primo passo per iniziare a capire di script è quello di postarlo ben formattato con gli appositi tag <code>
rimettilo come si deve e dopo ci iniziamo a ragionare.

 

[Roby]

Ciao Joi, e un saluto a Luigi
Ho riformattato il listato

Sub Main()
Dim ruote(2)
Dim posta(1)
Dim poste(2)
Dim n(1)
Dim am(4)
posta(1) = 10
poste(2) = 5
clp = 9
ini = EstrazioneFin - 150
fin = EstrazioneFin
co = 0
For es = ini To fin
Messaggio es
ruote(1) = 1
'ruote(2) = 2 ' qui inserire la 2° ruota (togliere l'apice all'inizio)
For p = 1 To 5
	a = Estratto(es,2,p)
	ok = 0
	If a = 86 Then
		primodibari = Estratto(es,1,1)
		Secondodigenova = Estratto(es,4,2)
		Primodicagliari = Estratto(es,2,1)
		Primodifirenze = Estratto(es,3,1)
		quintodicagliari = Estratto(es,2,5)
		Secondodicagliari = Estratto(es,2,2)
		quintodipalermo = Estratto(es,7,5)
		quintodifirenze = Estratto(es,3,5)
		quartoditorino = Estratto(es,9,4)
		b = primodibari * secondodigenova
		c = Fuori90(b* secondodigenova) 'ambata
		d = primodicagliari + primodifirenze
		e = Fuori90(d + Primodifirenze) '1°abb.to
		f = Secondodicagliari * quintodipalermo
		g = Fuori90(f* quintodipalermo) '2°abb.to
		h = qiuntodifirenze + quartoditorino
		i = Fuori90(h + quartoditorino) '3°abb.to
		l = quintodicagliari + 61
		m = Fuori90(l + 61) '4°abb.to
		n(1) = c
		am(1) = e
		am(2) = g
		am(3) = i
		am(4) = m
		ok = 1
		End If
		If ok = 1 Then
		co = co + 1
		Scrivi String(70,"°") & " Caso n°" & co,1
		Scrivi String(70,"°"),1
		ruote(1) = 1
		ImpostaGiocata 1,n,ruote,posta,clp,1
		n(1) = c
		ImpostaGiocata 2,am,ruote,poste,clp,2
		am(1) = e
		am(2) = g
		am(3) = i
		am(4) = m
		Gioca es
		End If
	Next
Next
ScriviResoconto
End Sub

 

[LuigiB]

grazie Black ... io lo so che tu lo sapevi fare ad ogni modo sentiamo Joi che conti gli volevi far fare e come hai ragionato per cercare
di far fare allo script il gioco su 2 ruote ?

 

[Roby]

ehehe, l'ho fatto perchè sono alle prese con uno script in spazio, in un momento di pausa ho visto questo post
Ammetto di non ricordare questo listato del Baffo
ho aggiunto solo una ruota a caso, poi sarà Joi a mettere quella che gli interessa,
A proposito Luigi, se io dopo una certe condizione volessi mettere in gioco una previsione per 10 colpi,
ma questa condizione durante i 10 colpi si ripresenta, mi ritrovo con la stessa previsione in gioco più volte, come faccio a far capire al listato di giocare UNA SOLA VOLTA?

 

[LuigiB]

bhe Black il fatto è questo gli script anche se piu leggeri sono sempre un ambiente d sviluppo percio sei tu (tu programmatore)
che devi dare la logica di funzonamento al tuo script attraverso la scrittura del codice appropriato.
Ora se ho ben capito il problema è questo , tu hai un ciclo su un range di estrazioni , per ogni estrazione verifichi
se è capitata la condizione da te prevista se si allora giochi per 10 colpi a partire da li.
Poi pero il ciclo comunque continua e potrebbe trovare un'altra volta la stessa condizione durante lo spazio
gia coperto dai colpi di gioco della prima previsione.
Se il problema è questo per la soluzione ci sono vari metodi.
Il piu semplice è senza dubbio quello di far saltare di 10 (ovvero il numero di colpi di gioco) l'indice dell'estrazione in esame
dove per via della condizione verificata avevi appena impostato la giocata. in questo modo è certo che le previsioni non si accavallano.
Un secondo sistema potrebeb essere quello di memorizzare la previsione in un array op in una collection e ptrima di giocarla testare se gia esiste, questo è un metodo piu complesso perche devi gestire la memoria delle condizioni gia trovate e azzerarla dopo che i
famosi 10 colpi sono passati.

 

[joi_lotto]

Ciao, a pagina 6 trovate guida allo script spaziometria fatto da baffoblu, Iniziato da Baffoblu, 17-11-2011 01:00
Però quello che chiedevo io, è perchè non fa il calcolo giusto, quando prendo gli stessi dati fatti a mano (come scritti nello script vengono giusti )??
ciao
Grazie

 

[Baffoblu]

X joi_lotto

Non mi ricordo di questo script, so che lo fatto io, ma non me lo trovo più.
Ricordo solo che fu una richiesta da un utente, ma di più non ricordo.

Se metti lo script originale forse posso aiutarti a modificare quello che vuoi......

 

[joi_lotto]

Sub Main()
Dim ruote(1)
Dim posta(1)
Dim poste(2)
Dim n(1)
Dim am(3)
posta(1) = 10
poste(2) = 5
clp = 9
ini = EstrazioneFin - 150
fin = EstrazioneFin
co = 0
For es = ini To fin
Messaggio es
ruote(1) = 3
For p = 1 To 5
a = Estratto(es,3,p)
ok = 0
If a = 11 Then
primodibari = Estratto(es,1,1)
quartodibari = Estratto(es,1,4)
secondodinapoli = Estratto(es,6,2)
primodinazionale = Estratto(es,12,1)
primodiroma = Estratto(es,8,1)
o = primodibari + secondodinapoli
b = Fuori90(o * primodinazionale)
c = primodibari * primodiroma
d = Fuori90(c + primodiroma)
e = quartodibari * 60
f = Fuori90(e + 77)
n(1) = b
am(1) = b
am(2) = d
am(3) = f
ok = 1
End If
If ok = 1 Then
co = co + 1
Scrivi String(70,"°") & " Caso n°" & co,1
Scrivi String(70,"°"),1
ruote(1) = 3
ImpostaGiocata 1,n,ruote,posta,clp,1
n(1) = b
ImpostaGiocata 2,am,ruote,poste,clp,2
am(1) = b
am(2) = d
am(3) = f
Gioca es
End If
Next
Next
ScriviResoconto
End Sub
Ciao Baffo questo è quello originale (è un metodo di vivo) Tu hai descritto come fare uno script.
Grazie
Joi

 

[claudio8]

Ti invio quello che stai cercando di verificare ---

 Sub Main
    Dim ruote(2) 'modificata
    Dim posta(1)
    Dim poste(2)
    Dim n(1)
    Dim am(5) ' modificata
    posta(1) = 10
    poste(2) = 5
    clp = 9
    ini = EstrazioneFin - 156
    fin = EstrazioneFin
    co = 0
    For es = ini To fin
        Messaggio es
        ruote(1) = 1 ' puoi anche scrivre BA_ , è + immedata
        For p = 1 To 5
            a = Estratto(es,CA_,p)
            ok = 0
            If a = 86 Then
                primodibari = Estratto(es,BA_,1)
                Secondodigenova = Estratto(es,GE_,2)
                Primodicagliari = Estratto(es,CA_,1)
                Primodifirenze = Estratto(es,FI_,1)
                quintodicagliari = Estratto(es,CA_,5)
                Secondodicagliari = Estratto(es,CA_,2)
                quintodipalermo = Estratto(es,PA_,5)
                quintodifirenze = Estratto(es,FI_,5)
                quartoditorino = Estratto(es,TO_,4)
                b = primodibari                             ''''' * secondodigenova è scritto 2 volte 
                c = Fuori90( b * Secondodigenova) 'ambata
                d = Primodicagliari                          '''' + primodifirenze  è scritto 2 volte
                e = Fuori90(d + Primodifirenze)   '1°abb.to
                f = Secondodicagliari                        ' ripetizione dell' errore
                g = Fuori90(f * quintodipalermo) '2°abb.to
                h = qiuntodifirenze                          ' ripetizione dell' errore
                i = Fuori90(Estratto(es,FI_,5) + Estratto(es,TO_,4)) '3°abb.to ...  questo è il modo + semplice
                ' x fare i conteggi. Evita di utilizzare riferimenti a riferimenti xchè è + facile fare errori di
                ' scrittura non facilmente rintracciabili se non utilizzi l "option esplicit". 
                'Qualsiasi variabile usata + volte, sarebbe meglio dichiararla x evitare errori di battitura. 
                l = quintodicagliari                          ' ripetizione dell' errore
                m = Fuori90(l + 61) '4°abb.to
                n(1) = c  ' ambata 
                ok = 1
            End If
            If ok = 1 Then
                co = co + 1
                Scrivi String(70,"°") & " Caso n°" & co ,1
                Scrivi String(70,"°"),1
                ruote(1) = BA_
                ruote(2) = CA_  ' ruota aggiunta
                ImpostaGiocata 1,n,ruote,posta,clp,1 ' opera solo con la array "n" che ha solo 1 indice (1), 
                    'quindi hai la possibilità di usare un solo valore, l'ambata 
                    ''''''''''''''''''''''''''' 
                '' ti ho spostato la array/matrice am che ho in fase di dichiarazione, Dim am(..) incrementato di umero da 4 a 5 
                'in modo che essa possa contenere il massimo dei numeri che metteremo adasso in gioco, ivi compresa l'ambata che 
                'precedentemente chiamavi erroneamente n(1) 
                'n(1) = c ' ambata   array/matrice "n" errata , essa non viene presa in considerazione nella giocata che segue
                am(1) = c ' ambata   ----  modo corretta di identificarla
                am(2) = e  ' abb
                am(3) = g  ' abb
                am(4) = i   ' abb
                am(5) = m   ' abb
                ImpostaGiocata 2,am,ruote,poste,clp,2 ' ti controlla la cinquina x esito minimo = ambo 
                am(1) = e
                am(2) = g
                am(3) = i
                am(4) = m
                Gioca es
            End If
        Next
    Next
    ScriviResoconto
End Sub

 

[Joe91]

BRAVO CLAUDIO.

OTTIMO LAVORO

ben riassunto anche nei commenti.

 

[joi_lotto]

Ciao Claudio e GRAZIE soppratutto delle spiegazioni evidenziate.
Ho visto adesso e ho fatto la stampa delle spiegazioni, appena mi torna la voglia di cimentermi dietro STUDIERO'.
Dico così ! perchè fresco di estrazione del D. giudizio. Non so se diventero' meno giudizioso.
GRAZIE ancora.
Ciao
Joi

 

[joi_lotto]

Ciao dove sto sbagliando? se fai girare lo script prima di correggerlo,vedrai che nella prima previsione mi da l'ambata ma nelle altre no. Poi non effettua alcuni calcoli nel modo giusto.
L'ho guardato e riguardato ma non riesco a capire. ora provo ha inserirlo nel modo giusto.....spero!

Sub
Main()

Dim ruote(1)

Dim posta(1)

Dim poste(2)

Dim n(1)

Dim am(5)

posta(1) = 10

poste(2) = 5
clp
= 9
ini
= EstrazioneFin - 156
fin
= EstrazioneFin
co
= 0

For es = ini To fin

Messaggio es

ruote(1) = BA_

For p = 1 To 5
a
= Estratto(es,BA_,p)
ok
= 0

If a = 4 Then
primodibari
= Estratto(es,1,1)
quintodinapoli
= Estratto(es,6,5)
Secondodifirenze
= Estratto(es,3,2)
quintoditorino
= Estratto(es,9,5)
terzodimilano
= Estratto(es,5,3)
terzodicagliari
= Estratto(es,3,3)
quartodigenova
= Estratto(es,4,4)
Primodifirenze
= Estratto(es,3,1)

b
= primodibari
c
= Fuori90(Estratto(es,BA_,1) + Estratto(es,NA_,5) -(Estratto(es,FI_,2))) '''''ambata
d
= Primodibari
e
= Fuori90(Estratto(es,BA_,1) * Estratto(es,TO_,5) + 91)
f
= Primodibari
g
= Fuori90(Estratto(es,BA_,1) * Estratto(es,MI_,3) + Estratto(es,CA_,3))
h
= Primodibari
i
= Fuori90(Estratto(es,BA_,1) - Estratto(es,GE_,4) * 31)
l
= Primodibari
m
= Fuori90(Estratto(es,BA_,1) + Estratto(es,FI_,1) * 49)


n(1) = c 'ambata
ok
= 1

End If

If ok = 1 Then
co
= co + 1

Scrivi String(70,"°") & " Caso n°" & co,1

Scrivi String(70,"°"),1

ruote(1) = BA_

ImpostaGiocata 1,n,ruote,posta,clp,1

ImpostaGiocata 1,am,ruote,poste,clp,2

am(1) = c 'ambata

am(2) = e 'abb

am(3) = g 'abb

am(4) = i 'abb

am(5) = m 'abb

Gioca es

End If

Next

Next

ScriviResoconto
End
Sub

Ciao
grazie
joi

 

[joi_lotto]

E' uscita una schifezza unica come devo fare?
Grazie
joi

 

[Joe91]

E' uscita una schifezza unica come devo fare?
Grazie
joi

Ciao attualmente sembra che incollando come testo normale premendo l'apposito bottone previsto ...

NELLA MODALITA' AVANZATA

si riesca a postare qualcosa di leggibile. Ho reimpaginato quanto hai spedito.

Sub Main()
 Dim ruote(1)
 Dim posta(1)
 Dim poste(2)
 Dim n(1)
 Dim am(5)
 posta(1) = 10
 poste(2) = 5
 clp = 9
 ini = EstrazioneFin - 156
 fin = EstrazioneFin
 co = 0
 For es = ini To fin
  Messaggio es
  ruote(1) = BA_
  For p = 1 To 5
   a = Estratto(es,BA_,p)
   ok = 0
   If a = 4 Then
    primodibari  = Estratto(es,1,1)
    quintodinapoli = Estratto(es,6,5)
    Secondodifirenze  = Estratto(es,3,2)
    quintoditorino = Estratto(es,9,5)
    terzodimilano = Estratto(es,5,3)
    terzodicagliari = Estratto(es,3,3)
    quartodigenova = Estratto(es,4,4)
    Primodifirenze = Estratto(es,3,1)
    b = primodibari
    c = Fuori90(Estratto(es,BA_,1) + Estratto(es,NA_,5) -(Estratto(es,FI_,2))) '''''ambata
    d = Primodibari
    e = Fuori90(Estratto(es,BA_,1) *Estratto(es,TO_,5) + 91)
    f = Primodibari
    g = Fuori90(Estratto(es,BA_,1) *Estratto(es,MI_,3) + Estratto(es,CA_,3))
    h = Primodibari
    i = Fuori90(Estratto(es,BA_,1) - Estratto(es,GE_,4) * 31)
    l = Primodibari
    m = Fuori90(Estratto(es,BA_,1) + Estratto(es,FI_,1) * 49)
    n(1) = c 'ambata
    ok = 1
   End If
   If ok = 1 Then
    co = co + 1
    Scrivi String(70,"°") & " Caso n°" & co,1
    Scrivi String(70,"°"),1
    ruote(1) = BA_
    ImpostaGiocata 1,n,ruote,posta,clp,1
    ImpostaGiocata 1,am,ruote,poste,clp,2
    am(1) = c 'ambata
    am(2) = e 'abb
    am(3) = g 'abb
    am(4) = i 'abb
    am(5) = m 'abb
    Gioca es
   End If
  Next
 Next
 ScriviResoconto
End Sub

Buona Giornata

 

[Joe91]

 

[Joe91]

Ciao Joy ...

che ci siano differenze tra gli script è inevitabile.

Essi sono (più o meno) tutti differenti tra loro.

Quindi dovresti almeno specificare con chiarezza a quali script ti riferisci.

Nel tuo, ultimo, per esempio, hai cambiato ... facendo in modo che che per i calcoli ci sia sempre il "Primo di Bari".

Negli altri script erano utilizzati anche altri estratti di altre ruote.

Poi ... non è stata recepita nella totalità l'indicazione che ti ha dato Claudio,

così sono rimaste molte istruzioni inutili ... che creano inutile confusione.

Se eseguirai il tuo script come l'ho re-inviato reimpaginato ... togliendo tutte le istruzioni

(che una volta Remmate si colorano in verde e non producono effetti nell'esecuzione dello script)

vedrai che produce lo stesso rendiconto. Quindi deduci che quelle istruzioni COSI' COME SONO SCRITTE sono inutili.

Poi in ultimo ... se ... effettui 2 giocate ... la prima è la UNO. La seconda è la DUE.

Nel tuo script è due volte UNO. Ragionando come il computer questo è un errore grave perchè "impedisce" UNA delle DUE.


In grafica:

Buon-Week-End

 

[joi_lotto]

Ciao joe, dalla spiega di Claudio io ho capito che n è l'ambata e am serve per includerla nella lunghetta.
Domani farò i compiti, sperando che mi entri in testa qualcosa in più. Ho visto tante volte i videoscript postati nel forum, ma non riesco farmeli entrare in testa, faccio molta confusione.
Comunque Ti ringrazio tanto per l'aiuto che mi dai TU, CLAUDIO, BAFFO e altri. UN GRAZIE DI CUORE.
Domani farò per l'ennesima volta i compiti,pur sapendo che non avrò la sufficienza.
Grazie
Ciao
joi

 

[Joe91]

Forse ...

ma ricorda, è solo un mio consiglio ...

Forse se provi a scrivere qualcosa "da solo"

un qualcosa di molto semplice ... e ne verifichi passo-passo (la sintassi e gli errori (per questo ti aiuta il PC))

ed i risultati, che possono essere il far scrivere "la data di estrazione" ... uno o più degli estratti ... il nome della ruota ... ecc.

un ciclo For-Next

... non avrai anche il "carico sulle spalle" di dover capire cosa hanno scritto "altri" cosa che ... a volte ...

potrebbe NON essere semplice ed intuitivo nella sua lettura/scrittura.

Per contro, facendo da te ... saprai con certezza, cosa vuoi fare ... e, come vorresti ottenerlo.

Per il resto ... nessuno nasce imparato! Non ti preoccupare ... hai già fatto progressi enormi.

Buon Week End

 

[Joe91]

Ciao Joy ...

Buon-Week-End

Ciao Joi ...

prima di passare alla "ristrutturazione" ... dello script, riprendo ancora la grafica precedente

permettendomi ancora, di evidenziare un errore ... forse il peggiore.

Sottolineando che lo script oltre ad avere tutte le istruzioni necessarie ...

richiede ANCHE che esse siano in un determinato ordine.

Spiego con un esempio: Vogliamo che il Computer ci scriva il valore di "C"

e che questo sia la somma del valkore di "A" + "B"

se lo script non avrà nell' ordine prima l'assegnazione (Con il segno di Uguale)

dei valori di "A" e "B" non potrà scrivere correttamente il valore "C"

Quindi dovrà essere ad esempio:

A=1

B=2

C=A+B

Scrivi C

Analogamente in "impostagiocata" ... i valori dei numeri da giocare ...

devono essere dichiarati -prima- di effettuare la giocata (Gioca Es)

MENTRE ... nel tuo script la -seconda- "imposta giocata 1" ... CANCELLA LA PRIMA

CON UNA GIOCATA IN CUI I NUMERI NON SONO ANCORA STATI ASSEGNATI ...

(forse essi saranno giocati alla prossima rilevazione della spia ...

bisognerebbe verificare, ma è sufficiente il tuo "non effettua i calcoli corretti" a dimostrarlo )

Tutto questo sembrerebbe confermare, anche, vere la tue doglianze relativa alla "prima giocata" ...

ed i calcoli "sbagliati" che più che sbagliati ... forse sono giocati alla "Es" sbagliata.

Tutto ciò premesso a parer mio lo script dovrebbe avere nella logica conseguenziale

le dichiarazioni delle variabili nelle DIMensioni e pressapoco 5 gruppi di istruzioni:

1) Un ciclo For-Next ovvero la struttura per "scorrere" le estrazioni alla ricerca della spia.


2) Rilevare le estrazioni in cui è presente la spia


3) Calcolare il pronostico


4) Impostare ed effettuare la giocata.


5) Verificare i risultati.


Oggi ... tempo permettendo, svilupperò il codice secondo quanto ho descritto.

Cordiali saluti.