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
    giovedì 21 agosto 2025
    Bari
    41
    55
    23
    09
    54
    Cagliari
    52
    26
    51
    34
    47
    Firenze
    23
    78
    17
    35
    86
    Genova
    82
    15
    07
    44
    70
    Milano
    19
    86
    22
    77
    73
    Napoli
    39
    48
    82
    70
    15
    Palermo
    05
    25
    88
    54
    87
    Roma
    54
    19
    24
    62
    09
    Torino
    29
    83
    49
    59
    74
    Venezia
    65
    01
    45
    72
    55
    Nazionale
    10
    60
    88
    55
    37
    Estrazione Simbolotto
    Nazionale
    20
    24
    28
    33
    01
    Archivio estrazioni lotto Ritardi top 15 Frequenze top 15

Ultimi Messaggi

Indietro
Alto