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.
quote:Originally posted by oruam
troppi Mauro in giro,Artemisio vedi se è quello che hai richiesto.
============================================================ script by chilofa
sab 23.04.2011 [ Ba - 05.59.17.34.41 ] numero in 1^ pos.[ 05+15=]. 20
------------------------------------------------------------- caso n° 198
sab 23.04.2011 [8366]
G 1: D5 20.02 Ba Ca Fi 3/14
in corso (3° su 14)
G 2: D5 20.02 Tu 3/14
D5 20 su Tu (Ge) 3° colpo [8369/30.04.2011]
D5 34 su Tu (Mi) 3° colpo [8369/30.04.2011]
D5 70 su Tu (Na) 3° colpo [8369/30.04.2011]
D5 10 su Tu (Pa) 3° colpo [8369/30.04.2011]
D5 52 su Tu (Ro) 3° colpo [8369/30.04.2011]
D5 17 su Tu (To) 3° colpo [8369/30.04.2011]
D5 09 su Tu (Ve) 3° colpo [8369/30.04.2011]
in corso (3° su 14)
G 3: AT 20.02 Tu 3/14
in corso (3° su 14)
G 4: AT 20.02.05 Ba Ca Fi 3/14
in corso (3° su 14)
G 5: AT 20.02.05 Tu 3/14
in corso (3° su 14)
a volte non riesco a capire se uno lo è o ci fa.... e vai alimentiamo..............metodiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiquote:Originally posted by artemisio
Ciao Zagor,salutando tutti i lettori tengo a precisare una cosa:
se affermo una cosa e' con cognizione di causa;certo a volte esagero e sbaglio come tutti, ma se affermo una cosa ne sono piu' che certo. ULTIMO,IVANOE,CARSPA sono la medesima persona e non c'è nulla di male in questo,forse molti dei lettori non hanno una memoria storica degli anni passati,non ricordano le varie diatribe...ma quando si passa il segno bisogna dire basta,e questo e' quello che è successo.
Discussione chiusa.
Ciao.
SUERTE !!!!
Sub main()
Dim ruote(10),ruot(1)
Dim n1(10),nu(10)
Dim posta(10),poste(5)
posta(1)=1 : posta(2)=1
poste(2)=3.50:poste(3)=1:poste(4)=.40:poste(5)=.10
k=12
y=5
fisso=15 'Elemento da sommare all'estratto
For n=8262 To EstrazioneFin
ng=0
ruote(1)=11 : 'ruote(2)=10
For r=1 To 10
a=Estratto(n,r,1)
nu(r)=a
x=a+fisso
If x>90 Then nx=(a-15) Else nx=x
n1(r)=nx
Next
Scrivi "================================================================================"
Scrivi DataEstrazione(n,1)&" [ i primi estratti di ogni ruota: "& StringaNumeri (nu)&" ] "
Scrivi "Ad ogni estratto + o - 15 "
Scrivi "--------------------------------------------------------------------------------"
ng=ng+1
ImpostaGiocata ng,n1,ruote,posta,k,y
Gioca n
Next
ScriviResoconto
End Sub
tutti i primi estrattti del 2 novembre 2010
ba 17
ca 06
fi 69
ge 21
mi 82
na 17
pa 02
rm 25
to 28
ve 62
come posizionare il numero col vertibile ?
tramite la cadenza
cadenza 1-6 prima posizione
cadenza 2-7 seconda posizione
cadena 3-8 terza posizione
cadenza 4-9 quarta posizione
cadenza 5-0 quinta posizione
ora vediamo calcoli e risultati
17+15=32.23 seconda posizione tutte le ruote
06+15=21.12 prima posizione tutte le ruote
69+15=84.48 quarta posizione tutte le ruote
21+15=36.63 prima posizione tutte le ruote
82-15=67.76 seconda posizione tutte le ruote
02+15=17.71 seconda posizione tutte le ruote
25+15=40.4 quinta posizione tutte le ruote
28+15=43.34 terza posizione tutte le ruote
62+15=77.79 seconda posizione su tutte le ruote
================================================================================
mar 02.11.2010 [ i primi estratti di ogni ruota: 17.06.69.21.82.17.02.25.28.62 ]
Ad ogni estratto + o - 15
--------------------------------------------------------------------------------
mar 02.11.2010 [8292]
G 1: MA 32.21.84.36.67.17.40.43.77 Tu 12/12
M 32 su Tu (Ca) 1° colpo [8293/04.11.2010]
M 84 su Tu (Mi) 1° colpo [8293/04.11.2010]
M 67 su Tu (Ve) 1° colpo [8293/04.11.2010]
M 77.17 su Tu (Ca) 2° colpo [8294/06.11.2010]
A 77.17 su Tu (Ca) 2° colpo [8294/06.11.2010]
M 67 su Tu (Fi) 2° colpo [8294/06.11.2010]
M 84.77 su Tu (Ro) 2° colpo [8294/06.11.2010]
A 84.77 su Tu (Ro) 2° colpo [8294/06.11.2010]
M 17 su Tu (Ve) 2° colpo [8294/06.11.2010]
M 32.67.36 su Tu (Ca) 3° colpo [8295/09.11.2010]
A 32.67.36 su Tu (Ca) 3° colpo [8295/09.11.2010]
M 17 su Tu (Ba) 4° colpo [8296/11.11.2010]
M 43 su Tu (Fi) 4° colpo [8296/11.11.2010]
M 43 su Tu (Mi) 4° colpo [8296/11.11.2010]
M 17 su Tu (To) 4° colpo [8296/11.11.2010]
M 32.40 su Tu (Ba) 5° colpo [8297/13.11.2010]
A 32.40 su Tu (Ba) 5° colpo [8297/13.11.2010]
M 77 su Tu (Ge) 5° colpo [8297/13.11.2010]
M 67 su Tu (Ve) 5° colpo [8297/13.11.2010]
M 84 su Tu (Ba) 6° colpo [8298/16.11.2010]
M 77.36 su Tu (Ca) 6° colpo [8298/16.11.2010]
A 77.36 su Tu (Ca) 6° colpo [8298/16.11.2010]
M 84 su Tu (Na) 6° colpo [8298/16.11.2010]
M 43 su Tu (Pa) 6° colpo [8298/16.11.2010]
M 67 su Tu (Ve) 6° colpo [8298/16.11.2010]
M 40 su Tu (Na) 7° colpo [8299/18.11.2010]
Sub Main()
Dim nu1(10),ruote(10),ruota(1),nu2(5),poste(10)
casi = 0
ce = InputBox("da quale estrazione vuoi controllare? ","estrazione",50)
k = InputBox("per quanti colpi?","colpi di gioco",14)
ini = EstrazioneFin - ce
fin = EstrazioneFin
Scrivi "primo estratto+-15 ARTEMISIO(script by chilofa)",1
Scrivi String(70,"="),1
Scrivi "resoconto da " & DataEstrazione(ini,1) & " a " & _
DataEstrazione(fin,1) & " (" &(fin - ce) & " estr.)"
For es = ini To EstrazioneFin
Messaggio "elab. estr. [" &(es) & "] di " & _
DataEstrazione(es,1)
a=Estratto(es,1,1)
x=a+15
If x>90 Then n1=(a-15) Else n1=x
'_______________________________________________________------
a1=Estratto(es,2,1)
x1=a1+15
If x1>90 Then n2=(a1-15) Else n2=x1
_________________________________________continua per tutti gli estratti
casi = casi + 1
Scrivi String(60,"=") & " script by chilofa",1
Scrivi DataEstrazione(es,1) & " numero in 1^ pos.-+15=]. "
Scrivi String(61,"-") & " caso n° " &(casi)
'ruote(1) = 1:ruote(2) = 2
ruota(1) = 11
poste(2) = 3
poste(3) = 1
Redim posta(10)
co = 0
'-------------------------------------------------------------------------
If Cadenza(a) =1 Or Cadenza(a) =6 Then
posta(6) = 1
End If
If Cadenza(a) =2 Or Cadenza(a) =7 Then
posta(7) = 1
End If
If Cadenza(a) =3 Or Cadenza(a) =8 Then
posta(8) = 1
End If
If Cadenza(a) =4 Or Cadenza(a) =9 Then
posta(9) = 1
End If
If Cadenza(a) =5 Or Cadenza(a) =0 Then
posta(10) = 1
End If
'------------------------------------------------continua per gli altri estratti
If Cadenza(a1) =1 Or Cadenza(a1) =6 Then
posta(6) = 1
End If
If Cadenza(a1) =2 Or Cadenza(a1) =7 Then
posta(7) = 1
End If
If Cadenza(a1) =3 Or Cadenza(a1) =8 Then
posta(8) = 1
End If
If Cadenza(a1) =4 Or Cadenza(a1) =9 Then
posta(9) = 1
End If
If Cadenza(a1) =5 Or Cadenza(a1) =0 Then
posta(10) = 1
End If
'------------------------------------------------continua per gli altri estratti
nu1(1) = n1 'imposta la nuova decina
nu1(2) = n2
co= co + 1
ImpostaGiocata co,nu1,ruota,poste,k
co = co + 1 'modifica a tuo piacimento le determinate singole otutta la decina
ImpostaGiocata co,nu1,ruota,posta,k
Gioca es
Next
Scrivi String(60,"=") & " script by chilofa",1
ScriviResoconto
Scrivi "primo estratto+-15 ARTEMISIO(script by chilofa)",1
End Sub
quote:Originally posted by oruam
FRanca nel caso nessuno risponda all'appello,prova con
questo( è un po maccheronico ma fa il suo dovere) mi son fermato alle prime 2 ruote dovresti continuarlo tu,so che sei brava,nel caso
trovi difficolta fammi sapere.
Codice:Sub Main() Dim nu1(10),ruote(10),ruota(1),nu2(5),poste(10) casi = 0 ce = InputBox("da quale estrazione vuoi controllare? ","estrazione",50) k = InputBox("per quanti colpi?","colpi di gioco",14) ini = EstrazioneFin - ce fin = EstrazioneFin Scrivi "primo estratto+-15 ARTEMISIO(script by chilofa)",1 Scrivi String(70,"="),1 Scrivi "resoconto da " & DataEstrazione(ini,1) & " a " & _ DataEstrazione(fin,1) & " (" &(fin - ce) & " estr.)" For es = ini To EstrazioneFin Messaggio "elab. estr. [" &(es) & "] di " & _ DataEstrazione(es,1) a=Estratto(es,1,1) x=a+15 If x>90 Then n1=(a-15) Else n1=x '_______________________________________________________------ a1=Estratto(es,2,1) x1=a1+15 If x1>90 Then n2=(a1-15) Else n2=x1 _________________________________________continua per tutti gli estratti casi = casi + 1 Scrivi String(60,"=") & " script by chilofa",1 Scrivi DataEstrazione(es,1) & " numero in 1^ pos.-+15=]. " Scrivi String(61,"-") & " caso n° " &(casi) 'ruote(1) = 1:ruote(2) = 2 ruota(1) = 11 poste(2) = 3 poste(3) = 1 Redim posta(10) co = 0 '------------------------------------------------------------------------- If Cadenza(a) =1 Or Cadenza(a) =6 Then posta(6) = 1 End If If Cadenza(a) =2 Or Cadenza(a) =7 Then posta(7) = 1 End If If Cadenza(a) =3 Or Cadenza(a) =8 Then posta(8) = 1 End If If Cadenza(a) =4 Or Cadenza(a) =9 Then posta(9) = 1 End If If Cadenza(a) =5 Or Cadenza(a) =0 Then posta(10) = 1 End If '------------------------------------------------continua per gli altri estratti If Cadenza(a1) =1 Or Cadenza(a1) =6 Then posta(6) = 1 End If If Cadenza(a1) =2 Or Cadenza(a1) =7 Then posta(7) = 1 End If If Cadenza(a1) =3 Or Cadenza(a1) =8 Then posta(8) = 1 End If If Cadenza(a1) =4 Or Cadenza(a1) =9 Then posta(9) = 1 End If If Cadenza(a1) =5 Or Cadenza(a1) =0 Then posta(10) = 1 End If '------------------------------------------------continua per gli altri estratti nu1(1) = n1 'imposta la nuova decina nu1(2) = n2 co= co + 1 ImpostaGiocata co,nu1,ruota,poste,k co = co + 1 'modifica a tuo piacimento le determinate singole otutta la decina ImpostaGiocata co,nu1,ruota,posta,k Gioca es Next Scrivi String(60,"=") & " script by chilofa",1 ScriviResoconto Scrivi "primo estratto+-15 ARTEMISIO(script by chilofa)",1 End Sub