Novità

A LUIGIB PROBLEMI LETTURA ALCUNI SCRIPT

LUNARES

Super Member >PLATINUM<
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(n) : 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(n) :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
 
guarda se Mike dice che funziona vuol dire che funziona senza dubbio e dal momento che gli altri script ti funzionano deve funzionarti pure questo.
Ci sara un problema di range forse ...quello che è sicuro che uno script va considerato dalla prima istruzione Sub alla ultima End Sub , se ti metti a pasticciare
dicendo "eh ma io volevo far funzionare solo quella parte li" ti garantisco che è il metodo migliore per non farlo funzionare per niente come del resto è accaduto.
Ricopia daccapo quello che Mike dice che funziona , vedi bene il range e riprova.
 
fuzionava sicurmente pure prima .. non ci sono dubbi .. giusto per chiarezza .. ciao
 

Ultima estrazione Lotto

  • Estrazione del lotto
    martedì 29 aprile 2025
    Bari
    03
    07
    32
    05
    33
    Cagliari
    66
    62
    27
    39
    26
    Firenze
    07
    41
    70
    75
    53
    Genova
    10
    26
    64
    44
    74
    Milano
    30
    76
    66
    51
    65
    Napoli
    56
    80
    34
    11
    29
    Palermo
    74
    37
    48
    13
    38
    Roma
    02
    21
    18
    51
    68
    Torino
    64
    06
    32
    88
    54
    Venezia
    66
    01
    11
    74
    54
    Nazionale
    65
    63
    50
    55
    33
    Estrazione Simbolotto
    Genova
    45
    10
    12
    24
    40

Ultimi Messaggi

Indietro
Alto