Novità

Per DJ

joi_lotto

joi_lotto

Super Member >PLATINUM<
Sub Main()
Dim am(1),nr(12),ab(2),abb(4),acc(5),ruote(2),posta(1),poste(2),postee(3)
posta(1) = 1 :poste(2) = 1
postee(2) = 1 :postee(3) = 1
ax = CInt(InputBox("Inserisci estrazione iniziale?","Inizio",8447))

sp = CInt(InputBox("Inserisci Numero spia da cercare ?","Numero Spia",21))
a = CInt(InputBox("1° Ruota di calcolo x Ambata?","Ambata",1)) '<--- Ruota
b = CInt(InputBox("POSIZIONE estratto 1° Ruota di calcolo?","Ambata",1)) '<--- Ambata
c = CInt(InputBox(" + 2° Ruota di calcolo x Ambata ?","Ambata",1))
d = CInt(InputBox("POSIZIONE estratto 2° Ruota di calcolo?","Ambata",1))
e = CInt(ImputBox(" + 3° Ruota di calcolo x Ambata ?","Ambata",6))
f = CInt(ImputBox("POSIZIONE estratto 3° Ruota di calcolo?","Ambata",5))Sto cercando di correggere lo script che mi ai postato,(quello rosso è la variazione. Elaboro e mi risponde:
Errore script!
13 - Tipo non corrispondente:'imput box' linea: 12 colonna 0 Source:
Errore di Run-time di microsoft VBSscript
non rieco a correggerlo.
Un AIUTINO!!??
Grazie.
Ciao.
Joi
 
Grazie Luigi.(GENTILE COME SEMPRE)
Questione di Italiano.
Mi sto impegnando come non mai....MA QUANTA PAZIENZA.
Ciao.
Joi.
Sub Main()
Dim am(1),nr(12),ab(2),abb(4),acc(5),ruote(2),posta(1),poste(2),postee(3)
posta(1) = 1 :poste(2) = 1
postee(2) = 1 :postee(3) = 1
ax = CInt(InputBox("Inserisci estrazione iniziale?","Inizio",8447))

sp = CInt(InputBox("Inserisci Numero spia da cercare ?","Numero Spia",21))
a = CInt(InputBox("1° Ruota di calcolo x Ambata?","Ambata",1)) '<--- Ruota
b = CInt(InputBox("POSIZIONE estratto 1° Ruota di calcolo?","Ambata",1)) '<--- Ambata
c = CInt(InputBox(" + 2° Ruota di calcolo x Ambata ?","Ambata",1))
d = CInt(InputBox("POSIZIONE estratto 2° Ruota di calcolo?","Ambata",1))
e = CInt(InputBox(" + 3° Ruota di calcolo x Ambata ?","Ambata",6))
f = CInt(InputBox("POSIZIONE estratto 3° Ruota di calcolo?","Ambata",5))

x3 = CInt(InputBox("1°Ruota di calcolo x 1° Abbinamento?","1° abbinamento",1)) '<---- 1° abbinamento
x4 = CInt(InputBox("POSIZIONE estratto 1° Ruota di calcolo ?","1° abbinamento",1))
y1 = CInt(InputBox("+ 2°Ruota di calcolo 1° abbinamento?","1° abbinamento",11))
y2 = CInt(InputBox("POSIZIONE estratto 2° Ruota di calcolo?","1° abbinamento",1))
y3 = CInt(InputBox("* 3°Ruota di calcolo 1° abbinamento?","1° abbinamento",5))
y4 = CInt(InputBox("POSIZIONE estratto 3° Ruota di calcolo?","1° abbinamento",4))

z1 = CInt(InputBox("1°Ruota di calcolo 2° abbinamento?","2° abbinamento",8)) '<---- 2° abbinamento
z2 = CInt(InputBox("POSIZIONE estratto 1° Ruota di calcolo?","2° abbinamento",5))
z3 = CInt(InputBox("+ 2°Ruota di calcolo 2° abbinamento?","2° abbinamento",7))
z4 = CInt(InputBox("POSIZIONE estratto 2° Ruota di calcolo?","2° abbinamento",1))
w1 = CInt(InputBox("X Numero fisso 2° abbinamento?","2° abbinamento",9))


w3 = CInt(InputBox("1°Ruota di calcolo 3° abbinamento?","3° abbinamento",2)) '<---- 3° abbinamento
w4 = CInt(InputBox("POSIZIONE estratto 1° Ruota di calcolo?","3° abbinamento",4))
ww1 = CInt(InputBox("+ 2°Ruota di calcolo 3° abbinamento?","3° abbinamento",8))
ww2 = CInt(InputBox("POSIZIONE estratto 2° Ruota di calcolo?","3° abbinamento",2))
ww3 = CInt(InputBox("X Numero fisso 3° abbinamento?","3° abbinamento",1))




k = CInt(InputBox("Colpi di gioco ?","Colpi",13))
For es = ax To EstrazioneFin : Messaggio es
For r = 1 To 10

If r = 11 Then r = 12
For p = 1 To 5
aa = Estratto(es,r,p)

If aa = sp Then
ru1 = r
cc = cc + 1
Scrivi
ColoreTesto 2 :Scrivi " ***************************************Pronostico n° " & Format2(cc),1


Scrivi
ColoreTesto 2
Scrivi DataEstrazione(es) & " " & SiglaRuota(r) & " " & StringaEstratti(es,r),1
Scrivi
Scrivi "Spia " & Format2(sp),1
Scrivi
Scrivi : ColoreTesto 0
nr(1) = Estratto(es,a,b)
nr(2) = Estratto(es,c,d)
nr(3) = Estratto(es,e,f)
nr(4) = Estratto(es,x3,x4)
nr(5) = Estratto(es,y1,y2)
nr(6) = y3
nr(7) = Estratto(es,z1,z2)
nr(8) = Estratto(es,z3,z4)
nr(9) = w1
nr(10) = Estratto(es,w3,w4)
nr(11) = Estratto(es,ww1,ww2)
nr(12) = ww3

am(1) = Fuori90(Fuori90(nr(1) + nr(2))) 'AMBATA
abb(1) = Fuori90(Fuori90(nr(4) + nr(5))*nr(6))'ABBINAM
abb(2) = Fuori90(Fuori90(nr(7) + nr(8))*nr(9))'ABBINAM
abb(3) = Fuori90(Fuori90(nr(10) + nr(11))*nr(12))'ABBINAM


Quello che non capisco sono le lettere: a,s,c,d,e poi y e così via.
non si poteva continuare con le altre in sequenza?
sicuramente sarà una domanda da ignorante ma è possibile saperlo?
Grazie.
Joi.
 
Ciauz joi_lotto certo che si poteva continuare con le altre lettere in sequenza, poi cos'è che vorresti modificare?


Forse intendevi cosi?


Sub main()
Dim am(1),nr(12),ab(2),abb(4),acc(5),ruote(2),posta(1),poste(2),postee(3)
posta(1)=1 :poste(2)=1
postee(2)=1 :postee(3)=1
ax=CInt(InputBox("Inserisci estrazione iniziale?","Inizio",8000))

sp = CInt(InputBox("Inserisci Numero spia da cercare ?","Numero Spia",21))
a = CInt(InputBox("1° Ruota di calcolo x Ambata?","Ambata",1)) '<--- Ruota
b = CInt(InputBox("POSIZIONE estratto 1° Ruota di calcolo?","Ambata",1)) '<--- Ambata
c = CInt(InputBox(" + 2° Ruota di calcolo x Ambata ?","Ambata",1))
d = CInt(InputBox("POSIZIONE estratto 2° Ruota di calcolo?","Ambata",1))
e = CInt(InputBox(" + 3° Ruota di calcolo x Ambata ?","Ambata",6))
f = CInt(InputBox("POSIZIONE estratto 3° Ruota di calcolo?","Ambata",5))

x3 = CInt(InputBox("1°Ruota di calcolo x 1° Abbinamento?","1° abbinamento",1)) '<---- 1° abbinamento
x4 = CInt(InputBox("POSIZIONE estratto 1° Ruota di calcolo ?","1° abbinamento",1))
y1 = CInt(InputBox("+ 2°Ruota di calcolo 1° abbinamento?","1° abbinamento",1))
y2 = CInt(InputBox("POSIZIONE estratto 2° Ruota di calcolo?","1° abbinamento",1))
y3 = CInt(InputBox("* 3°Ruota di calcolo 1° abbinamento?","1° abbinamento",5))
y4 = CInt(InputBox("POSIZIONE estratto 3° Ruota di calcolo?","1° abbinamento",4))

z1 = CInt(InputBox("1°Ruota di calcolo 2° abbinamento?","2° abbinamento",8)) '<---- 2° abbinamento
z2 = CInt(InputBox("POSIZIONE estratto 1° Ruota di calcolo?","2° abbinamento",5))
z3 = CInt(InputBox("+ 2°Ruota di calcolo 2° abbinamento?","2° abbinamento",7))
z4 = CInt(InputBox("POSIZIONE estratto 2° Ruota di calcolo?","2° abbinamento",1))
w1 = CInt(InputBox("X Numero fisso 2° abbinamento?","2° abbinamento",9))


w3 = CInt(InputBox("1°Ruota di calcolo 3° abbinamento?","3° abbinamento",2)) '<---- 3° abbinamento
w4 = CInt(InputBox("POSIZIONE estratto 1° Ruota di calcolo?","3° abbinamento",4))
ww1 = CInt(InputBox("+ 2°Ruota di calcolo 3° abbinamento?","3° abbinamento",8))
ww2 = CInt(InputBox("POSIZIONE estratto 2° Ruota di calcolo?","3° abbinamento",2))
ww3 = CInt(InputBox("X Numero fisso 3° abbinamento?","3° abbinamento",1))




k = CInt(InputBox("Colpi di gioco ?","Colpi",13))
For es = ax To EstrazioneFin : Messaggio es
For r = 1 To 10

If r = 11 Then r = 12
For p = 1 To 5
aa = Estratto(es,r,p)

If aa = sp Then
ru1 = r
cc = cc + 1
Scrivi
ColoreTesto 2 :Scrivi " ***************************************Pronostico n° " & Format2(cc),1


Scrivi
ColoreTesto 2
Scrivi DataEstrazione(es) & " " & SiglaRuota(r) & " " & StringaEstratti(es,r),1
Scrivi
Scrivi "Spia " & Format2(sp),1
Scrivi
Scrivi : ColoreTesto 0
nr(1) = Estratto(es,a,b)
nr(2) = Estratto(es,c,d)
nr(3) = Estratto(es,e,f)
nr(4) = Estratto(es,x3,x4)
nr(5) = Estratto(es,y1,y2)
nr(6) = Estratto(es,y3,y4)
nr(7) = Estratto(es,z1,z2)
nr(8) = Estratto(es,z3,z4)
nr(9) = w1
nr(10) = Estratto(es,w3,w4)
nr(11) = Estratto(es,ww1,ww2)
nr(12) = ww3

am(1) = Fuori90(Fuori90(nr(1) + nr(2)+nr(3))) 'AMBATA
abb(1) = Fuori90(Fuori90(nr(4) + nr(5))*nr(6))'ABBINAM
abb(2) = Fuori90(Fuori90(nr(7) + nr(8))*nr(9))'ABBINAM
abb(3) = Fuori90(Fuori90(nr(10) + nr(11))*nr(12))'ABBINAM

Scrivi b&"° "& Left(NomeRuota(a),9)&".."&nr(1)& " + "&d&"° "& Left(NomeRuota(c),9)&".."&nr(2)&_
" + "&f&"° "& Left(NomeRuota(e),9)&".."&nr(3)& " Ambata ---> "&(am(1))

Scrivi x4&"° "& Left(NomeRuota(x3),9)&".."&nr(4)&" + "&y2&"° "& Left(NomeRuota(y1),9)&".."&nr(5)&_
" x "&y4&"° "& Left(NomeRuota(y3),9)&" .."&nr(6)& " Abbinamento ---> "&(abb(1))&""
Scrivi z2&"° "& Left(NomeRuota(z1),9)&".."&nr(7)&" + "&z4&"° "&Left(NomeRuota(z3),9)&".."&nr(8)&_
" x Fisso "&w1&" Abbinamento ---> "&(abb(2))&""
Scrivi w3&"° "& Left(NomeRuota(w4),9)&".."&nr(10)&" + "&ww2&"° "&Left(NomeRuota(ww1),9)&".."&nr(11)&_
" x Fisso "&ww3&" Abbinamento ---> "&(abb(3))&""

Scrivi Chr(10)&"Quaterna: " &am(1)&"."&abb(1)&_
"."&abb(2)&"."&abb(3)&"."&abb(4)&""

Scrivi : ruot
 
Ciao Dj, Ti posto il metodo,(uno dei tanti) tenendo sempre presente che estratti per ruota, somme, e moltiplicazioni a volte sottrazioni,si possano cambiare.La spia esce su ruota a scelta e le RUOTE DI GIOCO DOVRANNO ESSERE PRINCIPALMENTE 2 CON POSSIBILITA' A UNA.Questo è uno dei tanti:
Ambata già variata come avrai notato(1BA+1BA+5°NA)
1°Abb.to (1BA+1NZ*4°MI)con possibiltà di togliere una o due ruote inserendo un fisso.2°Abb.to (1BA+1CA+4°CA) come sopra descritto.3°Abb.to (1BA*1RO+fisso3)e qui poter togliere il fisso ma inserire un estratto di una terza ruota.
4°Abb.to (1BA+3BA+fisso3)come sopra desritto.
(TENENDO SEMPRE PRESENTE I SEGNI DELLE OPERAZIONI + - * VARIABILI.
Spero di essere stato chiaro. (intanto provo a continuare)
Un GRAZIE.
Ciao.
Joi.
 
Sei stato chiarissimo , purtroppo farne uno buono per tutte le occasioni non riesco , posso fare solo uno fisso tipo quelli sopra
Ciauz

«Un giorno senza un sorriso è un giorno perso.»
Charles Spencer Chaplin
 
Ciao Dj, ci sto lavorando sopra, spero di riuscirci.
Comunque se riesci a farlo fisso come descritto vedrò cosa e come combinare.
Ciao.
Joi.
 
Eccolo....

Ciauz

'Ambata 1BA+1BA+5°NA)
'1°Abb.to (1BA+1NZ)*4°MI
'2°Abb.to (1BA+1CA+4°CA)
'3°Abb.to (1BA*1RO)+fisso3
'4°Abb.to 1BA+3BA+fisso3
Sub main()
Dim am(1),nr(15),ab(2),abb(4),acc(5),ruote(2),posta(1),poste(2),postee(3)
posta(1)=1 :poste(2)=1
postee(2)=1 :postee(3)=1
ax=CInt(InputBox("Inserisci estrazione iniziale?","Inizio",8000))

sp = CInt(InputBox("Inserisci Numero spia da cercare ?","Numero Spia",21))
a = CInt(InputBox("1° Ruota di calcolo x Ambata?","Ambata",1)) '<--- Ruota
b = CInt(InputBox("POSIZIONE estratto 1° Ruota di calcolo?","Ambata",1)) '<--- Ambata
c = CInt(InputBox(" + 2° Ruota di calcolo x Ambata ?","Ambata",1))
d = CInt(InputBox("POSIZIONE estratto 2° Ruota di calcolo?","Ambata",1))
e = CInt(InputBox(" + 3° Ruota di calcolo x Ambata ?","Ambata",6))
f = CInt(InputBox("POSIZIONE estratto 3° Ruota di calcolo?","Ambata",5))

x3 = CInt(InputBox("1°Ruota di calcolo x 1° Abbinamento?","1° abbinamento",1)) '<---- 1° abbinamento
x4 = CInt(InputBox("POSIZIONE estratto 1° Ruota di calcolo ?","1° abbinamento",1))
y1 = CInt(InputBox("+ 2°Ruota di calcolo 1° abbinamento?","1° abbinamento",12))
y2 = CInt(InputBox("POSIZIONE estratto 2° Ruota di calcolo?","1° abbinamento",1))
y3 = CInt(InputBox("* 3°Ruota di calcolo 1° abbinamento?","1° abbinamento",5))
y4 = CInt(InputBox("POSIZIONE estratto 3° Ruota di calcolo?","1° abbinamento",4))

z1 = CInt(InputBox("1°Ruota di calcolo 2° abbinamento?","2° abbinamento",1)) '<---- 2° abbinamento
z2 = CInt(InputBox("POSIZIONE estratto 1° Ruota di calcolo?","2° abbinamento",1))
z3 = CInt(InputBox("+ 2°Ruota di calcolo 2° abbinamento?","2° abbinamento",2))
z4 = CInt(InputBox("POSIZIONE estratto 2° Ruota di calcolo?","2° abbinamento",1))
w1 = CInt(InputBox("+ 2°Ruota di calcolo 2° abbinamento?","2° abbinamento",2))
w2 = CInt(InputBox("POSIZIONE estratto 2° Ruota di calcolo?","2° abbinamento",4))


w3 = CInt(InputBox("1°Ruota di calcolo 3° abbinamento?","3° abbinamento",1)) '<---- 3° abbinamento
w4 = CInt(InputBox("POSIZIONE estratto 1° Ruota di calcolo?","3° abbinamento",1))
ww1 = CInt(InputBox("* 2°Ruota di calcolo 3° abbinamento?","3° abbinamento",8))
ww2 = CInt(InputBox("POSIZIONE estratto 2° Ruota di calcolo?","3° abbinamento",1))
ww3 = CInt(InputBox("+ Numero fisso 3° abbinamento?","3° abbinamento",3))


ww4= CInt(InputBox("1°Ruota di calcolo 4° abbinamento?","3° abbinamento",1)) '<---- 4° abbinamento
ww5 = CInt(InputBox("POSIZIONE estratto 1° Ruota di calcolo?","3° abbinamento",1))
ww6 = CInt(InputBox("+ 2°Ruota di calcolo 4° abbinamento?","3° abbinamento",1))
ww7 = CInt(InputBox("POSIZIONE estratto 2° Ruota di calcolo?","3° abbinamento",3))
ww8 = CInt(InputBox("+ Numero fisso 4° abbinamento?","3° abbinamento",3))

k = CInt(InputBox("Colpi di gioco ?","Colpi",13))
For es = ax To EstrazioneFin : Messaggio es
For r = 1 To 10

If r = 11 Then r = 12
For p = 1 To 5
aa = Estratto(es,r,p)

If aa = sp Then
ru1 = r
cc = cc + 1
Scrivi
ColoreTesto 2 :Scrivi " ***************************************Pronostico n° " & Format2(cc),1


Scrivi
ColoreTesto 2
Scrivi DataEstrazione(es) & " " & SiglaRuota(r) & " " & StringaEstratti(es,r),1
Scrivi
Scrivi "Spia " & Format2(sp),1
Scrivi
Scrivi : ColoreTesto 0
nr(1) = Estratto(es,a,b)
nr(2) = Estratto(es,c,d)
nr(3) = Estratto(es,e,f)
nr(4) = Estratto(es,x3,x4)
nr(5) = Estratto(es,y1,y2)
nr(6) = Estratto(es,y3,y4)
nr(7) = Estratto(es,z1,z2)
nr(8) = Estratto(es,z3,z4)
nr(9) = Estratto(es,w1,w2)
nr(10) = Estratto(es,w3,w4)
nr(11) = Estratto(es,ww1,ww2)
nr(12) = ww3
nr(13) = Estratto(es,ww4,ww5)
nr(14) = Estratto(es,ww6,ww7)
nr(15) = ww8

am(1) = Fuori90(Fuori90(nr(1) + nr(2)+nr(3))) 'AMBATA
abb(1) = Fuori90(Fuori90(nr(4) + nr(5))*nr(6))'ABBINAM
abb(2) = Fuori90(Fuori90(nr(7) + nr(8)+nr(9)))'ABBINAM
abb(3) = Fuori90(Fuori90(nr(10) * nr(11))+nr(12))'ABBINAM
abb(4) = Fuori90(Fuori90(nr(13) + nr(14)+nr(15)))'ABBINAM
Scrivi b&"° "& Left(NomeRuota(a),9)&".."&nr(1)& " + "&d&"° "& Left(NomeRuota(c),9)&".."&nr(2)&_
" + "&f&"° "& Left(NomeRuota(e)
 
Scusa se rompo, ma come faccio ad indicargli di giocare solo su 2 ruote da me scelte!?Ho fatto dei tentativi ma non riesco, o inserisco una ruota o tutte.
For r = 5 To 5

If r = 5 Then r = 5
nell'esempio ho inserito milano, ma io vorrei inserire un'altra.
spero di essere stato chiaro.


Grazie.
Joi
 
Ciao Joi lotto


For r = 5 To 5 adesso sei su milano,metti 1to2 se bari cagliari,metti 2to3 se cagliari firenze.


Antonio1
 
Ciauz joi cosi' com'è gioca solo sulla ruota dove trova la spia se poi vuoi aggiungere un altra ruota di gioco prova ad aggiungere questa riga

ru2=CInt(InputBox("2ª ruota di gioco ?","2ª Ruota",2))


mettila dopo a quella

ww8 = CInt(InputBox( etc etc.......

Ciauz

«Un giorno senza un sorriso è un giorno perso.»
Charles Spencer Chaplin
 
Devi accedere o registrarti per poter rispondere.

Ultima estrazione Lotto

  • Estrazione del lotto
    sabato 01 agosto 2026
    Bari
    46
    54
    36
    47
    01
    Cagliari
    77
    30
    04
    79
    18
    Firenze
    84
    76
    10
    27
    44
    Genova
    32
    13
    71
    38
    46
    Milano
    10
    23
    18
    20
    03
    Napoli
    73
    36
    10
    90
    07
    Palermo
    61
    46
    24
    57
    32
    Roma
    89
    78
    23
    07
    35
    Torino
    21
    59
    34
    73
    86
    Venezia
    74
    01
    30
    46
    54
    Nazionale
    71
    65
    17
    09
    20
    Estrazione Simbolotto
    Nazionale
    03
    09
    37
    30
    39
    Archivio estrazioni lotto Ritardi top 15 Frequenze top 15

Ultimi Messaggi

Indietro
Alto