Un aiuto x script ambo somma

[roy]

Ciao a tutti,mi servirebbe uno script che trovi qualsiasi somma su due ruote anche non consecutive e che nella stessa estrazione si trovi il numero somma in queste posizioni 1°,3°,5°,dovrebbe essere presente tra le due ruote anche un ambo diametrale in qualsiasi posizione,si giocano i sei numeri delle 3 posizioni + i loro diametrali in decina x 5_6 colpi,ringrazio anticipatamente chi vorrà cimentarsi....grazie

 

[salvo50]

Ciao a Tutti.

I 12 numeri vanno cercati tutti e 12 in un gruppo oppure esempio dividerli in due gruppi di 6 numeri oppure altro

poi, dovrebbe essere presente tra le due ruote anche un ambo diametrale in qualsiasi posizione, cosa si intende un numero in una ruota e l'altro nell'altra ruota oppure l'ambo diametrale può essere con i due numeri in una o l'altra ruota?

 

[salvo50]

Ciao a Tutti.

In attesa di chiarimenti, lo script l'ho impostato con ricerca di gruppi di 6 numeri, a riguardo dei diametrali ho predisposto un numero per ogni ruota

Option Explicit
Sub Main
   Dim Fin,Es,Ini,Clp,Caso,Casi,K
   Dim R1,R2,R3,E1,E2,E3,Salvo50,A,B,C
   Dim P1,P2,P3,P4,P5,P6,S1,S2,S3,A1,B1
   Dim Num1(6),Num2(6),Num3(12),Ru(2),Post(5)
   Post(2) = 1
   Post(3) = 1
   Fin = EstrazioneFin
   Ini = InputBox("Inserisci l'estrazione che vuoi iniziare",Salvo50,9000)
   Clp = InputBox("Per quanti colpi vuoi giocare?",,6)
   Call ScegliRange(Ini,Fin,Ini,Fin)
   Scrivi "METODO CHIESTO DA ROY - Script Salvo50",1,,4,,3,,1
   For Es = Ini To Fin
      Messaggio Es
      AvanzamentoElab Ini,Fin,Es
      Caso = 0
      For R1 = 1 To 10
         For R2 = R1 + 1 To 10
            If R2 = 11 Then R2 = 12
            If R1 <> R2 Then
               For P1 = 1 To 5
                  For P2 = 1 To 5
                     If P1 <> P2 Then
                        A = Estratto(Es,R1,P1)
                        B = Estratto(Es,R2,P2)
                        If Diametrale(A) = B Then
                           S1 = Fuori90(A + B)
                           For R3 = 1 To 10
                              For P3 = 1 To 5 Step 2
                                 C = Estratto(Es,R3,P3)
                                 If(R3 = R1 Or R3 = R2) And(S1 = C) And(C <> A) And(C <> B) Then
                                    Num1(1) = Estratto(Es,R1,1) : Num1(2) = Estratto(Es,R1,3) : Num1(3) = Estratto(Es,R1,5)
                                    Num1(4) = DiametraleD(Num1(1)) : Num1(5) = DiametraleD(Num1(2)) : Num1(6) = DiametraleD(Num1(3))
                                    Num2(1) = Estratto(Es,R2,1) : Num2(2) = Estratto(Es,R2,3) : Num2(3) = Estratto(Es,R2,5)
                                    Num2(4) = DiametraleD(Num2(1)) : Num2(5) = DiametraleD(Num2(2)) : Num2(6) = DiametraleD(Num2(3))
                                    S2 = StringaNumeri(Num1," ",True)
                                    S3 = StringaNumeri(Num2," ",True)
                                    Caso = Caso + 1
                                    Casi = Casi + 1
                                    ColoreTesto 1
                                    Scrivi String(89,"o") & " Casi Totali " & FormattaStringa(Casi,"0000")
                                    ColoreTesto 2
                                    Scrivi String(80,"o") & " Estrazione " &(Es) & " caso " & FormattaStringa(Caso,"0000")
                                    ColoreTesto 0
                                    Scrivi(" Estrazione n." & Format2(Es) & " del " & DataEstrazione(Es)),1,0
                                    Scrivi "  " & SiglaRuota(R1) & "  ",1,0
                                    For P4 = 1 To 5
                                       E1 = Estratto(Es,R1,P4)
                                       If E1 = A Or E1 = C Then
                                          ColoreTesto 2
                                       Else
                                          ColoreTesto 0
                                       End If
                                       Scrivi Format2(E1) & " ",1,0
                                       ColoreTesto 0
                                    Next
                                    Scrivi
                                    Scrivi(" Estrazione n." & Format2(Es) & " del " & DataEstrazione(Es)),1,0
                                    Scrivi "  " & SiglaRuota(R2) & "  ",1,0
                                    For P5 = 1 To 5
                                       E2 = Estratto(Es,R2,P5)
                                       If E2 = B Or E2 = C Then
                                          ColoreTesto 2
                                       Else
                                          ColoreTesto 0
                                       End If
                                       Scrivi Format2(E2) & " ",1,0
                                       ColoreTesto 0
                                    Next
                                    Scrivi
                                    Scrivi
                                    Scrivi Space(39) & Format2(C) & " = " & Format2(A) & " + " & Format2(B),1,,,1
                                    Scrivi
                                    Scrivi " PRONOSTICO " & S2,1,,,2
                                    Scrivi " PRONOSTICO " & S3,1,,,2
                                    Scrivi
                                    Ru(1) = R1 : Ru(2) = R2
                                    ImpostaGiocata 1,Num1,Ru,Post,Clp
                                    ImpostaGiocata 2,Num2,Ru,Post,Clp
                                    Gioca Es
                                 End If
                              Next
                           Next
                        End If
                     End If
                  Next
               Next
            End If
         Next
      Next
      If ScriptInterrotto Then Exit Sub
   Next
   ScriviResoconto
End Sub

 

[roy]

Ciao a tutti,innanzitutto grazie Salvo x la tua disponibilità,scusa non aver risposto prima ...inconvenienti.
Ti spiego meglio con un esempio.

In data 11- 10- 2016 CA 90-16-84-07-71
.................................NZ 64-39-06-67-38

in data 22-11-2016 FI 73-45-08-90-16
.............................NA 12-83-85-29-45

La somma deve trovarsi in modo isotopo in 1°,2°,3°,il numero somma si deve trovare in 1°,2°,3° posizione ,l'ambo Diametrale in qualsiasi posizione,se possibile metterli tutti assieme i numeri in gioco,non riesco a capire come fare superando i 10 numeri...in gioco sono i sei numeri base + i sei diametrali in decina,...poi eventualmente giocarli in sistema o capire come fare,grazie

 

[salvo50]

Ciao a tutti,innanzitutto grazie Salvo x la tua disponibilità,scusa non aver risposto prima ...inconvenienti.
Ti spiego meglio con un esempio.

In data 11- 10- 2016 CA 90-16-84-07-71
.................................NZ 64-39-06-67-38

in data 22-11-2016 FI 73-45-08-90-16
.............................NA 12-83-85-29-45

La somma deve trovarsi in modo isotopo in 1°,2°,3°,il numero somma si deve trovare in 1°,2°,3° posizione ,l'ambo Diametrale in qualsiasi posizione,se possibile metterli tutti assieme i numeri in gioco,non riesco a capire come fare superando i 10 numeri...in gioco sono i sei numeri base + i sei diametrali in decina,...poi eventualmente giocarli in sistema o capire come fare,grazie

Ciao Roy, forse ti sei sbagliato, nel primo post dici che la somma deve essere nelle posizioni 1°,3°,5°, e qui dici 1°,2°,3°,

per il 1° esempio quello del 11- 10- 2016 devo studiare qualcosa perchè per come l'ho impostato agisce diversamente,

per il 2° esempio quello del 22-11-2016 è già così solo che lo script li visualizza in due estrazioni separate ma con la stessa data e le stesse ruote.

Dato che numeri sono più di 10 vedrò di fare diversamente per le ricerche

 

[roy]

Ciao Salvo,ops sarà inizio demenza senile ,hai ragione,le posizioni esatte sono 1°,3°,5°,a parte gli esempi dati,la somma potrebbe capitare in 5° posizione e il numero somma in 1° o 3°,dovrebbero essere poche condizioni annuali,grazie

 

[salvo50]

Ciao a Tutti.

Ciao Roy, vedi se può andare, subito visualizzo le estrazioni, poi alla fine faccio il resoconto, la ricerca è per 12 numeri

Option Explicit
Dim P3,P4,E1,E2,Es,X1,X2,X3,X4,R1,R2,A,B
Dim Caso,Casi
Sub Main
   Dim Fin,Ini,Clp,Z,Ind
   Dim R3,E3,Salvo50,OK
   Dim A1,A3,A5,B1,B3,B5
   Dim P1,P2,S1,S2,S3,S4
   Dim RetEsito,RetColpi,RetEstratti,RetId
   Dim Num1(12),Ru(2)
   Fin = EstrazioneFin
   Ind = InputBox("Quante estrazione vuoi andare indietro",Salvo50,153)
   Clp = CInt (InputBox("Per quanti colpi vuoi giocare?",,10))
   Ini = Fin - Ind
   Call ScegliRange(Ini,Fin,Ini,Fin)
   ReDim at(9)
   at(1) = " Casi "
   at(2) = " data estraz. INIZIO  "
   at(3) = " Ruote "
   at(4) = " Max Colpi "
   at(5) = " Numeri in Gioco "
   at(6) = " Esito "
   at(7) = " Al Colpo "
   at(8) = " Verifica Usciti "
   at(9) = " Data estraz. Fine "
   Call InitTabella (at,4,,2)
   Scrivi Space(15) & "METODO AMBO SOMMA - CHIESTO DA ROY - Script Salvo50" & Space(15),1,,4,,3,,1
   For Es = Ini To Fin
      Messaggio Es
      AvanzamentoElab Ini,Fin,Es
      Caso = 0
      For R1 = 1 To 10
         For R2 = R1 + 1 To 11
            If R2 = 11 Then R2 = 12
            For P1 = 1 To 4
               For P2 = P1 + 1 To 5
                  A = Estratto(Es,R1,P1)
                  B = Estratto(Es,R2,P2)
                  If Diametrale(A) = B Then
                     '------------------------------------------
                     A1 = Estratto(Es,R1,1) : A3 = Estratto(Es,R1,3) : A5 = Estratto(Es,R1,5)
                     B1 = Estratto(Es,R2,1) : B3 = Estratto(Es,R2,3) : B5 = Estratto(Es,R2,5)
                     S1 = Fuori90(A1 + B1) : S2 = Fuori90(A3 + B3) : S3 = Fuori90(A5 + B5)
                     If(S1 = A3 Or S1 = A5 Or S1 = B3 Or S1 = B5) Xor(S2 = A1 Or S2 = A5 Or S2 = B1 Or S2 = B5)_
                        Xor(S3 = A1 Or S3 = A3 Or S3 = B1 Or S3 = B3) Then
                        Z = 0
                        OK = 0
                        If S1 = A3 Then X1 = A1 : X2 = A3 : X3 = B1 : Call Somma1 : Z = Format2(A3) & " = " & Format2(A1) & " + " & Format2(B1) : OK = 1
                        If S1 = A5 Then X1 = A1 : X2 = A5 : X3 = B1 : Call Somma1 : Z = Format2(A5) & " = " & Format2(A1) & " + " & Format2(B1) : OK = 1
                        If S2 = A1 Then X1 = A1 : X2 = A3 : X3 = B3 : Call Somma1 : Z = Format2(A1) & " = " & Format2(A3) & " + " & Format2(B3) : OK = 1
                        If S2 = A5 Then X1 = A3 : X2 = A5 : X3 = B3 : Call Somma1 : Z = Format2(A5) & " = " & Format2(A3) & " + " & Format2(B3) : OK = 1
                        If S3 = A1 Then X1 = A1 : X2 = A5 : X3 = B5 : Call Somma1 : Z = Format2(A1) & " = " & Format2(A5) & " + " & Format2(B5) : OK = 1
                        If S3 = A3 Then X1 = A3 : X2 = A5 : X3 = B5 : Call Somma1 : Z = Format2(A3) & " = " & Format2(A5) & " + " & Format2(B5) : OK = 1
                        '
                        If S1 = B3 Then X1 = A1 : X3 = B1 : X4 = B3 : Call Somma2 : Z = Format2(B3) & " = " & Format2(A1) & " + " & Format2(B1) : OK = 1
                        If S1 = B5 Then X1 = A1 : X3 = B1 : X4 = B5 : Call Somma2 : Z = Format2(B5) & " = " & Format2(A1) & " + " & Format2(B1) : OK = 1
                        If S2 = B1 Then X1 = A3 : X3 = B1 : X4 = B3 : Call Somma2 : Z = Format2(B1) & " = " & Format2(A3) & " + " & Format2(B3) : OK = 1
                        If S2 = B5 Then X1 = A3 : X3 = B3 : X4 = B5 : Call Somma2 : Z = Format2(B5) & " = " & Format2(A3) & " + " & Format2(B3) : OK = 1
                        If S3 = B1 Then X1 = A5 : X3 = B1 : X4 = B5 : Call Somma2 : Z = Format2(B1) & " = " & Format2(A1) & " + " & Format2(B1) : OK = 1
                        If S3 = B3 Then X1 = A5 : X3 = B3 : X4 = B5 : Call Somma2 : Z = Format2(B3) & " = " & Format2(A1) & " + " & Format2(B1) : OK = 1
                        Num1(1) = A1 : Num1(2) = A3 : Num1(3) = A5 : Num1(4) = B1 : Num1(5) = B3 : Num1(6) = B5
                        Num1(7) = DiametraleD(A1) : Num1(8) = DiametraleD(A3) : Num1(9) = DiametraleD(A5)
                        Num1(10) = DiametraleD(B1) : Num1(11) = DiametraleD(B3) : Num1(12) = DiametraleD(B5)
                        If OK = 1 Then Scrivi" Diametrali " & Format2(A) & " " & Format2(B) & Space(22) & Z,1,,,1
                        Scrivi
                        Ru(1) = R1
                        Ru(2) = R2
                        Call VerificaEsito(Num1,Ru,Es + 1,2,Clp,Nothing,RetEsito,RetColpi,RetEstratti,RetId)
                        ReDim av(9)
                        av(1) = Casi
                        av(2) = GetInfoEstrazione(Es)'DataEstrazione(Es)
                        av(3) = NomeRuota(R1) & " - " & NomeRuota(R2)
                        av(4) = Clp
                        av(5) = StringaNumeri(Num1," ",True)
                        av(6) = RetEsito
                        av(7) = RetColpi
                        av(8) = RetEstratti
                        If RetEsito = "" Then av(9) = " esito non verificato "
                        If RetEsito <> "" Then av(9) = DataEstrazione(RetId)
                        Call AddRigaTabella (av,,,2)
                     End If
                  End If
               Next
            Next
         Next
      Next
      If ScriptInterrotto Then Exit Sub
   Next
  Call CreaTabella(1,-1)


End Sub
Function Somma1
   Caso = Caso + 1
   Casi = Casi + 1
   Scrivi String(89,"o") & " Casi Totali " & FormattaStringa(Casi,"0000"),1,,,2
   Scrivi String(80,"o") & " Estrazione " &(Es) & " caso " & FormattaStringa(Caso,"0000"),1,,,1
   Scrivi(" Estrazione n." & Format2(Es) & " del " & DataEstrazione(Es)),1,0
   Scrivi "  " & SiglaRuota(R1) & "  ",1,0
   For P3 = 1 To 5
      E1 = Estratto(Es,R1,P3)
      If E1 = A Or E1 = X1 Or E1 = X2 Then
         ColoreTesto 2
      Else
         ColoreTesto 0
      End If
      Scrivi Format2(E1) & " ",1,0
      ColoreTesto 0
   Next
   Scrivi
   Scrivi(" Estrazione n." & Format2(Es) & " del " & DataEstrazione(Es)),1,0
   Scrivi "  " & SiglaRuota(R2) & "  ",1,0
   For P4 = 1 To 5
      E2 = Estratto(Es,R2,P4)
      If E2 = B Or E2 = X3 Then
         ColoreTesto 2
      Else
         ColoreTesto 0
      End If
      Scrivi Format2(E2) & " ",1,0
      ColoreTesto 0
   Next
   Scrivi
End Function
Function Somma2
   Caso = Caso + 1
   Casi = Casi + 1
   Scrivi String(89,"o") & " Casi Totali " & FormattaStringa(Casi,"0000"),1,,,2
   Scrivi String(80,"o") & " Estrazione " &(Es) & " caso " & FormattaStringa(Caso,"0000"),1,,,1
   Scrivi(" Estrazione n." & Format2(Es) & " del " & DataEstrazione(Es)),1,0
   Scrivi "  " & SiglaRuota(R1) & "  ",1,0
   For P3 = 1 To 5
      E1 = Estratto(Es,R1,P3)
      If E1 = A Or E1 = X1 Then
         ColoreTesto 2
      Else
         ColoreTesto 0
      End If
      Scrivi Format2(E1) & " ",1,0
      ColoreTesto 0
   Next
   Scrivi
   Scrivi(" Estrazione n." & Format2(Es) & " del " & DataEstrazione(Es)),1,0
   Scrivi "  " & SiglaRuota(R2) & "  ",1,0
   For P4 = 1 To 5
      E2 = Estratto(Es,R2,P4)
      If E2 = B Or E2 = X3 Or E2 = X4 Then
         ColoreTesto 2
      Else
         ColoreTesto 0
      End If
      Scrivi Format2(E2) & " ",1,0
      ColoreTesto 0
   Next
   Scrivi
End Function

 

[roy]

Ciao Salvo,grazie,x cortesia potresti invertire il resoconto facendolo partire dal basso verso l'alto?Grazie

ps:Salvo, ho postato una richiesta di colorazione esiti in griglia di uno script di statistica x distinguere visivamente all'istante i numeri estratti,potresti cortesemente dargli un'occhiata?Se eventualmente ci fosse molto da fare ,mi potresti iniziare il lavoro e potrei finirlo io,,qualunque cosa tu decida,grazie

 

[salvo50]

Ciao Salvo,grazie,x cortesia potresti invertire il resoconto facendolo partire dal basso verso l'alto?Grazie

Fatto

ps:Salvo, ho postato una richiesta di colorazione esiti in griglia di uno script di statistica x distinguere visivamente all'istante i numeri estratti,potresti cortesemente dargli un'occhiata?Se eventualmente ci fosse molto da fare ,mi potresti iniziare il lavoro e potrei finirlo io,,qualunque cosa tu decida,grazie

Sto cercando di capire cosa hai fatto, per poter intervenire

 

[salvo50]

Ciao a Tutti.

Ma il pronostico qual'è?

 

[roy]

Ciao a tutti, Salvo,grazie x l'interessamento,non c'è il pronostico,praticamente vorrei che i numeri uscenti dall'estrazione si colorassero se presenti nella griglia(colorare anche i numeri inclusi in griglia) ,valuto varie soluzioni x trovare delle matrici per applicarle a diversi eventi estrattivi individuati con altri script,grazie.
fac simile...a differenza che al posto dei ripetuti,i numeri inseriti in griglia e( colorandoli diversamente da una ruota all'altra) anch'essi se presenti nelle estrazioni,grazie

 

[salvo50]

Non sono in grado di farlo, a parere mio questo tipo di script, è lavoro per LuigiB, Joe, Magia, ILeggend, ecc...

 

[joe]

Ciao Salvo, Roy

Poter visualizzare i numeri, colorandoli, per ruota, sorte, frequenza o quant'altro, è sicuramente una cosa utile.

Avrei voluto farlo con spaziometria ... MOLTI anni fa ... ma non mi ci sono mai messo con il necessario impegno.

Per questo sarebbe meglio ancora considerare il VB6 e questo è, per me, ulteriore aggravio.

Cioè, di tutto questo discorso avevo sviluppato solo una piccolissima parte in quello che con Luigi

si era fatto nel progetto del "minibrowser" di cui, lui aveva praticamente pubblicato tutti i sorgenti,

con gli annessi tutorial a corredo.

Ad oggi ... è tutto ... come enne anni fa. (Perlomeno al riguardo di ciò, di cui sono a conoscenza)

 

[roy]

Ciao Salvo,Joe e tutti,inserisco lo script della schermata precedente,non ricordo chi tempo fa lo fece(forse Mike),non si potrebbe prendere qualche spunto e adattare il mio (almeno colorare le estrazioni),se ci sarebbe tanto lavoro,mi fate un esempio e io da bravo alunno lo eseguirò,qualsiasi sia la vostra decisione,grazie comunque perchè a noi nulla è dovuto da parte vostra se non x piacere.

[QUOTEOption Explicit
Sub Main()
'rif. 0902_83a Ro - Ripetuti sul quadro esteso - a ruota
'visualizza il quadro esteso con colorazione dei numeri ripetuti in una frequenza scelta
Dim Vet(),stat(),temp(),nu(),max(12)
Dim fin,estr,Ini,r,es,f,n,p,x,y,i,cu,maxcu,co,riga,rigo,t,u,cl,m,s
Dim sTmpRiga,nTmpColor


fin = EstrazioneFin -(InputBox("Quante es vuoi andare indietro rispetto a Estrazionefin?",,100))
estr = InputBox("Su quante estrazioni vuoi cercare i ripetuti?",,12)
f = CInt(InputBox("Quale frequenza devono avere i ripetuti?",,2)) 'se vuoi con freq maggiori metti l'apice
' davanti a f e sostituisci la riga dove tovi questo segno<<<<<<<<<<<<<<<
Ini = fin -(estr - 1)
ReDim Vet(0)
ReDim stat(2,0)
ReDim temp(0)
ReDim nu(12,0)
For r = 1 To 12
If r <> 11 Then nu(r,0) = r
Next
'-----------------------------
For r = 1 To 11
If r = 11 Then r = 12
Erase Vet
Erase stat
ReDim Vet(estr*5)
n = 0
For es = Ini To fin
For p = 1 To 5
n = n + 1
Vet = Estratto(es,r,p)
Next
Next
'------------------------
OrdinaMatrice Vet,1
x = UBound(Vet)
ReDim stat(2,0)
For i = 1 To x
If Vet(i) > Vet(i - 1) Then
co = co + 1
ReDim Preserve stat(2,co)
stat(1,co) = Vet(i)
stat(2,co) = 1
For y = i + 1 To x
If Vet(i) = Vet Then stat(2,co) = stat(2,co) + 1
Next
End If
Next
'------------------------
cu = 0
ReDim temp(0)
For i = 1 To co
If stat(2,i) = 2 Then ' <<<<<<<<<< sostituisci con questa If stat(2,i)=> 2 Then
cu = cu + 1
ReDim Preserve temp(cu)
If cu > maxcu Then maxcu = cu
temp(cu) = stat(1,i)
End If
Next
max(r) = cu
ReDim Preserve nu(12,maxcu)
For i = 1 To cu
nu(r,i) = temp(i)
Next
Next
'--------------------------------------
Scrivi Chr(10) & " QUADRO ESTESO DEI NUMERI RIPETUTI ",1,0
ColoreTesto 2
Scrivi "--> " & f & " <-- ",1,0
ColoreTesto 0
Scrivi " VOLTE SU RUOTA UNICA " & Chr(10),1
Scrivi Space(4) & "Ru - Ripetuti ",1
riga = FormattaTesto("Data",Space(10),2)

For r = 1 To 12
'If max(r) > 0 Then riga = riga & Space(6) & SiglaRuota(r) & Space(7)
If max(r) > 0 Then riga = riga & FormattaTesto(SiglaRuota(r),Space(15),2)
rigo = ""
If max(r) > 0 Then
rigo = Space(4) & SiglaRuota(nu(r,0)) & Space(2)
For t = 1 To max(r)
rigo = rigo & " " & Format2(nu(r,t))
Next
u = u + 1
End If
If rigo <> "" Then Scrivi rigo
Next
If u > 0 Then

Scrivi
Scrivi riga,1
For es = Ini To fin
'ColoreTesto 0

'Call Scrivi(DataEstrazione(es),0,0)

sTmpRiga = DataEstrazione(es)

For r = 1 To 11
If r = 11 Then
r = 12
End If
If max(r) > 0 Then
'ColoreTesto 0
'Scrivi "|",0,0
sTmpRiga = sTmpRiga & "|"
If Not pari(r) Or r = 12 Then
cl = "#FF0000" ' rosso
Else
cl = "#0000FF" ' blue
End If
For p = 1 To 5
For m = 1 To max(r)
'ColoreTesto 0
nTmpColor = "#000000"
If Estratto(es,r,p) = nu(r,m) Then
'ColoreTesto cl
nTmpColor = cl
Exit For
End If
Next
If p < 5 Then s = " " Else s = ""
sTmpRiga = sTmpRiga & GetTestoColorato(Format2(Estratto(es,r,p)),nTmpColor) & s
'Call Scrivi(Format2(Estratto(es,r,p)) & s,1,0)
Next
'If r = 12 And p = 6 Or r = u And p = 6 Then Scrivi Chr(13)
'If r = 12 And p = 6 Then Scrivi Chr(13)
End If
Next
Call Scrivi(sTmpRiga)


Next
End If
ColoreTesto 2
If u = 0 Then Scrivi Chr(10) & " Nessun ripetuto con i parametri impostati "
If u > 0 And u < 11 Then
Scrivi Chr(10) & "NB: le ruote prive di " & f & " ripetuti, non vengono visualizzate"
End If
End Sub
Function FormattaTesto(sValue,sFmt,nAllineamento)
' nAllineamento
' 0 = allinea a sinistra
' 1 = allinea a destra
' 2 = allinea al centro

Dim k
Dim nSpSx,nSpDx,nLen

If sValue <> "" Then
If Len(sFmt) > Len(sValue) Then
If nAllineamento = 0 Then
FormattaTesto = sValue & Mid(sFmt,Len(sValue) + 1)
ElseIf nAllineamento = 1 Then
FormattaTesto = Mid(sFmt,1,Len(sFmt) - Len(sValue)) & sValue
ElseIf nAllineamento = 2 Then

nLen = Len(sFmt) - Len(sValue)
If nLen Mod 2 = 0 Then
nSpSx = nLen/2
nSpDx = nLen/2
Else
nSpSx = nLen\2
nSpDx = nSpSx + 1
End If
FormattaTesto = Space(nSpSx) & sValue & Space(nSpDx)

End If
Else
FormattaTesto = sValue
End If
Else
FormattaTesto = sFmt
End If
End Function

Function GetTestoColorato(sTesto,colore)
GetTestoColorato = "<font color =" & colore & ">" & sTesto & "</font>"


End Function


][/QUOTE]

 

[joe]

Ciao Roy.

No. Lo script è di natura femminile.

(Ne furono rilasciate molte versioni e aggiornamenti)

Ricordo bene anche il discorso delle "masse" fatto a quel tempo da Edi.

Ricordo anche di non essere riuscito a sviluppare quanto lui chiedeva.

Perché i numeri diventavano subito molti e difficili da gestire.

Le cose si complicavano diventando 'impossibili'.

Va anche detto però che 10/15 anni fa non si avevano computer così veloci

ed anche le capacità nostre oltre quelle dei programmi nel frattempo si sono sviluppati molto.

Vedremo se Rox o altri avranno voglia di riprendere queste trattazioni.