Novità

richiesta modifica script

Marcorun

Advanced Member >GOLD<
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
 
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
    giovedì 10 luglio 2025
    Bari
    85
    25
    24
    62
    28
    Cagliari
    51
    07
    79
    73
    36
    Firenze
    80
    63
    59
    47
    05
    Genova
    26
    50
    73
    18
    76
    Milano
    86
    12
    75
    13
    68
    Napoli
    21
    46
    89
    28
    87
    Palermo
    84
    49
    44
    17
    10
    Roma
    50
    40
    68
    65
    82
    Torino
    29
    52
    02
    60
    65
    Venezia
    81
    21
    64
    01
    09
    Nazionale
    30
    56
    86
    68
    34
    Estrazione Simbolotto
    Nazionale
    29
    13
    42
    17
    07
Indietro
Alto