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 22 novembre 2025
    Bari
    82
    08
    24
    45
    37
    Cagliari
    07
    16
    67
    74
    35
    Firenze
    76
    32
    44
    06
    51
    Genova
    22
    77
    19
    27
    89
    Milano
    46
    81
    56
    29
    85
    Napoli
    68
    90
    80
    06
    47
    Palermo
    31
    07
    43
    83
    19
    Roma
    08
    68
    17
    12
    57
    Torino
    87
    17
    61
    60
    58
    Venezia
    27
    05
    17
    72
    50
    Nazionale
    70
    76
    56
    81
    15
    Estrazione Simbolotto
    Torino
    26
    34
    10
    42
    33
    Archivio estrazioni lotto Ritardi top 15 Frequenze top 15

Ultimi Messaggi

Indietro
Alto