Novità

cerco script per ritardo lunghetta su ruota

ppaaoolloo

Super Member >PLATINUM<
ciao
mi servirebbe uno script che mi possa dare
inserendo dei numeri a mia scelta che ritardo hanno
per ambo oppure terno sulle ruote prese singolarmente

ad esempio

se io scelgo i numeri 1-8-25-32-45-66
è in ritardo per ambo su
bari da 2 estrazioni
su cagliari da 1 estrazione
su firenze da 6 estrazioni
su genova da ?
su milano ?
ecc. ecc.

ringrazio anticipatamente chi mi vorrà aiutare

ciao
 
Ultima modifica:
Ciao Paolo.

Prova questo:

Codice:
Sub Main
	'Ritardo Ambo (in Lunghetta)
	Dim Ru(1)
	Lu = InputBox("Separati da un punto","INSERISCI NUMERI","1.8.25.32.45.66")
	Nu = Split("0." & Lu,".")
	Scrivi "Ritardo Ambo (in Lunghetta): ",True, False 
	Scrivi StringaNumeri(nu,,True)
	Ini = 1 : Fin = EstrazioneFin
	For R = 1 To 12 
		Ru(1) = R
		Scrivi FormatSpace ( NomeRuota(R),10) ,False,False
		Scrivi FormatSpace (SerieRitardo(Ini,Fin,Nu,Ru,AMBO_),3,True)
	Next
End Sub

:) Buona serata a tutte/i.
 
ciao Joe
grazie del tuo script
è ok e mi sembra che vada bene

si potrebbe avere la possibilità di poter scegliere tra
estratto ambo e terno

grazie

ciao
 
In questo mio vecchio script c'è di tutto e di più,cosi da poter fare tutte le verifiche che si vogliono.

Codice:
Sub Main()

Dim num(10),numero(10),ruota(1),sorte

sorte = CInt(InputBox("Quale sorte verificare ",,1))

nStart = Timer ' partenza tempo di elaborazione

ScegliNumeri(num)

Ini = EstrazioneIni

fin = EstrazioneFin

diff = fin - Ini + 1

Scrivi"Statistica Veloce su combinazione di Numeri scelti" & " ",True,False,6,0,3

Scrivi" " & StringaNumeri(num) & " ",True,False,2,4,3

Scrivi" Per sorte..." & " " & NomeSorte(sorte) & " ",True,True,3,0,3

Scrivi String(130,"=")

Scrivi " Dalla data..." & DataEstrazione(Ini) & " alla data..." & DataEstrazione(fin) & " - Estrazioni Totali " & DIFF,1

Scrivi String(130,"=")

Scrivi

'--------- crea tabella---------------

ReDim atitoli(14)

atitoli(1) = " Ruota "

'atitoli(2) = " Combinazione "

atitoli(3) = " RD1 "

atitoli(4) = " RD2 "

atitoli(5) = " RD3 "

atitoli(6) = " RD4 "

atitoli(7) = " RD5 "

atitoli(8) = " Ritardo attuale "

atitoli(9) = " Ritardo Storico "

atitoli(10) = " incr. storico "

atitoli(11) = " Frequenza "

atitoli(12) = " - esito - "

atitoli(13) = " - stringa Esito - "

atitoli(14) = " data estraz.uscita "

' inizializzo la tabella

Call InitTabella(atitoli,1,,3,5)

For r = 1 To 12

'If r = 11 Then r = 12

ruota(1) = r

Call AvanzamentoElab(Ini,fin,n)

If ScriptInterrotto Then Exit For

Call StatisticaFormazione(num,ruota,sorte,rit,ritmax,incrRitMax,freq,Ini,fine)

Call VerificaEsito(num,ruota,fin - rit,sorte,1,,retesito,retcolpi,retestratti,retidestr)

'----- calcolo valori in tabella --------------

ReDim avalori(14)

avalori(1) = NomeRuota(r)

avalori(3) = RitDiPos(num,1,ruota)

avalori(4) = RitDiPos(num,2,ruota)

avalori(5) = RitDiPos(num,3,ruota)

avalori(6) = RitDiPos(num,4,ruota)

avalori(7) = RitDiPos(num,5,ruota)

avalori(8) = rit

avalori(9) = ritmax

avalori(10) = incrRitMax

avalori(11) = freq

avalori(12) = retesito

avalori(13) = retestratti

If retesito <> "" Then avalori(14) = DataEstrazione(retidestr)

If retesito = "" Then avalori(14) = " -- "

Call AddRigaTabella(avalori,,,3,,"arial black")

If r = 11 Then Call SetColoreCella(11,3,1)

Next

Call SetTableWidth("100%")

'Call CreaTabella()

scegliTabella

Scrivi " Script By Mike58 ",1,- 1,6

nend = Timer

Call Scrivi("Tempo di elaborazione : " & FormattaSecondi((nend + 1) - nstart))

End Sub

Function RitDiPos(num,pos,ruota)

ReDim apos(5)

ReDim aruota(1)

ReDim anum(1)

anum(1) = num

apos(pos) = True

aruota(1) = ruota

RitDiPos = RitardoCombinazione(ruota,num,1,0,apos)

End Function

Function scegliTabella()

ReDim Voci(2)

Voci(1) = "Tabella Normale"

Voci(2) = "tabella Ordinabile"

scegliTabella = ScegliOpzioneMenu(Voci,01,"seleziona tabella")

If scegliTabella = 1 Then Call CreaTabella()

If scegliTabella = 2 Then Call CreaTabellaOrdinabile

End Function

Function FormattaSecondi(s)

'Questa Function trasforma il numero di secondi passato come parametro in una stringa

' passando i secondi si ottengono ore minuti e secondi in formato hh:mm:ss

' s ---> Numero di secondi da formattare

' ritorna una stringa il cui formato è hh:mm:ss (la function non funziona se in totale abbiamo piu di 99 ore )

Dim hh

Dim Mm

Dim Ss

Dim TimeStr

hh = s \ 3600

Mm =(s Mod 3600) \ 60

Ss = s -((hh * 3600) +(Mm * 60))

TimeStr = Format2(hh) & ":" & Format2(Mm) & ":" & Format2(Ss)

FormattaSecondi = TimeStr

End Function
 
ciao Mike
il tuo script è davvero molto buono,
ti chiedo solo se si può aggiungere
altre due colonne:
- estr. (estratti nell'ultima estrazione)
- pr.-1 (estratti nella penultima estrazione)

ti ringrazio molto

ciao
 
Va bene Paolo, vedi se va bene cosi.
Sono Purtroppo costretto a ridurre il size di scrittura per sringare la tabella nella videata.

Codice:
Sub Main()

Dim num(10),numero(10),ruota(1),sorte

sorte = CInt(InputBox("Quale sorte verificare ",,1))

nStart = Timer ' partenza tempo di elaborazione

ScegliNumeri(num)

Ini = EstrazioneIni

fin = EstrazioneFin

diff = fin - Ini + 1

Scrivi"Statistica Veloce su combinazione di Numeri scelti" & " ",True,False,6,0,3

Scrivi" " & StringaNumeri(num) & " ",True,False,2,4,3

Scrivi" Per sorte..." & " " & NomeSorte(sorte) & " ",True,True,3,0,3

Scrivi String(130,"=")

Scrivi " Dalla data..." & DataEstrazione(Ini) & " alla data..." & DataEstrazione(fin) & " - Estrazioni Totali " & DIFF,1

Scrivi String(130,"=")

Scrivi

'--------- crea tabella---------------

ReDim atitoli(16)

atitoli(1) = " Ruota "

'atitoli(2) = " Combinazione "

atitoli(3) = " RD1 "

atitoli(4) = " RD2 "

atitoli(5) = " RD3 "

atitoli(6) = " RD4 "

atitoli(7) = " RD5 "

atitoli(8) = " Ritardo attuale "

atitoli(9) = " Ritardo Storico "

atitoli(10) = " incr. storico "

atitoli(11) = " Frequenza "

atitoli(12) = " - esito - "

atitoli(13) = " - stringa Esito - "

atitoli(14) = " data estraz.uscita "

atitoli(15) = " Esito Es-1 "

atitoli(16) = " Esito ES-0 "

' inizializzo la tabella

Call InitTabella(atitoli,1,,2,5)

For r = 1 To 12

'If r = 11 Then r = 12

ruota(1) = r

Call AvanzamentoElab(Ini,fin,n)

If ScriptInterrotto Then Exit For

Call StatisticaFormazione(num,ruota,sorte,rit,ritmax,incrRitMax,freq,Ini,fine)

Call VerificaEsito(num,ruota,fin - rit,sorte,1,,retesito,retcolpi,retestratti,retidestr)

Call VerificaEsito(num,ruota,fin - 1,1,1,,retesito2,retcolpi2,retestratti2,retidestr2)

Call VerificaEsito(num,ruota,fin - 0,1,1,,retesito1,retcolp1i,retestratti1,retidestr1)

'----- calcolo valori in tabella --------------

ReDim avalori(16)

avalori(1) = NomeRuota(r)

avalori(3) = RitDiPos(num,1,ruota)

avalori(4) = RitDiPos(num,2,ruota)

avalori(5) = RitDiPos(num,3,ruota)

avalori(6) = RitDiPos(num,4,ruota)

avalori(7) = RitDiPos(num,5,ruota)

avalori(8) = rit

avalori(9) = ritmax

avalori(10) = incrRitMax

avalori(11) = freq

avalori(12) = retesito

avalori(13) = retestratti

If retesito <> "" Then avalori(14) = DataEstrazione(retidestr)

If retesito = "" Then avalori(14) = " -- "

avalori(15) = retestratti2

avalori(16) = retestratti1

Call AddRigaTabella(avalori,,,2,,"cambria")

If r = 11 Then Call SetColoreCella(11,3,1)

Next

Call SetTableWidth("100%")

'Call CreaTabella()

scegliTabella

Scrivi " Script By Mike58 ",1,- 1,6

nend = Timer

Call Scrivi("Tempo di elaborazione : " & FormattaSecondi((nend + 1) - nstart))

End Sub

Function RitDiPos(num,pos,ruota)

ReDim apos(5)

ReDim aruota(1)

ReDim anum(1)

anum(1) = num

apos(pos) = True

aruota(1) = ruota

RitDiPos = RitardoCombinazione(ruota,num,1,0,apos)

End Function

Function scegliTabella()

ReDim Voci(2)

Voci(1) = "Tabella Normale"

Voci(2) = "tabella Ordinabile"

scegliTabella = ScegliOpzioneMenu(Voci,01,"seleziona tabella")

If scegliTabella = 1 Then Call CreaTabella()

If scegliTabella = 2 Then Call CreaTabellaOrdinabile

End Function

Function FormattaSecondi(s)

'Questa Function trasforma il numero di secondi passato come parametro in una stringa

' passando i secondi si ottengono ore minuti e secondi in formato hh:mm:ss

' s ---> Numero di secondi da formattare

' ritorna una stringa il cui formato è hh:mm:ss (la function non funziona se in totale abbiamo piu di 99 ore )

Dim hh

Dim Mm

Dim Ss

Dim TimeStr

hh = s \ 3600

Mm =(s Mod 3600) \ 60

Ss = s -((hh * 3600) +(Mm * 60))

TimeStr = Format2(hh) & ":" & Format2(Mm) & ":" & Format2(Ss)

FormattaSecondi = TimeStr

End Function
 
Ultima modifica:

Ultima estrazione Lotto

  • Estrazione del lotto
    sabato 11 ottobre 2025
    Bari
    04
    25
    41
    83
    90
    Cagliari
    16
    81
    09
    87
    82
    Firenze
    67
    13
    08
    49
    39
    Genova
    29
    61
    54
    15
    22
    Milano
    06
    11
    08
    48
    53
    Napoli
    60
    13
    46
    67
    63
    Palermo
    78
    72
    54
    02
    58
    Roma
    35
    47
    89
    25
    77
    Torino
    39
    27
    35
    30
    85
    Venezia
    36
    32
    47
    63
    73
    Nazionale
    17
    33
    10
    51
    28
    Estrazione Simbolotto
    10
    11
    43
    13
    04

Ultimi Messaggi

Indietro
Alto