Novità

PER BUBU'

Alien.

Advanced Premium Member
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.
 
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)
 
Alien devi scrivere cosi ..OrdinaMatrice,1

ini = EstrazioneFin - 9
fin = EstrazioneFin

ciao
 
Codice:
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..
 
Ultima modifica:
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.

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

Ultima estrazione Lotto

  • Estrazione del lotto
    venerdì 04 luglio 2025
    Bari
    08
    45
    67
    28
    03
    Cagliari
    70
    57
    26
    88
    80
    Firenze
    83
    77
    22
    86
    67
    Genova
    04
    20
    78
    36
    47
    Milano
    12
    53
    34
    18
    57
    Napoli
    07
    19
    35
    75
    10
    Palermo
    06
    65
    11
    07
    23
    Roma
    01
    53
    48
    80
    46
    Torino
    30
    44
    71
    05
    21
    Venezia
    45
    67
    14
    44
    40
    Nazionale
    22
    27
    05
    18
    67
    Estrazione Simbolotto
    Nazionale
    12
    31
    32
    04
    44

Ultimi Messaggi

Indietro
Alto