Novità

Estrazione del Lotto

Su LottoCED puoi seguire le estrazioni del lotto in diretta tra

richiesta modifica script

Marcorun

Advanced Member
chiedo se c'è qualcuno (forse Mike58?) che mi possa modificare questo script per il 10elotto da usare per il lotto...(sono nuovo e non so usare il forum,ma grande appassionato di script e ammiratore di chi riesce a creare questi listati)


Sub Main()' presenze su cicli di 9 estrazioni"
ImpostaArchivio10ELotto(1)
Scrivi " Statistica rilevamento Numeri per il 10 e lotto ",1,- 1,6
Scrivi String(85,"=")
Dim ruote(1)
Dim nm(1)
periodo = CInt(InputBox("lunghezza ciclo ",,15))
zero = CInt(InputBox("ultimo ciclo lunghezza, ? ",,5))
ultima = InputBox("Estrazione ultima",,EstrazioniArchivioDL)
pres = CInt(InputBox("N° di presenza nel ciclo ",,2))
pres1 = CInt(InputBox("N° presenze ultimo ciclo ",,0))
Scrivi "-------------------------------------------------------------------------"
Scrivi " Situazione statistica per ciclo 10 e lotto - creato by Mike58 - ",1
Scrivi " Correlazione e presenze dei singoli numeri in periodi di " & periodo & " estrazioni"
Scrivi " Partenza della statistica a ritroso dal...." & Ultima
Scrivi " Durata del periodo N.Estrazioni a ritroso ." & periodo
Scrivi " Ultimo ciclo di " & zero & " estrazioni ... presenza ... zero "
Scrivi "-------------------------------------------------------------------------"


fine = EstrazioniArchivioDL
Inizio = EstrazioniArchivioDL - 200
dal1 =(ultima + 1) - zero
al1 = ultima
dal2 = dal1 - periodo
al2 = dal1 - 1
dal3 = dal2 - periodo
al3 = dal2 - 1
dal4 = dal3 - periodo
al4 = dal3 - 1
dal5 = dal4 - periodo
al5 = dal4 - 1
dal6 = dal5 - periodo
al6 = dal5 - 1
For x = 1 To 90
nm(1) = x
a = SerieFreqDL(dal1,al1,nm,1)
b = SerieFreqDL(dal2,al2,nm,1)
c = SerieFreqDL(dal3,al3,nm,1)
d = SerieFreqDL(dal4,al4,nm,1)
e = SerieFreqDL(dal5,al5,nm,1)
f = SerieFreqDL(dal6,al6,nm,1)
If a = pres1 Then
If b >= pres Then
If c >= pres Then
If d >= pres Then
If e >= pres Then
If f >= pres Then
rit = EstrattoRitardoDL(x,inizio,fine)
fre = a + b + c + d + e + f
casi = casi + 1
Scrivi "_________________________________________________ __________________" & " ( caso n°.) " & casi
Scrivi " Periodo dal...al..." & dal1 & "/" & al1 & " " & DataEstrazione(ultima) & " Presenze del nr.." & a
Scrivi " Periodo dal...al..." & dal2 & "/" & al2 & " " & DataEstrazione(dal1) & " Presenze del nr.." & b
Scrivi " Periodo dal...al..." & dal3 & "/" & al3 & " " & DataEstrazione(dal2) & " Presenze del nr.." & c
Scrivi " Periodo dal...al..." & dal4 & "/" & al4 & " " & DataEstrazione(dal3) & " Presenze del nr.." & d
Scrivi " Periodo dal...al..." & dal5 & "/" & al5 & " " & DataEstrazione(dal4) & " Presenze del nr.." & e
Scrivi " Periodo dal...al..." & dal6 & "/" & al6 & " " & DataEstrazione(dal5) & " Presenze del nr.." & f
fre = a + b + c + d + e + f
Scrivi""
ColoreTesto 2
Scrivi " ----- numero " & nm(1) & " ritardo attuale " & rit & " --- presenza" & " ---> " & fre,2
ColoreTesto 0
End If
End If
End If
End If
End If
End If
Next
ColoreTesto 1
Scrivi "_________________________________________________ __________________________________________________ ___",2
Scrivi""
Scrivi " Riepilogo numeri rintracciati " & " numeri totali " & casi & " .... [cicli di ] : " & periodo & " estraz.",- 1,6,3
Scrivi "_________________________________________________ __________________________________________________ ___",2
'dal5 = ultima + 1 - 5
For x = 1 To 90
nm(1) = x
a = SerieFreqDL(dal1,al1,nm,1)
b = SerieFreqDL(dal2,al2,nm,1)
c = SerieFreqDL(dal3,al3,nm,1)
d = SerieFreqDL(dal4,al4,nm,1)
e = SerieFreqDL(dal5,al5,nm,1)
f = SerieFreqDL(dal6,al6,nm,1)
If a = pres1 Then
If b >= pres Then
If c >= pres Then
If d >= pres Then
If e >= pres Then
If f >= pres Then
rit = EstrattoRitardoDL(x,inizio,fine)
fre = a + b + c + d + e + f
Scrivi " ----- numero " & Format2(nm(1)) & " Ritardo attuale " & Format2(rit) & " --- presenza nei cicli " & " ---> " & Format2(fre) & " .... [" & a & "." & b & "." & c & "." & d & "." & e & "." & f & "]",2
End If
End If
End If
End If
End If
End If
Next
Scrivi "_________________________________________________ __________________________________________________ __",2


End Sub


GRAZIE
 

Mike58

Advanced Member >PLATINUM PLUS<
Ciao Marcorun, il post lo hai pure aperto ma dove sei andato a finire in "linea con lo staff" , bastava in "Area Download" dove si mettono e correggono script per ogni tipologia.

e comunque ho già uno script simile gia pronto in quanto quello è un pochetto datato e risale alle mie prime manovre scriptiche.

vedi se va bene altrimenti ti correggo quello postato.

Codice:
Sub Main()
   'presenze su cicli di 5 estrazioni"
   Dim ruote(1)
   Dim nm(1)
   r = InputBox("Ruota richiesta",,10)
   periodo = InputBox("Periodo estrazione indietro",,18)
   ultima = InputBox("Estrazione ultima",,EstrazioneFin)
   ult0 = Int(periodo/2)
   ult = InputBox("ULTIMO CICLO LUNGHEZZA ",,ult0)
   ruote(1) = r
   Scrivi "-------------------------------------------------------------------------"
   Scrivi " Situazione statistica Numeri IPER_FREQUENTI - by Mike58 - ",1,1,,1,3
   Scrivi " Correlazione e presenze dei singoli numeri in 4 periodi di " & periodo & " estrazioni"
   Scrivi " Ruota di Richerca " & NomeRuota(ruote(1)),- 1,7,3
   Scrivi " Partenza della statistica a ritroso dal...." & Ultima
   Scrivi " Durata del periodo N.Estrazioni a ritroso ." & periodo
   Scrivi " Durata ultimo ciclo                        " & ult
   Scrivi "-------------------------------------------------------------------------"
   ReDim T(18)
   T(1) = " Numero "
   T(2) = " Freq. Totale "
   T(3) = " Ultimo Ciclo "
   T(4) = " ciclo 2 "
   T(5) = " ciclo 3 "
   T(6) = " ciclo 4 "
   T(7) = " ciclo 5 "
   T(8) = " Ritardo Att "
   T(9) = " Ritardo Sto "
   T(10) = " Caldi "
   T(11) = " Esito "
   T(12) = " RP1 "
   T(13) = " RP2 "
   T(14) = " RP3 "
   T(15) = " Rp4 "
   T(16) = " Rp5 "
   T(17) = " Sm Rit "
   T(18) = " Md Rit "
   Call InitTabella(T,2,,3,5,"Arial Black")
   Inizio = EstrazioneIni
   fine = EstrazioneFin
   dal1 =(ultima + 1) - ult
   al1 = ultima
   dal2 = dal1 - periodo
   al2 = dal1 - 1
   dal3 = dal2 - periodo
   al3 = dal2 - 1
   dal4 = dal3 - periodo
   al4 = dal3 - 1
   dal5 = dal4 - periodo
   al5 = dal4 - 1
   ColoreTesto 1
   Scrivi "______________________________________________________________________________________________________",2
   Scrivi""
   Scrivi "         Riepilogo numeri rintracciati ciclo di : " & periodo & " estraz.",- 1,6,3
   Scrivi "______________________________________________________________________________________________________",2
   'dal5 = ultima + 1 - 5
   For x = 1 To 90
      nm(1) = x
      Call VerificaEsito(nm,ruote,fine,1,1,Nothing,esito,colpi,estratti,id)
      '------- calcolo ritardi precedenti------------
      'For q = 1 To UBound(num)
      ReDim rp(6)
      InizioR = EstrazioneIni
      fineR = EstrazioneFin
      somrit = 0
      For z = 1 To 6
         rp(z) = SerieRitardo(InizioR,fineR,nm,ruote,1)
         fineR = fineR -(rp(z) + 1)
         somrit = somrit + rp(z)
         Medrit = Int(somrit/z)
      Next
      ' fine calcolo----------------------------------
      a = SerieFreq(dal1,al1,nm,ruote,1)
      b = SerieFreq(dal2,al2,nm,ruote,1)
      c = SerieFreq(dal3,al3,nm,ruote,1)
      d = SerieFreq(dal4,al4,nm,ruote,1)
      e = SerieFreq(dal5,al5,nm,ruote,1)
      If a >= 0 Then
         If b >= 1 Then
            If c >= 1 Then
               If d >= 1 Then
                  If e >= 1 Then
                     kk = kk + 1
                     rit = EstrattoRitardo(ruote(1),nm(1),Inizio,fine)
                     rs = EstrattoStorico(ruote(1),nm(1),Inizio,fine)
                     fre = a + b + c + d + e
                     ReDim V(18)
                     V(1) = nm(1)
                     V(2) = fre
                     V(3) = a
                     V(4) = b
                     V(5) = c
                     V(6) = d
                     V(7) = e
                     V(8) = rit
                     V(9) = rs
                     If V(3) = 0 Then V(10) = V(1)
                     If V(3) <> 0 Then V(10) = " -- "
                     V(11) = estratti
                     V(12) = rp(2)
                     V(13) = rp(3)
                     V(14) = rp(4)
                     V(15) = rp(5)
                     V(16) = rp(6)
                     V(17) = somrit
                     V(18) = Medrit
                     'k1 =  0
                     Call AddRigaTabella(V,,,3,,"Arial Black")
                     Call SetColoreCella(1,2,4)
                     Call SetColoreCella(10,7,5)
                     For xy = 3 To 7
                        Call SetColoreCella((xy),4,0)
                     Next
                     For y = 12 To 16
                        Call SetColoreCella((y),4,0)
                     Next
                     If a = 0 Then Call SetColoreCella(1,3,1)
                     If a = 0 Then Call SetColoreCella(3,3,1)
                     If rit = 0 Then Call SetColoreCella(8,3,0)
                  End If
               End If
            End If
         End If
      End If
   Next
   Call SetTableWidth("100%")
   Call CreaTabella(2)
   Scrivi "Totali Numeri Rintracciati... " & kk,1
   Scrivi "_____________________________________________________________________________________________________",1
   ritardatario = PiuRitardatario(ultima,ruote(1))
   rtp = EstrattoRitardo(ruote(1),ritardatario,Inizio,fine)
   ColoreTesto 2
   Scrivi"**** numero più in ritardo **** " & ritardatario & " **** ritarda da " & rtp & " estrazioni ",1,1,,2,4
End Sub

Mi scuso anch'io con lo staff per l'utilizzo della sezione.

Mike
 

Ultima estrazione Lotto

  • Estrazione del lotto
    sabato 06 marzo 2021
    Bari
    80
    51
    06
    35
    76
    Cagliari
    17
    84
    66
    64
    67
    Firenze
    18
    83
    51
    04
    64
    Genova
    45
    39
    62
    67
    11
    Milano
    15
    51
    70
    21
    48
    Napoli
    73
    10
    04
    54
    03
    Palermo
    59
    41
    83
    21
    22
    Roma
    07
    56
    66
    15
    24
    Torino
    51
    46
    19
    18
    01
    Venezia
    04
    73
    38
    36
    13
    Nazionale
    38
    11
    44
    31
    17
    Estrazione Simbolotto
    Firenze
    26
    19
    31
    03
    41
Alto