X maxma62

[Roby]

Ciao Max

Ti posso chiedere un favore?

Ho bisigno di uno script che faccia una ricerca su coppie e terzine, di numeri con il ritardo storico più basso per estratto e per ambo a ruota.
Io purtroppo mi arrangio solo con gli sript più semplici,questo è fuori dalla mia portata.Tu sei molto esperto .
Tempo permettendo se mi puoi aiutare te ne sarei grato.

un saluto




Baffowilly

 

[maxma62]

Da un mio metodino, per ambata non e' male:

Sub main()
Dim num1(1),num2(4),nn(4),n(4),am(3)
Dim ruote(10) 
Dim posta(1),poste(4)
posta(1)=5:poste(2)=3:poste(3)=1.5:poste(4)=0.5
fin=EstrazioneFin
ini=fin-130
For es=ini To fin
Messaggio es
For r1=1 To 9
For p1=1 To 4
For p2=p1+1 To 5
a=Estratto (es,r1,p1)
b=Estratto (es,r1,p2)
a1=Fuori90(a+b)          
For r2=r1+1 To 10
For p3=1 To 4
For p4=p3+1 To 5
If p3=p1 And p4=p2 Then 'iso
c=Estratto(es,r2,p3)
d=Estratto(es,r2,p4)
a2=Fuori90(c+d)
If a1=45 And a2=45 Or a1=90 And a2=90 Then
casi=casi+1:Scrivi String(85,"="),1
Scrivi DataEstrazione(es,1)&" [ "&siglaRuota(r1)&" - "&StringaEstratti(es,r1)&_
" ] [ "&Format2(a)&"."&Format2(b)&" ] somma "&(a1)
Scrivi DataEstrazione(es,1)&" [ "&siglaRuota(r2)&" - "&StringaEstratti(es,r2)&_
" ] [ "&Format2(c)&"."&Format2(d)&" ] somma "&(a2)
Scrivi String(65,"-")&" caso n° "&(casi)
ruote(1)=r1:ruote(2)=r2:k=14

amb1=Fuori90(a+d) 
amb2=Fuori90(b+c) 
ab1=90-(amb1)
ab2=90-(amb2)
ab3=Fuori90(ab1+ab2)

num1(1)=amb1
rta=SerieRitardo(1,es,num1,ruote,1)
Scrivi "l'ambata "&format2(num1(1))&" ritarda da "&format2(rta)&_
" estr. su "&siglaruota(r1)&" o su "&siglaruota(r2)
rst=SerieStorico(1,es,num1,ruote,1)
Scrivi "il ritardo storico dell'ambata "&format2(num1(1))&" e' di "&format2(rst)&_
" estr. su "&siglaruota(r1)&" o su "&siglaruota(r2)
Scrivi String(85,"-")
ImpostaGiocata 1,num1,ruote,posta,k,1

num1(1)=amb2
rta=SerieRitardo(1,es,num1,ruote,1)
Scrivi "l'ambata "&format2(num1(1))&" ritarda da "&format2(rta)&_
" estr. su "&siglaruota(r1)&" o su "&siglaruota(r2)
rst=SerieStorico(1,es,num1,ruote,1)
Scrivi "il ritardo storico dell'ambata "&format2(num1(1))&" e' di "&format2(rst)&_
" estr. su "&siglaruota(r1)&" o su "&siglaruota(r2)
Scrivi String(85,"-")
ImpostaGiocata 2,num1,ruote,posta,k,1

num2(1)=amb1:num2(2)=amb2:num2(3)=ab3
rta=SerieRitardo(1,es,num2,ruote,2)
Scrivi "l'ambo in terzina "&format2(num2(1))&"."&format2(num2(2))&"."&_
format2(num2(3))&" ritarda da "&format2(rta)&_
" estr. su "&siglaruota(r1)&" o su "&siglaruota(r2)
rst=SerieStorico(1,es,num2,ruote,2)
Scrivi "il ritardo storico dell'ambo in terzina "&format2(num2(1))&"."&_
format2(num2(2))&"."&format2(num2(3))&" e' di "&format2(rst)&_
" estr. su "&siglaruota(r1)&" o su "&siglaruota(r2)
Scrivi String(85,"-")
ImpostaGiocata 3,num2,ruote,poste,k

Gioca es
End If
End If 'iso
Next:Next:Next:Next:Next:Next
Next
ScriviResoconto
End Sub

spero di aver capito e sia esatto.


max

 

[Baffowilly]

Ciao Max

Grazie infinite per questo tuo metodo,cercherò di farne buon uso.

Quello che io cerco di fare è un altra cosa

L'output del listato dovrebbe essere una graduatoria delle coppie di
numeri con il ritardo storico minore</u> per estratto a ruota
e delle terzine di numeri con il ritardo storico minore per ambo a ruota

Baffowilly

 

[maxma62]

Tra i vari scipt che ho nel pc, ho questo statistico forse di joe91 o ramco che elabora per ogni ruota a tua scelta gli abbinamenti con ritardo minimo o massimo (vedi nello script per gli apici giusti).
Non so se può fare al caso tuo, lo spero:

Sub main()
Dim ru(1),nu(2),A_rit(89,2),stat()

ru(1)= InputBox("Su quale ruota vuoi visualizzare gli abbinamenti più ritardati per ambo?",,1)
x= InputBox("Quanti abbinamenti vuoi cercare per ogni capogioco?",,5)

col= 2+(x*2) 
s=col 
Scrivi Space(4)&" RIEPILOGO DEGLI ABBINAMENTI CON MAGGIOR RITARDO PER AMBO",1
Scrivi Space(16)&" PER CIASCUN CAPOGIOCO SU ",1,0 :coloretesto 2 :scrivi NomeRuota(ru(1))&CHR(10),1
ColoreTesto 0
rigo=" GC ==> "
For k= 2 To Col-1 step 2
rigo=rigo & "Ab [ Rit ] "
Next
rigo= rigo& "(SommaRit)"
Scrivi Rigo,1
For i= 1 To 90'
Messaggio " Elaborazione CG "& i & " in corso "
co=0 '
Erase A_rit  
For y= 1 To 90 
If i<>y Then
co=co+1  
nu(1)=i 
nu(2)=y 
A_rit(co,1)=nu(2) 
A_rit(co,2)=SerieRitardo(1,EstrazioniArchivio,nu,ru,2) 
End If
Next

'----------------------------------------------------------------------------------
'NOTA: Togliere l'apice ad uno dei seguenti ordinamenti
OrdinaMatrice A_rit,1,2 '<<< ordino la matrice per ritardo MINIMO CRESCENTE
'OrdinaMatrice A_rit,-1,2 '<<< ordino la matrice per ritardo MASSIMO DECRESCENTE
'----------------------------------------------------------------------------------

Redim preserve stat(90,col)
stat(i,1)=i 
totR=0 
c=1 
For k = 1 To x 
c=c+1 
stat(i,c)= a_rit(k,1)
c= c+1 
stat(i,c)= a_rit(k,2)
TotR=totR+a_rit(k,2) 
Next
stat(i,s)=totR 
Next

'----------------------------------------------------------------------------------
'NOTA: Togliere l'apice ad uno dei seguenti ordinamenti
OrdinaMatrice stat,1,1  ' ordino la matrice per CG CRESCENTE (1° colonna)
'OrdinaMatrice stat,-1,1 ' ordino la matrice per CG DECRESCENTE (1° colonna)
'----------------------------------------------------------------------------------

For i= 1 To 90
riga= Space(1)& Format2(Stat(i,1))& " ==> "
For k= 2 To Col-1 step 2
riga=riga & Format2(stat(i,k))& " ["&formatspace(stat(i,k+1),5,1)&"]"& " "
Next
riga= riga& "("& FormatSpace(stat(i,s),8,1)& ")"
Scrivi Riga
Next
End Sub

max

 

[Baffowilly]

Ti ringrazio nuovamente max
ora lo faccio girare, e vediamo

Baffowilly

 

[oruam]

noto con piacere e per questo ti ringraziamo, che ti è
tornato il gusto di postare i listati[][]