Correzione script

[lottomoney]

Buonasera, ricercando tra gli script precedenti, per la richiesta dell'argomento precedente "AMBI in CADENZA" ho trovato questo script che però non si esegue perchè c'è un errore in questa riga:
If(a1) < >(a3) And(a2) < >(a4) And(som1) < > 90 And(som2 < > 90) Then

chiedevo se fosse possibile sistemarla correttamente. Grazie mille
lottomoney

Sub Main()
Scrivi "Metodo di lottomoney Ambi isotopi in cadenza listato by Master [Forum Lottopassion] ",1:Scrivi
Dim ruote(2),ruot(3)
Dim posta(1),poste(2)
Dim amb(2),am(2)
posta(1) = 1
poste(2) = 1
t = 0
rs = InputBox("Quante estrazioni vuoi controllare?","Master",50)
cl = InputBox("Quanti colpi vuoi controllare?","Master",9)
ini = EstrazioneFin - rs
fin = EstrazioneFin
For es = ini To fin
AvanzamentoElab ini,fin,es
For r = 1 To 10
For p1 = 1 To 4 : For p2 = p1 + 1 To 5
a1 = Estratto(es,r,p1) : a2 = Estratto(es,r,p2)
For r1 = r + 1 To 11
If r1 = 11 Then r1 = 12
a3 = Estratto(es,r1,p1) : a4 = Estratto(es,r1,p2)
som1 = Fuori90(a1 + a3):som2 = Fuori90(a2 + a4)
ca1 = Cadenza(a1): ca2 = Cadenza(a2):ca3 = Cadenza(a3): ca4 = Cadenza(a4)
If(a1) < >(a3) And(a2) < >(a4) And(som1) < > 90 And(som2 < > 90) Then
If(Ca1) < >(Ca2)And(Ca3) < >(Ca4)And(ca1) =(ca3) And(ca2) =(ca4) Then
pr =(90 - a1) : se =(90 - a3) : so = Fuori90(pr + se): ab =(90 - so) : abb = Fuori90(so + so)
pr1 =(90 - a2) : se1 =(90 - a4): so1 = Fuori90(pr1 + se1): ab1 =(90 - so1) : abb1 = Fuori90(so1 + so1)
ruote(1) = r : ruote(2) = r1
ruot(1) = r : ruot(2) = r1 : ruot(3) = 11
t = t + 1
Scrivi
Scrivi"----------------------------------------------------------------------Giocata n°" & t,1
Scrivi DataEstrazione(es) & " " & SiglaRuota(r) & " " & StringaEstratti(es,r) & " " & Format2(a1) & "-" & Format2(a2) & " Pos. " & p1 & "^ " & p2 & "^ " & " Somma 1° Cad Vert " & som1,1
Scrivi DataEstrazione(es) & " " & SiglaRuota(r1) & " " & StringaEstratti(es,r1) & " " & Format2(a3) & "-" & Format2(a4) & " Pos. " & p1 & "^ " & p2 & "^ " & " Somma 2° Cad Vert " & som2,1
Scrivi
amb(1) = so
amb(2) = so1
ImpostaGiocata 1,amb,ruote,posta,cl
am(1) = so
am(2) = ab
ImpostaGiocata 2,am,ruot,poste,cl,2
am(1) = so
am(2) = abb
ImpostaGiocata 3,am,ruot,poste,cl,2
am(1) = so1
am(2) = ab1
ImpostaGiocata 4,am,ruot,poste,cl,2
am(1) = so1
am(2) = abb1
ImpostaGiocata 5,am,ruot,poste,cl,2
Gioca es
End If
End If
Next
Next : Next
Next
Next
ScriviResoconto
ColoreTesto 1
Scrivi String(70,"=") & "listato by Master",1
ColoreTesto 0
End Sub

[Master]

Ciao

esegue perchè c'è un errore in questa riga:
If(a1) < >(a3) And(a2) < >(a4) And(som1) < > 90 And(som2 < > 90) Then

Fra i segni < > non ci devono essere spazi..correggi così <>
oppure copia incolla da questa pagina viewtopic.php?f=10&t=2627#

buona domenica

[lottomoney]

Grazie mille MASTER, Buone Feste anche a te.
lottomoney