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 13 dicembre 2025
    Bari
    61
    81
    73
    68
    78
    Cagliari
    76
    59
    33
    78
    23
    Firenze
    10
    37
    58
    30
    71
    Genova
    17
    45
    37
    36
    72
    Milano
    10
    71
    70
    46
    87
    Napoli
    21
    11
    51
    68
    01
    Palermo
    84
    72
    26
    17
    79
    Roma
    39
    63
    46
    67
    50
    Torino
    35
    86
    79
    68
    85
    Venezia
    67
    68
    22
    77
    76
    Nazionale
    46
    12
    72
    65
    70
    Estrazione Simbolotto
    Venezia
    05
    13
    40
    35
    10
    Archivio estrazioni lotto Ritardi top 15 Frequenze top 15

Ultimi Messaggi

Indietro
Alto