QUICK BASIC
CIAO!!! 
IN questo momento in informatica stiamo facendo il Quick Basic,però vorrei avere delle informazioni più chiare sulla programmazione e i comandi..
Qualcuno mi sa consigliare un sito chiaro??
Oppure ha del materiale da passarmi??
Grazie tante!!
IN questo momento in informatica stiamo facendo il Quick Basic,però vorrei avere delle informazioni più chiare sulla programmazione e i comandi..
Qualcuno mi sa consigliare un sito chiaro??
Oppure ha del materiale da passarmi??
Grazie tante!!
Risposte
Perfetto Ila, accetto il tuo consiglio, ora vi ammazzo....hehe....
CHR\$ rappresenta un carattere utilizzando l'indice della tabella ascii ed e' molto utile per i caratteri non stampabili.
Esempio
il carattere A ha indice 65 nella tabella ascii,
quindi se scrivo:
STRINGA = "A"
o
STRINGA = CHR\$(65)
e' la stessa cosa.
Esempio 2:
Stampa IlaCrazy sul video fiche' non e' premuto il tasto ESC (Indice 27)
DIM Parola AS STRING
DIM Ch AS STRING
DIM Ctrl AS STRING
Parola = "IlaCrazy"
Ctrl = CHR\$(27) '' Tasto ESC
DO
PRINT Parola;SPACE\$(1);
Ch = INKEY\$ ''Se premuto un carattere lo assegna a Ch altrimenti va avanti
WHILE(Ch <> Ctrl)
CHR\$ rappresenta un carattere utilizzando l'indice della tabella ascii ed e' molto utile per i caratteri non stampabili.
Esempio
il carattere A ha indice 65 nella tabella ascii,
quindi se scrivo:
STRINGA = "A"
o
STRINGA = CHR\$(65)
e' la stessa cosa.
Esempio 2:
Stampa IlaCrazy sul video fiche' non e' premuto il tasto ESC (Indice 27)
DIM Parola AS STRING
DIM Ch AS STRING
DIM Ctrl AS STRING
Parola = "IlaCrazy"
Ctrl = CHR\$(27) '' Tasto ESC
DO
PRINT Parola;SPACE\$(1);
Ch = INKEY\$ ''Se premuto un carattere lo assegna a Ch altrimenti va avanti
WHILE(Ch <> Ctrl)
Non piangere Stella,
girami il tuo nuovo listato e faccio un controllo.
Sai che non sei la prima persona che dice che ho una forte somiglianza al suo prof. d'Informatica.
girami il tuo nuovo listato e faccio un controllo.
Sai che non sei la prima persona che dice che ho una forte somiglianza al suo prof. d'Informatica.
Ila hai mancato i doppi apici all'inizio e alla fine della frase assegnata.
Comunque l'esempio calza.
Ancora brava!
Comunque l'esempio calza.
Ancora brava!
Allora mi sa che siete tutti membri di una grande famiglia!!
Allora..Io ho copiato questa volta il tuo programma per intero ma appena lo mando in esecuzione mi dice in NEXT i che è un ciclo senza for..Cosa che non capisco visto che il for all'inizio c'è messo!!
Allora..Io ho copiato questa volta il tuo programma per intero ma appena lo mando in esecuzione mi dice in NEXT i che è un ciclo senza for..Cosa che non capisco visto che il for all'inizio c'è messo!!
"eugenio.amitrano":
Ila hai mancato i doppi apici all'inizio e alla fine della frase assegnata
Già!!!
poi ho notato che forse era necessario inserire dopo il comando UCASE$ anche
PRINT UCASE$ name
perchè altrimenti lo considera senza statement...e quindi si incasina porello!!!
PRINT USING e' la stessa istruzione di PRINT con l'aggiunta del formattazione di output.
Esempio:
A = 1.123456
B = 123
PRINT USING "il vaolre di A e' ###.##"; A
PRINT USING "il vaolre di B e' ###.##"; B
il risultato a video sara'
il_vaolre_di_A_e'___1.12
il_vaolre_di_B_e'_123.00
(ho usato il caratte underscore "_" per simulare lo spazio a video)
I simboli per la formattazione sono tanti, questi li puoi osservare nella guida anche se i piu' usati sono solo il cancelletto e il punto.
Tutto chiaro ?
Esempio:
A = 1.123456
B = 123
PRINT USING "il vaolre di A e' ###.##"; A
PRINT USING "il vaolre di B e' ###.##"; B
il risultato a video sara'
il_vaolre_di_A_e'___1.12
il_vaolre_di_B_e'_123.00
(ho usato il caratte underscore "_" per simulare lo spazio a video)
I simboli per la formattazione sono tanti, questi li puoi osservare nella guida anche se i piu' usati sono solo il cancelletto e il punto.
Tutto chiaro ?
Oh stella stai tranquilla,
per capire l'errore, pero', devo leggere il tuo listato, fai un post dell'immagine come hai fatto prima.
Ok ?
per capire l'errore, pero', devo leggere il tuo listato, fai un post dell'immagine come hai fatto prima.
Ok ?
No Ila,
il tuo esempio va bene anche se alla fine non viene stampato nulla, il tuo unico errore e' stato mancare il doppio apice qui':
name = "ciao ciao a tutti..come va!?!" (frasi molto molto bella devi essere veramente straordinaria)
il tuo esempio va bene anche se alla fine non viene stampato nulla, il tuo unico errore e' stato mancare il doppio apice qui':
name = "ciao ciao a tutti..come va!?!" (frasi molto molto bella devi essere veramente straordinaria)
Ecco:
Prova a fare queste modifiche:
1) dichiara la variabile doppiato AS Integer
2) La riga:
if vett(i) = vett(j) Then doppiato = 1
trafsformala in
if vett(i) = vett(j) Then
doppiato = 1
End If
3) Sostituisci PRINT ..... con Text1.Text = vett(i) (copiato dal tuo esempio precedente)
1) dichiara la variabile doppiato AS Integer
2) La riga:
if vett(i) = vett(j) Then doppiato = 1
trafsformala in
if vett(i) = vett(j) Then
doppiato = 1
End If
3) Sostituisci PRINT ..... con Text1.Text = vett(i) (copiato dal tuo esempio precedente)
Niente da fare..stesso errore!!!
Riusciremo a venirne a gallla? Ormai l'ho presa come na sfida.. Vinceremo noi!! SPERO
Riusciremo a venirne a gallla? Ormai l'ho presa come na sfida.. Vinceremo noi!! SPERO
Se posso intromettermi, l'errore è nella sintassi del do .. while, che va scritto invece: do ...LOOP while
prova cosi' :
aggiungi LOOP alla riga WHILE (doppiato = 1):
LOOP WHILE (doppiato = 1)
oppure
LOOP UNTIL (doppiato = 0)
[/code]
aggiungi LOOP alla riga WHILE (doppiato = 1):
LOOP WHILE (doppiato = 1)
oppure
LOOP UNTIL (doppiato = 0)
[/code]
Oh grazie lorven non avevo letto.
Nooooooooooooooooooooo..mi ha generato un bel po di numeri tutti diversi ma poi..UNO UGUALE.."vabbè dico io, riproviamo" MA...non appena riprovo riesce un numero 2 volte!!! NOOOOOOO
PERCHEEEEEEEEEEEEEEEEEEEEEEEEEE'''...
PERCHEEEEEEEEEEEEEEEEEEEEEEEEEE'''...
Perdonami se ti faccio questa domanda:
Genero 10 numeri e sono tutti diversi
genero altri 10 numeri e in questi ultimi trovo un numero gia' presente nei primi 10.
E' questo che intendi ?
Genero 10 numeri e sono tutti diversi
genero altri 10 numeri e in questi ultimi trovo un numero gia' presente nei primi 10.
E' questo che intendi ?
Genero consecutivamente più di 10 numeri nella stessa estrazione e trovo numeri uguali..Oppure altre volte li fa diversi però l'estrazione la fa consecutiva..arrivando a 10 estrazioni non si ferma..ne genere ugualmente altri.
Non ho capito bene cosa intendi.
Sei tu che richiedi piu' di una estrazione (10 numeri) e nelle varie estrazioni trovi doppioni ?
in questo caso e' normale che un numero di un'estrazione puo' essere presente anche in un'altra
pero' di 10 in 10 devono essere tutti diversi.
Oppure un'estrazione ti genera piu' di dieci valori in cui ci sono doppioni ?
mi sembra strano,quindi il problema va esaminato meglio
ora purtroppo devo chiudere e domani non credo che riusciro ad usare il computer,
ma lunedi' saro' felice di continuare questa nostra conversazione.
Buona notte a tutti e buona Domenica.
EugenioA
Sei tu che richiedi piu' di una estrazione (10 numeri) e nelle varie estrazioni trovi doppioni ?
in questo caso e' normale che un numero di un'estrazione puo' essere presente anche in un'altra
pero' di 10 in 10 devono essere tutti diversi.
Oppure un'estrazione ti genera piu' di dieci valori in cui ci sono doppioni ?
mi sembra strano,quindi il problema va esaminato meglio
ora purtroppo devo chiudere e domani non credo che riusciro ad usare il computer,
ma lunedi' saro' felice di continuare questa nostra conversazione.
Buona notte a tutti e buona Domenica.
EugenioA
Eugenio ha senz'altro ragione: nella stessa estrazione non è possibile che vengano generati due interi uguali.
Tuttavia, se mi è permesso un appunto, nel calcolo del numero pseudocasuale: vett(i) = min + (max - min + 1) * Rnd
va considerato il valore in parte intera, altrimenti potrebbe essere assegnato a vett(i) anche il valore MAX+1 (nel nostro caso 101), a causa di arrotondamenti impliciti nella istruzione di assegnazione.
Pertanto, l'istruzione corretta è la seguente:
vett(i) = min + Int((max - min + 1) * Rnd)
ciao
Tuttavia, se mi è permesso un appunto, nel calcolo del numero pseudocasuale: vett(i) = min + (max - min + 1) * Rnd
va considerato il valore in parte intera, altrimenti potrebbe essere assegnato a vett(i) anche il valore MAX+1 (nel nostro caso 101), a causa di arrotondamenti impliciti nella istruzione di assegnazione.
Pertanto, l'istruzione corretta è la seguente:
vett(i) = min + Int((max - min + 1) * Rnd)
ciao
Giusto lorven, sei molto attento.
Scommetto che sei un veterano del VB.
Vero ?
Scommetto che sei un veterano del VB.
Vero ?
Accedi a tutti gli appunti
Tutor AI: studia meglio e in meno tempo