errore nello script HELP

[Alien.]

Ciao ho uno script che non fa il suo dovere a bari

gli dico estrazione 3 ruota bari estratto 3° colpi 10

ma non mi da i risultati (pronostico)della terza estrazione di gennaio 2017

le altre ruote si dove sta lo strano errore ?

grazie. (VORREI METTERE IN EVIDENZA 0002 NEL VIDEO IN ALTO QUANDO DA I PRONOSTICI)


Option Explicit
'Metodo 'a' x ambo, terno su ruota di everest62
'http://forum.lottoced.com/forum/lottoced/area-download/1956490-metodo-a-x-ambo-terno-su-ruota/page5
Sub Main()
Dim klp,casi,im
Dim Ini,fin,es
Dim r,p,a
Dim poste(04),ruote(02),amb(04)
im = ScegliEstrazione
r = ScegliRuota
p = ScegliPosizione
klp = QuantiColpi
poste(02) = 1
poste(03) = 0.7
poste(04) = 0.3
casi = 00
Ini = EstrazioneFin - 200
fin = EstrazioneFin
For es = Ini To fin
If IndiceMensile(es) = im Then
Call Messaggio(es)
Call AvanzamentoElab(Ini,fin,es)
a = Estratto(es,r,p)
If a > 09 Then
casi = casi + 01
Call Scrivi(String(125,"-") & " Caso n° " & Format2(casi),01)
Call Scrivi(GetInfoEstrazione(es) & " " & SiglaRuota(r) & " " & StringaEstratti(es,r) _
& " Estratto il n° " & Format2(a) & " in " & Format2(p) & "° Posizione",01)
ruote(01) = r
ruote(02) = TU_
amb(01) = a
amb(02) = Cadenza(a)
amb(03) = Decina(a)
amb(04) = Cadenza(a) + Decina(a)
Call ImpostaGiocata(01,amb,ruote,poste,klp)
Call Gioca(es,True,,02)
End If
End If
Next
Call ScriviResoconto
End Sub
Function ScegliEstrazione()
Dim aVoci(14)
Dim i,bRet
For i = 01 To 14
aVoci(i) = i
Next
bRet = ScegliOpzioneMenu(aVoci,1,"Selezionare Indice Mensile")
ScegliEstrazione = bRet
End Function
Function ScegliPosizione()
Dim aVoci,bRet
aVoci = Array("","01","02","03","04","05")
bRet = ScegliOpzioneMenu(aVoci,01,"Selezionare Posizione")
ScegliPosizione = bRet
End Function
Function QuantiColpi()
Dim aVoci(50)
Dim i,bRet
For i = 01 To 50
aVoci(i) = i
Next
bRet = ScegliOpzioneMenu(aVoci,18,"Selezionare Quantita' Colpi")
QuantiColpi = bRet
End Function

 

[setting]

Ciao Alien sei sicuro di avere in archivio l'estrazione del 7/1/17 che è appunto la terza del mese?Te lo chiedo perche a me funziona
prova a controllare Ciao

 

[Alien.]

Ciao,Setting

SI, ma tu hai provato su bari? terzo estratto? il buffo che sulle altre ruote funziona s bari no,puoi controllare?grazie.

 

[Alien.]

ho riprovato bari 3 del mese terzo estratto si blocca al 06 dic 2016
cagliari si ferma al 5 nov 2016

gli altri tutto OK .
se lo stesso script non può fare due cose diverse.
per cortesia puoi provare grazie


in archivio c'è l'estrazione del 07/01/2017

 

[Ouroboros]

Buonasera a tutti gli intervenuti.

Prima di darvi la soluzione, voglio chiedervi: qual'e' la condizione per cui lo script da' una previsione giocabile?

Ciao

 

[Alien.]

è....questo proprio non lo so.

ma credo che si debba andare qui:
http://forum.lottoced.com/forum/lottoced/area-download/1956490-metodo-a-x-ambo-terno-su-ruota/page5

ma il problema è che per due ruote BA -CA non funziona le altre ruote si.
quindi non vi è il collegamento od altro.

 

[Ouroboros]

.....allora, al post n. 65 della discussione da te indicata, quoti il post di everest62:

"La tecnica è molto semplice e si basa su un singolo estratto composto da due cifre al quale bisogna abbinare i due numeretti che lo compongono (Unità/Decina) e la loro somma."

Analizza bene questa frase, guarda le estrazioni ed hai la risposta ai tuoi "quesiti"!

Ciao

 

[Alien.]

si,grazie ho analizzato le proposte di gioco ed ho capito il metodo,ma perchè non funziona a bari e cagliari,non importa farò a mano.

 

[Ouroboros]

....va bene, saro' buono....i terzi estratti di bari e cagliari sono dei numeretti, quindi composti da una cifra e non da due come il metodo richiede...quindi, giustamente il metodo non "funziona".
Infatti se leggiamo lo script:

a = Estratto(es,r,p)
If a > 09 Then
casi = casi + 01
Call Scrivi(String(125,"-") & " Caso n° " & Format2(casi),01)
Call Scrivi(GetInfoEstrazione(es) & " " & SiglaRuota(r) & " " & StringaEstratti(es,r) _
& " Estratto il n° " & Format2(a) & " in " & Format2(p) & "° Posizione",01)

rileviamo la condizione che risulta "se a e' maggiore di 9"...

Nel tuo caso il III estratto di Bari e' 7, quello di Cagliari e' 2 --------> condizione non applicabile.

Piccolo consiglio, se me lo permetti, impara almeno a leggere gli script....eviti di perdere tempo tu, ed eviti di far perdere tempo ad altre persone....non tutti sono buoni - con gli "alieni" - di domenica.

Buona Domenica.

 

[Alien.]

ACC...è ......cavolacci hai ragione 10 anni ed oltre facevo il basic ad occhi chiusi poi l'ho lasciato per excel è non mi ricordo un tubo.

quindi &gt vuol dire maggiore?
e &amp cosa vuol dire..................sai indicarmi il link dove posso fare i primi passi......sai su da noi non si fanno i passi si vola.....hahahahah grazie del tuo tempo

 

[Alien.]

 

[Ouroboros]

ACC...è ......cavolacci hai ragione 10 anni ed oltre facevo il basic ad occhi chiusi poi l'ho lasciato per excel è non mi ricordo un tubo.

quindi &gt vuol dire maggiore?
e &amp cosa vuol dire..................sai indicarmi il link dove posso fare i primi passi......sai su da noi non si fanno i passi si vola.....hahahahah grazie del tuo tempo

....ho corretto il post precedente perche' e' saltata la formattazione.....cmq in spaziometria, nell' area dove carichi gli script ci sono i vari HELP: spazioscript, vbscript, ecc....se prendi un qualsiasi script ed analizzi le istruzioni-righe di cui e' composto ti puoi fare uni idea di cosa lo script "calcoli".....

Buono studio.

 

[Alien.]