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
    giovedì 18 settembre 2025
    Bari
    24
    27
    08
    70
    68
    Cagliari
    75
    27
    64
    20
    17
    Firenze
    53
    20
    46
    14
    39
    Genova
    38
    72
    71
    36
    65
    Milano
    24
    43
    76
    19
    26
    Napoli
    32
    70
    51
    23
    48
    Palermo
    23
    73
    55
    64
    62
    Roma
    66
    58
    15
    49
    55
    Torino
    84
    22
    38
    29
    64
    Venezia
    47
    52
    56
    35
    89
    Nazionale
    04
    49
    67
    57
    05
    Estrazione Simbolotto
    Palermo
    07
    18
    33
    28
    19
    Archivio estrazioni lotto Ritardi top 15 Frequenze top 15

Ultimi Messaggi

Indietro
Alto