Richiesta di script

[Roby]

Ciao a tutti, chiedo a voi esperti se... cortesemente trovate il tempo e voglia di aiutarmi
Cazzeggiando nel quadro estrazionale ho visto alcune cosette
che vorrei capire se ne vale la pena[)]
1° step:
trovare in forma isotopa 2 numeri diametrali in decina
2° step:
Sommarli tra loro con eventuale fuori 90
3° step:
il risultato viene moltiplicato x2 per la 1° ambata
3° step:
x la 2° ambata si prende il diametrale in decina dell'ambata primaria
3° step:
stesura previsione:
le 2 ambate + i vertibili (1° quartina)
le 2 ambate + i diametrali (2° quartina)
vi faccio un esempio:
il 28/4
PA 49 VE 44
49+44=3
3x2=6 (ambata primaria)
1 (ambata secondaria)
1° quartina 1-6-10-60
2° quartina 1-6-46-51
esito a colpo con ambo su PA 10-60 e ambo su VE 1-60
Ho fatto alcuni rilevamenti visivi e nel tempo ha dato buoni esiti
anche con l'ambo secco unendo solo le ambate.
Molte volte sortisce solo l'ambata ma giocarle è...
controproducente[)]
solo un resoconto può dire se...ne vale la pena
Un grazie a chi vorrà aiutarmi


Parlar sensa pensar xè come sparar sensa mirar

 

[imported_n/a]

Come citavo prima,
il 23/4
NA 84 RO 89
a colpo ambo secco 71-76


Parlar sensa pensar xè come sparar sensa mirar

 

[Roby]

Sub main()
Dim num(4)
Dim num1(4)
Dim ruote(10)
Dim poste(4)
poste(1)=0
poste(2)=1
poste(3)=1
poste(4)=1
tmp=InputBox("Quante estrazioni controllo?",,100) 
fin=EstrazioneFin 
ini=fin-tmp 
For es=ini To fin 
Messaggio CStr (EstrazioneFin - es) 
For r=1 To 10
For r1=r+1 To 11
If r1=11 Then r1=12
For p=1 To 5
a=Estratto(es,r,p)
b=Estratto(es,r1,p)
If b=DiametraleD(a) Then
Scrivi DataEstrazione(es),True 
Scrivi Left(NomeRuota(r),3)&" "&StringaEstratti(es,r)&" --> "&Format2(a)
Scrivi Left(NomeRuota(r1),3)&" "&StringaEstratti(es,r1)&" --> "&Format2(b)
a1=Fuori90(a+b)
a2=Fuori90(a1*2)'Prima ambata
a3=DiametraleD(a2)'Seconda ambata
b1=Vert(a2)
b2=Vert(a3)
b3=Diametrale(a2)
b4=Diametrale(a3)
ruote(1)=r
ruote(2)=r1
num(1)=a2
num(2)=a3
num(3)=b1
num(4)=b2
ImpostaGiocata 1,num,ruote,poste,10
num1(1)=a2
num1(2)=a3
num1(3)=b3
num1(4)=b4
ImpostaGiocata 2,num1,ruote,poste,10
Gioca es
Scrivi"***************************************"
End If
Next
Next
Next
Next
ScriviResoconto
End Sub

metus

Non stare davanti a me, potrei non seguirti; non stare dietro di me, potrei non esserti di guida; ma, sta al mio fianco e sii semplicemente mio amico.
Albert Camus

 

[imported_n/a]

Grazie Metus,
ora provo a fare un resoconto sperando nella buona clemenza


Parlar sensa pensar xè come sparar sensa mirar

 

[imported_n/a]

Male....molto male[V]
Chissà se imparerò con questi script
grazie ancora


Parlar sensa pensar xè come sparar sensa mirar

 

[Roby]

Peccato!!
Ciao


metus

Non stare davanti a me, potrei non seguirti; non stare dietro di me, potrei non esserti di guida; ma, sta al mio fianco e sii semplicemente mio amico.
Albert Camus

 

[Leonardo Giammalvo]

Fase uno del lancio dello script.....

Fase 2

si manifesta un errore dello script.

Ora mi chiedo se possibile di stare attento nel dare alle variabili una definizione chiara e funzionale fin ora gli script provati dagli utenti del forum non mi hanno funzionato.

 

[imported_n/a]

Leonardo, quando copi ed incolli devi cancellare le righe di default

Sub Main()
end sub
e anche Option Explicit e vedrai che tutti gli script funzionano perfettamente.
L'errore è provovato da option explicit che ha una sua logica.
Io non so spiegarti bene la logica ma penso che in pratica segue uno svolgimento ben definito dello script.

ciao
Mike58

 

[imported_n/a]

Lo script gira benissimo!
Riesco a farlo girare pure io che...sono un pirla
X Metus,
ho provato a variare alcune variabili per quanto riguarda
le variabili della giocata del terno e della quaterna che...
ritengo inutili.Inoltre ho diminuito la quantità dei colpi
di gioco.Sembra che il metodo funzioni in maniera ciclica
(come molti del resto) Ad esempio nelle ultime 20/30 condizioni
c'è stato un utile di gioco.
Mi piacerebbe che qualcuno mi indicasse dove posso trovare
le formule per incominciare a fare qualche script
19.03.2011
Gen 89.85.47.69.44 --> 69
Tor 11.28.62.64.08 --> 64
Estrazione generatrice del pronostico 08354 [ 34 - 19/03/2011]
G 0001
Numeri in gioco : 86.81.68.18 su GE TO per Ambo
N. [86.81.68.18 ] [GE] [.. .. .. .. ..] C. 1 08355 [ 35 - 22/03/2011]
N. [86.81.68.18 ] [TO] [.. .. .. .. ..] C. 1 08355 [ 35 - 22/03/2011]
N. [86.81.68.18 ] [GE] [.. 81 .. .. ..] C. 2 Estratto 08356 [ 36 - 24/03/2011]
N. [86.81.68.18 ] [TO] [.. .. 18 .. ..] C. 2 Estratto 08356 [ 36 - 24/03/2011]
N. [86.81.68.18 ] [GE] [.. .. .. .. ..] C. 3 08357 [ 37 - 26/03/2011]
N. [86.81.68.18 ] [TO] [.. .. .. .. 18] C. 3 Estratto 08357 [ 37 - 26/03/2011]
N. [86.81.68.18 ] [GE] [.. .. .. .. ..] C. 4 08358 [ 38 - 29/03/2011]
N. [86.81.68.18 ] [TO] [.. .. 18 .. ..] C. 4 Estratto 08358 [ 38 - 29/03/2011]
Interrotta per raggiunta durata

G 0002
Numeri in gioco : 86.81.41.36 su GE TO per Ambo
N. [86.81.41.36 ] [GE] [.. .. .. .. ..] C. 1 08355 [ 35 - 22/03/2011]
N. [86.81.41.36 ] [TO] [.. .. .. .. ..] C. 1 08355 [ 35 - 22/03/2011]
N. [86.81.41.36 ] [GE] [.. 81 .. .. ..] C. 2 Estratto 08356 [ 36 - 24/03/2011]
N. [86.81.41.36 ] [TO] [.. .. .. .. ..] C. 2 08356 [ 36 - 24/03/2011]
N. [86.81.41.36 ] [GE] [.. .. .. .. ..] C. 3 08357 [ 37 - 26/03/2011]
N. [86.81.41.36 ] [TO] [.. .. .. .. ..] C. 3 08357 [ 37 - 26/03/2011]
N. [86.81.41.36 ] [GE] [.. .. 41 .. ..] C. 4 Estratto 08358 [ 38 - 29/03/2011]
N. [86.81.41.36 ] [TO] [.. .. .. 41 ..] C. 4 Estratto 08358 [ 38 - 29/03/2011]
Interrotta per raggiunta durata

***************************************
19.03.2011
Gen 89.85.47.69.44 --> 69
Naz 28.40.81.64.02 --> 64
Estrazione generatrice del pronostico 08354 [ 34 - 19/03/2011]
G 0001
Numeri in gioco : 86.81.68.18 su GE NZ per Ambo
N. [86.81.68.18 ] [GE] [.. .. .. .. ..] C. 1 08355 [ 35 - 22/03/2011]
N. [86.81.68.18 ] [NZ] [.. .. .. 86 ..] C. 1 Estratto 08355 [ 35 - 22/03/2011]
N. [86.81.68.18 ] [GE] [.. 81 .. .. ..] C. 2 Estratto 08356 [ 36 - 24/03/2011]
N. [86.81.68.18 ] [NZ] [.. .. .. .. ..] C. 2 08356 [ 36 - 24/03/2011]
N. [86.81.68.18 ] [GE] [.. .. .. .. ..] C. 3 08357 [ 37 - 26/03/2011]
N. [86.81.68.18 ] [NZ] [.. .. .. .. ..] C. 3 08357 [ 37 - 26/03/2011]
N. [86.81.68.18 ] [GE] [.. .. .. .. ..] C. 4 08358 [ 38 - 29/03/2011]
N. [86.81.68.18 ] [NZ] [.. .. .. .. ..] C. 4 08358 [ 38 - 29/03/2011]
Interrotta per raggiunta durata

G 0002
Numeri in gioco : 86.81.41.36 su GE NZ per Ambo
N. [86.81.41.36 ] [GE] [.. .. .. .. ..] C. 1 08355 [ 35 - 22/03/2011]
N. [86.81.41.36 ] [NZ] [.. .. .. 86 ..] C. 1 Estratto 08355 [ 35 - 22/03/2011]
N. [8