Section courante

A propos

Section administrative du site

 Langage  Elément  Tutoriel  Programmation  Extension  Emulateur  Annexe  Aide 
ABAP/4
Ada
Assembleur
Assembly & bytecode
ASP (Active Server Pages)
Basic
C
C++
C# (C Sharp)
Cobol
ColdFusion
Fortran
HTML
Java
JavaScript
LISP
Logo
LotusScript
Oberon
Pascal
Perl
PHP
PL/1
Prolog
Python
Rebol
REXX
Ruby
Rust
SAS
NoSQL
SQL
Swift
X++ (Axapta)
GNAT
SMALLAda
VHDL
Assembleur 370
Assembleur 1802
Assembleur 4004
Assembleur 6502
Assembleur 6800
Assembleur 68000
Assembleur 8080 et 8085
Assembleur 8089
Assembleur 80x86
Assembleur AGC4
Assembleur ARM
Assembleur DPS 8000
Assembleur i860
Assembleur Itanium
Assembleur MIPS
Assembleur PDP-11
Assembleur PowerPC
Assembleur RISC-V
Assembleur SPARC
Assembleur SuperH
Assembleur UNIVAC I
Assembleur VAX
Assembleur Z80
Assembleur Z8000
Assembleur z/Architecture
ASSEMBLER/MONITOR 64
Micol Assembler
GFA Assembler
A86
MASM (Macro Assembler)
TASM (Turbo Assembler)
CIL
Jasmin
LLVM
MSIL
Parrot
P-Code (PCode)
SWEET16
G-Pascal
ASP 1.0
ASP 2.0
ASP 3.0
ASP.NET
ASP.NET Core
ABasiC (Amiga)
Adam SmartBASIC
Altair BASIC
AmigaBASIC (Amiga)
AMOS Basic (Amiga)
Atari Basic (Atari 400, 600 XL, 800, 800XL)
Basic Apple II (Integer BASIC/APPLESOFT)
Basic Commodore 64 (CBM-BASIC)
Basic Commodore 128 (BASIC 7.0)
Basic Commodore VIC-20 (CBM-BASIC 2.0)
Basic Coco 1 (Color Basic)
Basic Coco 2 (Extended Color Basic)
Basic Coco 3 (Extended Color Basic 2.0)
BASICA (PC DOS)
Basic Pro
BBC BASIC
Blitz BASIC (Amiga)
DarkBASIC
Dartmouth BASIC
GFA-Basic (Atari ST/Amiga)
GWBASIC (MS-DOS)
Liberty BASIC
Locomotive BASIC (Amstrad CPC)
MSX-Basic
Omikron Basic (Atari ST)
Oric Extended Basic
Power Basic
Quick Basic/QBasic (MS-DOS)
Sinclair BASIC (ZX80, ZX81, ZX Spectrum)
ST BASIC (Atari ST)
Turbo Basic
Vintage BASIC
VBScript
Visual Basic (VB)
Visual Basic .NET (VB .NET)
Visual Basic pour DOS
Yabasic
BeckerBASIC
SIMONS' BASIC
Basic09 d'OS-9
Disk Extended Color Basic
Basic09 d'OS-9
Disk Extended Color Basic
Access
Excel
Visual Basic pour Windows
Visual Basic .NET pour Windows
C Shell Unix (csh)
C pour Amiga
C pour Atari ST
C pour DOS
C pour Falcon030
C pour GEMDOS (Atari ST)
C pour Linux
C pour PowerTV OS
C pour OS/2
C pour Unix
C pour Windows
Aztec C
CoCo-C
GNU C
HiSoft C
IBM C/2
Introl-C
Lattice C
Microsoft C
MinGW C
MSX-C
Open Watcom C
OS-9 C Compiler
Pure C
Quick C
Turbo C
HiSoft C for Atari ST
HiSoft C for CP/M (Amstrad CPC)
C++ pour OS/2
C++ pour Windows
Borland C++
C++Builder
IBM VisualAge C++
Intel C++
MinGW C++
Open Watcom C++
Symantec C++
Turbo C++
Visual C++
Visual C++ .NET
Watcom C++
Zortech C++
C# (C Sharp) pour Windows
Apple III Cobol
Microsoft Cobol
BlueDragon
Lucee
OpenBD
Railo
Smith Project
Microsoft Fortran
WATFOR-77
CSS
FBML
Open Graph
SVG
XML
XSL/XSLT
LESS
SASS
GCJ (GNU)
JSP
Jython
Visual J++
Node.js
TypeScript
AutoLISP
ACSLogo
LotusScript pour Windows
Amiga Oberon
Oberon .NET
Apple Pascal
Delphi/Kylix/Lazarus
Free Pascal
GNU Pascal
HighSpeed Pascal
IBM Personal Computer Pascal
Lisa Pascal
Maxon Pascal
MPW Pascal
OS-9 Pascal
OSS Personal Pascal
Pascal-86
Pascal du Cray Research
Pascal/VS
Pascal-XT
PURE Pascal
QuickPascal
RemObjets Chrome
Sun Pascal
THINK Pascal
Tiny Pascal (TRS-80)
Turbo Pascal
UCSD Pascal
VAX Pascal
Virtual Pascal
Turbo Pascal for CP/M-80
Turbo Pascal for DOS
Turbo Pascal for Macintosh
Turbo Pascal for Windows
CodeIgniter (Cadre d'application)
Drupal (Projet)
Joomla! (Projet)
Phalanger (PHP .NET)
phpBB (Projet)
Smarty (balise)
Twig (balise)
Symfony (Cadre d'application)
WordPress (Projet)
Zend (Cadre d'application)
PL360
PL/M-80
PL/M-86
Turbo Prolog
CPython
IronPython
Jython
PyPy
AREXX
Regina REXX
JMP
Btrieve
Cassandra
Clipper
CouchDB
dBASE
Hbase
Hypertable
MongoDB
Redis
Access
BigQuery
DB2
H2
Interbase
MySQL
Oracle
PostgreSQL
SAP HANA
SQL Server
Sybase
U-SQL
Introduction
Les remarques
Les opérateurs
Les instructions conditionnelles
Les instructions de boucle
Référence d'instructions et de fonctions
Les premiers pas
Les variables
Écrire des programmes BASIC simples
Les boucles
Une boucle dans une boucle (Minuterie)
Décisions, décisions,...
L'écran
Les couleurs
Chance aléatoire
Lecture de données
Aide à l'arithmétique
Aide avec les mots
Enregistrement de programmes
Éditer des programmes
Les questionnaires
Musique
Bonjour
Spécial
Temps
Trigonométrie
Sortie ROM
Année bissextile
ArcCos
ArcSin
Disk Extended Color Basic
VCC
Raccourci clavier (Shortcut Keys)
Emplacements de palette
Codes BASIC 128 à 255 / Écran de texte à basse définition
Codes BASIC 128 à 159 / Écran de texte à haute définition
RAM du Coco 3
Code d'erreur du Coco 3
Préface
Notes légal
Dictionnaire
Recherche

Les questionnaires

Dans cette page, vous apprendrez à utiliser les fonctions INKEY$ et VAL pour configurer le test par vous-même.

Regarder le clavier (la fonction INKEY$)

En utilisant un mot nommé INKEY$, vous pouvez faire en sorte que l'ordinateur surveille, chronomètre ou teste constamment ce que vous tapez. Sa syntaxe est :

INKEY$

Renvoie la touche actuellement enfoncée ou, si aucune touche n'est enfoncée, ne renvoie rien ("").

Tapez et exécutez ce programme :

  1. 10 A$=INKEY$
  2. 20 IF A$<>""GOTO 50
  3. 30 PRINT"VOUS N'APPUYEZ SUR RIEN"
  4. 40 GOTO 10
  5. 50 PRINT "LA TOUCHE QUE VOUS AVEZ APPUYEE EST ---" A$

INKEY$ vérifie si vous appuyez sur une touche. Il le fait en une fraction de seconde. Au moins les 20 premières fois qu'il vérifie, vous n'avez rien appuyé sur ("").

La ligne 10 étiquette la touche sur laquelle vous appuyez comme A$. Ensuite, l'ordinateur prend une décision :

Ajoutez cette ligne et exécutez le programme :

  1. 60 GOTO 10

Peu importe à quelle vitesse vous êtes, l'ordinateur est plus rapide ! Effacez la ligne 30 (DEL 30) pour voir sur quelles touches vous appuyez.

Battez l'ordinateur (un exemple de INKEY$)

Tapez ce programme :

  1. 10 X=RND(4)     
  2. 20 Y=RND(4)
  3. 30 PRINT "QUE VAUT " X "+" Y
  4. 40 T=0
  5. 50 A$=INKEY$
  6. 60 T=T+1
  7. 70 SOUND 128,1
  8. 80 IF T=15 THEN 200
  9. 90 IF A$=""THEN 50
  10. 100 GOTO 10
  11. 200 CLS 7
  12. 210 SOUND 180,30
  13. 220 PRINT "TROP TARD"

Voici comment fonctionne le programme :

Comment pouvez-vous faire en sorte que l'ordinateur vous accorde trois fois plus de temps pour répondre à chaque question ? Réponse : En modifiant cette ligne :

  1. 80 IF T=45 THEN 200

Vérification de vos réponses (La fonction VAL)

Comment pouvez-vous demander à l'ordinateur de vérifier si votre réponse est correcte ? Cela fonctionnerait-il ?

  1. 100 IF A$=X+Y THEN 130
  2. 110 PRINT "MAUVAIS", X "+" Y "=" X + Y
  3. 120 GOTO 10
  4. 130 PRINT "CORRECTE"
  5. 140 GOTO 10

Si vous exécutez ce programme (et répondez à temps), vous obtenez ce message d'erreur :

?TM ERROR IN 100

C'est parce que vous ne pouvez pas rendre une chaîne de caractères (A$) égale à un nombre (X + Y). D'une manière ou d'une autre, vous devez changer A$ en un nombre. BASIC a une fonction pour cela appelée VAL. Sa syntaxe est :

VAL(string)

Renvoie la valeur numérique de la chaîne de caractères string.

Changez la ligne 100 en tapant :

  1. 100 IF VAL(A$)=X+Y THEN 130

VAL(A$) convertit A$ en sa valeur numérique. Si A$ est égal à la chaîne de caractères "5". VAL(A$) est égal au nombre 5. Si VAL(A$) est égal à la chaîne de caractères "C", VAL(A$) est égal au nombre 0. ("C" n'a pas de valeur numérique.)

Pour rendre le programme plus difficile, modifiez ces lignes :

  1. 10 X=RND(49)+4
  2. 20 Y=RND(49)+4
  3. 90 B$=B$+A$
  4. 100 IF VAL(B$)=X+Y THEN 130

Ajoutez ensuite ces lignes :

  1. 45 B$=""
  2. 95 IF LEN(B$)<>2 THEN 50

Un test de dactylographie informatique (un exemple de INKEY$)

Voici un programme chronométrant la vitesse à laquelle vous tapez :

  1. 10 CLS
  2. 20 INPUT "APPUYEZ SUR <ENTER> LORSQUE VOUS ETES PRET A SAISIR CETTE PHRASE"; E$
  3. 30 PRINT "C'EST MAINTENANT LE TEMPS POUR TOUS LES HOMMES BONS"
  4. 40 T=1
  5. 50 A$=INKEY$
  6. 60 IF A$=""THEN 100
  7. 70 PRINT A$;
  8. 80 B$=B$+A$
  9. 90 IF LEN(B$)=32 THEN 120
  10. 100 T=T+1
  11. 110 GOTO 50
  12. 120 S=T/74
  13. 130 M=S/60
  14. 140 R=8/M
  15. 150 PRINT
  16. 160 PRINT "VOUS TAPEZ A -- " R " -- MOTS/MINUTES"

La ligne 40 met T, la minuterie, à 1.

La ligne 50 vous donne votre première chance de taper une touche (A$). Si vous n'êtes pas assez rapide, la ligne 60 envoie le programme à la ligne 100 et en ajoute un à la minuterie.

La ligne 70 affiche la touche que vous avez tapée.

La ligne 80 forme une chaîne de caractères nommée B$. Chaque fois que vous tapez une touche (A$), le programme l'ajoute à B$. Par exemple, si la première touche que vous saisissez est "C", alors :

  1. A$="C"

et

  1. B$=B$+A$
  2. B$=""+"C"
  3. B$="C"

Si la touche suivante que vous tapez est "'", alors :

  1. A$="'"     

et

  1. B$=B$+A$
  2. B$="C"+"'"
  3. B$="C'"

Si la troisième clé que vous avez tapée est "E", alors :

  1. A$="E"

et

  1. B$="C'"+"E"
  2. B$="C'E"

Lorsque la longueur de B$ est de 32 (la longueur de C'EST MAINTENANT LE TEMPS POUR TOUS LES HOMMES BONS), le programme suppose que vous avez fini de taper la phrase et va à la ligne 120 pour calculer vos mots par minute.

Les lignes 120, 130 et 140 calculent votre vitesse de frappe. Ils divisent T par 74 (pour obtenir les secondes) et S par 60 (pour obtenir les minutes). Ils divisent ensuite les huit mots par M pour obtenir les mots par minute.

COMMANDES

INKEY$
VAL
CONCEPTS

Lecture du clavier
Conversion de valeurs


PARTAGER CETTE PAGE SUR
Dernière mise à jour : Samedi, le 11 mars 2023