gentilmente per i bravi scripter(costruzione scrip

[janez57]

Buona sera a tutti/e
Gentilmente vorrei chiedere se qualcuno degli scripter può
accontentarmi con questa mia richiesta.

Si deve trovare in 2 ruote una distanza 45 isotopa.
Una volta trovata si deve fare le seguenti operazioni.
Faccio un esempio esplicativo.
estrazione del 5-11-11
genova 86-62-56-60-79
palermo 41-61-34-85-17

dist 45 di ge-pa 86-41 isotopi
si opera in questa maniera genova si tralascia il numero di individuazione della distanza 45 cioè l'86
i rimanenti si sommano come fossero numeretti per cui
6+2+5+6+6+0+7+9=41ambata + vertibile 14 si mettono in gioco come coppia per ambata a genova.

palermo si tralascia il 41 e si sommano gli altri.In questo caso
abbiamo 6+1+3+4+8+5+1+7=35 ambata + vertibile 53 coppia da mettere in gioco a palermo per ambata.
esito ge-41 al 4 colpo
esito pa-53 terzo colpo 35 quarto colpo
---------------------------------------------------------------------
Stessa ricerca dist 45 stesse ruote altro metodo se non possibile
farlo assieme.
Ge si tralascia sempre l'86 ma si sommano le figure degli altri numeri.In questo caso
genova 62 fig8 + 56 fig2+ 60 fig6 + 79 fig7 per cui
8+2+6+7=23 ambata + vertibile 32 coppia in gioco genova.
palermo si tralascia il 41 e si gioca la somma delle figure rimanenti come descritto sopra per cui
7+7+4+8=26 ambata + vertibile 62 coppia da mettere in gioco a palermo.
esito:genova ambata 32 al terzo colpo
palermo ambata 26 al secondo colpo.

Ringrazio anticipamente chi mi può aiutare
Grazie

Janez57

 

[Joe91]

Ciao Janez.

Il metodo è ben descritto e corredato dagli esempi.

Proverei ad imbastire lo script richiesto,

un pò alla volta, spiegando le istruzioni e le scelte adottate.

Quindi, individuato che si devono cercare numeri,

in coppie di ruote ...

Come prima cosa, generiamo le copie di ruote.

Aperto l'editor, in un nuovo foglio , vuoto scriviamo:

Sub Main ( )
For R1 = 1 To 10
Scrivi SiglaRuota (R1) & " - ",0,0
Next
End Sub

Terminata questa prima parte, salviamo assegnando un nome adatto

e poi, proviamo ad eseguire.







Ogni estrazione è unica ed irripetibile. (Joe91)

 

[janez57]

Buon giorno a tutti/e

Grazie joe91 del suo interessamento.
Vedo che manca la ruota nazionale è fatto di proposito?
La lezione penso sia di aiuto,però spero nella sua continuazione
fino in fondo.
Mi dia gli orari della settimana così cerco di non fare assenze
ingiustificate.

Scherzoooo.Mille grazie di TUTTO quello che fate per noi.

Buon Weekeend
Janez57

 

[Joe91]

BuonGiorno a tutti.

Si ho scelto le 10 ruote. Ma sarà possibile aggiungere, volendo.

Per ognuna di queste "10" si deve creare la ruota da abbinare in coppia.

Nello script, aggiungiamo un ciclo For-Next

che differisce "solo" per la variabile R2

Sub Main ( )
For R1 = 1 To 10
For R2 = 1 To 10 
K = K + 1
Scrivi SiglaRuota (R1) & " - ",0,0
Scrivi Siglaruota (R2) 
Next
Next
Scrivi K & " coppie"
End Sub

Si salva questa seconda parte,

e poi, dopo averla eseguita,

si ha l'evidenza del fatto che:

Le 2 decine di ruote hanno generato 100 copie. (10x 10)

Molte di esse non sono "giuste".

Quali ?

Buon-Week-End


Ogni estrazione è unica ed irripetibile. (Joe91)

 

[claudio8]

Bravo Joe
Ottima idea quella della costruzione a step, anche se di questo passo arriverete a completarlo x fine mese, ma va bene anche così.

x Janez
poichè penso che queste mini lezioni possano servire anche ad altri, ti chiederei di cambiare il titolo dell'argomento in: SCRIPT IN COSTRUZIONE oppure COSTRUZIONE DI UNO SCRIPT.

Ciao


Lo spot che conosciamo dice "Ti Piace vincere facile ? " .. io rispondo SI !!!"

 

[Joe91]

Ciao Claudio,

Con i saluti ti ringrazio confermando che ho scelto,

questo approccio proprio per poter porre in evidenza come

TUTTI possono risolvere problemi apparentemente complessi

che, scomposti, in parti "elementari", diventano appunto "elementari".

Dò, anche, la risposta al quesito che avevo posto:

Sono "sbagliate" tutte le coppie di ruote in cui

R2 NON È MAGGIORE DI R1

Quindi aggiungendo:

If R2 > R1 Then
KK=KK+1
Scrivi KK & ")  ",0,0

Prima degli altri "2 Scrivi"

Che deve essere chiuso con:

End If (Dopo i "2 Scrivi")



Ogni estrazione è unica ed irripetibile. (Joe91)

 

[janez57]

ciao a tutti/e
Per completare il tutto chiederei visto che abbiamo tralasciato i numeri di ricerca dist 45 nelle due ruote
genove 86 e palermo 41 di usare pure loro per un'altra coppia per ambata sperando si accoppiano per ambo con gli altri 2 procedimenti.
prendiamo genova 86 e facciamo 8 x 6 =48 prima ambata
palermo 41 e facciamo 4 x 1 = 4 seconda ambata
esito:48 primo colpo palermo
4 sesto colpo genova
Spero che la lezione così possa durare fino prima delle ferie Natalizie.
Grazie della collaborazione.

Janez57

 

[Joe91]

Buona Serata a Tutti.

Abbiamo finalmente risolto una prima parte dei "problemi"

da superare per avre lo script completo.

Ecco il riassunto e lo di quanto sinora esposto:

Sub Main()
    For R1 = 1 To 10
        For R2 = 1 To 10
            K = K + 1
            If R2 > R1 Then
                KK = KK + 1
                Scrivi KK & ") ",0,0
                Scrivi SiglaRuota(R1) & " - ",0,0
                Scrivi SiglaRuota(R2)
            End If
        Next
    Next
    Scrivi K & " coppie"
End Sub

Queste "45" sono la COMBINAZIONE di 10 Ruote (Numeri) a coppie di 2 (Classe).

Quindi lo script funziona ... e allora perchè farla così lunga !?!?

Perchè così ... lo script non è efficiente. Lo spiego con un esempio.

Supponiamo di avere un archivio molto grande e che per cercare tutti

i casi e tra questi, gli storici, delle "distanze"

occorrano 100 MINUTI ... per trovare i 45 "casi" tra i 100 "casi";

Se potessimo ridurre lo script all'elaborare i soli 45 casi necessari,

risparmieremo 55 Minuti (del nostro tempo / di utilizzo del Pc / di corrente elettrica ...)

Quindi, sapendo tutto ciò, che abbiamo detto precedentemente,

s'è "imparato" che modificando i cicli For-Next nel loro modo di lavorare e nelle loro variabili ...

si puo' (leggi deve) OTTIMIZZARE.

I cicli diventano:

FOR R1=1 To 9
For R2=R1+1 To 10
.
.
.

Next
Next

Ed ancora ...

If R2>R1
.
.
.
End If

Diventa inutile = Sparisce = Ulteriori istruzioni in meno da elaborare.



Ogni estrazione è unica ed irripetibile. (Joe91)

 

[Joe91]

Ciao Janez,

Ti vedo un po' distratto ...

non si è ancora, "parlato" della ricerca della "Distanza 45"

ma questo non significa che non lo si farà ... a breve.

Poi ... Claudio, ha dettato l'agenda!

Ora, parliamo velocemente di archivio.

Lo possiamo immaginare come una enorme cassettiera

I cui cassetti sono organizzati ovvero HANNO DELLE ETICHETTE

che li organizzano e distinguono per:

RIGHE che sono le DATE e/o gli IdEstrazione (o sovente semplicemente Es) e ...

COLONNE che sono una per ogni RUOTA.

Ogni CASSETTO ha 5 scomparti ognuno dei quali contiene un ESTRATTO.

L'istruzione per leggere un numero in archivio è: ESTRATTO.

Vedremo come usarla. Ma prima una domanda:

Secondo te, è più probabile che ci serva una bacchetta magica

o quella per ammonire i discoli?

Buona Domenica

 

[janez57]

CIAO JOE91.

DIREI CHE BISOGNA AMMETTERE CHE STASERA è SABATO SERA ED I GIOVANI SI DEVONO SVAGARE DOPO UNA LUNGA E FATICOSA SETTIMANA DI LAVORO,PER POI RIPOSARE LA DOMENICA.PENSO CHE I COMPITI DOVRANNO ESSERE RIPRESI LUNEDI,COSì CI SARà PIù ATTENZIONE.SEMPRE NON SOPPRAGIUNGONO IMPEGNI STRAORDINARI,COME RIUNIONI O QUANT'ALTRO.
CONSIGLIEREI DI FAR PORTARE LA GIUSTIFICAZIONE FIRMATA DAI GENITORI O CHI Fà LE VECI,PER METTERLI AL CORRENTE CHE NON BRUCIANO LE LEZIONI.E VADANO SOLAMENTE A DIVERTIRSI.

BUONA NOTTE

JANEZ57

 

[Joe91]

Buona Domenica a tutti.

Ho accennato a come l'archivio sia composto di

Cassetti = Estrazioni

Posizionati all'incrocio di

Righe = Date
Colonne = Ruote

e che all'interno di ogni Cassetto = Estrazione

ci siano 5 Posizioni = 5 Estratti.

A tutti gli effetti l'archivio e'

una corposa MATRICE TRIDIMENSIONALE

composta da migliaia di singoli-ESTRATTI

singolarmente raggiungibili o leggibili con l'istruzione

ESTRATTO con i 3 parametri che sono:

Numero di estrazione
Ruota
Posizione

"Es" sarà il numero di estrazione (fornito nell' esempio)

Un ciclo For-Next ci servirà per avere le 5 posizioni da leggere,

R1 ed R2 sono le ruote ... Quindi:

For P1 = 1 To 5
E1 = Estratto (Es,R1,P1)
E2 = Estratto (Es,R2,P1)
...
Next

Degli gli estratti E1 - E2 isotopi (P1 = P1 per "ambo" gli estratti)

Verificheremo se sono in distanza 45 (Dst = 45)

e in questo caso calcoleremo il pronostico

simulando la giocata.

Cordiali Saluti

Compiti a casa (per lunedì):
Fornire l' IdEstrazione
corrispondente alla data indicata nell'esempio.

NON SONO AMMESSE ULTERIORI GIUSTIFICAZIONI!

Ogni estrazione è unica ed irripetibile. (Joe91)

 

[Joe91]

IdEStazione InputBox (corretto)

IdEStazione InputBox (corretto)

Buon Giorno

il mio, quasi, unico, allievo ... con la scusa della "ristrutturazione" ...

Lunedì ... i compiti a casa, le giustificazioni ... Vabbè!

Abbiamo detto che ci serviva l' IdEstrazione, relativo alla data, dell'esempio.

Ogni estrazione è caratterizzata da una data a cui è attribuito un numero progressivo.

L' Id o il "Numero di estrazione"

Un numero progressivo che di unità in unità riferisce quale è l'estrazione che si sta considerando.

Posto che in archivio ci fossero 9-Mila Estrazioni la Id 9000 sarebbe l'ultima ... 1 la prima ...

9001 la prossima che si dovrà registrare lalla sua evenienza.

Abbiamo detto che, all'incrocio di una data e quindi di un IdEstrazione

e di una Ruota c'è un cassetto contenente l'estrazione.

Naturalmente c'è anche l'istruzione per "leggerla". E' Stringaestratti

Ho inserito il codice per utilizzare CORRETTAMENTE ... Inputbox (vedi il +1)

Quindi pongo in evidenza (per i ritardisti) come sia comodo utilizzarte gli Id per calcolare i ritardi

ed un' esempio di visulalizzazione estesa del contenuto ... delle ultime 200 (20x10) estrazioni.

Con l'Id ed il Ritardo.

'Visulaizzazione Estesa By Joe
Sub Main()
	Fin = EstrazioneFin
	Q = InputBox("Quante Estrazioni ?","PERIODO IN ESAME",20) - 1
	Scrivi "Rit [Id]   Data       ",1,0
	For R = 1 To 10
		Scrivi FormatSpace(NomeRuota(R),16),1,0
	Next
	Scrivi
	For ES = Fin - Q To Fin
		KK = KK + 1
		Scrivi Format2(Q - KK + 1) & " [" & ES & "] " & DataEstrazione(Es) & " ",0,0
		For R = 1 To 10
			Scrivi StringaEstratti(Es,R) & "  ",0,0
		Next
		Scrivi
	Next
End Sub

 

[Joe91]

Eseguiamo lo script

dopo averlo composto con le varie parti precedentemente esposte,

ponendo Es = 8453 otteniamo:

05.11.2011
CA 62.83.87.81.45 ==> 87
MI 72.09.42.26.88 ==> 42

05.11.2011
FI 18.22.23.86.24 ==> 86
VE 32.47.84.41.27 ==> 41

05.11.2011
GE 86.62.56.60.79 ==> 86
PA 41.61.34.85.17 ==> 41

3 "Ambi" Diametrali isotopi

Non rimane che impostare lo script

facendogli eseguire i calcoli per formare il pronostico

e le istruzioni per impostare la giocata.

Auguri a tutti gli Andrea

 

[janez57]

Buona sera joe91.
Il discolo è riuscito a rientrare.
Si può continuare?
Grazie sperando altri ci segua,altrimenti prendo un insegnante per lezioni private.

janez57

 

[Joe91]

Calcolo del pronostico

Calcolo del pronostico

Ciao Janez,

BuonGiorno a tutti.

Si, certo ed è tempo di terminare questo script.

Vediamo di "risolvere" il calcolo del pronostico.

Riporto per comodità di esposizione il chiaro esempio che fu fatto,

ed al quale mi appello per la descrizione del metodo da me adottato.

Buona sera a tutti/e
Gentilmente vorrei chiedere se qualcuno degli scripter può
accontentarmi con questa mia richiesta.

Si deve trovare in 2 ruote una distanza 45 isotopa.
Una volta trovata si deve fare le seguenti operazioni.
Faccio un esempio esplicativo.
estrazione del 5-11-11
genova 86-62-56-60-79
palermo 41-61-34-85-17

dist 45 di ge-pa 86-41 isotopi
si opera in questa maniera genova si tralascia il numero di individuazione della distanza 45 cioè l'86
i rimanenti si sommano come fossero numeretti per cui
6+2+5+6+6+0+7+9=41ambata + vertibile 14 si mettono in gioco come coppia per ambata a genova.

palermo si tralascia il 41 e si sommano gli altri.In questo caso
abbiamo 6+1+3+4+8+5+1+7=35 ambata + vertibile 53 coppia da mettere in gioco a palermo per ambata.
esito ge-41 al 4 colpo
esito pa-53 terzo colpo 35 quarto colpo
---------------------------------------------------------------------
Stessa ricerca dist 45 stesse ruote altro metodo se non possibile
farlo assieme.
Ge si tralascia sempre l'86 ma si sommano le figure degli altri numeri.In questo caso
genova 62 fig8 + 56 fig2+ 60 fig6 + 79 fig7 per cui
8+2+6+7=23 ambata + vertibile 32 coppia in gioco genova.
palermo si tralascia il 41 e si gioca la somma delle figure rimanenti come descritto sopra per cui
7+7+4+8=26 ambata + vertibile 62 coppia da mettere in gioco a palermo.
esito:genova ambata 32 al terzo colpo
palermo ambata 26 al secondo colpo.

Ringrazio anticipamente chi mi può aiutare
Grazie

Janez57

Dopo aver trovato tutte le condizioni richieste nella prima parte da parte della Sub Main

ovvero, averla resa capace ritrovare nei quadri estrazionali gli eventi generatori del pronostico,

rilevo dall'esempio che i calcoli per formare il pronostico ...

A) Avvengono nella stessa estrazione. (Es)

B) Riguardano la stessa posizione (P1)

C) Differiscono per i numeri da elaborare per la sola differente Ruota (R1 e/o R2)

quindi ho deciso di scrivere una sola procedura di calcolo in una Routine

da eseguirsi 2 volte con i diffferenti parametri (R1/R2)

In questo caso l'ottimizzazione consiste nello scrivere la metà del codice necessario allo scopo.

Per quanto riguarda la lettura e confronto degli estratti da includere e/o escludere dai calcoli,

Dovrebbero essere 5 letture e 5 confronti tra gli estratti ...

ai quali ho fatto precedere il solo confronto sulla posizione risparmiando una lettura e quindi

circa un quinto del lavoro-macchina.

Per quanto concerne il calcolo dei numeretti ...

Ho considerato ogni un "Estratto" ... come numero a 2 cifre ... composto di Decine e di Unità ....

e pertanto deciso di calcolarli nel seguente modo:

La (sua) Decina è uguale alla parte INTera del questo numero dopo averlo diviso per 10.

Supponendo sia esso 53 ... diviso per 10 ... è uguale 5,3 ... di cui l' Intero è 5.

La parte rimanente è ottenuta sottraendo dal numero stesso -N- volte 10

quante sono -N- le decine di cui esso è composto.

Pertanto, le Unità saranno uguali a ( 53 - ( 5 x 10)) = 3

Per testare il corretto funzionamento di questa procedura ...

ho redatto una Sub Main in cui ho assegnato alle variabili (che saranno i parametri)

i valori già noti ricavati dai precedenti script.

E la soubrutine ... "SommaNumeretti" ... esegue le operazioni, qui, descritte.

'05.11.2011        ==> 8453 

'GE 86.62.56.60.79 ==> 86

'PA 41.61.34.85.17 ==> 41

'               P1 ==> 1


Sub Main

    Es = 8453 : R1 = 4 : R2 = 7 : P1 = 1 

    Sn = 0 : R=R1 : SommaNumeretti Es,R,P1,Sn : Scrivi Sn

    Sn = 0 : R=R2 : SommaNumeretti Es,R,P1,Sn : Scrivi Sn

End Sub


Sub SommaNumeretti(Es,R,P1,Sn)

    'Scrivi DataEstrazione (Es)

    'Scrivi SiglaRuota (R)

    'Scrivi P1

    For P2 = 1 To 5

        If P1 <> P2 Then

        TMP = Estratto(Es,R,P2)

        D = Int(TMP/10) : U = (TMP-(10*D))

        Sn = Sn+D+U

        Scrivi " +" & D & " +" & U ,0,0    

        End If

    Next 

        Scrivi " = ",0,0 

End Sub

Dimenticavo:

"Sn" ovvero "Somma Numeretti" (inizialmente azzerato)

al ritorno dalla SubRoutine conterrà il calcolo del pronostico (ovvero, l' Ambata, di cui poi calcoleremo il vertibile).


... a breve, con le istruzioni, di gioco si potrà concludere lo script di questo metodo.

 

[janez57]

Buon giorno Joe91.
direi che la lezione stà procedendo con molto interesse.
Grazie.
Janez57

 

[Joe91]

Ecco dunque, i risultati attuali prodotti della Sub Main

e dalla Sub "SommaNumeretti" dopo aver aggiunto quest'ultima allo script ...

ed averla "chiamata" (anche se "call" è omesso), le 2 volte necessarie,

dopo averle fornito le differenti R1 / R2 ed i parametri precedentemente descritti:

[B][FONT=Courier New][SIZE=2][COLOR=#000000]05.11.2011
[/COLOR][/SIZE][/FONT][/B][B][FONT=Courier New][SIZE=2][COLOR=#000000][COLOR=#000000]CA 62.83.87.81.45 ==> [/COLOR][COLOR=#000000][B]87  [/B][/COLOR][COLOR=#000000] +6 +2[/COLOR][COLOR=#000000] +8 +3[/COLOR][COLOR=#000000] +8 +1[/COLOR][COLOR=#000000] +4 +5[/COLOR][COLOR=#000000] = [/COLOR]37
[/COLOR][/SIZE][/FONT][/B][B][FONT=Courier New][SIZE=2][COLOR=#000000][COLOR=#000000]MI 72.09.42.26.88 ==> [/COLOR][COLOR=#000000][B]42  [/B][/COLOR][COLOR=#000000] +7 +2[/COLOR][COLOR=#000000] +0 +9[/COLOR][COLOR=#000000] +2 +6[/COLOR][COLOR=#000000] +8 +8[/COLOR][COLOR=#000000] = [/COLOR]42
[/COLOR][/SIZE][/FONT][/B][B][FONT=Courier New][SIZE=2][COLOR=#000000]============================================================
[/COLOR][/SIZE][/FONT][/B][B][FONT=Courier New][SIZE=2][COLOR=#000000]05.11.2011
[/COLOR][/SIZE][/FONT][/B][B][FONT=Courier New][SIZE=2][COLOR=#000000][COLOR=#000000]FI 18.22.23.86.24 ==> [/COLOR][COLOR=#000000][B]86  [/B][/COLOR][COLOR=#000000] +1 +8[/COLOR][COLOR=#000000] +2 +2[/COLOR][COLOR=#000000] +2 +3[/COLOR][COLOR=#000000] +2 +4[/COLOR][COLOR=#000000] = [/COLOR]24
[/COLOR][/SIZE][/FONT][/B][B][FONT=Courier New][SIZE=2][COLOR=#000000][COLOR=#000000]VE 32.47.84.41.27 ==> [/COLOR][COLOR=#000000][B]41  [/B][/COLOR][COLOR=#000000] +3 +2[/COLOR][COLOR=#000000] +4 +7[/COLOR][COLOR=#000000] +8 +4[/COLOR][COLOR=#000000] +2 +7[/COLOR][COLOR=#000000] = [/COLOR]37
[/COLOR][/SIZE][/FONT][/B][B][FONT=Courier New][SIZE=2][COLOR=#000000]============================================================
[/COLOR][/SIZE][/FONT][/B][B][FONT=Courier New][SIZE=2][COLOR=#000000]05.11.2011
[/COLOR][/SIZE][/FONT][/B][B][FONT=Courier New][SIZE=2][COLOR=#000000][COLOR=#000000]GE 86.62.56.60.79 ==> [/COLOR][COLOR=#000000][B]86  [/B][/COLOR][COLOR=#000000] +6 +2[/COLOR][COLOR=#000000] +5 +6[/COLOR][COLOR=#000000] +6 +0[/COLOR][COLOR=#000000] +7 +9[/COLOR][COLOR=#000000] = [/COLOR]41
[/COLOR][/SIZE][/FONT][/B][B][FONT=Courier New][SIZE=2][COLOR=#000000][COLOR=#000000]PA 41.61.34.85.17 ==> [/COLOR][COLOR=#000000][B]41  [/B][/COLOR][COLOR=#000000] +6 +1[/COLOR][COLOR=#000000] +3 +4[/COLOR][COLOR=#000000] +8 +5[/COLOR][COLOR=#000000] +1 +7[/COLOR][COLOR=#000000] = [/COLOR]35
[/COLOR][/SIZE][/FONT][/B][B][FONT=Courier New][SIZE=2][COLOR=#000000]============================================================
[/COLOR][/SIZE][/FONT][/B][B][FONT=Courier New][SIZE=2][COLOR=#000000]Trovati 3 Ambi Isotopi In Distanza Ciclometrica 45[/COLOR][/SIZE][/FONT][/B]

Buona Giornata.

 

[Joe91]

Script

Script

[SIZE=2]
[/SIZE][COLOR=#008000][COLOR=#008000][SIZE=2]'Distanza 45 Isotopa & SommaNumeretti V.2.0 del 02/12/2011
'Scritto da Joe per Janez 
'http://forum.lottoced.com/showthread.php?4338
[B]Sub[/B] [B]Main[/B]()
[B]Dim[/B] [B]Nu[/B](2),[B]Ru[/B](1),[B]Po[/B](5),[B]Co[/B],[B]So[/B]
[B]Po[/B](1)[B]=[/B]0.9 : [B]Po[/B](2)[B]=[/B]0.1 : [B]Co[/B] [B]=[/B] 6 : [B]So[/B][B]=[/B]1
Dst [B]=[/B] 45 Rem Distanza Ciclometrica degli Estratti Isotopi in una coppia di Ruote
Fin [B]=[/B] [B]EstrazioneFin[/B]
     
Q [B]=[/B] [B]InputBox[/B]("Quante Estrazioni ?","PERIODO IN ESAME",20) [B]-[/B] 1
 
[B]For[/B] ES [B]=[/B] Fin [B]-[/B] Q [B]To[/B] Fin : G[B]=[/B]0 : [B]Scrivi[/B] [B]String[/B] (106,"="),1 : [B]Messaggio[/B] (Fin[B]-[/B]Es)
      [B]For[/B] R1 [B]=[/B] 1 [B]To[/B] 9 
            [B]For[/B] R2 [B]=[/B] R1 [B]+[/B] 1 [B]To[/B] 10 
                  [B]For[/B] P1 [B]=[/B] 1 [B]To[/B] 5
                        E1 [B]=[/B] [B]Estratto[/B](Es,R1,P1)
                        E2 [B]=[/B] [B]Estratto[/B](Es,R2,P1)
                        [B]If[/B] [B]Distanza[/B](E1,E2) [B]=[/B] Dst [B]Then[/B]
                             K [B]=[/B] K [B]+[/B] 1
                                   G [B]=[/B] G [B]+[/B] 1
                             [B]Scrivi[/B]  G [B]&[/B] ") " [B]&[/B] [B]FormatSpace[/B] ([B]NomeRuota[/B] (R1),10) [B]&[/B] " " [B]&[/B] [B]StringaEstratti[/B](Es,R1) [B]&[/B] " [ ",0,0
                             [B]Scrivi[/B] [B]Format2[/B](E1) [B]&[/B] " ]",1,0
                                   R [B]=[/B] R1 : [B]SommaNumeretti[/B] Es,R,P1,Sn  
                                   [B]Nu[/B](1) [B]=[/B] Sn : [B]Nu[/B](2) [B]=[/B] [B]Vert[/B] (Sn) : [B]Ru[/B](1) [B]=[/B] R1
                                   [B]ImpostaGiocata[/B] G,[B]Nu[/B],[B]Ru[/B],[B]Po[/B],[B]Co[/B],[B]So[/B]
                                   G [B]=[/B] G [B]+[/B] 1
                             [B]Scrivi[/B] G [B]&[/B] ") " [B]&[/B] [B]FormatSpace[/B] ([B]NomeRuota[/B] (R2),10) [B]&[/B] " " [B]&[/B] [B]StringaEstratti[/B](Es,R2) [B]&[/B] " [ ",0,0
                             [B]Scrivi[/B] [B]Format2[/B](E2) [B]&[/B] " ]",1,0
                                   R [B]=[/B] R2 : [B]SommaNumeretti[/B] Es,R,P1,Sn 
                                   [B]Nu[/B](1) [B]=[/B] Sn : [B]Nu[/B](2) [B]=[/B] [B]Vert[/B] (Sn) : [B]Ru[/B](1) [B]=[/B] R2
                                   [B]ImpostaGiocata[/B] G,[B]Nu[/B],[B]Ru[/B],[B]Po[/B],[B]Co[/B],[B]So[/B]                           
                             [B]Scrivi[/B] [B]String[/B] (106,"-"),1
                        [B]End[/B] [B]If[/B]
                  [B]Next[/B]
                 
                 
            [B]Next[/B]
             
      [B]Next[/B]
                                   [B]Gioca[/B] Es 
[B]Next[/B]
     
[B]Scrivi[/B] : [B]Scrivi[/B] "Trovate " [B]&[/B] K [B]&[/B] " Coppie di Estratti Isotopi In Distanza Ciclometrica " [B]&[/B] Dst ,1 : [B]Scrivi[/B]
 
                                   [B]ScriviResoconto[/B]
[B]End[/B] [B]Sub[/B]
 
[B]Sub[/B] [B]SommaNumeretti[/B]([B]Es[/B],[B]R[/B],[B]P1[/B],[B]Sn[/B])
      [B]Sn[/B] [B]=[/B] 0
      [B]For[/B] P2 [B]=[/B] 1 [B]To[/B] 5
            [B]If[/B] [B]P1[/B] [B]<>[/B] P2 [B]Then[/B]
                  E [B]=[/B] [B]Estratto[/B]([B]Es[/B],[B]R[/B],P2)
                  D [B]=[/B] [B]Int[/B](E[B]/[/B]10) : U [B]=[/B] (E[B]-[/B](10[B]*[/B]D))
                  [B]Sn[/B] [B]=[/B] [B]Sn[/B][B]+[/B]D[B]+[/B]U
                  [B]Scrivi[/B] " +" [B]&[/B] D [B]&[/B] " +" [B]&[/B] U ,0,0    
            [B]End[/B] [B]If[/B]
      [B]Next[/B]
      [B]Scrivi[/B] " = " [B]&[/B] [B]Sn[/B] ,1,1                               
[B]End[/B] [B]Sub[/B]
[/SIZE][/COLOR][/COLOR]

 

[janez57]

Grazie JOE91

Fin'ora tutto bene,e rapidi.

janez57

 

[joi_lotto]

-