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
    giovedì 28 agosto 2025
    Bari
    90
    50
    75
    04
    56
    Cagliari
    11
    32
    28
    87
    40
    Firenze
    15
    51
    54
    81
    79
    Genova
    69
    84
    35
    48
    26
    Milano
    35
    75
    07
    36
    15
    Napoli
    88
    48
    39
    19
    67
    Palermo
    20
    73
    15
    11
    70
    Roma
    87
    12
    22
    19
    25
    Torino
    47
    67
    71
    81
    16
    Venezia
    52
    75
    42
    12
    73
    Nazionale
    79
    50
    21
    39
    43
    Estrazione Simbolotto
    Nazionale
    44
    34
    08
    39
    40
    Archivio estrazioni lotto Ritardi top 15 Frequenze top 15

Ultimi Messaggi

Indietro
Alto