Novità

Estrazione del Lotto

Su LottoCED puoi seguire le estrazioni del lotto in diretta tra

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
 

Master

Advanced Member >GOLD<
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
    giovedì 21 gennaio 2021
    Bari
    18
    43
    19
    69
    15
    Cagliari
    17
    27
    61
    09
    76
    Firenze
    69
    63
    81
    26
    61
    Genova
    89
    36
    07
    81
    66
    Milano
    39
    82
    74
    12
    40
    Napoli
    07
    53
    05
    73
    88
    Palermo
    27
    58
    08
    52
    19
    Roma
    17
    38
    39
    40
    29
    Torino
    66
    90
    17
    74
    29
    Venezia
    08
    12
    88
    40
    87
    Nazionale
    71
    21
    54
    79
    77
    Estrazione Simbolotto
    Bari
    38
    04
    36
    33
    01
Alto