Per tutti gli scriptisti

[salvo50]

Ciao a Tutti! Prima di tutto grazie a Luigib per il programma di spaziometria.

Sto facendo il mio primo script in spaziometria, per quanto riguarda i calcoli, addizioni, sottrazioni, ecc., tutto ok non ho trovato difficoltà, poi ho messo in scrivi una staffilata di numeri questi:

(08 84 58)(08 84 58)(08 84 58)(08 84 58)(08 84 58)

tutto bene sono riuscito a inserirli, però dato che in programmazione mi viene un riga lunghissima, volevo andare a capo e non ci sono riuscito, mi dà sempre errore, praticamente voglio mettere scrivi con più righe, però il risultato quando lancio lo script deve essere nella stessa riga.

Grazie.

 

[Mike58]

Scrivi

Scrivi(Optional sNewText = "", Optional grassetto As Boolean = False, Optional ACapo As Boolean = True , optional HighlightColor = -1 , Optional TextColor = -1 , optional Dimensione = 2)

Nella istruzione scrivi esiste come puoi vedere option Acapo e con true o false oppure 1 o Zero decidere se andare a capo con la scritture del testo.


ecco un esempio

Sub Main
Scrivi"(08,84,58)(08,84,59)",0,0
Scrivi"(08,84,58)(08,84,59)"
End Sub

 

[salvo50]

Ciao Mike58!

Grazie per la risposta, pensavo daver capito ma mi sbagliavo, subito sotto è come l'avevo fatto io senza andare a capo è funziona

Scrivi " (" & Format2(a1) & " " & Format2(a2) & " " & Format2(a3) & ")(" & Format2(a1) & " " & Format2(a2) & " " & Format2(a3) & ")(" & Format2(a1) & " " & Format2(a2) & " " & Format2(a3) & ")(" & Format2(a1) & " " & Format2(a2) & " " & Format2(a3) & ")(" & Format2(a1) & " " & Format2(a2) & " " & Format2(a3) & ")"

invece sotto qui è come pensavo d'aver capito ma non funziona, mi da errore, evidentemente non ho capito, per favore puoi corrergerlo tu, grazie


Scrivi " (" & Format2(a1) & " " & Format2(a2) & " " & Format2(a3) & ")(" & Format2(a1),0,0,0,0
Scrivi & " " & Format2(a2) & " " & Format2(a3) & ")(" & Format2(a1) & " " & Format2(a2),0,0,0,0
Scrivi & " " & Format2(a3) & ")(" & Format2(a1) & " " & Format2(a2) & " " & Format2(a3),0,0,0
Scrivi & ")(" & Format2(a1) & " " & Format2(a2) & " " & Format2(a3) & ")"


a1=08
a2=84
a3=58
a4=41
a5=79

 

[Mike58]

se metti false a capo scritto con zero e inutile che metti la congiunzione & a ogni inizio riga
la scrittura giusta è questa.

Sub Main
a1 = 08
a2 = 84
a3 = 58
a4 = 41
a5 = 78
Scrivi "(" & Format2(a1) & " " & Format2(a2) & " " & Format2(a3) & ")(" & Format2(a1),0,0
Scrivi " " & Format2(a2) & " " & Format2(a3) & ")(" & Format2(a1) & " " & Format2(a2),0,0
Scrivi " " & Format2(a3) & ")(" & Format2(a1) & " " & Format2(a2) & " " & Format2(a3),0,0
Scrivi ")(" & Format2(a1) & " " & Format2(a2) & " " & Format2(a3) & ")"
End Sub

 

[salvo50]

Ciao!

Ti ringrazio funziona, adesso ho capito bene, infatti l'ho modificato così ed è ok

Scrivi "(" & Format2(a1) & " " & Format2(a2) & " " & Format2(a3),0,0
Scrivi ")(" & Format2(a1)& " " & Format2(a2) & " " & Format2(a3),0,0
Scrivi ")(" & Format2(a1) & " " & Format2(a2)& " " & Format2(a3),0,0
Scrivi ")(" & Format2(a1) & " " & Format2(a2) & " " & Format2(a3),0,0
Scrivi ")(" & Format2(a1) & " " & Format2(a2) & " " & Format2(a3) & ")"

 

[salvo50]

Ciao a Tutti!

Volevo chiedere un'altro favore, ci sto provando in tutti i modi guardando nei numerosi esempi, ma mi arrendo non ne vengo fuori.

Allora primo mi serve inserire un'estrazione da tastiera, esempio:

input " inserisci numero estrazione"

il numero della ruota
input "inserisci numero ruota"

esempio per numero estrazione 7344


altro input

input " inserisci un numero (da 1 a 90)"

e relative variabili


---------------------------------------------------------




Rinnovo il mio augurio di un Felice Anno Nuovo a Tutti!

 

[LuigiB]

ciao , esiste una funzione negli script che serve proprio per scrivere un 'estrazione nell'archivio .. ora da qui non mi ricordo come si chiama ma dovresti usare quella spulcia nell'help... tuttavia considerato che vuoi inserire un 'estrazione a mano invece di farlo da script ti consiglio di usare la funzione per inserire a mano le estrazioni .. serve apposta e raggiunge proprio lo scopo che volevi tu ..

riguardo ai post superiori un modo è senza dubbio quell oche ti ha spiegato mike , un altro modo consiste nell'usare una variabile
e poi passare la variabile alla funzione scrivi


Dim s

s = "Prima parte "
s = s & " seconda parte"
s = s & " terza parte"

call scrivi (s)

 

[miki55]

Chiedo scusa a tutti se mi inserisco, ma per quando riguarda gli aggiornamenti via internet, trovo difficoltà
e non solo con Staziometria.
Qualcuno mi sà dire se il problema è mio o problemi tecnici dovuti a lottomatica?
Grazie

 

[salvo50]

Ciao Luigib!

Credevo che l'help non ci fosse, adesso dopo il tuo suggerimento ho guardato meglio e l'ho trovato, adesso me lo studio, grazie!

 

[salvo50]

L'ho fatto così e funziona, era quello che avevo chiesto, però mi piacerebbe sapere anche che cosa ho fatto, mi spiego, quella riga dove c'è "Left", l'ho preso da un'altro script, vorrei sapere a cosa serve quel "Left", perchè se lo tolgo mi va in errore.
Grazie!


Dim r1
Dim es
Sub Main

es = InputBox("Inserisci numero estrazione",idEstrazione,es)

r1 = InputBox("Inserisci numero ruota ( 1 - 10)",Ruota,r1)

Scrivi(" Estrazione n." & Format2(es) & " del " & DataEstrazione(es))
Scrivi ""
Scrivi " " & Left (NomeRuota(r1),2) & " " & StringaEstratti(es,r1)

End Sub

 

[Joe91]

Left sono le lettere più a sinistra

in pratica quante lettere vuoi e nel caso (2)

restituisce una sorta di siglaruota.

Lo script utlizza questa pezza per supplire alla mancanza

di questa istruzione presente solo nei basic

più moderni o per fornire indicazioni sulla ruota

occupando lo spazio di poche lettere in una tabella.

A volte troverai ... ,3 per distinguere Nap da Naz.

 

[salvo50]

Grazie joe!

Auguri!

 

[salvo50]

Ciao a Tutti!

Chiedo un altro favore, nella riga sotto, vorrei mettere anche ,l'ultimo numero di estrazioni in archivio, in modo di potersi regolare sul numero da inserire, mi potete aiutare? Grazie!

es = InputBox("Inserisci numero estrazione",idEstrazione,es)

 

[Joe91]

Ciao a Tutti!

Chiedo un altro favore, nella riga sotto, vorrei mettere anche ,l'ultimo numero di estrazioni in archivio, in modo di potersi regolare sul numero da inserire, mi potete aiutare? Grazie!

es = InputBox("Inserisci numero estrazione",idEstrazione,Es)

Ciao Salvo, prova:

Fin = EstrazioneFin

Es = InputBox("Inserisci numero estrazione",idEstrazione,Fin)

 

[salvo50]

Grazie Joe!

Già provato e funziona perfettamente.

 

[salvo50]

Ciao a Tutti!

Da un array di 10 numeri volevo prenderne di volta in volta 5 numeri in modo casuale.
Esiste questa funzione? Se si qual'è, oppure indicarmi un script dove è stata già usata,
anche se i numeri dell'array o del prelievo sono diversi, oppure farmi un esempio.

Grazie

 

[LuigiB]

Option Explicit
Sub Main
	
	Dim nUsati , i
	Dim aFlagUsati (10)
	ReDim aNumeri (10)
	
	aNumeri(1) = 4
	aNumeri(2) = 8
	aNumeri(3) = 12
	aNumeri(4) = 16
	aNumeri(5) = 20
	aNumeri(6) = 24
	aNumeri(7) = 28
	aNumeri(8) = 32
	aNumeri(9) = 36
	aNumeri(10) = 40
	
	
	Do While nUsati < 5
		i = NumeroCasuale( 1 , 10)
		If aFlagUsati (i) = False Then 
			aFlagUsati (i) = True 
			Call Scrivi (aNumeri(i))
			nUsati = nUsati +1
		End If
	Loop
End Sub

 

[Joe91]

Bravo Luigi.

Bella soluzione ad una richiesta solo apparentemente semplice.

 

[LuigiB]

eheh .. grazie grazie

 

[salvo50]

Grazie Luigib della celere risposta

Ho dato un'occhiata e non ci ho capito molto, dal commento di Joe91 capisco che hai fatto una sciccheria
penso che non dovrei avere difficoltà ad inserirla nello script che ho in mente di fare

Ciao!