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
    venerdì 04 aprile 2025
    Bari
    37
    55
    29
    11
    70
    Cagliari
    10
    16
    04
    01
    81
    Firenze
    15
    62
    30
    85
    72
    Genova
    16
    07
    34
    25
    18
    Milano
    01
    77
    67
    72
    76
    Napoli
    47
    14
    55
    87
    45
    Palermo
    49
    90
    79
    66
    41
    Roma
    28
    14
    10
    65
    88
    Torino
    22
    60
    50
    04
    08
    Venezia
    23
    60
    74
    52
    43
    Nazionale
    74
    44
    90
    06
    56
    Estrazione Simbolotto
    Genova
    28
    22
    15
    36
    09

Ultimi Messaggi

Indietro
Alto