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
    martedì 16 settembre 2025
    Bari
    26
    29
    18
    10
    69
    Cagliari
    28
    35
    57
    44
    17
    Firenze
    19
    29
    49
    15
    17
    Genova
    23
    37
    13
    90
    58
    Milano
    33
    84
    76
    24
    79
    Napoli
    78
    15
    03
    24
    56
    Palermo
    80
    24
    41
    08
    75
    Roma
    55
    62
    83
    34
    69
    Torino
    27
    80
    69
    51
    84
    Venezia
    89
    74
    72
    82
    21
    Nazionale
    45
    20
    85
    33
    67
    Estrazione Simbolotto
    Palermo
    21
    19
    27
    36
    18
    Archivio estrazioni lotto Ritardi top 15 Frequenze top 15

Ultimi Messaggi

Indietro
Alto