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
    venerdì 11 settembre 2026
    Bari
    53
    20
    40
    62
    16
    Cagliari
    33
    22
    88
    17
    06
    Firenze
    56
    02
    58
    87
    73
    Genova
    25
    74
    64
    59
    78
    Milano
    38
    31
    49
    90
    28
    Napoli
    71
    68
    84
    36
    66
    Palermo
    07
    69
    19
    48
    65
    Roma
    38
    44
    84
    47
    53
    Torino
    90
    43
    47
    48
    21
    Venezia
    26
    87
    14
    71
    07
    Nazionale
    62
    43
    83
    67
    06
    Estrazione Simbolotto
    Palermo
    40
    21
    05
    30
    01
    Archivio estrazioni lotto Ritardi top 15 Frequenze top 15

Ultimi Messaggi

Indietro
Alto