Novità

X - RUDIVALL

  • Creatore Discussione Creatore Discussione Roby
  • Data di inizio Data di inizio
Stato
Chiusa ad ulteriori risposte.
R

Roby

Guest
ciao Rudy

Beccati sta bestia e metti da parte il F.Excel che ti avevo inviato
in PVT.
( anche se con Excel lo Scan sulle variabili é molto + veloce )

1 Saluto

D.Aspys

[|)]
----------------------------
Sub main()
Dim ambata(3)
Dim ruota(1)
Dim m(10)

ruota(1)=1
Dim posta(1)
posta(1)=1

k=73
l=22

Scrivi "Listato by DendroAspys"
For ES=7287 To EstrazioneFin
If IndiceMensile(ES)=5 Then
r=1
n1=Estratto(es,r,1)
n2=Estratto(es,r,2)
n3=Estratto(es,r,3)
n4=Estratto(es,r,4)
n5=Estratto(es,r,5)

If Pari(n1)= True Then px1=1 End If
If Pari(n1)= False Then px1=0 End If
If Pari(n2) Then px2=1 End If
If Pari(n2)= False Then px2=0 End If
If Pari(n3)= True Then px3=1 End If
If Pari(n3)= False Then px3=0 End If
If Pari(n4) Then px4=1 End If
If Pari(n4)= False Then px4=0 End If
If Pari(n5) Then px5=1 End If
If Pari(n5)= False Then px5=0 End If

Scrivi
If px1&px2&px3&px4&px5=11111 Then ambata(1)=Fuori90(31+k) : ambata(2)=Fuori90(Vert(ambata(1))+l)
If px1&px2&px3&px4&px5=11110 Then ambata(1)=Fuori90(30+k) : ambata(2)=Fuori90(Vert(ambata(1))+l)
If px1&px2&px3&px4&px5=11101 Then ambata(1)=Fuori90(29+k) : ambata(2)=Fuori90(Vert(ambata(1))+l)
If px1&px2&px3&px4&px5=11100 Then ambata(1)=Fuori90(28+k) : ambata(2)=Fuori90(Vert(ambata(1))+l)
If px1&px2&px3&px4&px5=11011 Then ambata(1)=Fuori90(27+k) : ambata(2)=Fuori90(Vert(ambata(1))+l)
If px1&px2&px3&px4&px5=11010 Then ambata(1)=Fuori90(26+k) : ambata(2)=Fuori90(Vert(ambata(1))+l)
If px1&px2&px3&px4&px5=11001 Then ambata(1)=Fuori90(25+k) : ambata(2)=Fuori90(Vert(ambata(1))+l)
If px1&px2&px3&px4&px5=11000 Then ambata(1)=Fuori90(24+k) : ambata(2)=Fuori90(Vert(ambata(1))+l)
If px1&px2&px3&px4&px5=10111 Then ambata(1)=Fuori90(23+k) : ambata(2)=Fuori90(Vert(ambata(1))+l)

If px1&px2&px3&px4&px5=10110 Then ambata(1)=Fuori90(22+k) : ambata(2)=Fuori90(Vert(ambata(1))+l)
If px1&px2&px3&px4&px5=10101 Then ambata(1)=Fuori90(21+k) : ambata(2)=Fuori90(Vert(ambata(1))+l)
If px1&px2&px3&px4&px5=10100 Then ambata(1)=Fuori90(20+k) : ambata(2)=Fuori90(Vert(ambata(1))+l)
If px1&px2&px3&px4&px5=10011 Then ambata(1)=Fuori90(19+k) : ambata(2)=Fuori90(Vert(ambata(1))+l)
If px1&px2&px3&px4&px5=10010 Then ambata(1)=Fuori90(18+k) : ambata(2)=Fuori90(Vert(ambata(1))+l)
If px1&px2&px3&px4&px5=10001 Then ambata(1)=Fuori90(17+k) : ambata(2)=Fuori90(Vert(ambata(1))+l)
If px1&px2&px3&px4&px5=10000 Then ambata(1)=Fuori90(16+k) : ambata(2)=Fuori90(Vert(ambata(1))+l)

If px1&px2&px3&px4&px5=01111 Then ambata(1)=Fuori90(16+k) : ambata(2)=Fuori90(Vert(ambata(1))+l)
If px1&px2&px3&px4&px5=01110 Then ambata(1)=Fuori90(17+k) : ambata(2)=Fuori90(Vert(ambata(1))+l)
If px1&px2&px3&px4&px5=01101 Then ambata(1)=Fuori90(18+k) : ambata(2)=Fuori90(Vert(ambata(1))+l)
If px1&px2&px3&px4&px5=01100 Then ambata(1)=Fuori90(19+k) : ambata(2)=Fuori90(Vert(ambata(1))+l)
If px1&px2&px3&px4&px5=01011 Then ambata(1)=Fuori90(20+k) : ambata(2)=Fuori90(Vert(ambata(1))+l)
If px1&px2&px3&px4&px5=01010 Then ambata(1)=Fuori90(21+k) : ambata(2)=Fuori90(Vert(ambata(1))+l)
If px1&px2&px3&px4&px5=01001 Then ambata(1)=Fuori90(22+k) : ambata(2)=Fuori90(Vert(ambata(1))+l)
If px1&px2&px3&px4&px5=01000 Then ambata(1)=Fuori90(23+k) : ambata(2)=Fuori90(Vert(ambata(1))+l)
If px1&px2&px3&px4&px5=00111 Then ambata(1)=Fuori90(24+k) : ambata(2)=Fuori90(Vert(ambata(1))+l)
If px1&px2&px3&px4&px5=00110 Then ambata(1)=Fuori90(25+k) : ambata(2)=Fuori90(Vert(ambata(1))+l)
If px1&px2&px3&px4&px5=00101 Then ambata(1)=Fuori90(26+k) : ambata(2)=Fuori90(Vert(ambata(1))+l)
If px1&px2&px3&px4&px5=00100 Then ambata(1)=Fuori90(27+k) : ambata(2)=Fuori90(Vert(ambata(1))+l)
If px1&px2&px3&px4&px5=00011 Then ambata(1)=Fuori90(28+k) : ambata(2)=Fuori90(Vert(ambata(1))+l)
If px1&px2&px3&px4&px5=00010 Then ambata(1)=Fuori90(29+k) : ambata(2)=Fu
 
[red]Dario[/red], grandioso con tutto quello script non ci ho capito niente, ma quale è il funsionamento, cioè cosa ricerca......solo curiosità ?

rodolfo
 
[red]Dario[/red], grandioso con tutto quello script non ci ho capito niente, ma quale è il funsionamento, cioè cosa ricerca......solo curiosità ?

rodolfo
 
Bello davvero sto script. leggendolo qualcosa penso di aver capito, ma non riesco a capire il risultato che da: potresti darci qualche delucidazione?
ciao e grazie[8D]
 
Bello davvero sto script. leggendolo qualcosa penso di aver capito, ma non riesco a capire il risultato che da: potresti darci qualche delucidazione?
ciao e grazie[8D]
 
dai fate 1 sforzo, é facile....:D :D :D
vi do 1 mano;
trattasi di sistema Binario sui N° pari e dispari, ma con 1 novita'.
legge la stringa N° anche quando parte con lo - 0 - e la inverte.
es:
se la stringa é

01101

la inverte in:

10010

aggiunge poi il vertibile x la seconda ambata,
e in + ho inserito 2 valori addizionali variabili
a piacimento tramite le costanti - K e L -

1 Saluto

DendroAspys

[|)]
 
dai fate 1 sforzo, é facile....:D :D :D
vi do 1 mano;
trattasi di sistema Binario sui N° pari e dispari, ma con 1 novita'.
legge la stringa N° anche quando parte con lo - 0 - e la inverte.
es:
se la stringa é

01101

la inverte in:

10010

aggiunge poi il vertibile x la seconda ambata,
e in + ho inserito 2 valori addizionali variabili
a piacimento tramite le costanti - K e L -

1 Saluto

DendroAspys

[|)]
 
Ciao DendroAspys, noto una tua grandissima abiltà per la statistica numerica molto familiare ad un amico che da 2 settimane circa non mi risponde in messenger, parlo di persona operativa in questo forum. Forse mi sapresti dire qualcosa.

essere presenti
 
Ciao DendroAspys, noto una tua grandissima abiltà per la statistica numerica molto familiare ad un amico che da 2 settimane circa non mi risponde in messenger, parlo di persona operativa in questo forum. Forse mi sapresti dire qualcosa.

essere presenti
 
quote:Originally posted by puledro

Ciao DendroAspys, noto una tua grandissima abiltà per la statistica numerica molto familiare ad un amico che da 2 settimane circa non mi risponde in messenger, parlo di persona operativa in questo forum. Forse mi sapresti dire qualcosa.

essere presenti
Clicca per espandere...

------------------------------------------------------

non so di chi stai parlando.


D.Aspys
[|)]
 
quote:Originally posted by puledro

Ciao DendroAspys, noto una tua grandissima abiltà per la statistica numerica molto familiare ad un amico che da 2 settimane circa non mi risponde in messenger, parlo di persona operativa in questo forum. Forse mi sapresti dire qualcosa.

essere presenti
Clicca per espandere...

------------------------------------------------------

non so di chi stai parlando.


D.Aspys
[|)]
 
Stato
Chiusa ad ulteriori risposte.

Ultima estrazione Lotto

  • Estrazione del lotto
    sabato 19 luglio 2025
    Bari
    70
    37
    36
    68
    01
    Cagliari
    57
    02
    64
    33
    41
    Firenze
    18
    62
    09
    05
    06
    Genova
    36
    10
    74
    37
    42
    Milano
    39
    07
    58
    23
    22
    Napoli
    18
    69
    28
    36
    40
    Palermo
    71
    66
    72
    64
    23
    Roma
    19
    64
    39
    77
    10
    Torino
    83
    63
    71
    08
    72
    Venezia
    51
    83
    26
    50
    74
    Nazionale
    89
    81
    63
    32
    03
    Estrazione Simbolotto
    Nazionale
    16
    32
    21
    19
    03
    Archivio estrazioni lotto Ritardi top 15 Frequenze top 15

Ultimi Messaggi

Indietro
Alto