SUPER LOTTO

script piccolo metodo

« Older   Newer »
  Share  
garcid
CAT_IMG Posted on 30/1/2012, 17:41




per cortesia qualcuno mi può fare questo metodo:
sommare un numeretto con il numero isotopo della estrazione precedente giocare ambata o il vertibile

esempio estrazione del 20 Aprile 2010
A Bari in 2° posizione esce il 5(numeretto)....nell'estrazione precedente si prende sempre a Bari il 2° estratto il 10
si sommano 10+15= 15
si mettono in gioco 15-51
3° colpo esce il 15-51
grazie
 
Top
occhidigiada58.
CAT_IMG Posted on 6/2/2012, 18:43




garcid...un listato si fa per evitare di fare 120mila calcoli...mi spiego...il 5 a bari in seconda posizione esce poche volte durante l'anno inoltre nn ci sono calcoli particolari poi forse volevi dire di sommare il 5 al 10...altrimenti non mi spiego come 10+15 faccia 15 ilo mio e' un consiglio restare in attesa di questo 5 per giocare due ambate...nn so se vale la pena

comunque ecco lo script
CODICE
Sub main()
Dim nu1(10),nu2(10)
Dim ruote(10),ruota(10)
Dim posta(5),poste(5)
poste(1)=1
fin=EstrazioneFin
ini=fin-600
For es=ini To fin
AvanzamentoElab ini,fin,es
For r1=1 To 1
For p1=1 To 5
If p1=2 Then
n1=Estratto(es,1,p1)
If n1=5 Then
c1=Estratto(es-1,1,p1)

a1=Fuori90(c1+5)
a2=Vert(a1)

casi=casi+1:Scrivi String(75,"="),1
Scrivi DataEstrazione(es,1)&" < "&siglaRuota(1)& " "& StringaEstratti(es,1)& " "
Scrivi DataEstrazione(es-1,1)&" < "&siglaRuota(1)& " "& StringaEstratti(es-1,1)& " "
Scrivi String(65,"-")&" caso n° "&(casi)
ruote(1)=1: k=14:co=0


nu1(1)=a1
nu1(2)=a2

co=co+1
ImpostaGiocata co,nu1,ruote,poste,k

Gioca es
End If
End If
Next
Next
Next
ScriviResoconto
 
Top
garcid
CAT_IMG Posted on 7/2/2012, 09:00




grazie per il tuo tempo ed per il tuo consiglio
ho provato lanciare il script con spaziometria e si ferma con" l'errore script 1014 previsto end linea 42 col 0" come posso risolverlo tante grazie comunque
garcid
 
Top
occhidigiada58.
CAT_IMG Posted on 7/2/2012, 09:29




non saprei a me spaziometria impalla il pc e quindi non ti so dire quale sia l'errore,prova a riportarmi la riga dove causa l'errore, mjagari risolvi con un apostrofo
 
Top
CAT_IMG Posted on 9/2/2012, 22:46

Group:
Fan
Posts:
398

Status:


Garcid nello script di OKKI manca alla fine <end Sub>.....per questo ti da errore.
Comunque mi sono dilettato a modificare lo script e penso che sia questo quello che volevi:
-----------------------------------------------------------------------------------------------------------------
Sub main()
Dim nu1(10),nu2(10)
Dim ruote(10),ruota(10)
Dim posta(5),poste(5)
poste(1)=1
fin=EstrazioneFin
ini=fin-50
For es=ini To fin
AvanzamentoElab ini,fin,es
For r1=1 To 10
For p1=1 To 5
n1=Estratto(es,r1,p1)
If n1=1 Or n1=2 Or n1=3 Or n1=4 Or n1=5 Or n1=6 Or n1=7 Or n1=8 Or n1=9 Then
c1=Estratto(es-1,r1,p1)
a1=Fuori90(c1+n1)
a2=Vert(a1)
casi=casi+1:Scrivi String(75,"="),1
Scrivi DataEstrazione(es-1,r1)&" < "&siglaRuota(r1)& " "& StringaEstratti(es-1,r1)& " "
Scrivi DataEstrazione(es,r1)&" < "&siglaRuota(r1)& " "& StringaEstratti(es,r1)& " "
Scrivi String(65,"-")&" caso n° "&(casi)
ruote(1)=r1 : k=18 : co=0
nu1(1)=a1
nu1(2)=a2
co=co+1
ImpostaGiocata co,nu1,ruote,poste,k
Gioca es
End If
Next
Next
Next
ScriviResoconto
ColoreTesto 2 : Scrivi"listato by Occhidigiada-modifiche di P.Robbe"
End Sub
-----------------------------------------------------------------------------------------------------------------
Ciao ciao
 
Top
occhidigiada58.
CAT_IMG Posted on 10/2/2012, 08:09




uh santa pace...robbe che vuoi farci divento vecchia... e di conseguenza rimbambita....sobt!!
 
Top
garcid
CAT_IMG Posted on 10/2/2012, 08:49




ciao robbe per l'interessamento non riesco a capire se è un mio problema
perchè il tuo mi da errore 13 nella riga 19 riga 0 con la motivazione tipo non corrispondente data estrazione grazie garcid
 
Top
pfca
CAT_IMG Posted on 10/2/2012, 09:47




Ciao sostituisci queste due righe:

Scrivi DataEstrazione(es-1)& " < "&SiglaRuota(r1)& " "& StringaEstratti(es-1,r1)& " "
Scrivi DataEstrazione(es) &" < "&SiglaRuota(r1)& " "& StringaEstratti(es,r1)& " "

Francesco
 
Top
garcid
CAT_IMG Posted on 10/2/2012, 14:48




funziona grazie a tutti per il vostro interessamrnto
garcid ciao
 
Top
drago2940
CAT_IMG Posted on 22/2/2012, 19:22




Questo è completo
Sub main()
Dim nu1(10),nu2(10)
Dim ruote(10),ruota(10)
Dim posta(5),poste(5)
poste(1)=1
fin=EstrazioneFin
ini=fin-50
For es=ini To fin
AvanzamentoElab ini,fin,es
For r1=1 To 10
For p1=1 To 5
n1=Estratto(es,r1,p1)
c1=Estratto(es-1,r1,p1)
If n1<10 And Cadenza(c1)=0 Or c1<10 And Cadenza(n1)=0 Then
a1=Fuori90(c1+n1)
a2=Vert(a1)
casi=casi+1:Scrivi String(75,"="),1
Scrivi DataEstrazione(es-1,r1)&" < "&siglaRuota(r1)& " "& StringaEstratti(es-1,r1)& " "
Scrivi DataEstrazione(es,r1)&" < "&siglaRuota(r1)& " "& StringaEstratti(es,r1)& " "
Scrivi String(65,"-")&" caso n° "&(casi)
ruote(1)=r1 : k=18 : co=0
nu1(1)=a1
nu1(2)=a2
co=co+1
ImpostaGiocata co,nu1,ruote,poste,k
Gioca es
End If
Next
Next
Next
ScriviResoconto
ColoreTesto 2 : Scrivi"listato by Occhidigiada-modifiche di P.Robbe"
End Sub
 
Top
9 replies since 30/1/2012, 17:41   479 views
  Share