PER BUBU'

[Alien.]

Ciao,scusa ho trovato questo script ma mi da errore


Sub Main()
Dim num1(6),c(2)
Dim ruota(10)
Dim posta(2)
posta(2) = 1
Scrivi " AMBO DISTANZA DUE CON NUMERO MANCANTE COME CAPOGIOCO",1
Scrivi " SOMMA 3 NUMERI RIMASTI X ABBINAMENTO - programma L8+6.1",1
Scrivi " script by Fermino"
fin = EstrazioneFin
ini = 10024
For es = ini To fin
AvanzamentoElab ini,fin,es
For r = 1 To 10
For p = 1 To 2
For p1 = p + 1 To 5
a = Estratto(es,r,p)
b = Estratto(es,r,p1)
If Distanza(a,b) = 2 Then
d = Fuori90(a + b)
a1 = SommaEstratti(es,r)
a7 = Fuori90(a1 - d)
c(1) = a
c(2) = b
OrdinaMatrice(c)
k = 3 'colpi gioco
t = t + 1
ColoreTesto 2
Scrivi String(65,"•"),1
ColoreTesto 1 : Scrivi DataEstrazione(es) & " " & SiglaRuota(r) & " " & StringaEstratti(es,r) & " " & _
Format2(a) & "-" & Format2(b) & " " & p & "^ " & p1 & "^ pos. giocata n. " & Format2(t),1
Scrivi " NUMERO MANCANTE TRA " & a & "-" & b & " = " & c(1) + 1 & " <--- capogioco"
ColoreTesto 2
Scrivi String(65,"-")
ColoreTesto 0
ruota(1) = r
ruota(2) = 11
num1(1) = c(1) + 1
num1(2) = a7
EliminaRipetuti num1
ImpostaGiocata 1,num1,ruota,posta,k
Gioca es
casi = casi + 1
Scrivi
End If
Next
Next
Next
Next
ColoreTesto 2
Scrivi "=====================================",1
ColoreTesto 1
Scrivi " totale giocate elaborate : " & CInt(casi),1
ColoreTesto 2
Scrivi "=====================================",1
ColoreTesto 0
ScriviResoconto
End Sub

errore ordina matrice in rosso

grazie.

 

[Xeroxs]

Ciao,
Dovrebbe essere così ma non ho modo di testare se è esatto

o elimini la riga o metti apice come ho scritto oppure copia ed incolla la mia sotto al posto di quella che ti da errore.

'OrdinaMatrice(c)

 

[Zetrix]

Alien devi scrivere cosi ..OrdinaMatrice,1

ini = EstrazioneFin - 9
fin = EstrazioneFin

ciao

 

[Zetrix]

Sub Main()
   Dim num1(6),c(2)
   Dim ruota(10)
   Dim posta(2)
   posta(2) = 1
   Scrivi " AMBO DISTANZA DUE CON NUMERO MANCANTE COME CAPOGIOCO",1
   Scrivi " SOMMA 3 NUMERI RIMASTI X ABBINAMENTO - programma L8+6.1",1
   Scrivi " script by Fermino"
   ini = EstrazioneFin - 9
   fin = EstrazioneFin
   For es = ini To fin
      AvanzamentoElab ini,fin,es
      For r = 1 To 10
         For p = 1 To 2
            For p1 = p + 1 To 5
               a = Estratto(es,r,p)
               b = Estratto(es,r,p1)
               a1 = Massimo(a,b)
               a2 = Minimo(a,b)
               a3 = Fuori90(a2+1)
               If Distanza(a,b) = 2 Then
                  d = Fuori90(a + b)
                  a4 = SommaEstratti(es,r)
                  a7 = Fuori90(a4 - d)
                  c(1) = a
                  c(2) = b
                  ReDim MatriceCaselleDaEvid(5,1)
                  ' Primo elemento
                  MatriceCaselleDaEvid(1,0) = r ' ruota di bari
                  MatriceCaselleDaEvid(1,1) = 1 ' primo estratto
                  ' secondo elemento
                  MatriceCaselleDaEvid(2,0) = r ' ruota di bari
                  MatriceCaselleDaEvid(2,1) = 2 ' secondo estratto
                  ' terzo elemento
                  MatriceCaselleDaEvid(3,0) = r ' ruota di venezia
                  MatriceCaselleDaEvid(3,1) = 3 ' terzo estratto
                  ' quarto elemento
                  MatriceCaselleDaEvid(4,0) = r ' ruota di venezia
                  MatriceCaselleDaEvid(4,1) = 4 ' quarto estratto
                  ' quarto elemento
                  MatriceCaselleDaEvid(5,0) = r ' ruota di venezia
                  MatriceCaselleDaEvid(5,1) = 5 ' quarto estratto
                  Call DisegnaEstrazione(es,MatriceCaselleDaEvid)
                  OrdinaMatrice,1
                  k = 0 'colpi gioco
                  t = t + 1
                  ColoreTesto 1 : Scrivi DataEstrazione(es) & " " & SiglaRuota(r) & " " & StringaEstratti(es,r) & Space(4) & _
                  Format2(a) & "-" & Format2(b) & Space(4) & p & " ^ " & p1 & Space(4) & "  giocata n. " & Format2(t),0,1,1,5
                  Scrivi " NUMERO MANCANTE TRA " & a & "-" & b & " = " & a3 & " ---> capogioco",0,1,7,4
                  Scrivi
                  ruota(1) = r
                  ruota(2) = 11
                  num1(1) = a3
                  num1(2) = a7
                  EliminaRipetuti num1
                  ImpostaGiocata 1,num1,ruota,posta,k
                  Gioca es,1,,1
                  casi = casi + 1
                  Scrivi
               End If
            Next
         Next
      Next
   Next
   ColoreTesto 2
   Scrivi "=====================================",1
   ColoreTesto 1
   Scrivi " totale giocate elaborate : " & CInt(casi),1
   ColoreTesto 2
   Scrivi "=====================================",1
   ColoreTesto 0
End Sub

Alien prova questo script ho fatto una modifica perche i risultati non erano esatti..

 

[salvo50]

Sostituisci la riga incriminata con questa

Call OrdinaMatrice(1,c)

 

[joe]

ORDINAMATRICE:

In L8+ il CRITERIO su come ORDINARE è un parametro facoltativo.

Di default è dal numero più piccolo al più grande.

Cioè 1. Se non specificato espressamente che sia ZERO .... è 1.

IN SPAZIOMETRIA DEVE ESSERE SPECIFICATO.

NON E' FACOLTATIVO dunque se non specificato si genera un errore di sintassi.

* SE NON è "1" genera un ordinamento opposto. (dal più grande al più piccolo).

* SE l'istruzione è "remmata" o cancellata questa istruzione ... naturalmente non viene eseguita.

Cioè cancellando l'istruzione, i numeri non vengono ordinati ed i risultati saranno sicuramente ALTRI.

Poi .... naturalmente ... ognuno è libero di fare come meglio crede.

 

[Alien.]

Grazie per tutti gli intervenuti risolto ma lo script non è eccezionale come descritto.. è di qualche anno fà.