Novità

X metus

  • Creatore Discussione Creatore Discussione Roby
  • Data di inizio Data di inizio
Stato
Chiusa ad ulteriori risposte.
R

Roby

Guest
Ciao metus,scusa se ti scrivo qui,sai per evitare inutili polemiche.
Volevo chiederti se nello script è normale oppure c'è un errore?



30.09.2010
Ba 06.70.17.28.04
Distanze tavola Prima
LINEA --> 819 813 743 726 698 694
NUMERI --> 06 70 17 28 04

NUMERI --> 03 23 06 68 64
BILANC. --> 64 68 06 23 03
EQUIDI. --> 61 45 <> 45 29

NUM IN GIOCO --> 74 00 113
 
quote:Originally posted by vito967

Ciao metus,scusa se ti scrivo qui,sai per evitare inutili polemiche.
Volevo chiederti se nello script è normale oppure c'è un errore?



30.09.2010
Ba 06.70.17.28.04
Distanze tavola Prima
LINEA --> 819 813 743 726 698 694
NUMERI --> 06 70 17 28 04

NUMERI --> 03 23 06 68 64
BILANC. --> 64 68 06 23 03
EQUIDI. --> 61 45 <> 45 29

NUM IN GIOCO --> 74 00 113
Clicca per espandere...

Senz'altro c'è un piccolo errore di qualche fuori90 che manca.
Ho controllato solo gli esempi postati dal prof, fra l'altro non ho neanche guardato gli esiti che si ottengono.
Lo ricontrollo e te lo riposto qua, tanto di la fanno finta che non gliene freghi un tubazzo a nessuno....eheheh!!
Ciao

metus

Non stare davanti a me, potrei non seguirti; non stare dietro di me, potrei non esserti di guida; ma, sta al mio fianco e sii semplicemente mio amico.
Albert Camus
 
Ok corretto il problema.
La distanza tra due numeri uguali risultava 0 invece di 90 e mancava una piccola x dovuto a problemi di sonnolenza..ehehe!!
Spero che non ce ne siano altri.
Ciao

Codice: 
Sub main()
Dim num(10)
Dim ruote(5)
Dim poste(5)
poste(2)=1
poste(3)=1
poste(4)=1
poste(5)=1
tmp=InputBox("Quante estrazioni controllo?",,250) 
fin=EstrazioneFin 
ini=fin-tmp
For es=ini To fin
Messaggio CStr (EstrazioneFin - es)
For r=1 To 10
If r=11 Then r=12
a1=Estratto(es,r,1)
a2=Estratto(es,r,2)
a3=Estratto(es,r,3)
a4=Estratto(es,r,4)
a5=Estratto(es,r,5)
b1=819-a1
b2=b1-a2
b3=b2-a3
b4=b3-a4
b5=b4-a5
x1=Fuori90(b1)
x2=Fuori90(b2)
x3=Fuori90(b3)
x4=Fuori90(b4)
x5=Fuori90(b5)
xx1=x5-x1
If x5<x1 Then xx1=(x5+90)-x1
xx2=x4-x2
If x4<x2 Then xx2=(x4+90)-x2
xx3=x2-x4
If x2<x4 Then xx3=(x2+90)-x4
xx4=x1-x5
If x1<x5 Then xx4=(x1+90)-x5
y1=xx2-xx1
If xx2<xx1 Then y1=(xx2+90)-xx1
y2=xx3-xx2
If xx3<xx2 Then y2=(xx3+90)-xx2
y3=xx4-xx3
If xx4<xx3 Then y3=(xx4+90)-xx3
If xx1=00 Then xx1=90
If xx2=00 Then xx2=90
If xx3=00 Then xx3=90
If xx4=00 Then xx4=90
If y1=00 Then y1=90
If y2=00 Then y2=90
If y3=00 Then y3=90
Scrivi DataEstrazione(es),True
Scrivi Left(NomeRuota(r),3)&" "& StringaEstratti(es,r)
Scrivi
Scrivi "LINEA --> "&"819"&"  "&b1&"  "&b2&"  "&b3&"  "&b4&"  "&b5
Scrivi "NUMERI --> "&Format2(a1)&"   "&Format2(a2)&"   "&Format2(a3)&"   "&Format2(a4)&"   "&Format2(a5)
Scrivi
Scrivi "NUMERI -->      "&Format2(x1)&"   "&Format2(x2)&"   "&Format2(x3)&"   "&Format2(x4)&"   "&Format2(x5)
Scrivi "BILANC. -->     "&Format2(x5)&"   "&Format2(x4)&"   "&Format2(x3)&"   "&Format2(x2)&"   "&Format2(x1)
Scrivi "EQUIDI. -->     "&Format2(xx1)&"   "&Format2(xx2)&"   <>   "&Format2(xx3)&"   "&Format2(xx4)
Scrivi
Scrivi "NUM IN GIOCO -->  "&Format2(Y1)&"      "&Format2(Y2)&"     "&Format2(Y3)
ruote(1)=r
num(1)=xx1
num(2)=xx2
num(3)=xx3
num(4)=xx4
num(5)=y1
num(6)=y2
num(7)=y3
ImpostaGiocata 1,num,ruote,poste,10
Gioca es
Scrivi"*****************************************************************"   
Next
Next
ScriviResoconto
End Sub


metus

Non stare davanti a me, potrei non seguirti; non stare dietro di me, potrei non esserti di guida; ma, sta al mio fianco e sii semplicemente mio amico.
Albert Camus
 
quote:Originally posted by metus

Ok corretto il problema.
La distanza tra due numeri uguali risultava 0 invece di 90 e mancava una piccola x dovuto a problemi di sonnolenza..ehehe!!
Spero che non ce ne siano altri.
Ciao

Codice: 
Sub main()
Dim num(10)
Dim ruote(5)
Dim poste(5)
poste(2)=1
poste(3)=1
poste(4)=1
poste(5)=1
tmp=InputBox("Quante estrazioni controllo?",,250) 
fin=EstrazioneFin 
ini=fin-tmp
For es=ini To fin
Messaggio CStr (EstrazioneFin - es)
For r=1 To 10
If r=11 Then r=12
a1=Estratto(es,r,1)
a2=Estratto(es,r,2)
a3=Estratto(es,r,3)
a4=Estratto(es,r,4)
a5=Estratto(es,r,5)
b1=819-a1
b2=b1-a2
b3=b2-a3
b4=b3-a4
b5=b4-a5
x1=Fuori90(b1)
x2=Fuori90(b2)
x3=Fuori90(b3)
x4=Fuori90(b4)
x5=Fuori90(b5)
xx1=x5-x1
If x5<x1 Then xx1=(x5+90)-x1
xx2=x4-x2
If x4<x2 Then xx2=(x4+90)-x2
xx3=x2-x4
If x2<x4 Then xx3=(x2+90)-x4
xx4=x1-x5
If x1<x5 Then xx4=(x1+90)-x5
y1=xx2-xx1
If xx2<xx1 Then y1=(xx2+90)-xx1
y2=xx3-xx2
If xx3<xx2 Then y2=(xx3+90)-xx2
y3=xx4-xx3
If xx4<xx3 Then y3=(xx4+90)-xx3
If xx1=00 Then xx1=90
If xx2=00 Then xx2=90
If xx3=00 Then xx3=90
If xx4=00 Then xx4=90
If y1=00 Then y1=90
If y2=00 Then y2=90
If y3=00 Then y3=90
Scrivi DataEstrazione(es),True
Scrivi Left(NomeRuota(r),3)&" "& StringaEstratti(es,r)
Scrivi
Scrivi "LINEA --> "&"819"&"  "&b1&"  "&b2&"  "&b3&"  "&b4&"  "&b5
Scrivi "NUMERI --> "&Format2(a1)&"   "&Format2(a2)&"   "&Format2(a3)&"   "&Format2(a4)&"   "&Format2(a5)
Scrivi
Scrivi "NUMERI -->      "&Format2(x1)&"   "&Format2(x2)&"   "&Format2(x3)&"   "&Format2(x4)&"   "&Format2(x5)
Scrivi "BILANC. -->     "&Format2(x5)&"   "&Format2(x4)&"   "&Format2(x3)&"   "&Format2(x2)&"   "&Format2(x1)
Scrivi "EQUIDI. -->     "&Format2(xx1)&"   "&Format2(xx2)&"   <>   "&Format2(xx3)&"   "&Format2(xx4)
Scrivi
Scrivi "NUM IN GIOCO -->  "&Format2(Y1)&"      "&Format2(Y2)&"     "&Format2(Y3)
ruote(1)=r
num(1)=xx1
num(2)=xx2
num(3)=xx3
num(4)=xx4
num(5)=y1
num(6)=y2
num(7)=y3
ImpostaGiocata 1,num,ruote,poste,10
Gioca es
Scrivi"*****************************************************************"   
Next
Next
ScriviResoconto
End Sub


metus

Non stare davanti a me, potrei non seguirti; non stare dietro di me, potrei non esserti di guida; ma, sta al mio fianco e sii semplicemente mio amico.
Albert Camus
Clicca per espandere...
DA DOVE LO SCARICO PER IMPARARE A FARLO FUNZIONARE.?GRACIAS.:)[:p]
 
Stato
Chiusa ad ulteriori risposte.

Ultima estrazione Lotto

  • Estrazione del lotto
    sabato 14 novembre 2026
    Bari
    38
    30
    06
    56
    57
    Cagliari
    71
    18
    42
    67
    54
    Firenze
    89
    57
    21
    25
    62
    Genova
    24
    47
    88
    65
    70
    Milano
    13
    63
    10
    24
    05
    Napoli
    55
    69
    35
    36
    90
    Palermo
    71
    14
    27
    34
    80
    Roma
    35
    01
    54
    36
    51
    Torino
    48
    31
    21
    19
    87
    Venezia
    32
    85
    59
    40
    25
    Nazionale
    36
    01
    32
    18
    05
    Estrazione Simbolotto
    Torino
    06
    33
    14
    28
    07
    Archivio estrazioni lotto Ritardi top 15 Frequenze top 15

Ultimi Messaggi

Indietro
Alto