Follow along with the video below to see how to install our site as a web app on your home screen.
Nota: This feature may not be available in some browsers.
Guida davvero utile anche per chi come me vuole inziare piano piano a gestire gli script che girano splendidamente nel superlativo programma del mitico LuigiB! Grazie 
, ma avrei bisogno di apportare una semplicissima modifica ad uno script che riporta come secondo numero questo
Buona Giornata.
Ciao Tom ...
MANCA il segno di UGUALE tra "zeta" e "uno"
For Z=1 TO 90
...
Next
Per questa guida ... qui, ho gia quasi pronta l'impostazione delle Simulazione della Giocata
e la verifica di una bolletta/metodo.
Quella di Luigi ... se trovo il post a cui si fa riferimento lo inserisco.
Se ... If aNum(1) <> Z Then aNum(2)= Z
così escludendo la Z ... gli altri 89 ... vengono assegnati dall'uguale a aNum(2).
osterò anche un altro thread al riguardo ma lo chiedo anche qui a te se lo sai...)
Sub Main
Pippo
Topolina
Pluto
End Sub
Sub Pippo ()
Scrivi "I'm Pippo"
End Sub
Sub Pluto ()
Scrivi "I'm Pluto"
End Sub
Sub Topolina ()
Scrivi
Scrivi "Io sono Topolina,"
Scrivi "una femminuccia,"
Scrivi "in mezzo a due maschiacci!"
Scrivi
End Sub
Ciao Tom ...
MANCA il segno di UGUALE tra "zeta" e "uno"
For Z=1 TO 90
...
Next
Per questa guida ... qui, ho gia quasi pronta l'impostazione delle Simulazione della Giocata
e la verifica di una bolletta/metodo.
Quella di Luigi ... se trovo il post a cui si fa riferimento lo inserisco.
Se ... If aNum(1) <> Z Then aNum(2)= Z
così escludendo la Z ... gli altri 89 ... vengono assegnati dall'uguale a aNum(2).
Sub Main
Dim aNum (2)
aNum(1) = 10
For Z = 1 To 90
If aNum(1) <> Z Then
aNum(2) = Z
Scrivi StringaNumeri (aNum)
End If
Next
End SubSub Main
Es = 6054 : Ru = BA_
DE = DataEstrazione(Es)
NR = NomeRuota (Ru)
SE = StringaEstratti (Es,Ru)
Scrivi DE & " " & NR & " " & SE
End Sub[FONT=Courier New][SIZE=2][COLOR=#000000]17.01.1987 [FONT=Courier New][SIZE=2][COLOR=#000000]Bari [/COLOR][/SIZE][/FONT]55.88.80.34.11[/COLOR][/SIZE][/FONT]'Supponiamo d'essere stati ... alla fine del 2012 ... in una ricevitoria
'e di aver ascoltato un tipo che diceva di volere giocare per tutto Gennaio, un metodo fortissimo ... ecc. ecc.
'e di verificare, oggi, come si è comportato questo metodo, nel mese di gennaio 2013.
'Naturalmente si erano annotate alcune cose:
'Numeri (quanti e quali numeri aveva giocato "quel tipo"): 30.38.51
'Ruote (quante e quali erano interessate dal pronostico). 2 Ruote e Tutte.
'Bari, Firenze e Tutte.
'Poste. Come aveva impostato la giocata ovvero per ... Ambo e Terno.
'Ed infine ... era un pronostico per tutto questo mese di Gennaio.
'3 colpi PER 5 settimane = 15 Colpi ovvero da gicarsi 15 volte.
'Questi sono i requisiti fondamentali, semplicissimi ed indispensabili ...
'per realizzre una giocata sul PC, come al botteghino.
'Alcuni di essi hanno una loro specificità.
'Numeri / Ruote / Poste sono sia "molteplici" che "raggruppabili" sotto uno stesso "nome" e/o tipo,
'ed essendo simili, tra loro, è utile, tenerli ordinati secondo la loro natura.
'In questi casi, è possibile utilizzare delle variabili apposite per contenerli.
'Queste variabili ... si Dimensionano (DIM) secondo logica
'con un "nome" utile per ricordare "quanto" esse devono contenere lo script inizia dunque con il classico
Sub Main
'A cui segue il dimensionamento delle variabili.
Dim Numeri (3), Ruote (3), Poste (5), Colpi
'Subito appresso si devono Riempire questi "contenitori"
'A parole diremmo il primo numero è: ... il secondo numero è : ... il terzo numero è: ...
'che in script invece è:
Numeri(1) = 30 : Numeri(2) = 38 : Numeri (3)= 51
'ed analogamente avviene per le ruote ...
Ruote(1) = BA_ : Ruote(2) = FI_ : Ruote(3) = TU_
'e per le Poste di Gioco ... 1 Euro per Ambo ed 1 Euro per Terno ... in script è:
Poste (2) = 1 : Poste (3) = 1
Colpi = 15
'L' ultima estrazione del Dicembre 2012 era la 8632, la diciamo essere "Es"
Es = 8632
'Ora la compilazione della giocata come in (una) bolletta diventa:
ImpostaGiocata 1,Numeri,Ruote,Poste,Colpi
'Gioca per la data dell'estrazione ...
Gioca Es
'ed infine Scrivere un Resoconto:
ScriviResoconto
End Sub 'Fine della storia.[SIZE=2][COLOR=#000080][SIZE=2][COLOR=#000080]Sub main()
Dim Nu(5), Ru(1)
Ru(1) = BA_
Nu(1) = 1 : Nu(2) = 2 : Nu(3) = 3 : Nu(4) = 4 : Nu(5) = 5
Ini = EstrazioneFin-155 : Fin = EstrazioneFin
For Es = Ini To Fin
If SerieFreq (Es,Es,Nu,Ru,1) >= 2 Then
Scrivi "[" & ES & "] ",0,0
Scrivi DataEstrazione (Es) & " ",0,0
Scrivi SiglaRuota (Ru(1)) & " ",0,0
Scrivi StringaEstratti (Es,Ru(1))
End If
Next
End Sub
[/COLOR][/SIZE][/COLOR][/SIZE]Bhe ... le soluzioni sono molte ed è per questa ragione
che lo scripter preferisce avere descritto subito e per bene il metodo ...
Altrimenti c'è il rischio di scrivere un qualcosa, poi, poco utile allo sviluppo successivo.
Ti accenno ad esempio alcune soluzioni relative al primo punto all'ordine del giorno:
* scomporre la cinquina in ambi e poi cercare un ambo dei 2 numeretti ...
* Contare i numeretti minori di 6 nella cinquina appena estratta ...
* Confrontare uno ad uno i 5 numeri di riferimento con i 5 numeri estratti ... ed utilizzare il risultato del conteggio
* Usare istruzioni apposite (seriefreq) per verificare la presenza minima di ...
quindi per sapere se tra queste possibilità ... c'è quella "utile" è meglio sapere,
"cosa" e come si vuole "poi" proseguire.
Ho adottato la soluzione che ho proposto per "ultima". E' la più generica.
Ma introduce una nuva istruzione (SerieFreq) ...
ed in 3 minuti circa si dispone di un preciso strumento statistico, che in meno di un secondo ...
trova tutto (e per bene) quanto quest'ultimo anno è presente a Bari ... con le caratteristiche richieste.
Questa è dunque la proposta, di una mia soluzione, in script, alla tua prima parte della richiesta:
Codice:[SIZE=2][COLOR=#000080][SIZE=2][COLOR=#000080]Sub main() Dim Nu(5), Ru(1) Ru(1) = BA_ Nu(1) = 1 : Nu(2) = 2 : Nu(3) = 3 : Nu(4) = 4 : Nu(5) = 5 Ini = EstrazioneFin-155 : Fin = EstrazioneFin For Es = Ini To Fin If SerieFreq (Es,Es,Nu,Ru,1) >= 2 Then Scrivi "[" & ES & "] ",0,0 Scrivi DataEstrazione (Es) & " ",0,0 Scrivi SiglaRuota (Ru(1)) & " ",0,0 Scrivi StringaEstratti (Es,Ru(1)) End If Next End Sub [/COLOR][/SIZE][/COLOR][/SIZE]
Sub Main
Dim idEstr
Dim k
Dim nGioc
Dim aPoste(1)
Dim aCoppieRuote(10,0)
Dim Nu(5),Ru(1)
Ru(1) = BA_
Nu(1) = 1 : Nu(2) = 2 : Nu(3) = 3 : Nu(4) = 4 : Nu(5) = 5
aCoppieRuote(1,0) = BA_
aCoppieRuote(2,0) = CA_
aCoppieRuote(3,0) = FI_
aCoppieRuote(4,0) = GE_
aCoppieRuote(5,0) = MI_
aCoppieRuote(6,0) = NA_
aCoppieRuote(7,0) = PA_
aCoppieRuote(8,0) = RO_
aCoppieRuote(9,0) = TO_
aCoppieRuote(10,0) = VE_
aPoste(1) = 1
For idEstr = EstrazioneIni To EstrazioneFin
For k = 1 To 10
ReDim aNum(3)'numeri in gioco
ReDim aRuote(1)'ruote in gioco
'metodo da implementare
'-------------------------------------------------------------------------------------------
'Tutte Bari 01.02.03.04.05 (2) 5° E + (01 36 57) A Ba Ca Fi Ge Mi Na Pa Ro To Ve 70 0 100,0
'-------------------------------------------------------------------------------------------
'Tutte Bari 01.02.03.04.05 (2) 4° E + (01 19 50) A Ba Ca Fi Ge Mi Na Pa Ro To Ve 70 0 100,0
'Tutte Bari 01.02.03.04.05 (2) 3° E + (01 13 17) A Ba Ca Fi Ge Mi Na Pa Ro To Ve 70 0 100,0
'Tutte Bari 01.02.03.04.05 (2) 2° E + (03 09 14) A Ba Ca Fi Ge Mi Na Pa Ro To Ve 70 0 100,0
'Tutte Bari 01.02.03.04.05 (2) 1° E + (01 68 71) A Ba Ca Fi Ge Mi Na Pa Ro To Ve 70 0 100,0
If SerieFreq(idEstr ,idEstr,Nu,Ru,1) >= 2 Then
aNum(1) = Estratto(idEstr,aCoppieRuote(1,0),5)+1
aNum(2) = Estratto(idEstr,aCoppieRuote(1,0),5)+36
aNum(3) = Estratto(idEstr,aCoppieRuote(1,0),5)+57
End If
aRuote(1) = aCoppieRuote(k,0)
'aRuote(2) = aCoppieRuote(k,1)
'limite max verificato 45 estrazioni (solo un caso)
'con questo limite tuttavia i casi con 1 o poco piu' estrazioni non ci sono
'o sono estremamente rari...
'quindi conviene accontentarsi di percentuali di uscita un po' più basse ma consentano
'la visualizzazione di estrazioni rimaneti uguali a 1 o comunque sia minori di 3.
'Tipo impostando come limite 13/18 estrazioni ad esempio
If aNum(1) <> aNum(2) <> aNum(3) Then
nGioc = nGioc + 1
Call ImpostaGiocata(nGioc,aNum,aRuote,aPoste,30,1)
Call Gioca(idEstr)
End If
Next
If ScriptInterrotto Then Exit For
Call AvanzamentoElab(EstrazioneIni,EstrazioneFin,idEstr)
Next
Call ScriviResoconto
End Sub
Sub Main()
Dim Nu(5), Ru(1)
Nu(1) = 1 : Nu(2) = 2 : Nu(3) = 3 : Nu(4) = 4 : Nu(5) = 5
Ini = EstrazioneFin-15 : Fin = EstrazioneFin
For Es = Ini To Fin
For R = 1 To 10
Ru(1) = R
If SerieFreq (Es,Es,Nu,Ru,2) >= 1 Then
Scrivi "[" & ES & "] ",0,0
Scrivi DataEstrazione (Es) & " ",0,0
Scrivi SiglaRuota (Ru(1)) & " ",0,0
Scrivi StringaEstratti (Es,Ru(1))
End If
Next ' Ruota
Next 'Estrazione
End Sub
