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
 

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
    giovedì 28 marzo 2024
    Bari
    49
    73
    67
    86
    19
    Cagliari
    64
    36
    37
    02
    04
    Firenze
    66
    27
    44
    90
    17
    Genova
    09
    44
    78
    85
    19
    Milano
    70
    14
    47
    38
    27
    Napoli
    80
    29
    28
    45
    39
    Palermo
    54
    59
    78
    47
    62
    Roma
    17
    22
    49
    52
    88
    Torino
    71
    35
    75
    74
    60
    Venezia
    40
    84
    02
    63
    29
    Nazionale
    08
    13
    44
    69
    85
    Estrazione Simbolotto
    Firenze
    06
    35
    16
    18
    05
Alto