sCUSA LUIGI E GRAZIE DI EVENTUALI INFO....
ho gia postato chiedendo aiuto anche a mike58, TI CHIEDO QUESTO:_
vado al problema.......non leggo il fulmine di manara che in forum dopo averlo postato lo stesso mike dice che funziona bene.. lo posto anche a te:_
Sub main()
Scrivi "FULMINE di OSVALDO MANARA",1
Dim n,t,r1,r2,n1,n2,n3,n4
Dim x(10), am(10), am1(10), am2(10)
Dim ruota(2),ruote(10), posta(5), poste(5), poste1(5)
poste1(1)=1
posta(2)=1.5
posta(3)=0.4
posta(4)=0.1
poste(2)=1
For n=8200 To EstrazioneFin
Messaggio DataEstrazione
: t=1
Do While DISAMBO(n,t,r1,n1,n2,r2,n3,n4)=True
ruota(1)=r1
ruota(2)=r2
ruote(1)=r1
ruote(2)=r2
ruote(3)=11
ruote(4)=12
x(1)=n1
x(2)=n2
x(3)=n3
x(4)=n4
If NumeriRipetuti(x)=False Then
OrdinaMatrice x,1
y1=Fuori90(x(4)+x(1))
y2=Fuori90(x(2)+x(3))
y3=Distanza(x(4),x(3))
y4=Distanza(x(1),x(2))
y5=Distanza(x(4),x(2))
y6=Distanza(x(1),x(3))
If y1=y2 And y3=y4 And y5=y6 Then
Scrivi "----------------------------------------------------------" : ColoreTesto 2
Scrivi " RUOTA ESTRATTI ORDINATI Somma Oriz. D.V - D.D." : ColoreTesto 0
Scrivi FormatSpace(NomeRuota(r1),10)&" "&format2(CInt(n1))&" "&format2(CInt(n2))& " "&_
Format2(x(4))&" "& Format2(x(1))&" "& FormatSpace(y1,3)&" "& FormatSpace(y3,3)&" "& FormatSpace(y5,3),1
Scrivi FormatSpace(NomeRuota(r1+1),10)&" "&format2(CInt(n3))&" "&format2(CInt(n4))& " "&_
Format2(x(3))&" "& Format2(x(2))&" "& FormatSpace(y2,3)&" "& FormatSpace(y4,3)&" "& FormatSpace(y6,3),1
Scrivi
am(1)=x(4)
ImpostaGiocata 1,am,ruota,poste1,16
am1(1)=x(4)
am1(2)=x(1)
ImpostaGiocata 2,am1,ruote,poste,16
am1(2)=x(2)
ImpostaGiocata 3,am1,ruote,poste,16
am1(2)=x(3)
ImpostaGiocata 4,am1,ruote,poste,16
am2(1)=x(1)
am2(2)=x(2)
am2(3)=x(3)
am2(4)=x(4)
'ImpostaGiocata 5,am2,ruote,posta,16
Gioca n
End If
End If
t=t+1
Loop
Next
ScriviResoconto
End Sub
Function DISAMBO(estrazione, tentativo, byref ruota1, byref numero1, byref numero2, byref ruota2, byref numero3, byref numero4)
Dim trovati,r,rr,i,ii,j,jj
trovati=0
For r= 1 To 9
For i= 1 To 4
For j=i+1 To 5 '* 1a
a=Estratto (estrazione,r,i)
b=Estratto(estrazione,r,j)
c1=Cadenza(a)
c2=Cadenza(b)
d1=Figura(a)
d2=Figura(b)
For rr=r+1 To 10
aa=Estratto(estrazione,rr,i)
bb=Estratto(estrazione,rr,j)
cc1=Cadenza(aa)
cc2=Cadenza(bb)
dd1=Figura(aa)
dd2=Figura(bb)
If (c1=c2 And cc1=cc2 And c1=cc1) Or (d1=d2 And dd1=dd2 And d1=dd1) Then
trovati=trovati+1
If trovati=tentativo Then
numero1=a
numero2=b
numero3=aa
numero4=bb
ruota1=r
ruota2=rr
DISAMBO=True
Exit Function
End If
End If
Next
Next
Next
Next '* 2a
DISAMBO=False
End Function
io invece leggo questo:_
FULMINE di OSVALDO MANARA
+----------------------------------------+
| Prima Giocata : 0 |
| Ultima Giocata : 0 |
| Range : 1 |
| Casi giocab perc. : % |
+----------------------------------------+ +----------------------------------+ +----------------------------------+ +----------------------------------+
| RESOCONTO | | DISTRIBUZIONE ESITI | | DISTRIBUZIONE ESITI PERCENTUALI | | DISTRIBUZIONE CASI |
+----------------------------------------+ +----------------------------------+ +----------------------------------+ +----------------------------------+
| Casi esaminati : 0 | | RT | Est | Amb | Ter | Qua | Cin | | RT | Est | Amb | Ter | Qua | Cin | | RT | Q | |
| Casi vincenti : 0 | +----------------------------------+ +----------------------------------+ +----------------------------------+
| Percentuale pos. : 0 % | | BA | | | | | | | BA | | | | | | | BA | | |
| Pronostici totali : 0 | | CA | | | | | | | CA | | | | | | | CA | | |
| Pronostici vinc. : 0 | | FI | | | | | | | FI | | | | | | | FI | | |
| Percentuale pos. : 0 % | | GE | | | | | | | GE | | | | | | | GE | | |
| Giocate in corso : 0 | | MI | | | | | | | MI | | | | | | | MI | | |
| Giocate terminate : 0 | | NA | | | | | | | NA | | | | | | | NA | | |
| Bollette giocate : 0 | | PA | | | | | | | PA | | | | | | | PA | | |
| Bollette vincenti : 0 | | RO | | | | | | | RO | | | | | | | RO | | |
| Attesa media : 0 | | TO | | | | | | | TO | | | | | | | TO | | |
| Spesa : 0,00 € | | VE | | | | | | | VE | | | | | | | VE | | |
| Vincita : 0,00 € | | NZ | | | | | | | NZ | | | | | | | NZ | | |
| Guadagno : 0,00 € | | TT | | | | | | | TT | | | | | | | TT | | |
| Perc. Rendimento : 0 % | +----------------------------------+ +----------------------------------+ +----------------------------------+
| Mass. Esposizione : 0,00 € |
| |
+----------------------------------------+
le estrazioni sotto sono tutte attive.......
se carico un altro scrip es lottofacile piuttosto che un altro io lo eseguo e funziona bene facendo le stesse identiche operazioni....
nota strana... ignorantemente ho detto provo a scriverlo io direttamente e vediamo che accade...PERò MI SONO FERMATO AL PRIMO END FUNCTION... magari sbaglio però ho detto magari qualcosa appare e vedo che accade.
lo apro mando in esecuzione e il programma dice che ce un errore 1025 PREVISTA FINE ISTRUZIONE alla riga 7 colonna 12 ERRORE DI COMPILAZIONE MICROSOFT VBSCRIP che corrisponde a questa riga posta(2)=1.5
MAGARI NON CENTRA NULLA MA SE POTEVO FAR FUNZIONARE SOLO QUELLA PARTE A ME COME MAI DA ERRORE E A VOI NO? che problema puo essere..lo strano è che tanti script li leggo benissimo e funzionano bene.....CI SONO ALCUNI SCRIPT CHE NON VANNO E BASTA... si comportano alla stessa maniera....COME POSSO OVVIARE?
ECCO QUESTO è QUELLO CHE HO SCRITTO IO DI SANA PIANTA
Sub Main()
Scrivi "FULMINE DI OSVALDO MANARA",1
Dim n,t,r1,r2,n1,n2,n3,n4
Dim x(10),am(10),am1(10),am2(10)
Dim ruota(2),ruote(10),posta(5),poste1(5)
poste1(1) = 1
posta(2) = 1,5
posta(3) = 0,4
posta(4) = 0,1
poste(2) = 1
For n = 8200 To EstrazioneFin
Messaggio DataEstrazione
:t = 1
Do While DISAMBO(n,t,r1,n1,n2,r2,n3,n4) = True
ruota(1) = r1
ruota(2) = r2
ruote(1) = r1
ruote(2) = r2
ruote(3) = 11
ruote(4) = 12
x(1) = n1
x(2) = n2
x(3) = n3
x(4) = n4
If NumeriRipetuti(x) = False Then OrdinaMatrice x,1
y1 = Fuori90(x(4) + x(1))
y2 = Fuori90(x(2) + x(2))
y3 = Distanza(x(4),x(3))
y4 = Distanza(x(1),x(2))
y5 = Distanza(x(4),x(2))
y6 = Distanza(x(1),x(3))
If y1 = y2 And y3 = y4 And y5 = y6 Then
Scrivi "------------------------------------------------------------" : ColoreTesto 2
Scrivi " RUOTA ESTRATTI ORDINATI SOMMA ORIZ. D.V -D.D." : ColoreTesto 0
Scrivi FormataSpace(NomeRuota(r1),10) & " " & Format2(CInt(n1)) & ""Format2(CInt(n2)) & "" & _
Format2(x(4)) & " " & Format2(x(1)) & "" & FormaSpace(y1,3) & "" FormatSpace(y3,3) & "" &
FormatSpace(y5,3),1
Scrivi FormatSpace(NomeRuota(r1 + 1),10) & "" & Format2(CInt(n3)) & "" & Format2(CInt(n4)) & "" & _
Format2(x(3)) & "" & Format2(x(2)) & "" & FormatSpace(y2,3) & ""FormatSpace(y4,3) & "" &
FormatSpace(y6,3),1
Scrivi
am(1) = x(4)
ImpostaGiocata 1,am,ruota,poste1,16
am1(1) = x(4)
am1(2) = x(1)
ImpostaGiocata 2,am1,ruote,poste,16
am1(2) = x(2)
ImpostaGiocata 3,am1,ruote,poste,16
am1(2) = x(3)
ImpostaGiocata 4,am1,ruote,poste,16
am2(1) = x(1)
am2(2) = x(2)
am2(3) = x(3)
am2(4) = x(4)
ImpostaGiocata 5,am2,ruote,posta,16
Gioca n
End If
End If
t = t + 1
Loop
Next
ScriviResoconto
End Sub
ti ringrazio veramente tanto del tempo che puoi dedicarmi
ho gia postato chiedendo aiuto anche a mike58, TI CHIEDO QUESTO:_
vado al problema.......non leggo il fulmine di manara che in forum dopo averlo postato lo stesso mike dice che funziona bene.. lo posto anche a te:_
Sub main()
Scrivi "FULMINE di OSVALDO MANARA",1
Dim n,t,r1,r2,n1,n2,n3,n4
Dim x(10), am(10), am1(10), am2(10)
Dim ruota(2),ruote(10), posta(5), poste(5), poste1(5)
poste1(1)=1
posta(2)=1.5
posta(3)=0.4
posta(4)=0.1
poste(2)=1
For n=8200 To EstrazioneFin
Messaggio DataEstrazione

Do While DISAMBO(n,t,r1,n1,n2,r2,n3,n4)=True
ruota(1)=r1
ruota(2)=r2
ruote(1)=r1
ruote(2)=r2
ruote(3)=11
ruote(4)=12
x(1)=n1
x(2)=n2
x(3)=n3
x(4)=n4
If NumeriRipetuti(x)=False Then
OrdinaMatrice x,1
y1=Fuori90(x(4)+x(1))
y2=Fuori90(x(2)+x(3))
y3=Distanza(x(4),x(3))
y4=Distanza(x(1),x(2))
y5=Distanza(x(4),x(2))
y6=Distanza(x(1),x(3))
If y1=y2 And y3=y4 And y5=y6 Then
Scrivi "----------------------------------------------------------" : ColoreTesto 2
Scrivi " RUOTA ESTRATTI ORDINATI Somma Oriz. D.V - D.D." : ColoreTesto 0
Scrivi FormatSpace(NomeRuota(r1),10)&" "&format2(CInt(n1))&" "&format2(CInt(n2))& " "&_
Format2(x(4))&" "& Format2(x(1))&" "& FormatSpace(y1,3)&" "& FormatSpace(y3,3)&" "& FormatSpace(y5,3),1
Scrivi FormatSpace(NomeRuota(r1+1),10)&" "&format2(CInt(n3))&" "&format2(CInt(n4))& " "&_
Format2(x(3))&" "& Format2(x(2))&" "& FormatSpace(y2,3)&" "& FormatSpace(y4,3)&" "& FormatSpace(y6,3),1
Scrivi
am(1)=x(4)
ImpostaGiocata 1,am,ruota,poste1,16
am1(1)=x(4)
am1(2)=x(1)
ImpostaGiocata 2,am1,ruote,poste,16
am1(2)=x(2)
ImpostaGiocata 3,am1,ruote,poste,16
am1(2)=x(3)
ImpostaGiocata 4,am1,ruote,poste,16
am2(1)=x(1)
am2(2)=x(2)
am2(3)=x(3)
am2(4)=x(4)
'ImpostaGiocata 5,am2,ruote,posta,16
Gioca n
End If
End If
t=t+1
Loop
Next
ScriviResoconto
End Sub
Function DISAMBO(estrazione, tentativo, byref ruota1, byref numero1, byref numero2, byref ruota2, byref numero3, byref numero4)
Dim trovati,r,rr,i,ii,j,jj
trovati=0
For r= 1 To 9
For i= 1 To 4
For j=i+1 To 5 '* 1a
a=Estratto (estrazione,r,i)
b=Estratto(estrazione,r,j)
c1=Cadenza(a)
c2=Cadenza(b)
d1=Figura(a)
d2=Figura(b)
For rr=r+1 To 10
aa=Estratto(estrazione,rr,i)
bb=Estratto(estrazione,rr,j)
cc1=Cadenza(aa)
cc2=Cadenza(bb)
dd1=Figura(aa)
dd2=Figura(bb)
If (c1=c2 And cc1=cc2 And c1=cc1) Or (d1=d2 And dd1=dd2 And d1=dd1) Then
trovati=trovati+1
If trovati=tentativo Then
numero1=a
numero2=b
numero3=aa
numero4=bb
ruota1=r
ruota2=rr
DISAMBO=True
Exit Function
End If
End If
Next
Next
Next
Next '* 2a
DISAMBO=False
End Function
io invece leggo questo:_
FULMINE di OSVALDO MANARA
+----------------------------------------+
| Prima Giocata : 0 |
| Ultima Giocata : 0 |
| Range : 1 |
| Casi giocab perc. : % |
+----------------------------------------+ +----------------------------------+ +----------------------------------+ +----------------------------------+
| RESOCONTO | | DISTRIBUZIONE ESITI | | DISTRIBUZIONE ESITI PERCENTUALI | | DISTRIBUZIONE CASI |
+----------------------------------------+ +----------------------------------+ +----------------------------------+ +----------------------------------+
| Casi esaminati : 0 | | RT | Est | Amb | Ter | Qua | Cin | | RT | Est | Amb | Ter | Qua | Cin | | RT | Q | |
| Casi vincenti : 0 | +----------------------------------+ +----------------------------------+ +----------------------------------+
| Percentuale pos. : 0 % | | BA | | | | | | | BA | | | | | | | BA | | |
| Pronostici totali : 0 | | CA | | | | | | | CA | | | | | | | CA | | |
| Pronostici vinc. : 0 | | FI | | | | | | | FI | | | | | | | FI | | |
| Percentuale pos. : 0 % | | GE | | | | | | | GE | | | | | | | GE | | |
| Giocate in corso : 0 | | MI | | | | | | | MI | | | | | | | MI | | |
| Giocate terminate : 0 | | NA | | | | | | | NA | | | | | | | NA | | |
| Bollette giocate : 0 | | PA | | | | | | | PA | | | | | | | PA | | |
| Bollette vincenti : 0 | | RO | | | | | | | RO | | | | | | | RO | | |
| Attesa media : 0 | | TO | | | | | | | TO | | | | | | | TO | | |
| Spesa : 0,00 € | | VE | | | | | | | VE | | | | | | | VE | | |
| Vincita : 0,00 € | | NZ | | | | | | | NZ | | | | | | | NZ | | |
| Guadagno : 0,00 € | | TT | | | | | | | TT | | | | | | | TT | | |
| Perc. Rendimento : 0 % | +----------------------------------+ +----------------------------------+ +----------------------------------+
| Mass. Esposizione : 0,00 € |
| |
+----------------------------------------+
le estrazioni sotto sono tutte attive.......
se carico un altro scrip es lottofacile piuttosto che un altro io lo eseguo e funziona bene facendo le stesse identiche operazioni....
nota strana... ignorantemente ho detto provo a scriverlo io direttamente e vediamo che accade...PERò MI SONO FERMATO AL PRIMO END FUNCTION... magari sbaglio però ho detto magari qualcosa appare e vedo che accade.
lo apro mando in esecuzione e il programma dice che ce un errore 1025 PREVISTA FINE ISTRUZIONE alla riga 7 colonna 12 ERRORE DI COMPILAZIONE MICROSOFT VBSCRIP che corrisponde a questa riga posta(2)=1.5
MAGARI NON CENTRA NULLA MA SE POTEVO FAR FUNZIONARE SOLO QUELLA PARTE A ME COME MAI DA ERRORE E A VOI NO? che problema puo essere..lo strano è che tanti script li leggo benissimo e funzionano bene.....CI SONO ALCUNI SCRIPT CHE NON VANNO E BASTA... si comportano alla stessa maniera....COME POSSO OVVIARE?
ECCO QUESTO è QUELLO CHE HO SCRITTO IO DI SANA PIANTA
Sub Main()
Scrivi "FULMINE DI OSVALDO MANARA",1
Dim n,t,r1,r2,n1,n2,n3,n4
Dim x(10),am(10),am1(10),am2(10)
Dim ruota(2),ruote(10),posta(5),poste1(5)
poste1(1) = 1
posta(2) = 1,5
posta(3) = 0,4
posta(4) = 0,1
poste(2) = 1
For n = 8200 To EstrazioneFin
Messaggio DataEstrazione

Do While DISAMBO(n,t,r1,n1,n2,r2,n3,n4) = True
ruota(1) = r1
ruota(2) = r2
ruote(1) = r1
ruote(2) = r2
ruote(3) = 11
ruote(4) = 12
x(1) = n1
x(2) = n2
x(3) = n3
x(4) = n4
If NumeriRipetuti(x) = False Then OrdinaMatrice x,1
y1 = Fuori90(x(4) + x(1))
y2 = Fuori90(x(2) + x(2))
y3 = Distanza(x(4),x(3))
y4 = Distanza(x(1),x(2))
y5 = Distanza(x(4),x(2))
y6 = Distanza(x(1),x(3))
If y1 = y2 And y3 = y4 And y5 = y6 Then
Scrivi "------------------------------------------------------------" : ColoreTesto 2
Scrivi " RUOTA ESTRATTI ORDINATI SOMMA ORIZ. D.V -D.D." : ColoreTesto 0
Scrivi FormataSpace(NomeRuota(r1),10) & " " & Format2(CInt(n1)) & ""Format2(CInt(n2)) & "" & _
Format2(x(4)) & " " & Format2(x(1)) & "" & FormaSpace(y1,3) & "" FormatSpace(y3,3) & "" &
FormatSpace(y5,3),1
Scrivi FormatSpace(NomeRuota(r1 + 1),10) & "" & Format2(CInt(n3)) & "" & Format2(CInt(n4)) & "" & _
Format2(x(3)) & "" & Format2(x(2)) & "" & FormatSpace(y2,3) & ""FormatSpace(y4,3) & "" &
FormatSpace(y6,3),1
Scrivi
am(1) = x(4)
ImpostaGiocata 1,am,ruota,poste1,16
am1(1) = x(4)
am1(2) = x(1)
ImpostaGiocata 2,am1,ruote,poste,16
am1(2) = x(2)
ImpostaGiocata 3,am1,ruote,poste,16
am1(2) = x(3)
ImpostaGiocata 4,am1,ruote,poste,16
am2(1) = x(1)
am2(2) = x(2)
am2(3) = x(3)
am2(4) = x(4)
ImpostaGiocata 5,am2,ruote,posta,16
Gioca n
End If
End If
t = t + 1
Loop
Next
ScriviResoconto
End Sub
ti ringrazio veramente tanto del tempo che puoi dedicarmi