Informazione numero negativo

[Lady Oscar]

Ciao ragazzi.

Sto cercando di creare uno script mio (speriamo altrimenti Genlotto e Claudio mi ammazzano).

Sto avendo un problema pero.

ESEMPIO PRATICO:

ESTRAZIONE 23/06/11

Palermo 19 53 20 78 56
Roma 78 29 01 41 35

Lo script deve fare questa sottrazione
2° ESTRATTO PA - 2° ESTRATTO NA = -22

Ecco il problema!!!! Vorrei che lo script annullasse il segno meno e mettesse in gioco il n° 22.

Controllando lo script, ho visto che quando fa la sottrazione e viene un numero negativo, nell'output mi figura il n° 90.

C'è un modo per evitare il meno. Tipo.... fare in modo che lo script faccia in modo di sottrarre sempre il numero piu grande da piu piccolo?

Attendo lumi, sono alle prime armi e non riesco a trovare una soluzione

 

[claudio8]

Posta la bozza di script perchè dall'esempio non si capisce bene cosa sottrai visto che scrivi una cosa e ne pensi un'altra
Ciao

vai all'Help e leggiti la definizione di "Differenza"

 

[pfca]

Ciao prova questa:
Distanza(a,b)


Francesco

 

[Lady Oscar]

Ciao ragazzi, grazie per avermi risposto.

Allora lo script è questo:

Sub Main()
	Dim ruota(2),posta(3) ' QUI INDICO QUANTE RUOTE AMMETTO - E LE PUNTATE
	Dim nu(3) ' AMMETTO 3 NUMERI
	Dim es,ee,k,fin,Ini,kk
	ruota(1) = 1 ' Ruota di PA
	ruota(2) = 2 ' Ruota di NA



	posta(1) = 1 ' posta x ambata
	posta(2) = 1 ' posta x ambo
	posta(3) = 1 'posta x Terno

	ee = CInt(InputBox ("Quante estrazioni vuoi esaminare ?","Estrazioni",100))
	k = CInt(InputBox ("Per quante estrazioni deve durare il gioco ?","Colpi di gioco",10))
	fin = EstrazioneFin ' ultima estrazione
	Ini = fin - ee 'inizio estrazione ( ultima - n° di estrazione da analizzare(input box 100)
	For es = Ini To fin
	
		
			'-----CALCOLO ORIGINALE--------------------------------
			nu(1) = Fuori90(Estratto(es,7,2) - Estratto(es,6,2))' I° Ambata
			nu(2) = Fuori90(Estratto(es,6,2) + Estratto(es,6,3))' I° Ambata
			nu(3) = Fuori90(Estratto(es,8,2) - Estratto(es,8,3))' I° Ambata
			

			ImpostaGiocata 1,nu,ruota,posta,k ' imposta giocata per ambata fino all'esito
			Gioca es

	Next
	ScriviResoconto
End Sub

Inoltre sto cercando di inserire il discorso delle posizioni. Cosi come nel precedente script..... vedremo.

 

[Lady Oscar]

Claudietto ... ho guardato l'help ed è esattamente quello che intendevo fare.

Ma non ho capito come si applica. Ora provo e ti dico

 

[claudio8]

			nu(1) = Differenza(Estratto(es,7,2), Estratto(es,6,2))' I° Ambata
			nu(2) = Fuori90(Estratto(es,6,2) + Estratto(es,6,3))' I° Ambata
			nu(3) = Differenza(Estratto(es,8,2), Estratto(es,8,3))' I° Ambata

 

[Lady Oscar]

Grazie CLaudio-...... prima o POI ci sarei arrivata!

 

[claudio8]

quote:Originally posted by Lady Oscar

Grazie CLaudio-...... prima o POI ci sarei arrivata!

E' molto importante leggere l'help, ci trovi di tutto anche i cannoli di Ele ... basta cercare

 

[genlotto]

quote:Originally posted by Lady Oscar

Ciao ragazzi.

Sto cercando di creare uno script mio (speriamo altrimenti Genlotto e Claudio mi ammazzano).

Sto avendo un problema pero.

ESEMPIO PRATICO:

ESTRAZIONE 23/06/11

Palermo 19 53 20 78 56
Roma 78 29 01 41 35

Lo script deve fare questa sottrazione
2° ESTRATTO PA - 2° ESTRATTO NA = -22

Ecco il problema!!!! Vorrei che lo script annullasse il segno meno e mettesse in gioco il n° 22.

Controllando lo script, ho visto che quando fa la sottrazione e viene un numero negativo, nell'output mi figura il n° 90.

C'è un modo per evitare il meno. Tipo.... fare in modo che lo script faccia in modo di sottrarre sempre il numero piu grande da piu piccolo?

Attendo lumi, sono alle prime armi e non riesco a trovare una soluzione

			nu(1) = Fuori90(Estratto(es,7,2) - Estratto(es,6,2))' I° Ambata
			nu(2) = Abs(Estratto(es,7,2) - Estratto(es,6,2))' x Lottodesk & L8+
			nu(3) = Differenza(Estratto(es,7,2) , Estratto(es,6,2))' x Spaziometria

...dormi tranquilla!!

-------------------------------------
gio 16.06.2011
------------------------ caso n.48
1° num = -14 | Abs 14 | x Spazio 14
-------------------------------------
sab 18.06.2011
------------------------ caso n.49
1° num = -33 | Abs 33 | x Spazio 33
-------------------------------------
mar 21.06.2011
------------------------ caso n.50
1° num = -37 | Abs 37 | x Spazio 37
-------------------------------------
gio 23.06.2011
------------------------ caso n.51
1° num = -22 | Abs 22 | x Spazio 22

<center>

</center>

 

[Lady Oscar]

Grazie ragazzi, la pazienza vi contraddistingue.

Un giorno vi darò io una mano!!!![:X]