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 aprile 2026
    Bari
    81
    21
    69
    24
    65
    Cagliari
    40
    01
    30
    38
    25
    Firenze
    18
    84
    24
    58
    63
    Genova
    86
    64
    56
    89
    60
    Milano
    38
    07
    06
    50
    25
    Napoli
    72
    16
    90
    85
    74
    Palermo
    23
    13
    20
    73
    14
    Roma
    24
    52
    22
    01
    78
    Torino
    16
    80
    35
    84
    22
    Venezia
    36
    83
    09
    89
    51
    Nazionale
    03
    67
    45
    71
    86
    Estrazione Simbolotto
    Genova
    34
    36
    17
    40
    32
    Archivio estrazioni lotto Ritardi top 15 Frequenze top 15

Ultimi Messaggi

Indietro
Alto