FORUM DE DISCUSSION SUR LE LANGAGE PANORAMIC

Développement d'applications avec le langage Panoramic
 
AccueilAccueil  FAQFAQ  RechercherRechercher  S'enregistrerS'enregistrer  MembresMembres  GroupesGroupes  Connexion  
Derniers sujets
» GRID_LOAD
par Jean Claude Aujourd'hui à 21:04

» Rotation d'une image d'un angle quelconque
par Jean Claude Aujourd'hui à 20:57

» HVIEWER
par Yannick Aujourd'hui à 20:31

» StratégoV8 et V9
par Jean Claude Aujourd'hui à 20:13

» KGF_dll - nouvelles versions
par Klaus Hier à 21:28

» Déformation d'image en trapèze
par mindstorm Hier à 21:06

» Mah-Jong américain
par Jean Claude Lun 15 Jan 2018 - 19:37

» Problème avec Deepl
par Klaus Lun 15 Jan 2018 - 0:34

» Quelques nouvelles ...
par Jean Claude Ven 12 Jan 2018 - 22:40

» Renommer les instructions ITEM_... ?
par Jicehel Ven 12 Jan 2018 - 18:56

» Ludothèque Panoramic
par jjn4 Ven 12 Jan 2018 - 18:11

» sous-programmes et fonctions
par Jack Ven 12 Jan 2018 - 17:51

» Mah-Jong français
par Jean Claude Jeu 11 Jan 2018 - 22:15

» panoramic 0.9.28
par gigi75 Ven 5 Jan 2018 - 14:06

» Un jeu qui va vous énerver!
par Jean Claude Jeu 4 Jan 2018 - 22:05

Navigation
 Portail
 Index
 Membres
 Profil
 FAQ
 Rechercher
Rechercher
 
 

Résultats par :
 
Rechercher Recherche avancée
Janvier 2018
LunMarMerJeuVenSamDim
1234567
891011121314
15161718192021
22232425262728
293031    
CalendrierCalendrier

Partagez | 
 

 Déterminer le type de clavier

Voir le sujet précédent Voir le sujet suivant Aller en bas 
AuteurMessage
papydall

avatar

Nombre de messages : 5623
Age : 67
Localisation : Moknine (Tunisie) Entre la chaise et le clavier
Date d'inscription : 03/03/2012

MessageSujet: Déterminer le type de clavier   Dim 17 Avr 2016 - 20:05

Code:

rem ============================================================================
rem    Déterminer le type de clavier
rem ============================================================================

Type_Clavier()
end
rem ============================================================================
SUB Type_Clavier()
    dim_local ret%, t$
    dll_on "user32"
    ret% = dll_call1("GetKeyboardType",0)
    t$ = "Votre clavier est du type :" + chr$(13)
    select ret%
           case 1 : t$ = t$ + "IBM PC/XT or compatible (83-key) keyboard"
           case 2 : t$ = t$ + "Olivetti 'ICO' (102-key) keyboard"
           case 3 : t$ = t$ + "IBM PC/AT (84-key) or similar keyboard"
           case 4 : t$ = t$ + "IBM enhanced (101- or 102-key) keyboard"
           case 5 : t$ = t$ + "Nokia 1050 and similar keyboards"
           case 6 : t$ = t$ + "Nokia 9140 and similar keyboards"
           case 7 : t$ = t$ + "Japanese keyboard"
    end_select
    ret% = dll_call1("GetKeyboardType",2)
    t$ = t$ + chr$(13) + chr$(13) + "Il y a :" + chr$(13)
    t$ = t$ + str$(ret%) + " touches de fonctions F1 ... F" + str$(ret%)
    message t$
    dll_off
END_SUB
rem ============================================================================
Revenir en haut Aller en bas
Voir le profil de l'utilisateur http://papydall-panoramic.forumarabia.com/
 
Déterminer le type de clavier
Voir le sujet précédent Voir le sujet suivant Revenir en haut 
Page 1 sur 1
 Sujets similaires
-
» Déterminer le type de clavier
» cafe renverser sur clavier ordi portable
» Commande clavier
» [Résolu] Clavier sans fil faisant des siennes...
» Arrêt en gare suivant type de train

Permission de ce forum:Vous ne pouvez pas répondre aux sujets dans ce forum
FORUM DE DISCUSSION SUR LE LANGAGE PANORAMIC :: PANORAMIC :: Vos sources, vos utilitaires à partager-
Sauter vers: