Novità

Aiuto modifica di uno script fatto per spaziometria a l8 / lottodesk

simon-simon

Junior Member
Sub Main()
Dim ruote(1)
Dim posta(1)
Dim num(90,4)
Dim uscito(90,2)
Dim anum(10)
Dim nume(90,4)
my = MsgBox("1 - numeri rilevati " & Chr(13) & "2 - frequenza nei cicli dei numeri " & Chr(13) & "3 - Ritardo dei numeri rilevati " & Chr(13) & "4 - Frequenza numeri ultimi 10 colpi",,"LETTURA NUMERI RICAVATI")
r = InputBox("Su quale ruota?",,1)
colpi = InputBox("Quanti colpi?",,10)
ruote(1) = r
ini = 1
fin = EstrazioneFin
Scrivi " Analisi dal " & DataEstrazione(ini) & " a " & DataEstrazione(fin)
Scrivi "Primi 10 più frequenti usciti dopo il numero Spia entro i " & colpi & " colpi",1
For sp = 1 To 90
Messaggio " Spia: " & sp & " < >"
Call AvanzamentoElab(1,90,sp)
For i = 1 To 90
num(i,1) = 0
num(i,2) = 0
num(i,4) = 0
Next
co = 0
For es = ini To fin
If Posizione(es,r,sp) > 0 Then
co = co + 1
ess = es + colpi
If ess > fin Then ess = fin End If
For a = es + 1 To ess
For v = 1 To 90
Next
For e = 1 To 5
n = Estratto(a,r,e)
num(n,1) = n
If Posizione(a,r,num(n,1)) Then num(n,2) = num(n,2) + 1
frc = num(n,2)
fru = EstrattoFrequenza(r,n,es,es + colpi)
num(n,2) = frc
rit = EstrattoRitardo(r,n,Ini,fin)
rtsp = EstrattoRitardo(r,sp,Ini,fin)
num(n,3) = rit
num(n,4) = fru
Next
Next
End If
Next
OrdinaMatrice num,- 1,2
per = Int((co/100)*65)
If rtsp < 10 Then
Scrivi "_________________________________________________________________"
ColoreTesto 1
Scrivi "Numero spia: " & sp & " su " & FormatSpace(NomeRuota(r),10) & " casi = " & co & " colpi " & colpi,0,0
ColoreTesto 2
Scrivi " - Rit. Spia.. " & rtsp,0,0
ColoreTesto 7
Scrivi " ---> Spia attiva per " &(colpi - rtsp) & " Colpi ",1
ColoreTesto 0
'
Else
Scrivi "_________________________________________________________________"
Scrivi "Numero spia: " & sp & " su " & FormatSpace(NomeRuota(r),10) & " casi = " & co & " colpi " & colpi,0,0
ColoreTesto 2
Scrivi " - Rit. Spia.. " & rtsp
ColoreTesto 0
End If
riga = "Num. "
riga1 = "Freq. "
riga2 = "Rit. "
riga3 = "Ult.cc "
For i = 1 To 10
riga = riga & FormatSpace(num(i,1),3) & " "
riga1 = riga1 & FormatSpace(Eval(num(i,2)),4) & " "
riga2 = riga2 & FormatSpace(Eval(num(i,3)),4) & " "
riga3 = riga3 & FormatSpace(Eval(num(i,4)),4) & " "
anum(i) = num(i,1)
sf2 = SerieFreq(Ini,fin,anum,ruote,2)
sf3 = SerieFreq(Ini,fin,anum,ruote,3)
sr2 = SerieRitardo(Ini,fin,anum,ruote,2)
sr3 = SerieRitardo(Ini,fin,anum,ruote,3)
Next
Scrivi riga,1
ColoreTesto 2
Scrivi riga1
ColoreTesto 7
Scrivi riga2
ColoreTesto 1
Scrivi riga3
ColoreTesto 0
Scrivi String(65,"-")
Scrivi"Frequenza combinazione per ambo " & sf2
Scrivi"Frequenza combinazione per terno " & sf3
Scrivi"Ritardo combinazione per ambo " & sr2
Scrivi"Ritardo combinazione per terno " & sr3
Next
End Sub
 
ciao
Credo sia così


Codice:
Sub Main()
   Dim ruote(1)
   Dim posta(1)
   Dim nn(1),nsp(1)
   Dim num(90,4),anum(10)
   Dim uscito(90,2)
   Dim sp,r,colpi,Ini,fin,i,co,es,ess,a,v,e,n,per
   Dim riga,riga1,riga2,riga3,rit,rtsp,fru
   Ini = CInt(InputBox("Ssegli Inizio?","INIZIO",9556))
   r = CInt(InputBox("Su quale ruota?","RUOTA",5))
   colpi = CInt(InputBox("Quanti colpi?","COLPI",10))
   ruote(1) = r
   fin = EstrazioneFin
   Scrivi "Analisi dal " & DataEstrazione(Ini) & " ad oggi"
   Scrivi "Primi 10 più frequenti usciti dopo il numero Spia entro i " & colpi & " colpi",1
   For sp = 1 To 90
      Messaggio " Spia: " & sp
      For i = 1 To 90
         num(i,1) = 0 : num(i,2) = 0
      Next
      co = 0
      For es = Ini To fin
         If Posizione(es,r,sp) > 0 Then
            co = co + 1
            ess = es + colpi
            If ess > fin Then ess = fin End If
            For a = es + 1 To ess
               For v = 1 To 90
                  uscito(v,2) = 0
               Next
               For e = 1 To 5
                  n = Estratto(a,r,e)
                  num(n,1) = n
                  num(n,2) = num(n,2) + 1
                  uscito(n,1) = n
                  uscito(n,2) = uscito(n,2) + 1
                  If uscito(n,2) > 1 Then
                     num(n,2) = num(n,2) - 1
                     uscito(n,2) = 1
                  End If
                  nn(1) = n
                  nsp(1) = sp
                  rit = SerieRitardo(Ini,fin,nn,ruote,1)
                  rtsp = SerieRitardo(Ini,fin,nsp,ruote,1)
                  fru = SerieFreq(es,ess,nn,ruote,1)
                  num(n,3) = rit
                  num(n,4) = fru
               Next
            Next
         End If
      Next
      OrdinaMatrice num,- 1,2
      per = Int((co/100)*65)
      Scrivi "_________________________________________________________________"
      Scrivi "Numero spia: " & sp & " su " & FormatSpace(NomeRuota(r),10) & _
      " casi = " & co & "   colpi " & colpi & "  - Rit Spia " & rtsp,1
      Scrivi
      riga = "Num .  "
      riga1 = "Freq.  "
      riga2 = "Rit .  "
      riga3 = "Ult.cc "
      For i = 1 To 10
         riga = riga & FormatSpace(num(i,1),3) & "  "
         riga1 = riga1 & FormatSpace(Eval(num(i,2)),4) & " "
         riga2 = riga2 & FormatSpace(Eval(num(i,3)),4) & " "
         riga3 = riga3 & FormatSpace(Eval(num(i,4)),4) & " "
         anum(i) = num(i,1)
         sf2 = SerieFreq(Ini,fin,anum,ruote,2)
         sf3 = SerieFreq(Ini,fin,anum,ruote,3)
         sr2 = SerieRitardo(Ini,fin,anum,ruote,2)
         sr3 = SerieRitardo(Ini,fin,anum,ruote,3)
      Next
      Scrivi riga,1
      ColoreTesto 2
      Scrivi riga1
      ColoreTesto 7
      Scrivi riga2
      ColoreTesto 1
      Scrivi riga3
      ColoreTesto 0
      Scrivi String(65,"-")
      Scrivi"Frequenza combinazione per ambo " & sf2
      Scrivi"Frequenza combinazione per terno " & sf3
      Scrivi"Ritardo combinazione per ambo " & sr2
      Scrivi"Ritardo combinazione per terno " & sr3
   Next
End Sub
 

Ultima estrazione Lotto

  • Estrazione del lotto
    martedì 01 aprile 2025
    Bari
    60
    48
    59
    35
    50
    Cagliari
    42
    63
    88
    44
    90
    Firenze
    33
    65
    76
    01
    25
    Genova
    29
    82
    70
    19
    43
    Milano
    04
    73
    67
    22
    85
    Napoli
    65
    27
    10
    06
    66
    Palermo
    37
    13
    35
    79
    85
    Roma
    51
    14
    63
    71
    89
    Torino
    44
    04
    70
    82
    51
    Venezia
    61
    88
    27
    82
    66
    Nazionale
    15
    82
    14
    18
    32
    Estrazione Simbolotto
    Genova
    45
    13
    32
    14
    37
Indietro
Alto