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
    sabato 28 giugno 2025
    Bari
    41
    76
    54
    04
    17
    Cagliari
    34
    52
    84
    54
    55
    Firenze
    21
    60
    89
    51
    03
    Genova
    36
    40
    46
    03
    73
    Milano
    32
    80
    01
    68
    12
    Napoli
    63
    34
    22
    85
    10
    Palermo
    21
    85
    64
    15
    65
    Roma
    48
    25
    42
    47
    50
    Torino
    51
    25
    14
    20
    28
    Venezia
    82
    48
    73
    53
    29
    Nazionale
    46
    55
    10
    32
    44
    Estrazione Simbolotto
    Napoli
    25
    01
    41
    45
    38

Ultimi Messaggi

Indietro
Alto