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ì 16 gennaio 2025
    Bari
    47
    33
    54
    51
    58
    Cagliari
    58
    88
    03
    30
    65
    Firenze
    76
    56
    16
    73
    29
    Genova
    78
    58
    71
    18
    26
    Milano
    09
    74
    15
    26
    57
    Napoli
    75
    81
    35
    59
    17
    Palermo
    17
    39
    46
    54
    08
    Roma
    28
    75
    76
    02
    23
    Torino
    24
    36
    80
    87
    89
    Venezia
    86
    70
    37
    23
    45
    Nazionale
    09
    65
    30
    06
    07
    Estrazione Simbolotto
    Bari
    21
    43
    01
    02
    19
    Archivio estrazioni lotto Ritardi top 15 Frequenze top 15

Ultimi Messaggi

Indietro
Alto