AIUTO PER UNA CONVERSIONE DI UNO SCRIPT L8 a SPAZIOMETRIA

Codicebinario · 11 Agosto 2023

Buongiorno a TUTTI,

allego uno script fatto da BLACKMOORE (che sauto caramente se legge) per chiedere ,se fosse possibile avere nell'imput box la scelta delle VENUS (NORD,CENTRO SUD) e la data da cui far partire lo script . Le date di partenza sono :

VENUS NORD 16/06/2009
VENUS CENTRO 23/06/209
VENUS SUD 15/09/2009

e sistemare lo script che è per L8, su SPAZIOMETRIA da errore ed io non sono capace !!!!!!!!!!

Grazie a tutti! e buon lotto a tutti!!!!

Scrivi "La BaseF di Adriano Scaravetti per le Venus-Nord"
Sub main()
Dim nu(1)
Dim posta(1), poste(2), ruote(4), numerissimi(10), nlot(20)
Dim ruotes1(1), ruotes2(1), ruotes3(1), ruotes4(1)
Dim numeri(90), pc(25), nnnn(1), nnn(1), nnl(1), pp(1)
Dim ruota1(1), ruota2(1), ruota3(1), ruota4(1)
Dim lotr1(10), lotr2(10), lotr3(10), lotr4(10)
Dim nr1(1), nr2(1), nr3(1), nr4(1)
Dim v(3), ritardo(1), crmass(5)
Dim nnc(1), nncp(1), amborit(2), tt(1), postes(2)
posta(1) =1
poste(1) = 1
poste(2) = 1
postes(1)=0
postes(2)=1

ini = EstrazioneFin-10
fin = EstrazioneFin-0
nec=5 'numero estrazioni di controllo
piuvolte=3
colpi=12
ritambo=100 'ritardo dell'ambo

For est = ini To fin
AvanzamentoElab ini, fin, est
rt1 = 4
ruote(1) = rt1
ruota1(1)=rt1
nr1(1)=PiuRitardatario (est,rt1)
cr1=SerieRitardo(est-250,est,nr1,ruota1,1)
rt2 = 5
ruote(2) = rt2
ruota2(1)=rt2
nr2(1)=PiuRitardatario (est,rt2)
cr2=SerieRitardo(est-250,est,nr2,ruota2,1)
rt3 = 9
ruote(3) = rt3
ruota3(1)=rt3
nr3(1)=PiuRitardatario (est,rt3)
cr3=SerieRitardo(est-250,est,nr3,ruota3,1)
rt4 = 10
ruote(4) = rt4
ruota4(1)=rt4
nr4(1)=PiuRitardatario (est,rt4)
cr4=SerieRitardo(est-250,est,nr4,ruota4,1)
crmass(1)=cr1
crmass(2)=cr2
crmass(3)=cr3
crmass(4)=cr4
OrdinaMatrice crmass,-1
crmas=crmass(1)
Erase numeri
For n = 1 To 90 step 1
nu(1)=n
If SerieFreq(est-(nec-1),est,nu,ruote,1) => piuvolte Then 'condizione
numeri

=CInt(nu(1))
End If
Next
OrdinaMatrice numeri,-1
EliminaRipetuti numeri
Erase numerissimi
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)
Scrivi
Scrivi " "&FormatSpace(NomeRuota(rt1),14)&" "&FormatSpace(NomeRuota(rt2),14)&_
" "&FormatSpace(NomeRuota(rt3),14)& " " &FormatSpace(NomeRuota(rt4),14),1
riga=""
presr=0
For e=est-(nec-1) To est step 1
For rr=1 To 10
If rr=rt1 Or rr=rt2 Or rr=rt3 Or rr=rt4 Then
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<rt4 Then
riga=riga+" - "
End If
End If
Next
Scrivi riga+" pres. di riga "+FormatSpace(presr,3,True)
riga=""
presr=0
Next
rigacol=""
presc=0
tot=0
For rr=1 To 10
If rr=rt1 Or rr=rt2 Or rr=rt3 Or rr=rt4 Then
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<rt4 Then
rigacol=rigacol+" - "
End If
Next
End If
Next
Scrivi String(88,"-")
Scrivi rigacol++" pres. di col. "+FormatSpace(tot,3,True)+" tot"
Scrivi
Scrivi "Rilevati "&contanumeri&" numeri: "& StringaNumeri(numerissimi),1
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
Scrivi
OrdinaMatrice lotr1,-1
OrdinaMatrice lotr2,-1
OrdinaMatrice lotr3,-1
OrdinaMatrice lotr4,-1
Scrivi
rigann=" Numeri "
rigarrr1=FormatSpace(NomeRuota(rt1),9)+" -> "
rigarrr2=FormatSpace(NomeRuota(rt2),9)+" -> "
rigarrr3=FormatSpace(NomeRuota(rt3),9)+" -> "
rigarrr4=FormatSpace(NomeRuota(rt4),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)
rigarrr1=rigarrr1&" "&FormatSpace(rrr1,3,True)
rigarrr2=rigarrr2&" "&FormatSpace(rrr2,3,True)
rigarrr3=rigarrr3&" "&FormatSpace(rrr3,3,True)
rigarrr4=rigarrr4&" "&FormatSpace(rrr4,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
'---------------
rigann=" Numeri "
rigarrr1=FormatSpace(NomeRuota(rt1),9)+" -> "
rigarrr2=FormatSpace(NomeRuota(rt2),9)+" -> "
rigarrr3=FormatSpace(NomeRuota(rt3),9)+" -> "
rigarrr4=FormatSpace(NomeRuota(rt4),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)
rigarrr1=rigarrr1&" "&FormatSpace(rrr1,3,True)
rigarrr2=rigarrr2&" "&FormatSpace(rrr2,3,True)
rigarrr3=rigarrr3&" "&FormatSpace(rrr3,3,True)
rigarrr4=rigarrr4&" "&FormatSpace(rrr4,3,True)
End If
Next
Scrivi rigann
Scrivi "Rel. Ritardi -------------------------------------------------"+" Storici dal 1950"
Scrivi rigarrr1
Scrivi rigarrr2
Scrivi rigarrr3
Scrivi rigarrr4
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) => ritambo 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
Next
ScriviResoconto
End Sub

joe · 11 Agosto 2023

Ciao ho corretto errori di sintassi e qualcosa che ho trovato

non più adatto all'attuale situazione esistente.

Prima ancora delle date andrebbero confrontati i risultati qui ottenuti

con quelli della versione "originale".

Codice:

Scrivi "La BaseF di Adriano Scaravetti per le Venus-Nord"
Sub Main()
   Dim nu(1)
   Dim posta(1),poste(2),ruote(4),numerissimi(10),nlot(20)
   Dim ruotes1(1),ruotes2(1),ruotes3(1),ruotes4(1)
   Dim pc(25),nnnn(1),nnn(1),nnl(1),pp(1)
   Dim ruota1(1),ruota2(1),ruota3(1),ruota4(1)
   Dim lotr1(10),lotr2(10),lotr3(10),lotr4(10)
   Dim nr1(1),nr2(1),nr3(1),nr4(1)
   Dim v(3),ritardo(1),crmass(5)
   Dim nnc(1),nncp(1),amborit(2),tt(1),postes(2)
   posta(1) = 1
   poste(1) = 1
   poste(2) = 1
   postes(1) = 0
   postes(2) = 1
   ini = EstrazioneFin - 10
   fin = EstrazioneFin - 0
   nec = 5 'numero estrazioni di controllo
   piuvolte = 3
   colpi = 12
   ritambo = 100 'ritardo dell'ambo
   For est = ini To fin
      AvanzamentoElab ini,fin,est
      rt1 = 4
      ruote(1) = rt1
      ruota1(1) = rt1
      nr1(1) = PiuRitardatario(est,rt1)
      cr1 = SerieRitardo(1,est,nr1,ruota1,1)
      rt2 = 5
      ruote(2) = rt2
      ruota2(1) = rt2
      nr2(1) = PiuRitardatario(est,rt2)
      cr2 = SerieRitardo(1,est,nr2,ruota2,1)
      rt3 = 9
      ruote(3) = rt3
      ruota3(1) = rt3
      nr3(1) = PiuRitardatario(est,rt3)
      cr3 = SerieRitardo(1,est,nr3,ruota3,1)
      rt4 = 10
      ruote(4) = rt4
      ruota4(1) = rt4
      nr4(1) = PiuRitardatario(est,rt4)
      cr4 = SerieRitardo(1,est,nr4,ruota4,1)
      crmass(1) = cr1
      crmass(2) = cr2
      crmass(3) = cr3
      crmass(4) = cr4
      OrdinaMatrice crmass,- 1
      crmas = crmass(1)
      ReDim numeri(90)
      For n = 1 To 90 Step 1
         nu(1) = n
         If SerieFreq(est -(nec - 1),est,nu,ruote,1) >= piuvolte Then 'condizione
            numeri(n) = CInt(nu(1))
         End If
      Next
      OrdinaMatrice numeri,- 1
      EliminaRipetuti numeri
      Erase numerissimi
      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)
         Scrivi
         Scrivi " " & FormatSpace(NomeRuota(rt1),14) & " " & FormatSpace(NomeRuota(rt2),14) & _
         " " & FormatSpace(NomeRuota(rt3),14) & " " & FormatSpace(NomeRuota(rt4),14),1
         riga = ""
         presr = 0
         For e = est -(nec - 1) To est Step 1
            For rr = 1 To 10
               If rr = rt1 Or rr = rt2 Or rr = rt3 Or rr = rt4 Then
                  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 < rt4 Then
                     riga = riga + " - "
                  End If
               End If
            Next
            Scrivi riga + " pres. di riga " + FormatSpace(presr,3,True)
            riga = ""
            presr = 0
         Next
         rigacol = ""
         presc = 0
         tot = 0
         For rr = 1 To 10
            If rr = rt1 Or rr = rt2 Or rr = rt3 Or rr = rt4 Then
               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 < rt4 Then
                     rigacol = rigacol + " - "
                  End If
               Next
            End If
         Next
         Scrivi String(88,"-")
         Scrivi rigacol + + " pres. di col. " + FormatSpace(tot,3,True) + " tot"
         Scrivi
         Scrivi "Rilevati " & contanumeri & " numeri: " & StringaNumeri(numerissimi),1
         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
         Scrivi
         OrdinaMatrice lotr1,- 1
         OrdinaMatrice lotr2,- 1
         OrdinaMatrice lotr3,- 1
         OrdinaMatrice lotr4,- 1
         Scrivi
         rigann = " Numeri "
         rigarrr1 = FormatSpace(NomeRuota(rt1),9) + " -> "
         rigarrr2 = FormatSpace(NomeRuota(rt2),9) + " -> "
         rigarrr3 = FormatSpace(NomeRuota(rt3),9) + " -> "
         rigarrr4 = FormatSpace(NomeRuota(rt4),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)
               rigarrr1 = rigarrr1 & " " & FormatSpace(rrr1,3,True)
               rigarrr2 = rigarrr2 & " " & FormatSpace(rrr2,3,True)
               rigarrr3 = rigarrr3 & " " & FormatSpace(rrr3,3,True)
               rigarrr4 = rigarrr4 & " " & FormatSpace(rrr4,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
         '---------------
         rigann = " Numeri "
         rigarrr1 = FormatSpace(NomeRuota(rt1),9) + " -> "
         rigarrr2 = FormatSpace(NomeRuota(rt2),9) + " -> "
         rigarrr3 = FormatSpace(NomeRuota(rt3),9) + " -> "
         rigarrr4 = FormatSpace(NomeRuota(rt4),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)
               rigarrr1 = rigarrr1 & " " & FormatSpace(rrr1,3,True)
               rigarrr2 = rigarrr2 & " " & FormatSpace(rrr2,3,True)
               rigarrr3 = rigarrr3 & " " & FormatSpace(rrr3,3,True)
               rigarrr4 = rigarrr4 & " " & FormatSpace(rrr4,3,True)
            End If
         Next
         Scrivi rigann
         Scrivi "Rel. Ritardi -------------------------------------------------" + " Storici dal 1950"
         Scrivi rigarrr1
         Scrivi rigarrr2
         Scrivi rigarrr3
         Scrivi rigarrr4
         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) >= ritambo 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
   Next
   ScriviResoconto
End Sub

Codicebinario · 11 Agosto 2023

joe ha scritto:

Ciao ho corretto errori di sintassi e qualcosa che ho trovato

non più adatto all'attuale situazione esistente.

Prima ancora delle date andrebbero confrontati i risultati qui ottenuti

con quelli della versione "originale".

Codice:

Scrivi "La BaseF di Adriano Scaravetti per le Venus-Nord"
Sub Main()
   Dim nu(1)
   Dim posta(1),poste(2),ruote(4),numerissimi(10),nlot(20)
   Dim ruotes1(1),ruotes2(1),ruotes3(1),ruotes4(1)
   Dim pc(25),nnnn(1),nnn(1),nnl(1),pp(1)
   Dim ruota1(1),ruota2(1),ruota3(1),ruota4(1)
   Dim lotr1(10),lotr2(10),lotr3(10),lotr4(10)
   Dim nr1(1),nr2(1),nr3(1),nr4(1)
   Dim v(3),ritardo(1),crmass(5)
   Dim nnc(1),nncp(1),amborit(2),tt(1),postes(2)
   posta(1) = 1
   poste(1) = 1
   poste(2) = 1
   postes(1) = 0
   postes(2) = 1
   ini = EstrazioneFin - 10
   fin = EstrazioneFin - 0
   nec = 5 'numero estrazioni di controllo
   piuvolte = 3
   colpi = 12
   ritambo = 100 'ritardo dell'ambo
   For est = ini To fin
      AvanzamentoElab ini,fin,est
      rt1 = 4
      ruote(1) = rt1
      ruota1(1) = rt1
      nr1(1) = PiuRitardatario(est,rt1)
      cr1 = SerieRitardo(1,est,nr1,ruota1,1)
      rt2 = 5
      ruote(2) = rt2
      ruota2(1) = rt2
      nr2(1) = PiuRitardatario(est,rt2)
      cr2 = SerieRitardo(1,est,nr2,ruota2,1)
      rt3 = 9
      ruote(3) = rt3
      ruota3(1) = rt3
      nr3(1) = PiuRitardatario(est,rt3)
      cr3 = SerieRitardo(1,est,nr3,ruota3,1)
      rt4 = 10
      ruote(4) = rt4
      ruota4(1) = rt4
      nr4(1) = PiuRitardatario(est,rt4)
      cr4 = SerieRitardo(1,est,nr4,ruota4,1)
      crmass(1) = cr1
      crmass(2) = cr2
      crmass(3) = cr3
      crmass(4) = cr4
      OrdinaMatrice crmass,- 1
      crmas = crmass(1)
      ReDim numeri(90)
      For n = 1 To 90 Step 1
         nu(1) = n
         If SerieFreq(est -(nec - 1),est,nu,ruote,1) >= piuvolte Then 'condizione
            numeri(n) = CInt(nu(1))
         End If
      Next
      OrdinaMatrice numeri,- 1
      EliminaRipetuti numeri
      Erase numerissimi
      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)
         Scrivi
         Scrivi " " & FormatSpace(NomeRuota(rt1),14) & " " & FormatSpace(NomeRuota(rt2),14) & _
         " " & FormatSpace(NomeRuota(rt3),14) & " " & FormatSpace(NomeRuota(rt4),14),1
         riga = ""
         presr = 0
         For e = est -(nec - 1) To est Step 1
            For rr = 1 To 10
               If rr = rt1 Or rr = rt2 Or rr = rt3 Or rr = rt4 Then
                  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 < rt4 Then
                     riga = riga + " - "
                  End If
               End If
            Next
            Scrivi riga + " pres. di riga " + FormatSpace(presr,3,True)
            riga = ""
            presr = 0
         Next
         rigacol = ""
         presc = 0
         tot = 0
         For rr = 1 To 10
            If rr = rt1 Or rr = rt2 Or rr = rt3 Or rr = rt4 Then
               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 < rt4 Then
                     rigacol = rigacol + " - "
                  End If
               Next
            End If
         Next
         Scrivi String(88,"-")
         Scrivi rigacol + + " pres. di col. " + FormatSpace(tot,3,True) + " tot"
         Scrivi
         Scrivi "Rilevati " & contanumeri & " numeri: " & StringaNumeri(numerissimi),1
         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
         Scrivi
         OrdinaMatrice lotr1,- 1
         OrdinaMatrice lotr2,- 1
         OrdinaMatrice lotr3,- 1
         OrdinaMatrice lotr4,- 1
         Scrivi
         rigann = " Numeri "
         rigarrr1 = FormatSpace(NomeRuota(rt1),9) + " -> "
         rigarrr2 = FormatSpace(NomeRuota(rt2),9) + " -> "
         rigarrr3 = FormatSpace(NomeRuota(rt3),9) + " -> "
         rigarrr4 = FormatSpace(NomeRuota(rt4),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)
               rigarrr1 = rigarrr1 & " " & FormatSpace(rrr1,3,True)
               rigarrr2 = rigarrr2 & " " & FormatSpace(rrr2,3,True)
               rigarrr3 = rigarrr3 & " " & FormatSpace(rrr3,3,True)
               rigarrr4 = rigarrr4 & " " & FormatSpace(rrr4,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
         '---------------
         rigann = " Numeri "
         rigarrr1 = FormatSpace(NomeRuota(rt1),9) + " -> "
         rigarrr2 = FormatSpace(NomeRuota(rt2),9) + " -> "
         rigarrr3 = FormatSpace(NomeRuota(rt3),9) + " -> "
         rigarrr4 = FormatSpace(NomeRuota(rt4),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)
               rigarrr1 = rigarrr1 & " " & FormatSpace(rrr1,3,True)
               rigarrr2 = rigarrr2 & " " & FormatSpace(rrr2,3,True)
               rigarrr3 = rigarrr3 & " " & FormatSpace(rrr3,3,True)
               rigarrr4 = rigarrr4 & " " & FormatSpace(rrr4,3,True)
            End If
         Next
         Scrivi rigann
         Scrivi "Rel. Ritardi -------------------------------------------------" + " Storici dal 1950"
         Scrivi rigarrr1
         Scrivi rigarrr2
         Scrivi rigarrr3
         Scrivi rigarrr4
         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) >= ritambo 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
   Next
   ScriviResoconto
End Sub

Grazie JOe ben riletto, a cosa ti riferisci quando dici"
confrontati i risultati qui ottenuti con quelli della versione "originale".?

Io le mie ricerche e curiosita' le baso sulle 3 VENUS a partire dalla data di messa in opera delle stesse,non mi interessa sapere lo storico dal 1950,
la ricerca deve partire da li. Cercherò di verificare nel mio piccolo,ma senza iuto di script ad "HOC" diventa difficile colblock notes.Ormai son "vecchio" con tutto ciò che ne consegue.Grazie.

franca46 · 13 Agosto 2023

ciao binarycode
io ho questo listato , potrebbe servirti , è per L8

Codice:

Sub Main
Dim E,K,R(11),P,N(15)
For E = EstrazioneFin - 3 To EstrazioneFin ' ---> DECIDO QUANTE ESTRAZIONI PRENDO IN CONSIDERAZIONE
K = 0
'Ruote Nord
R(1) = 5
R(2) = 4
R(3) = 9
R(4) = 10
'Ruote Centro
R(5) = 8
R(6) = 2
R(7) = 3
R(8) = 12
'Ruote Sud
R(9) = 1
R(10) = 6
R(11) = 7
Scrivi
ColoreTesto 2
Scrivi "-------------- RUOTE NORD ----------------",1
ColoreTesto 0
For i = 1 To 4
Scrivi DataEstrazione(E) & Space(5) & SiglaRuota(R(i)) & " " & StringaEstratti(E,R(i)),1
Next
Scrivi
ColoreTesto 2
Scrivi "-------------- RUOTE CENTRO -------------- ",1
ColoreTesto 0
For i = 5 To 8
Scrivi DataEstrazione(E) & Space(5) & SiglaRuota(R(i)) & " " & StringaEstratti(E,R(i)),1
Next
Scrivi
ColoreTesto 2
Scrivi "-------------- RUOTE SUD -----------------",1
ColoreTesto 0
For i = 9 To 11
Scrivi DataEstrazione(E) & Space(5) & SiglaRuota(R(i)) & " " & StringaEstratti(E,R(i)),1
Next
Scrivi
ColoreTesto 3
Scrivi String(42,"="),1
Next
End Sub

buona domenica

franca46 · 13 Agosto 2023

franca46 ha scritto:

ciao binarycode
io ho questo listato , potrebbe servirti , è per L8

Codice:

Sub Main
Dim E,K,R(11),P,N(15)
For E = EstrazioneFin - 3 To EstrazioneFin ' ---> DECIDO QUANTE ESTRAZIONI PRENDO IN CONSIDERAZIONE
K = 0
'Ruote Nord
R(1) = 5
R(2) = 4
R(3) = 9
R(4) = 10
'Ruote Centro
R(5) = 8
R(6) = 2
R(7) = 3
R(8) = 12
'Ruote Sud
R(9) = 1
R(10) = 6
R(11) = 7
Scrivi
ColoreTesto 2
Scrivi "-------------- RUOTE NORD ----------------",1
ColoreTesto 0
For i = 1 To 4
Scrivi DataEstrazione(E) & Space(5) & SiglaRuota(R(i)) & " " & StringaEstratti(E,R(i)),1
Next
Scrivi
ColoreTesto 2
Scrivi "-------------- RUOTE CENTRO -------------- ",1
ColoreTesto 0
For i = 5 To 8
Scrivi DataEstrazione(E) & Space(5) & SiglaRuota(R(i)) & " " & StringaEstratti(E,R(i)),1
Next
Scrivi
ColoreTesto 2
Scrivi "-------------- RUOTE SUD -----------------",1
ColoreTesto 0
For i = 9 To 11
Scrivi DataEstrazione(E) & Space(5) & SiglaRuota(R(i)) & " " & StringaEstratti(E,R(i)),1
Next
Scrivi
ColoreTesto 3
Scrivi String(42,"="),1
Next
End Sub

buona domenica

ma forse non c'entra nulla, ho visto dopo cosa fa il listato

Codicebinario · 13 Agosto 2023

franca46 ha scritto:
ma forse non c'entra nulla, ho visto dopo cosa fa il listato

Grazie franca46 è utile avere a colpo d'occhio le varie ruote suddivise per VENUS !!!!! Ma non e' esattamente quello che cercavo...purtroppo non ho L8,e comunque il tuo listato gira anche su Spaziometria. Ancora grazie e buona domenica a te!

franca46 · 13 Agosto 2023

binarycode ha scritto:
Grazie franca46 è utile avere a colpo d'occhio le varie ruote suddivise per VENUS !!!!! Ma non e' esattamente quello che cercavo...purtroppo non ho L8,e comunque il tuo listato gira anche su Spaziometria. Ancora grazie e buona domenica a te!

Ciao, infatti, dopo ho letto con attenzione

Buona domenica

joe · 13 Agosto 2023

binarycode ha scritto:
Grazie Joe ben riletto, a cosa ti riferisci quando dici"
confrontati i risultati qui ottenuti con quelli della versione "originale".?

Io le mie ricerche e curiosita' le baso sulle 3 VENUS a partire dalla data di messa in opera delle stesse,non mi interessa sapere lo storico dal 1950,
la ricerca deve partire da li. Cercherò di verificare nel mio piccolo, ma senza iuto di script ad "HOC" diventa difficile col blocconote. Ormai son "vecchio" con tutto ciò che ne consegue. Grazie.

Intendevo dire che sul Pc che uso attualmente non ho installato L8 dunque non posso

confrontare i risultati che questo script produce con L8 e quelli che produce con Spaziometria.

Cioè se con Spaziometria dopo le modifiche fatte funziona ancora bene.

Se si, si possono facilmente inserire le date differenti ... che però essendo molto simili

non introducono differenze così grandi, da potersi confrontare con quelle prodotte da uno script mal funzionante.

Codicebinario · 13 Agosto 2023

joe ha scritto:
Intendevo dire che sul Pc che uso attualmente non ho installato L8 dunque non posso

confrontare i risultati che questo script produce con L8 e quelli che produce con Spaziometria.

Cioè se con Spaziometria dopo le modifiche fatte funziona ancora bene.

Se si, si possono facilmente inserire le date differenti ... che però essendo molto simili

non introducono differenze così grandi, da potersi confrontare con quelle prodotte da uno script mal funzionante.

Ciao JOE,e grazie per avermi risposto,purtroppo anche io non ho L8,ma a causa di change di pc,virus....praticamente mi sono perso 78gb di materiali......script ,programmi..... ora pc nuovo,un i5 DELL...preso usato ...sono quelli mini da tavolo,20x20x4 cm,è favoloso,velocissimo....
ho recuperato da una chiavetta ,giusto "un paio" di script che ho salvato (2gb di sript in formato text)i, quando stavo cercando di farli girare in spazio ultima versione,alcuni danno errore fra cui quello postato,ecco perche non posso fare una verifica del listato.
Comunque,conoscendo la tua fama di acuto osservatore ,la passione che ci metti, la conoscenza di linguaggi,la voglia di aiutare il prossimo,confido nel tuo aiuto.Grazie a quello che fai per tutti appassionati di "numerelli".In pratica,vorrei lo stesso scrip"metodo" dove in input box ho la possibilita di scegliere su quale VENUS applicare lo script e le date di inizio devono esse quelle descritte.Il numero di colpi ,e la sorte da 1 a 5 dove 1 è ambata 2 ambo 3terno,4 quaterna ,5cinquina.Spero di essere stato esaustivo,scusa se sono prolisso,e grazie ancora per quello che potrai fare.Buona domenica.

i legend · 13 Agosto 2023

Ciao c b posso chiederti che modello hai preso ?
Cpu e gpu( scheda video) e ram?

Non il prezzo, non mi per.etterei mai,
Mi hai incuriosito con il velocissimo.
Se non puoi , grazie ugualmente

Codicebinario · 13 Agosto 2023

i legend ha scritto:
Ciao c b posso chiederti che modello hai preso ?
Cpu e gpu( scheda video) e ram?

Non il prezzo, non mi per.etterei mai,
Mi hai incuriosito con il velocissimo.
Se non puoi , grazie ugualmente

OPTIPLEX DELL
Processore Intel® Core™ i5-13500T (tredicesima versione) OS Windows 11 Pro Memoria 16 GB Storage Unità SSD PCIe NVMe M.2 2230 Class 35 da 512 GB scheda video non so !!!!!!! Se vuoi interrogo il sistema per la scheda video.....io non faccio grafica ne tantomeno ingegneria o architettura.....mi e' capitato questo sotto le mani e l'ho preso al 50% usato....parliamo di 500 euri usato.....spero di essere stato esaustivo! comunque grazie !!!!

i legend · 13 Agosto 2023

Sono sicuro che è velocissimo.
I mini pc sono comodi e meno ingombranti.
Complimenti

i legend · 13 Agosto 2023

Grazie c.b
Un ottimo affare , a me a quel prezzo avevano proposto un notebook i5 di 4 gen con scheda video integrata .( cioè non una buona.)
Ma questo era la migliore proposta. Mi hai rincuorato sull usato.
La scheda video è importante anche per i calcoli, aiuta parecchio la cpu.

Codicebinario · 13 Agosto 2023

ma figurati !!!
una cosa...ma hai bisogno per forza di un portatile?
io , l'ho preso perche comunque avevo monitor , tastiera e mouse.... se hai bisogno di un cell di un venditore(lavora nel settore da oltre 20 anni ed e',o meglio era ,colui che si occupava della mia azienda) di software e macchine(pc)....ora si e' messo in proprio....e lavora da professionista,persona seria
se gli spieghi le tue esigenze , sapra' consigliarti, e se ha usati per mani (buoni) spenderai il giusto.....fammi sapere.Ciao e grazie.

i legend · 13 Agosto 2023

Grazie mille c.b

No stavo pensando ad un fisso.
Ora al momento, ho avuto un po di spese e mi tocca aspettare.
Faccio un ultimo giro di negozi e se non trovo niente ci mettiamo in contatto ma su un altro forum dove ci sono i messaggi privati.
Qui si prende il ban per scambio mail o numeri.
Grazie mille, per la proposta.

Codicebinario · 13 Agosto 2023

Cerca

Cerca

AIUTO PER UNA CONVERSIONE DI UNO SCRIPT L8 a SPAZIOMETRIA

Codicebinario

Advanced Member >PLATINUM<

joe

Advanced Member >PLATINUM PLUS<

Codicebinario

Advanced Member >PLATINUM<

franca46

Advanced Member >PLATINUM PLUS<

franca46

Advanced Member >PLATINUM PLUS<

Codicebinario

Advanced Member >PLATINUM<

franca46

Advanced Member >PLATINUM PLUS<

joe

Advanced Member >PLATINUM PLUS<

Codicebinario

Advanced Member >PLATINUM<

i legend

Premium Member

Codicebinario

Advanced Member >PLATINUM<

i legend

Premium Member

i legend

Premium Member

Codicebinario

Advanced Member >PLATINUM<

i legend

Premium Member

Codicebinario

Advanced Member >PLATINUM<

Ultima estrazione Lotto

Ultimi Messaggi