C
codicebinario
Guest
Ciao Luigi,ciao a tutti i lettori del post.
Non riesco a far girare questo su spaziometria versione .50 da errore su CRMASS...e' possibile sistemarlo per spaziometria???
Dovrebbe essere BASEF di Scaravetti,avevo l'originale,ma e' andato perso con la frittura dell'hd.<questo l'ho' reperito nel web ...e non sono sicuro sia quello che intendo io.Colgo l'occasione per chiedere gentilmente se qualcuno avesse lo script in questione di postarlo.Grazie.
Non riesco a far girare questo su spaziometria versione .50 da errore su CRMASS...e' possibile sistemarlo per spaziometria???
Codice:
Sub main()
Dim nu(1)
Dim posta(1), poste(2), ruote(5), numerissimi(10), nlot(20)
Dim ruotes1(1), ruotes2(1), ruotes3(1), ruotes4(1), ruotes5(1)
Dim numeri(90), pc(25), nnnn(1), nnn(1), nnl(1), pp(1)
Dim ruota1(1), ruota2(1), ruota3(1), ruota4(1), ruota5(1)
Dim lotr1(10), lotr2(10), lotr3(10), lotr4(10), lotr5(10)
Dim nr1(1), nr2(1), nr3(1), nr4(1), nr5(1)
Dim v(3), ritardo(1), crmass(5)
Dim nnc(1), nncp(1), amborit(2), tt(1), postes(2)
Dim nmed1(10), nmed2(10), nmed3(10), nmed4(10), nmed5(10)
ini = EstrazioneFin-10
fin = EstrazioneFin
posta(1) =1
poste(1) = 1
poste(2) = 1
postes(1)=0
postes(2)=1
nec=4 'numero estrazioni di controllo
piuvolte=3
colpi=12
mmediasup=23
For est = ini To fin
AvanzamentoElab ini, fin, est
For rt1 = 1 To 1
ruote(1) = rt1
ruota1(1)=rt1
nr1(1)=PiuRitardatario (est,rt1)
cr1=SerieRitardo(est-250,est,nr1,ruota1,1)
For rt2 = rt1 + 1 To 2
ruote(2) = rt2
ruota2(1)=rt2
nr2(1)=PiuRitardatario (est,rt2)
cr2=SerieRitardo(est-250,est,nr2,ruota2,1)
For rt3 = rt2 + 1 To 3
ruote(3) = rt3
ruota3(1)=rt3
nr3(1)=PiuRitardatario (est,rt3)
cr3=SerieRitardo(est-250,est,nr3,ruota3,1)
For rt4 = rt3 + 1 To 4
ruote(4) = rt4
ruota4(1)=rt4
nr4(1)=PiuRitardatario (est,rt4)
cr4=SerieRitardo(est-250,est,nr4,ruota4,1)
For rt5 = rt4 + 1 To 5
ruote(5) = rt5
ruota5(1)=rt5
nr5(1)=PiuRitardatario (est,rt5)
cr5=SerieRitardo(est-250,est,nr5,ruota5,1)
crmass(1)=cr1
crmass(2)=cr2
crmass(3)=cr3
crmass(4)=cr4
crmass(5)=cr5
OrdinaMatrice crmass,-1
crmas=crmass(1)
For n = 1 To 90 step 1
nu(1)=n
If SerieFreq(est-(nec-1),est,nu,ruote,1) => piuvolte Then 'condizione
If SerieRitardo(est-crmas,est,nu,ruote,1) <=40 Then
If SerieFreq(est-crmas,est,nu,ruote,1) <= 40 Then
numeri(n)=CInt(nu(1))
End If
End If
End If
Next
OrdinaMatrice numeri,-1
EliminaRipetuti numeri
For k = 1 To 10
If numeri(k)>0 Then
numerissimi(k) = CInt(numeri(k))
End If
Next
contanumeri=0
For k = 1 To 20
If numeri(k)>0 Then
nlot(k) = CInt(numeri(k))
contanumeri=contanumeri+1
End If
Next
If contanumeri => 2 And contanumeri <= 10 Then
Scrivi DataEstrazione(est)&" Analisi Frequenza su "&NomeRuota(rt1)&" "&NomeRuota(rt2)&" "&NomeRuota(rt3)&" "&NomeRuota(rt4)&" "&NomeRuota(rt5)
Scrivi
riga=""
presr=0
For e=est-(nec-1) To est step 1
For rr=rt1 To rt5 step 1
For ppp=1 To 5
nn = Estratto(e, rr, ppp)
riga=riga+FormatSpace(nn,3,True)
If nn = numerissimi(1) Or nn = numerissimi(2) Or nn = numerissimi(3) Or nn = numerissimi(4) Or nn = numerissimi(5) Or nn = numerissimi(6) Or nn = numerissimi(7) Or nn = numerissimi(8) Or nn = numerissimi(9) Or nn = numerissimi(10) Then
presr = presr + 1
End If
Next
If rr<rt5 Then
riga=riga+" - "
End If
Next
Scrivi riga+" pres. di riga "+FormatSpace(presr,3,True)
riga=""
presr=0
Next
Scrivi
rigacol=""
presc=0
tot=0
For rr=rt1 To rt5 step 1
For ppp=1 To 5 step 1
For e=est-(nec-1) To est step 1
nn = Estratto(e, rr, ppp)
If nn = numerissimi(1) Or nn = numerissimi(2) Or nn = numerissimi(3) Or nn = numerissimi(4) Or nn = numerissimi(5) Or nn = numerissimi(6) Or nn = numerissimi(7) Or nn = numerissimi(8) Or nn = numerissimi(9) Or nn = numerissimi(10) Then
presc = presc + 1
tot=tot+1
End If
Next
rigacol=rigacol+FormatSpace(presc,3,True)
presc=0
If ppp=5 And rr<rt5 Then
rigacol=rigacol+" - "
End If
Next
Next
Scrivi rigacol++" pres. di col. "+FormatSpace(tot,3,True)+" tot"
Scrivi
rigaruota1=""
ruota1(1)=rt1
For k = 1 To 10
If numerissimi(k)>0 Then
nnnn(1)=numerissimi(k)
If SerieFreq(est-(nec-1),est,nnnn,ruota1,1) > 0 Then
rigaruota1=rigaruota1&"."&nnnn(1)
lotr1(k)=numerissimi(k)
End If
End If
Next
Scrivi FormatSpace(NomeRuota(rt1),9)+" "+rigaruota1
rigaruota2=""
ruota2(1)=rt2
For k = 1 To 10
If numerissimi(k)>0 Then
nnnn(1)=numerissimi(k)
If SerieFreq(est-(nec-1),est,nnnn,ruota2,1) > 0 Then
rigaruota2=rigaruota2&"."&nnnn(1)
lotr2(k)=numerissimi(k)
End If
End If
Next
Scrivi FormatSpace(NomeRuota(rt2),9)+" "+rigaruota2
rigaruota3=""
ruota3(1)=rt3
For k = 1 To 10
If numerissimi(k)>0 Then
nnnn(1)=numerissimi(k)
If SerieFreq(est-(nec-1),est,nnnn,ruota3,1) > 0 Then
rigaruota3=rigaruota3&"."&nnnn(1)
lotr3(k)=numerissimi(k)
End If
End If
Next
Scrivi FormatSpace(NomeRuota(rt3),9)+" "+rigaruota3
rigaruota4=""
ruota4(1)=rt4
For k = 1 To 10
If numerissimi(k)>0 Then
nnnn(1)=numerissimi(k)
If SerieFreq(est-(nec-1),est,nnnn,ruota4,1) > 0 Then
rigaruota4=rigaruota4&"."&nnnn(1)
lotr4(k)=numerissimi(k)
End If
End If
Next
Scrivi FormatSpace(NomeRuota(rt4),9)+" "+rigaruota4
rigaruota5=""
ruota5(1)=rt5
For k = 1 To 10
If numerissimi(k)>0 Then
nnnn(1)=numerissimi(k)
If SerieFreq(est-(nec-1),est,nnnn,ruota5,1) > 0 Then
rigaruota5=rigaruota5&"."&nnnn(1)
lotr5(k)=numerissimi(k)
End If
End If
Next
Scrivi FormatSpace(NomeRuota(rt5),9)+" "+rigaruota5
Scrivi
OrdinaMatrice lotr1,-1
OrdinaMatrice lotr2,-1
OrdinaMatrice lotr3,-1
OrdinaMatrice lotr4,-1
OrdinaMatrice lotr5,-1
'-----------
rigapp=" Numeri "
rigapp1=FormatSpace(NomeRuota(rt1),9)+" -> "
rigapp2=FormatSpace(NomeRuota(rt2),9)+" -> "
rigapp3=FormatSpace(NomeRuota(rt3),9)+" -> "
rigapp4=FormatSpace(NomeRuota(rt4),9)+" -> "
rigapp5=FormatSpace(NomeRuota(rt5),9)+" -> "
For k = 1 To 10
If numerissimi(k)>0 Then
pp(1)=numerissimi(k)
rigapp=rigapp+"--"+Format2(pp(1))
pp1=SerieFreq(est-(cr1),est,pp,ruota1,1)
pp2=SerieFreq(est-(cr2),est,pp,ruota2,1)
pp3=SerieFreq(est-(cr3),est,pp,ruota3,1)
pp4=SerieFreq(est-(cr4),est,pp,ruota4,1)
pp5=SerieFreq(est-(cr5),est,pp,ruota5,1)
rigapp1=rigapp1&" "&FormatSpace(pp1,3,True)
rigapp2=rigapp2&" "&FormatSpace(pp2,3,True)
rigapp3=rigapp3&" "&FormatSpace(pp3,3,True)
rigapp4=rigapp4&" "&FormatSpace(pp4,3,True)
rigapp5=rigapp5&" "&FormatSpace(pp5,3,True)
End If
Next
Scrivi rigapp
Scrivi "Rel.Presenze ------------------------------------------------"
Scrivi rigapp1+" Ciclo Reale "+FormatSpace(cr1+1,3,True)+" estr."
Scrivi rigapp2+" Ciclo Reale "+FormatSpace(cr2+1,3,True)+" estr."
Scrivi rigapp3+" Ciclo Reale "+FormatSpace(cr3+1,3,True)+" estr."
Scrivi rigapp4+" Ciclo Reale "+FormatSpace(cr4+1,3,True)+" estr."
Scrivi rigapp5+" Ciclo Reale "+FormatSpace(cr5+1,3,True)+" estr."
Scrivi
'---------------
ciclotot=cr1+cr2+cr3+cr4+cr5+4
rigacc=" Numeri "
rigacc1=FormatSpace(NomeRuota(rt1),9)+" -> "
rigacc2=FormatSpace(NomeRuota(rt2),9)+" -> "
rigacc3=FormatSpace(NomeRuota(rt3),9)+" -> "
rigacc4=FormatSpace(NomeRuota(rt4),9)+" -> "
rigacc5=FormatSpace(NomeRuota(rt5),9)+" -> "
For k = 1 To 10
If numerissimi(k)>0 Then
nnc(1)=numerissimi(k)
rigacc=rigacc+"--"+Format2(nnc(1))
pc1=SerieFreq(est-(ciclotot),est,nnc,ruota1,1)
pc2=SerieFreq(est-(ciclotot),est,nnc,ruota2,1)
pc3=SerieFreq(est-(ciclotot),est,nnc,ruota3,1)
pc4=SerieFreq(est-(ciclotot),est,nnc,ruota4,1)
pc5=SerieFreq(est-(ciclotot),est,nnc,ruota5,1)
rigacc1=rigacc1&" "&FormatSpace(pc1,3,True)
rigacc2=rigacc2&" "&FormatSpace(pc2,3,True)
rigacc3=rigacc3&" "&FormatSpace(pc3,3,True)
rigacc4=rigacc4&" "&FormatSpace(pc4,3,True)
rigacc5=rigacc5&" "&FormatSpace(pc5,3,True)
End If
Next
Scrivi rigacc+" CTot "+FormatSpace(ciclotot+1,4,True)+" estr."
Scrivi "Rel.Presenze ------------------------------------------------"
Scrivi rigacc1
Scrivi rigacc2
Scrivi rigacc3
Scrivi rigacc4
Scrivi rigacc5
'-----------
rigaccp="Totali 5R -> "
For k = 1 To 10
If numerissimi(k)>0 Then
nncp(1)=numerissimi(k)
rigacc=rigacc+" - "+Format2(nncp(1))
pcp=SerieFreq(est-(ciclotot),est,nncp,ruote,1)
rigaccp=rigaccp&" "&FormatSpace(pcp,3,True)
End If
Next
Scrivi " ------------------------------------------------"
Scrivi rigaccp
Scrivi
'-----------
rigacc=" Numeri "
rigacc1=FormatSpace(NomeRuota(rt1),9)+" -> "
rigacc2=FormatSpace(NomeRuota(rt2),9)+" -> "
rigacc3=FormatSpace(NomeRuota(rt3),9)+" -> "
rigacc4=FormatSpace(NomeRuota(rt4),9)+" -> "
rigacc5=FormatSpace(NomeRuota(rt5),9)+" -> "
For k = 1 To 10
If numerissimi(k)>0 Then
nnc(1)=numerissimi(k)
rigacc=rigacc+"--"+Format2(nnc(1))
pc1=SerieFreq(est-(ciclotot),est,nnc,ruota1,1)
media1=(ciclotot+1)/pc1
If media1<=20 And media1=>16 Then
nmed1(k)=nnc(1)
End If
pc2=SerieFreq(est-(ciclotot),est,nnc,ruota2,1)
media2=(ciclotot+1)/pc2
If media2<=20 And media2=>16 Then
nmed2(k)=nnc(1)
End If
pc3=SerieFreq(est-(ciclotot),est,nnc,ruota3,1)
media3=(ciclotot+1)/pc3
If media3<=20 And media3=>16 Then
nmed3(k)=nnc(1)
End If
pc4=SerieFreq(est-(ciclotot),est,nnc,ruota4,1)
media4=(ciclotot+1)/pc4
If media4<=20 And media4=>16 Then
nmed4(k)=nnc(1)
End If
pc5=SerieFreq(est-(ciclotot),est,nnc,ruota5,1)
media5=(ciclotot+1)/pc5
If media5<=20 And media5=>16 Then
nmed5(k)=nnc(1)
End If
rigacc1=rigacc1&" "&FormatSpace(FormatNumber(media1,1),4,True)
rigacc2=rigacc2&" "&FormatSpace(FormatNumber(media2,1),4,True)
rigacc3=rigacc3&" "&FormatSpace(FormatNumber(media3,1),4,True)
rigacc4=rigacc4&" "&FormatSpace(FormatNumber(media4,1),4,True)
rigacc5=rigacc5&" "&FormatSpace(FormatNumber(media5,1),4,True)
End If
Next
Scrivi rigacc+" CR Tot "+FormatSpace(ciclotot+1,4,True)+" estr."
Scrivi "Rel. Medie --------------------------------------------------------------"
Scrivi rigacc1
Scrivi rigacc2
Scrivi rigacc3
Scrivi rigacc4
Scrivi rigacc5
Scrivi
OrdinaMatrice nmed1,-1
OrdinaMatrice nmed2,-1
OrdinaMatrice nmed3,-1
OrdinaMatrice nmed4,-1
OrdinaMatrice nmed5,-1
'------------
rigacc=" Numeri "
rigacc1=FormatSpace(NomeRuota(rt1),9)+" -> "
rigacc2=FormatSpace(NomeRuota(rt2),9)+" -> "
rigacc3=FormatSpace(NomeRuota(rt3),9)+" -> "
rigacc4=FormatSpace(NomeRuota(rt4),9)+" -> "
rigacc5=FormatSpace(NomeRuota(rt5),9)+" -> "
For k = 1 To 10
If numerissimi(k)>0 Then
nnc(1)=numerissimi(k)
rigacc=rigacc+"--"+Format2(nnc(1))
pc1=SerieFreq(est-(crmas-1),est,nnc,ruota1,1)
pc2=SerieFreq(est-(crmas-1),est,nnc,ruota2,1)
pc3=SerieFreq(est-(crmas-1),est,nnc,ruota3,1)
pc4=SerieFreq(est-(crmas-1),est,nnc,ruota4,1)
pc5=SerieFreq(est-(crmas-1),est,nnc,ruota5,1)
rigacc1=rigacc1&" "&FormatSpace(pc1,3,True)
rigacc2=rigacc2&" "&FormatSpace(pc2,3,True)
rigacc3=rigacc3&" "&FormatSpace(pc3,3,True)
rigacc4=rigacc4&" "&FormatSpace(pc4,3,True)
rigacc5=rigacc5&" "&FormatSpace(pc5,3,True)
End If
Next
Scrivi rigacc+" CR Mass "+FormatSpace(crmas+1,4,True)+" estraz."
Scrivi "Rel.Presenze ------------------------------------------------"
Scrivi rigacc1
Scrivi rigacc2
Scrivi rigacc3
Scrivi rigacc4
Scrivi rigacc5
Scrivi
'-----------
rigann=" Numeri "
rigarrr1=FormatSpace(NomeRuota(rt1),9)+" -> "
rigarrr2=FormatSpace(NomeRuota(rt2),9)+" -> "
rigarrr3=FormatSpace(NomeRuota(rt3),9)+" -> "
rigarrr4=FormatSpace(NomeRuota(rt4),9)+" -> "
rigarrr5=FormatSpace(NomeRuota(rt5),9)+" -> "
For k = 1 To 10
If numerissimi(k)>0 Then
nnl(1)=numerissimi(k)
rigann=rigann+"--"+Format2(nnl(1))
rrr1=SerieRitardo(est-250,est,nnl,ruota1,1)
rrr2=SerieRitardo(est-250,est,nnl,ruota2,1)
rrr3=SerieRitardo(est-250,est,nnl,ruota3,1)
rrr4=SerieRitardo(est-250,est,nnl,ruota4,1)
rrr5=SerieRitardo(est-250,est,nnl,ruota5,1)
rigarrr1=rigarrr1&" "&FormatSpace(rrr1,3,True)
rigarrr2=rigarrr2&" "&FormatSpace(rrr2,3,True)
rigarrr3=rigarrr3&" "&FormatSpace(rrr3,3,True)
rigarrr4=rigarrr4&" "&FormatSpace(rrr4,3,True)
rigarrr5=rigarrr5&" "&FormatSpace(rrr5,3,True)
End If
Next
Scrivi rigann
Scrivi "Rel. Ritardi -------------------------------------------------"
Scrivi rigarrr1+" Ciclo Reale "+FormatSpace(cr1+1,3,True)+" estr."
Scrivi rigarrr2+" Ciclo Reale "+FormatSpace(cr2+1,3,True)+" estr."
Scrivi rigarrr3+" Ciclo Reale "+FormatSpace(cr3+1,3,True)+" estr."
Scrivi rigarrr4+" Ciclo Reale "+FormatSpace(cr4+1,3,True)+" estr."
Scrivi rigarrr5+" Ciclo Reale "+FormatSpace(cr5+1,3,True)+" estr."
Scrivi
'---------------
rigann=" Numeri "
rigarrr1=FormatSpace(NomeRuota(rt1),9)+" -> "
rigarrr2=FormatSpace(NomeRuota(rt2),9)+" -> "
rigarrr3=FormatSpace(NomeRuota(rt3),9)+" -> "
rigarrr4=FormatSpace(NomeRuota(rt4),9)+" -> "
rigarrr5=FormatSpace(NomeRuota(rt5),9)+" -> "
For k = 1 To 10
If numerissimi(k)>0 Then
nnl(1)=numerissimi(k)
rigann=rigann+"--"+Format2(nnl(1))
rrr1=SerieStorico(4123,est,nnl,ruota1,1)
rrr2=SerieStorico(4123,est,nnl,ruota2,1)
rrr3=SerieStorico(4123,est,nnl,ruota3,1)
rrr4=SerieStorico(4123,est,nnl,ruota4,1)
rrr5=SerieStorico(4123,est,nnl,ruota5,1)
rigarrr1=rigarrr1&" "&FormatSpace(rrr1,3,True)
rigarrr2=rigarrr2&" "&FormatSpace(rrr2,3,True)
rigarrr3=rigarrr3&" "&FormatSpace(rrr3,3,True)
rigarrr4=rigarrr4&" "&FormatSpace(rrr4,3,True)
rigarrr5=rigarrr5&" "&FormatSpace(rrr5,3,True)
End If
Next
Scrivi rigann
Scrivi "Rel. Ritardi -------------------------------------------------"+" Storici dal 1950"
Scrivi rigarrr1'+" Ciclo Reale "+FormatSpace(cr1,3,True)+" estr."
Scrivi rigarrr2'+" Ciclo Reale "+FormatSpace(cr2,3,True)+" estr."
Scrivi rigarrr3'+" Ciclo Reale "+FormatSpace(cr3,3,True)+" estr."
Scrivi rigarrr4'+" Ciclo Reale "+FormatSpace(cr4,3,True)+" estr."
Scrivi rigarrr5'+" Ciclo Reale "+FormatSpace(cr5,3,True)+" estr."
Scrivi
'---------------
riga1 = ""
ritmassimo=0
For j = 1 To 9
For k = j + 1 To 10
v(1) = 0
v(1) = CInt(numerissimi(j))
v(2) = 0
v(2) = CInt(numerissimi(k))
If v(1)<>0 And v(2)<>0 Then
ritardo(1) = 0
ritardo(1) = SerieRitardo(EstrazioneIni, est, v, ruote,2)
If ritardo(1)>ritmassimo Then
ritmassimo=ritardo(1)
amborit(1)=v(1)
amborit(2)=v(2)
End If
If ritardo(1) => 100 Then
rts=SerieStorico(4123,est,v,ruote,2)
riga1 = "Ritardo dell'ambo "&Format2(v(1))&"."&Format2(v(2))&" con "&FormatSpace(ritardo(1),5,True)+" estrazioni Rit. Storico "+FormatSpace(rts,5,True)
Scrivi riga1
End If
End If
Next
Next
Scrivi
ImpostaGiocata 1, numerissimi, ruote, poste, colpi', 2
Gioca est
Scrivi String(80,"*")
End If
Erase numerissimi
Erase numeri
Erase lotr1
Erase lotr2
Erase lotr3
Erase lotr4
Erase lotr5
Erase nmed1
Erase nmed2
Erase nmed3
Erase nmed4
Erase nmed5
Erase crmass
Next
Next
Next
Next
Next
Next
ScriviResoconto
End SubDovrebbe essere BASEF di Scaravetti,avevo l'originale,ma e' andato perso con la frittura dell'hd.<questo l'ho' reperito nel web ...e non sono sicuro sia quello che intendo io.Colgo l'occasione per chiedere gentilmente se qualcuno avesse lo script in questione di postarlo.Grazie.
