x joe

[Roby]

ciao joe gentilmente puoi modificare il listato metodo teresa io ho la versione 6.1v32 grazie

 

[Joe91]

Ciao Peppe,

volentieri, però dovresti, cortesemente, illustrarmi quali sono i problemi riscontrati o le modifiche volute.

Grazie.

Joe91

Ogni estrazione è unica ed irripetibile. (Joe91)

 

[peppe60]

ciao joe scusami ma nn ne capisco tanto

io ho copiato il tuo listato e l'ho incollato come si fa sempre pero' mi da una riga lunga in orizzontale e non come tutti i listati es supponiamo che questo e' il tuo listato

rrrrrrrrrrrrrrrrrrrr
rrrrrrrrrrrrr
rrrrrrrrrrrrrrr
rrrrrrrrrr
rrrrrrrrr
rrrrrr
rrrrrr dovrebbe essere piu' o meno cosi'


invece quando ho incollato il listato mi e' venuto con questa scritta cosi'



rrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrr

non so se mi sono spiegato io ho pensato subito magari fosse di una versione vecchia di l8

non so comunque se hai capito bene altrimenti fa niente grazie lostesso e complimenti sei bravo ti conosco nell'altro
forum , io trovo molto bello questo sito mi sto appassionando ai schemi spazziometrici lunica mia fregatura che non so come si inseriscono quei disegni o strutture spaziometrici comunque ciao e grazie

 

[Joe91]

Ciao Peppe,

credo sia un problema di copia/incolla per cui vengono cancellati

gli 'a capo' ed il testo finisce in un unica linea.

Reinserisco il codice, chiedendoti cortesemente di farmi sapere se in questo caso funziona.

Un caro saluto.

Joe91

Sub main()
'Calcoli per i Triangoli Equilateri scritto da Joe91 27/03/2008
ColoreTesto 1 : Scrivi "Metodo Teresa",1,1 : ColoreTesto 0 : SCRIVI 
A=CInt(InputBox("Inserisci il numero più piccolo (da 1 a 30)","TRIANGOLI EQUILATERI (Joe91)",7)) 
If a<1 Or  a>30 Then ColoreTesto 2 : Scrivi "Errore" : A=45
b=30+a : C=30+b
D=Diametrale(a+b+c)
Scrivi D & " Ambata"
Scrivi
Scrivi D & "."& Fuori90 (D+a)& " Ambo."
Scrivi D & "."& Fuori90 (D+b)& " Ambo."
Scrivi D & "."& Fuori90 (D+c)& " Ambo."
End Sub

Ogni estrazione è unica ed irripetibile. (Joe91)

 

[peppe60]

ciao joe il listato funziona ok sei stato gentile ciao e grazie

 

[peppe60]

ciao joe

ti chiedo un favore sempre se puoi e quando hai tempo
se puoi farmi questo listato di teresa

questa e' la spiegazione



Per applicare questo metodo, bisogna ricercare un ambo simmetrico, che occupa le seguenti posizioni
1#65533; e 3#65533;
2#65533; e 4#65533;
3#65533; e 5#65533;
1#65533; e 5#65533;
questa #65533; la base del triangolo, per cercare il vertice

sommare i due numeri dell#65533;ambo,
dividere la somma per 2
ricercare su altra ruota il risultato o il suo diametrale
anche il risultato deve rispettare le posizioni
se l#65533;ambo occupa il
1#65533; e 3#65533; posto sar#65533; in 2#65533;
se in 2#65533; e 4#65533; in 3#65533;
se in 3#65533; e 5#65533; in 4#65533;
se in 1#65533; e 5#65533; in 3#65533;

a condizione rispettata, calcolare il pronostico
il vertice + diametrale = ambata
gli abbinamenti x ambo sono il vertice e il suo diametrale

esempio 6/12/#65533;07
PA x x 76 x 16 76 3#65533; posto 16 5#65533; posto

76 + 16 = 92
92 : 2 = 46
ricercare 46 o il suo diametrale 1 su altra ruota al 4#65533; posto

TO x x x 46 x 46 4#65533; posto

pronostico
46 + 1 = 47 ambata
46 e 1 abbinamenti



ciao e grazie

 

[Joe91]

Ciao Peppe,

Stavo effettivamente sviluppando uno script.

Tuttavia piacerebbe al sottoscritto renderlo capace sia di 'trovare'

i triangoli sia di comporre le previsioni.

Attualmente mi fornisce per quest'ultima estrazione:

quote:gio 17.04.2008 [ Pa 74.50.68.80.34 ] 50 (2^P) 80 (4^P) 65 (3^P) [ Ba 08.03.65.28.53 ] Iso

Per le date da te indicate :

quote:------------------------------------------------------------------------------------------
sab 01.12.2007 [ To 25.17.32.47.28 ] 17 (2^P) 47 (4^P) 32 (3^P) [ To 25.17.32.47.28 ] Iso
------------------------------------------------------------------------------------------
gio 06.12.2007 [ Pa 48.75.76.06.16 ] 76 (3^P) 16 (5^P) 46 (4^P) [ To 41.75.29.46.65 ] Equ
------------------------------------------------------------------------------------------

Tuttavia essendoci molte componenti variabili le previsioni possibili sono anche molte.

Vi è poi da considerare che queste informazioni sono sparse in varie parti del forum il che aggiunge ulteriore difficoltà a reperire tutto il necessario.

Col tempo spero di riuscire a completare il tutto.

Un caro saluto.

Joe91


Ogni estrazione è unica ed irripetibile. (Joe91)