PRINCIPALE > LISTA DELLE AREE DI DISCUSSIONE > ALTRO > MESSAGGIO

Eseguire una ricerca veloce nell' archivio delle risorse di Visual Basic Italia®: 

Preso dall'archivio...

Premere il pulsante sotto per accedere direttamente ad un articolo o ad un esempio preso in modo casuale dall'archivio.

Ultimo e-book pubblicato:

"INTRODUZIONE AI CSS"

Lo scopo del CSS language è quello di controllare lo stile dei vari elementi che concorrono a formare un
documento HTML.
Si può operare in tre modi collegamento ad un foglio di stile esterno;definizione degli stili all'inizio
del documento utilizzo della proprietà style all'interno di un Tag HTML (embedded style). Questo e-book introduttivo
servirà per apprendere tali nozioni fondametali dei fogli di stile.


Prezzo: € 0.0.

Presentazione:
REAL SOFTWARE RILASCIA LA VERSIONE 5.0 di REALbasic per Windows






Gorizia, 5 maggio 2003 - Active, distributore in esclusiva di REALSoftware, Austin, Tx, annuncia la disponibilità di REALbasic 5.0 per Windows, uno strumento per lo sviluppo semplice da usare che permette agli utenti Windows di tutti i livelli di creare applicazioni personalizzate e di compilarle sia per la piattaforma Windows che per quella Macintosh.
[>>]

http://www.active-software.com

Contatti. Utilizzare l'email generica per domande relative al sito:
Porre domande relative al sito
oppure scrivere ad un responsabile di area.
Responsabile del sito: >Andrea Martelli
Responsabile area "Corso di VB":
> Giorgio Abraini

Messaggio



Gioco prontezza riflessi, conversione da basic
Francesco Basile 24/09/2004
Difficoltà: Principiante

Chi mi aiuta a convertire il seguente programma, che girava su una calcolatrice programmabile Casio, in VB?
Si tratta di un gioco divertente che misura la protenzza di riflessi.
Non conosco quali sono i comandi corrispondenti in VB.
10 D = 0
20 For B = 1 TO 10
30 If KEY$ <> "" Then 30
40 A = INT(RAN# * 10)
50 Print MID$("01234567890", 1, A + 1); "|"; MID$("01234567890", A + 3);
60 For C = 1 TO 500
70 E$ = KEY$
80 If E$ <> "" Then 100
90 Next C
100 If E$ < "0" Then 130
110 If E$ > "9" Then 130
120 If VAL(E$) = A Then D = D + 1: BEEP: Goto 140
130 BEEP
140 Print
150 Next B
160 Print CSR; 2; "RIGHT"; D;
170 If D <> 10 Then 210
180 For B = 1 TO 10
190 BEEP