Per tutti gli scriptisti

[salvo50]

Ciao!

Hai ragione scusami, io facevo lo stop.

 

[Joe91]

Ciao Luigi ...

.. in effetti vengo dal pianeta autodidatta e da un lontano mondo diverso ...

qui "dove non è ammessa l'istruzione go to." m'ha causato, ai tempi remoti, che mi fai ricordare, non pochi problemi.

Quando m'era quasi inconcepibile non dovere numerare e ... rinumerare le linee di programma con Renum ... et similia.

Quando, nello scrivere era un trucco numerare di 100 in 100 per lasciarsi numeri intemedi da utilizzare ... poi.

Chiusa parentesi ... non mi piacciono gli inputbox.

Specie quando a dozzine servono a dare parvenza di riempire gli spazi di vuoto ... che li circondano.

Non rare specie di "buchi neri" informatici.

Ma si parla di cose che attirano facilmente antipatie, critiche, insulti ... di cui non sento il bisogno.

Ti ringrazio, invece di arrabbiarmi, per quanto hai scritto ed utile ... per imparare qualcosa,

come sempre, da te. Non me ne vogliano altri ... candidato al non plus ultra.

Scherzando ... vedo che e anche libero il posto da presidente.

Nel caso fosse ... mi avverti, hai un voto, ed una PMaiuscola.

Grazie anche al bravissimo Mike.

 

[LuigiB]

Ciao Joe ... eheh grazie .. però non credo che sarei un presidente super partes

 

[salvo50]

Ciao a tutti!

Quando si esegue uno script e da errore 449 (argomento non facoltativo) cosa vuol dire?

Grazie!

 

[Joe91]

Ciao a tutti!

Quando si esegue uno script e da errore 449 (argomento non facoltativo) cosa vuol dire?

Grazie!

Che dati e parametri ... necessari al calcolo di quanto richiesto dalla istruzione funzione ... non sono stati forniti ...

a raggiungere il minimo necesario.

Come chiedere ad uno il risultato di un elevazione a potenza senza fornirgli base ed esponente.

 

[i legend]

Ciao a tutti,passo per un saluto e dire grazie per i vostri script
é un piacere leggervi, e , imparare a ragionare nel modo corretto.
Un grande saluto

 

[salvo50]

Quindi, dati insufficienti.

Robot numero 5 input... input...

 

[salvo50]

Ciao a Tutti!

Mi serve per uno script che sto facendo avere i numeri scritti in tre o più cifre, sò che <Format2> formatta i numeri in 2
cifre avevo questo - Format2(k) - mi serve a 3 cifre, allora sono andato a vedere nell'help se trovavo qualcosa ed ho trovato
<FormattaStringa>

questa è la riga dell'help

FormattaStringa(Variabile, Formato) As String


io l'ho modificata così, perchè volevo farlo a tre cifre, ma non me lo accetta

(FormattaStringa (k,3))

Come lo devo fare?

Ho sbagliato lo accetta ma scrive il n.3 invece io volevo le 3 cifre della variabile k

Grazie!

 

[LuigiB]

Scrivi FormattaStringa(1, "000" )

 

[Mike58]

Prova cosi

Sub Main
	a = 3
	Scrivi FormattaStringa(a,"000")
End Sub

ops !!! doppio aiuto

 

[salvo50]

Grazie!

Nonostante non mi sono spiegato bene mi avete capito lo stesso, infatti volevo dire che le 3 cifre con Format2 le scrive lo stesso, è quando non sono 3 cifre che ne
deve mettere 3, esempio numero 5 lo deve scrivere così 005, provato e va bene, grazie ancora.

 

[salvo50]

Ciao a Tutti!

In molti script già fatti vedo spesso queste due righe sotto, nuturalmente anche con altre variabili

For r1 = 1 To 12
If r1 = 11 Then r1 = 12

non riesco a capire perchè si fa così, non sarebbe più logico fare così

For r1 = 1 To 11


Grazie!

 

[LuigiB]

ciao , come sai le ruote sono identificate da un indice , da bari a venezia vanno da 1 a 10 , successivamente si aggiunse la Nazionale.
Logica vorrebbe che la Nazionale fosse l'undicesima ruota .. ma ahime quelli di lottodesk avevano gia fatto il loro programma e la 11esima ruota era la ruota Tutte ...
sicche la nazionale divenne la 12esima...
Personalmente a suo tempo quando dotai della parte script il programma mi allineai al funzionamento di lottodesk , gran parte degli script di lottodesk infatti girano tranquillamente
in spaziometria, per spaziometria internamente la ruota 11 infatti è la ruota di Nz ma per gli script no , sicche uno script che voglia fare i suoi calcoli sulle 11 ruote deve geestire da 1 a 12 saltando l'11
anzi trasformandolo in 12 in pratica nella ruota Nazionale

 

[salvo50]

Ho capito, grazie.

 

[salvo50]

Ciao a Tutti!

IF A1 = 55 THEN C1 = 37
IF A1 = 55 THEN B1 = 45

sarebbe: se A1 = 55 allora C1= 37 e B1 = 45

vorrei scriverlo con una sola IF si può fare?

 

[Mike58]

Si è possibile

Sub Main
	Dim nu(2)
	spia = 55
	A1 = 55
	If A1 = spia Then nu(1) = 37 
	If A1 = spia Then nu(2) = 45
	Scrivi StringaNumeri(nu,,1)
	Scrivi
	If A1 = spia Then nu(1) = 37 And nu(2) = 45
	Scrivi StringaNumeri(nu,,1),1,1,,2,2,,1

End Sub

 

[roby64]

Ciao a Tutti!

IF A1 = 55 THEN C1 = 37
IF A1 = 55 THEN B1 = 45

sarebbe: se A1 = 55 allora C1= 37 e B1 = 45

vorrei scriverlo con una sola IF si può fare?

Ciao, penso sia così...

if a1=55 then
c1=37
b1=45
end if

 

[salvo50]

Grazie Mike58 e Roby64

 

[salvo50]

Ciao a tutti!

Ho fatto uno script sulle chiavi della tavola settenaria ed ho inserito fino a 450 <IF-THEN> e mi sono dimenticato di mettere gli <END IF>
ma funziona lo stesso, non mi dà errore, comè possibile?

Comunque adesso lo stò rifacendo con gli array e gli <IF-THEN> si sono ridotti a 5, lo devo ancora finire, appena lo finisco lo posto.

 

[salvo50]

Ciao a Tutti!

Sto sperimentando un mio studio che fino ad ora ho fatto con carta penna e calcolatrice e volevo farlo con gli script, diciamo che ho le idee chiare, però è la sintassi che mi frega, questo è un abbozzo dello script

Sub Main
 
Scrivi ""
Dim b(5)
Dim a(5)
Dim es,r1
Dim idestrazione,fin,ruota,estr
fin = EstrazioneFin
es = InputBox("Inserisci numero estrazione per iniziare ",idestrazione,fin)
r1 = InputBox("Inserisci numero ruota ( 1 - 12) - 12 = NZ",ruota,r1)


Scrivi(" Estrazione n." & Format2(es) & 	" del " & DataEstrazione(es)),0,0
Scrivi "  " & Left(NomeRuota(r1),2) & " " & StringaEstratti(es,r1)
Scrivi ""
a(1) = Estratto(es,r1,1)
a(2) = Estratto(es,r1,2)
a(3) = Estratto(es,r1,3)
a(4) = Estratto(es,r1,4)
a(5) = Estratto(es,r1,5)

For k = 1 To 12
b(1) = a(1) * 2
If b(1) > 91 Then b(1) = b(1) - 91 End If
Scrivi Format2(b(1))
a(1) = b(1)
Next
End Sub

e questo è un possibile risultato

Estrazione n.8961 del 05.02.2015 Na 50.25.86.29.17

09
18
36
72
53
15
30
60
29
58
25
50


tutto ok, solo che mi farebbe comodo avere i numeri che vengono scritti in verticale, in orizzontale così 09 18 36 ecc.

Grazie!