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
    venerdì 18 luglio 2025
    Bari
    48
    38
    01
    78
    24
    Cagliari
    87
    33
    22
    13
    19
    Firenze
    14
    27
    71
    11
    50
    Genova
    40
    14
    77
    76
    17
    Milano
    26
    17
    90
    64
    69
    Napoli
    40
    89
    06
    23
    84
    Palermo
    62
    51
    36
    86
    26
    Roma
    76
    33
    75
    83
    47
    Torino
    83
    19
    82
    79
    89
    Venezia
    20
    31
    13
    12
    87
    Nazionale
    74
    29
    28
    32
    78
    Estrazione Simbolotto
    Nazionale
    39
    18
    27
    28
    20
    Archivio estrazioni lotto Ritardi top 15 Frequenze top 15

Ultimi Messaggi

Indietro
Alto