richiesta modifica script

Marcorun · 12 Novembre 2018

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 · 12 Novembre 2018

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

Cerca

Cerca

richiesta modifica script

Marcorun

Advanced Member >GOLD<

Mike58

Advanced Member >PLATINUM PLUS<

Ultima estrazione Lotto

Ultimi Messaggi