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
    martedì 15 luglio 2025
    Bari
    60
    18
    12
    57
    28
    Cagliari
    20
    26
    81
    55
    18
    Firenze
    28
    59
    46
    83
    81
    Genova
    32
    57
    09
    41
    17
    Milano
    58
    31
    49
    38
    63
    Napoli
    36
    58
    57
    45
    59
    Palermo
    03
    05
    48
    86
    62
    Roma
    47
    18
    01
    23
    79
    Torino
    56
    34
    49
    89
    90
    Venezia
    46
    44
    52
    82
    78
    Nazionale
    16
    36
    15
    13
    60
    Estrazione Simbolotto
    Nazionale
    27
    09
    44
    18
    11
    Archivio estrazioni lotto Ritardi top 15 Frequenze top 15

Ultimi Messaggi

Indietro
Alto