Novità

Chi può uno script dopo estrazione

Paki144

Paki144

Super member
Uno script che dopo ogni estrazione si può fare la "moda" delle successive 4/5 estrazioni dei numeri più frequenti, se fosse possibile poter avere abbinamento/i di 2/3 numeri nella ruota scelta se possibile un textbox da poter scegliere la ruota. Grazie chi può aiutarmi
 
Ultima modifica:
Cosa è la "moda" ... è riferito al significato che ne da la matematica?
" la moda è il valore che si presenta con maggiore frequenza"
Dovresti poter trovare qualcosa fatto da Ramco anni orsono sul web.
Frequenti dopo 5 spie o similari
saluti
 
claudio8 ha scritto:
Cosa è la "moda" ... è riferito al significato che ne da la matematica?
" la moda è il valore che si presenta con maggiore frequenza"
Dovresti poter trovare qualcosa fatto da Ramco anni orsono sul web.
Frequenti dopo 5 spie o similari
saluti
Clicca per espandere...
Ciao claudio8, ho scritto "moda" che sarebbe poi la frequenza dei numeri che sono usciti nelle 3/4 estrazioni dopo l'estrazione di partenza di ricerca.
 
Ciao claudio8 ho fatto un po di ricerca
molti con 1/2 spie, con rispetto.
no,non trovo dopo l'uscita di un estrazione dei 5 estratti di ogni ruota
i numeri più frequenti che sono usciti nelle 3/4 estrazioni successive.
Grazie claudio8
 
Ciao a Tutti.

Ho trovato questo di Blackmore

Codice: 
'DOPO NUMERO SPIA TROVA IL NUMERO PIù FREQUENTE CON % D'USCITA
Sub Main()
   Dim ruote(1)
   Dim posta(1)
   Dim num(90)
   ruote(1) = 1
   posta(1) = 1
   For sp = 1 To 90 'cambiare per considerare il numero che si vuole
      Messaggio " Spia: " & sp
      r = 1 '--------------->  Qui cambiare la ruota da esaminare
      ini = 9000
      fin = EstrazioneFin
      Scrivi "Analisi dal " & DataEstrazione(ini) & " ad oggi"
      Erase num
      co = 0
      For es = ini To fin
         If Posizione(es,r,sp) > 0 Then
            co = co + 1
            For a = es + 1 To es + 6 '<<<<numeri colpiEsempio 5 colpi devi indicare 6For a=es+1 To es+6
               If a > fin Then Exit For '<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
               For e = 1 To 5
                  n = Estratto(a,r,e)
                  num(n) = num(n) + 1
               Next
            Next
         End If
      Next
      per = Int((co/100)*50)
      Scrivi "_________________________________________________________"
      Scrivi "Numero spia: " & Format2(sp) & " su " & NomeRuota(r) & " casi = " & co & " colpi 6"
      Scrivi
      Scrivi "Num.  volte.   percentuale" & "%"
      For i = 1 To 90
         If Eval(num(i)) > per Then
            Scrivi Format2 (i) & "     " & Eval(num(i)) & "      " & per
         End If
      Next
   Next
End Sub
 
Paki144 ha scritto:
Ciao claudio8 ho fatto un po di ricerca
molti con 1/2 spie, con rispetto.
no,non trovo dopo l'uscita di un estrazione dei 5 estratti di ogni ruota
i numeri più frequenti che sono usciti nelle 3/4 estrazioni successive.
Grazie claudio8
Clicca per espandere...
claudio8 ha scritto:

Paki144​

Eccoti un riferimento sul web " Ramco-ricerca 5 spie in cinque pos su rt1"​

è un pò datato ma fa al caso tuo.​

saluti​

​

​

​

Clicca per espandere...
Grazie Claudio8
 
salvo50 ha scritto:
Ciao a Tutti.

Ho trovato questo di Blackmore

Codice: 
'DOPO NUMERO SPIA TROVA IL NUMERO PIù FREQUENTE CON % D'USCITA
Sub Main()
   Dim ruote(1)
   Dim posta(1)
   Dim num(90)
   ruote(1) = 1
   posta(1) = 1
   For sp = 1 To 90 'cambiare per considerare il numero che si vuole
      Messaggio " Spia: " & sp
      r = 1 '--------------->  Qui cambiare la ruota da esaminare
      ini = 9000
      fin = EstrazioneFin
      Scrivi "Analisi dal " & DataEstrazione(ini) & " ad oggi"
      Erase num
      co = 0
      For es = ini To fin
         If Posizione(es,r,sp) > 0 Then
            co = co + 1
            For a = es + 1 To es + 6 '<<<<numeri colpiEsempio 5 colpi devi indicare 6For a=es+1 To es+6
               If a > fin Then Exit For '<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
               For e = 1 To 5
                  n = Estratto(a,r,e)
                  num(n) = num(n) + 1
               Next
            Next
         End If
      Next
      per = Int((co/100)*50)
      Scrivi "_________________________________________________________"
      Scrivi "Numero spia: " & Format2(sp) & " su " & NomeRuota(r) & " casi = " & co & " colpi 6"
      Scrivi
      Scrivi "Num.  volte.   percentuale" & "%"
      For i = 1 To 90
         If Eval(num(i)) > per Then
            Scrivi Format2 (i) & "     " & Eval(num(i)) & "      " & per
         End If
      Next
   Next
End Sub
Clicca per espandere...
Grazie salvo50
 
Salvo
dallo sript di blakmore
salvo50 ha scritto:
Ciao a Tutti.

Ho trovato questo di Blackmore

Codice: 
'DOPO NUMERO SPIA TROVA IL NUMERO PIù FREQUENTE CON % D'USCITA
Sub Main()
   Dim ruote(1)
   Dim posta(1)
   Dim num(90)
   ruote(1) = 1
   posta(1) = 1
   For sp = 1 To 90 'cambiare per considerare il numero che si vuole
      Messaggio " Spia: " & sp
      r = 1 '--------------->  Qui cambiare la ruota da esaminare
      ini = 9000
      fin = EstrazioneFin
      Scrivi "Analisi dal " & DataEstrazione(ini) & " ad oggi"
      Erase num
      co = 0
      For es = ini To fin
         If Posizione(es,r,sp) > 0 Then
            co = co + 1
            For a = es + 1 To es + 6 '<<<<numeri colpiEsempio 5 colpi devi indicare 6For a=es+1 To es+6
               If a > fin Then Exit For '<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
               For e = 1 To 5
                  n = Estratto(a,r,e)
                  num(n) = num(n) + 1
               Next
            Next
         End If
      Next
      per = Int((co/100)*50)
      Scrivi "_________________________________________________________"
      Scrivi "Numero spia: " & Format2(sp) & " su " & NomeRuota(r) & " casi = " & co & " colpi 6"
      Scrivi
      Scrivi "Num.  volte.   percentuale" & "%"
      For i = 1 To 90
         If Eval(num(i)) > per Then
            Scrivi Format2 (i) & "     " & Eval(num(i)) & "      " & per
         End If
      Next
   Next
End Sub
Clicca per espandere...
Non mi pare che dia le % corrette .......
 
X Paki144
Hai qualche ambata o ruota preferita su cui vuoi i frequenti?
Specificami la ruota, i colpi di gioco e l'estrazione da cui prelevare le 5 spie.
Saluti
 
Ciao Claudio8, scusami ho trovato lo script che mi hai consigliato :
'Ramco-ricerca 5 spie in cinque pos su rt1
'Ramco 29/01/2011 x Lones (Mauro)
'modificato a 5 spie x debora
Facendo Copia e incolla su Spaziometria 1.6.34 e eseguito lo script
mi dà questo errore For i=1 To 90
ed appare il rettangolo del messaggio:
Errore script!
1032 - Carattere non valido
Linea : 34
Colonna : 0
Source : Errore di compilazione d Microsoft VBScript
 
Paki144 ha scritto:
Ciao Claudio8, scusami ho trovato lo script che mi hai consigliato :
'Ramco-ricerca 5 spie in cinque pos su rt1
'Ramco 29/01/2011 x Lones (Mauro)
'modificato a 5 spie x debora
Facendo Copia e incolla su Spaziometria 1.6.34 e eseguito lo script
mi dà questo errore For i=1 To 90
ed appare il rettangolo del messaggio:
Errore script!
1032 - Carattere non valido
Linea : 34
Colonna : 0
Source : Errore di compilazione d Microsoft VBScript
Clicca per espandere...
Hai preso l'ultimo o il penultimo?
 
Devi accedere o registrarti per poter rispondere.

Ultima estrazione Lotto

  • Estrazione del lotto
    sabato 04 luglio 2026
    Bari
    81
    71
    24
    27
    01
    Cagliari
    38
    77
    61
    68
    78
    Firenze
    61
    56
    05
    68
    17
    Genova
    32
    79
    83
    04
    15
    Milano
    80
    12
    25
    10
    76
    Napoli
    61
    29
    27
    08
    23
    Palermo
    88
    77
    45
    86
    23
    Roma
    82
    76
    58
    22
    33
    Torino
    22
    87
    35
    57
    62
    Venezia
    06
    35
    37
    11
    36
    Nazionale
    40
    35
    82
    58
    67
    Estrazione Simbolotto
    Nazionale
    08
    40
    42
    09
    16
    Archivio estrazioni lotto Ritardi top 15 Frequenze top 15

Ultimi Messaggi

Indietro
Alto