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
» Pourquoi le compilateur stagne
par papydall Hier à 23:23

» Immortaliser les photos de famille
par jjn4 Hier à 18:29

» Concours de Morpions
par jjn4 Hier à 18:11

» Compilateur FBPano
par jean_debord Hier à 10:12

» Tout est tranquille
par Jean Claude Ven 22 Sep 2017 - 21:41

» Texte en gif animé
par JL35 Ven 22 Sep 2017 - 13:29

» BasicEditor
par Yannick Mer 20 Sep 2017 - 17:17

» Simuler l’appui d'une touche ou combinaison de touches.
par pascal10000 Lun 18 Sep 2017 - 19:30

» Utilisation de HVIEWER pour afficher des images
par papydall Lun 18 Sep 2017 - 17:43

» Panoramic et les gifs animés.
par papydall Lun 18 Sep 2017 - 16:32

» recover source
par pascal10000 Dim 17 Sep 2017 - 14:21

» Recent dans vos menu
par Jean Claude Sam 16 Sep 2017 - 11:41

» Comment centrer un texte 3D.
par pascal10000 Ven 15 Sep 2017 - 20:20

» Carte interface 16 entrées et 16 sorties
par Jicehel Ven 15 Sep 2017 - 16:30

» Version instantanée V 0.9.28i9 possédant l'objet SYNEDIT
par pascal10000 Ven 15 Sep 2017 - 16:20

Navigation
 Portail
 Index
 Membres
 Profil
 FAQ
 Rechercher
Rechercher
 
 

Résultats par :
 
Rechercher Recherche avancée
Septembre 2017
LunMarMerJeuVenSamDim
    123
45678910
11121314151617
18192021222324
252627282930 
CalendrierCalendrier

Partagez | 
 

 Des outils à enrichir …

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

avatar

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

MessageSujet: Des outils à enrichir …   Sam 7 Nov 2015 - 18:59

Code:

rem ============================================================================
rem        Outils
rem ============================================================================
label clic
dim i,w,c$,command$(20)

full_space 0 : color 0,50,100,100
w = 400
for i = 1 to 10
    button i : top i,50*(i) : left i,50 : width i,w : on_click i,clic
    font_bold i : font_size i,14 : read c$ : read command$(i) : caption i,c$
next i

for i = 11 to 20
    button i : top i,50*(i-10) : left i,100+w : width i,w : on_click i,clic
    font_bold i : font_size i,14 : read c$ : read command$(i) : caption i,c$
next i

button 99 : top 99,600 : left 99, 375 : width 99,200 : caption 99,"Q U I T T E R"
font_bold 99 : font_size 99,16 : on_click 99, clic
end
rem ============================================================================
Clic:
   i = number_click
   if i = 99 then terminate
   execute_wait chr$(34)+command$(i)+chr$(34)
return
rem ============================================================================
data "Table de caractères" , "CHARMAP"
data "Ouvrir l’outil de diagnostic DirectX" , "DXDIAG"
data "Ouvrir le gestionnaire de disques" , "DISKMGMT.MSC"
data "Ouvrir le gestionnaire de périphériques" , "DEVMGMT.MSC"
data "Ouvrir les propriétés Internet" , "INETCPL.CPL"
data "Ouvrir la loupe" , "MAGNIFY"
data "Ouvrir les propriétés de la souris" , "MAIN.CPL"
data "Ouvrir l’outil de diagnostics de la mémoire" , "MDSCHED"
data "Ouvrir les paramètres de sons" , "MMSYS.CPL"
data "Ouvrir les informations système" , "MSINFO32"
' ==============================================================================
data "Vérification des signatures de fichiers" , "SIGVERIF"
data "Outil capture d’écran" , "SNIPPINGTOOL"
data "Ouvrir le pense-bête" , "STIKYNOT"
data "Gestionnaire des tâches Windows" , "TASKMGR"
data "Pour connaître votre version Windows" , "WINVER"
data "Ouvrir le centre de sécurité Windows" , "WSCUI.CPL"
data "Ouvrir le mélangeur de volume" , "SNDVOL"
data "Ouvrir le gestionnaire de services" , "SERVICES.MSC"
data "Ouvrir le clavier visuel" , "OSK"
data "Ouvrir l’éditeur de caractères privés" , "EUDCEDIT"
' ==============================================================================

Revenir en haut Aller en bas
Voir le profil de l'utilisateur http://papydall-panoramic.forumarabia.com/
Jicehel

avatar

Nombre de messages : 5855
Age : 45
Localisation : 77500
Date d'inscription : 19/04/2011

MessageSujet: Re: Des outils à enrichir …   Sam 7 Nov 2015 - 19:36

Excellent.
De mon coté, j'ai 4 utilitaire non installés sur mon poste:
- diagnostics de la mémoire: MDSCHED
- Vérification des signatures de fichiers: SIGVERIF
- capture d’écran: SNIPPINGTOOL
- pense-bête: STIKYNOT
Revenir en haut Aller en bas
Voir le profil de l'utilisateur
papydall

avatar

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

MessageSujet: Re: Des outils à enrichir …   Sam 7 Nov 2015 - 19:49

Puisque c’est ainsi, je vous offre un plus et en plus c’est gratuit !

Code:

rem ============================================================================
rem                   Outils
rem ============================================================================
label clic
dim i,w,c$,command$(30)

full_space 0 : color 0,50,100,100
w = 400
for i = 1 to 10
    button i : top i,50*(i) : left i,50 : width i,w : on_click i,clic
    font_bold i : font_size i,14 : read c$ : read command$(i) : caption i,c$
next i

for i = 11 to 20
    button i : top i,50*(i-10) : left i,100+w : width i,w : on_click i,clic
    font_bold i : font_size i,14 : read c$ : read command$(i) : caption i,c$
next i

for i = 21 to 30
    button i : top i,50*(i-20) : left i,150+2*w : width i,w : on_click i,clic
    font_bold i : font_size i,14 : read c$ : read command$(i) : caption i,c$
next i


button 99 : top 99,600 : left 99, 575 : width 99,200 : caption 99,"Q U I T T E R"
font_bold 99 : font_size 99,16 : on_click 99, clic
end
rem ============================================================================
Clic:
   i = number_click
   if i = 99 then terminate
   execute_wait chr$(34)+command$(i)+chr$(34)
return
rem ============================================================================
data "Table de caractères" , "CHARMAP"
data "Ouvrir l’outil de diagnostic DirectX" , "DXDIAG"
data "Ouvrir le gestionnaire de disques" , "DISKMGMT.MSC"
data "Ouvrir le gestionnaire de périphériques" , "DEVMGMT.MSC"
data "Ouvrir les propriétés Internet" , "INETCPL.CPL"
data "Ouvrir la loupe" , "MAGNIFY"
data "Ouvrir les propriétés de la souris" , "MAIN.CPL"
data "Ouvrir l’outil de diagnostics de la mémoire" , "MDSCHED"
data "Ouvrir les paramètres de sons" , "MMSYS.CPL"
data "Ouvrir les informations système" , "MSINFO32"
' ==============================================================================
data "Vérification des signatures de fichiers" , "SIGVERIF"
data "Outil capture d’écran" , "SNIPPINGTOOL"
data "Ouvrir le pense-bête" , "STIKYNOT"
data "Gestionnaire des tâches Windows" , "TASKMGR"
data "Pour connaître votre version Windows" , "WINVER"
data "Ouvrir le centre de sécurité Windows" , "WSCUI.CPL"
data "Ouvrir le mélangeur de volume" , "SNDVOL"
data "Ouvrir le gestionnaire de services" , "SERVICES.MSC"
data "Ouvrir le clavier visuel" , "OSK"
data "Ouvrir l’éditeur de caractères privés" , "EUDCEDIT"
' ==============================================================================
data "Ouvrir le magnétophone" , "SOUNDRECORDER"
data "Ouvrir le pare feu Windows" , "FIREWALL.CPL"
data "Ouvrir Paint" , "MSPAINT"
data "Ouvrir le bloc-notes" , "NOTEPAD"
data "Ouvrir l'outil de restauration du système" , "RSTRUI"
data "Ouvrir le planificateur de tâches" , "TASKSCHD.MSC"
data "Ouvrir l'outil de connexion téléphonique" , "TELEPHON.CPL"
data "Paramètres de l'heure et de la date" , "TIMEDATE.CPL"
data "Ouvrir les contacts" , "WAB"
data "Ouvrir Word Pad" , "WRITE"
rem ============================================================================

Revenir en haut Aller en bas
Voir le profil de l'utilisateur http://papydall-panoramic.forumarabia.com/
Pedro Alvarez

avatar

Nombre de messages : 827
Date d'inscription : 19/01/2014

MessageSujet: Outils.   Sam 7 Nov 2015 - 20:05

Bonjour.

Merci Papydall pour ces outils.

Seuls le pense-bête et le magnétophone ne fonctionnent pas sous Win 10.
Revenir en haut Aller en bas
Voir le profil de l'utilisateur
papydall

avatar

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

MessageSujet: Re: Des outils à enrichir …   Sam 7 Nov 2015 - 20:33

Je suis sous W7 donc je ne peux pas vérifier.
Mon ami Google m’a dit que le pense-bête n’a pas disparu sous W10 ; il est juste un peu caché.
Pour le retrouver :
Clic sur le menu Démarrer
Dans le champ de recherche, taper pense-bête et il apparaîtra.
Il suffira de cliquer dessus pour qu’il se remette sur le bureau
Revenir en haut Aller en bas
Voir le profil de l'utilisateur http://papydall-panoramic.forumarabia.com/
Jean Claude

avatar

Nombre de messages : 5019
Age : 63
Localisation : 83 Var
Date d'inscription : 07/05/2009

MessageSujet: Re: Des outils à enrichir …   Sam 7 Nov 2015 - 20:50

Ah ça c'est un bon outil.

Je me le met sous le coude, car cela évite de chercher dans les méandres de Windows.

Bravo, A+
Revenir en haut Aller en bas
Voir le profil de l'utilisateur
JL35



Nombre de messages : 5951
Localisation : 77
Date d'inscription : 29/11/2007

MessageSujet: Re: Des outils à enrichir …   Sam 7 Nov 2015 - 21:49

Je confirme, merci papydall pour le regroupement de tous ces outils. Je me suis fait une version un peu plus compacte, j'aime bien voir ce qui se passe autour et pouvoir déplacer la fenêtre, sinon le code est exactement le même:
Code:
rem ============================================================================
rem                   Outils
rem ============================================================================
label clic
dim i,w,c$,command$(30)

w = 260
WIDTH 0,w*3+40: HEIGHT 0,550 : color 0,50,100,100: border_small 0
for i = 1 to 10
    button i : top i,40*(i) : left i,5 : width i,w : on_click i,clic
    font_bold i : font_size i,12 : read c$ : read command$(i) : caption i,c$
next i

for i = 11 to 20
    button i : top i,40*(i-10) : left i,10+w : width i,w : on_click i,clic
    font_bold i : font_size i,12 : read c$ : read command$(i) : caption i,c$
next i

for i = 21 to 30
    button i : top i,40*(i-20) : left i,15+2*w : width i,w : on_click i,clic
    font_bold i : font_size i,12 : read c$ : read command$(i) : caption i,c$
next i


button 99 : top 99,460 : left 99, width(0)/2-100 : width 99,200 : caption 99,"Q U I T T E R"
font_bold 99 : font_size 99,14 : on_click 99, clic
end
rem ============================================================================
Clic:
   i = number_click
   if i = 99 then terminate
   execute_wait chr$(34)+command$(i)+chr$(34)
return
rem ============================================================================
data "Table de caractères" , "CHARMAP"
data "Outil de diagnostic DirectX" , "DXDIAG"
data "Gestionnaire de disques" , "DISKMGMT.MSC"
data "Gestionnaire de périphériques" , "DEVMGMT.MSC"
data "Propriétés Internet" , "INETCPL.CPL"
data "Loupe" , "MAGNIFY"
data "Propriétés de la souris" , "MAIN.CPL"
data "Outil de diagnostic mémoire" , "MDSCHED"
data "Paramètres de sons" , "MMSYS.CPL"
data "Informations système" , "MSINFO32"
' ==============================================================================
data "Signatures de fichiers" , "SIGVERIF"
data "Capture d’écran" , "SNIPPINGTOOL"
data "Pense-bête" , "STIKYNOT"
data "Gestionnaire des tâches" , "TASKMGR"
data "Version Windows" , "WINVER"
data "Centre de sécurité Windows" , "WSCUI.CPL"
data "Mélangeur de volume" , "SNDVOL"
data "Gestionnaire de services" , "SERVICES.MSC"
data "Clavier visuel" , "OSK"
data "Éditeur de caractères" , "EUDCEDIT"
' ==============================================================================
data "Magnétophone" , "SOUNDRECORDER"
data "Pare-feu Windows" , "FIREWALL.CPL"
data "Paint" , "MSPAINT"
data "Bloc-notes" , "NOTEPAD"
data "Outil restauration système" , "RSTRUI"
data "Planificateur de tâches" , "TASKSCHD.MSC"
data "Outil de connexion téléphonique" , "TELEPHON.CPL"
data "Paramètres heure et date" , "TIMEDATE.CPL"
data "Contacts" , "WAB"
data "WordPad" , "WRITE"
rem ============================================================================
Revenir en haut Aller en bas
Voir le profil de l'utilisateur
Jean Claude

avatar

Nombre de messages : 5019
Age : 63
Localisation : 83 Var
Date d'inscription : 07/05/2009

MessageSujet: Re: Des outils à enrichir …   Sam 7 Nov 2015 - 23:23

Bien vu JL35,
Je suis comme toi, pour ce genre de programme c'est bien de voir une partie du bureau.
A priori ce n'est pas utile et pourtant on se sent mieux.

A+
Revenir en haut Aller en bas
Voir le profil de l'utilisateur
JL35



Nombre de messages : 5951
Localisation : 77
Date d'inscription : 29/11/2007

MessageSujet: Re: Des outils à enrichir …   Sam 7 Nov 2015 - 23:33

J'ai même fait à partir de là une version où on peut moduler le nombre de rangées (le nombre de colonnes s'ajuste automatiquement), et où les données (liste des modules) sont dans un fichier texte modifiable (ajouts ou retraits) par édition depuis le programme lui-même.

Ce qui n'est pas trouvé chez moi (Windows 7):
  MDSCHED (diagnostic mémoire)
  SIGVERIF (signatures fichiers)
  SNIPPINGTOOL (capture écran)
  STIKYNOT (pense-bête)
  SOUNDRECORDER (magnétophone)
  RSTRUI (restauration système)
il doit falloir mettre des chemins complets...

Je n'y comprends plus rien ! les outils ci-dessus sont bien dans C:\Windows\System32, mais je ne peux pas les exécuter depuis le programme (où je mets pourtant leur chemin complet).
Par exemple MDSCHED (diagnostic mémoire), je récupère:
et c'est pareil pour les autres ci-dessus ! qui s'exécutent bien si je les lance depuis l'explorateur...
et pourtant ce chemin est parfaitement correct !
Revenir en haut Aller en bas
Voir le profil de l'utilisateur
papydall

avatar

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

MessageSujet: Re: Des outils à enrichir …   Dim 8 Nov 2015 - 3:04

Il me semble que sous windows 64 certains fichiers sont mal indexés.

Voici comment faire :
Aller chercher où se trouvent  les fichiers qui refusent de s’exécuter.
Normalement ils se trouvent dans C:\Windows\system32
En ligne de commande, c’est la commande :
where nom_du_fichier
Exemple :
where osk  ==> donne C:\Windows\system32\osk.exe
Une fois ces fichiers localisés, faites-en une copie dans un autre emplacement, par exemple dans c:\temp
Modifier dans le code, la ligne 32
Code:

execute_wait chr$(34)+command$(i)+chr$(34)
Comme ceci
Code:

execute_wait "c:\temp\" + chr$(34)+command$(i)+chr$(34)

Ça devrait marcher.

Merci JL35 pour l'amélioration du rendu visuel à l'écran.
Revenir en haut Aller en bas
Voir le profil de l'utilisateur http://papydall-panoramic.forumarabia.com/
JL35



Nombre de messages : 5951
Localisation : 77
Date d'inscription : 29/11/2007

MessageSujet: Re: Des outils à enrichir …   Dim 8 Nov 2015 - 12:41

Merci ami papydall pour tes idées géniales !
J'avais bien vérifié qu'ils existaient dans system32 depuis l'explorateur windows.
Effectivement ça doit être une question d'indexation dans windows, impossible d'accéder à ces fichiers.
J'ai créé un répertoire C:\Sysutil dans lequel j'ai copié ces 6 exécutables, par copier/coller dans l'explorateur, impossible de les copier par la commande Copy, ils ne sont pas trouvés, encore heureux qu'ils apparaissent dans l'explorateur !

Je n'ai pas essayé, mais je ne suis pas sûr que la commande where les trouverait ?

Et vérification faite, ça marche, ils s'exécutent bien dans mon répertoire Sysutil.
Merci encore, et bon dimanche à toi.
Allez, au diable l'avarice, bon dimanche à tout le monde !

PS
Si je fais une recherche avec WH (where) les modules en question ne sont pas trouvés, ce qui semble logique, et j'ai des résultats plutôt bizarres, exemple:
Code:
C:\>wh MdSched.exe
Recherche de MdSched.exe sur C:
La cible du lien symbolique C:\$Windows.~BT\Sources\SafeOS\SafeOS.Mount\Windows\
System32\MdSched.exe n'existe pas
La cible du lien symbolique C:\$Windows.~BT\Sources\SafeOS\SafeOS.Mount\Windows\
WinSxS\amd64_microsoft-windows-m..diagnostic-schedule_31bf3856ad364e35_10.0.1024
0.16384_none_9bd70deb1464ceed\MdSched.exe n'existe pas
A            C:\SYSUTIL\MdSched.exe
A            C:\Windows\winsxs\amd64_microsoft-windows-m..diagnostic-schedule_31
bf3856ad364e35_6.1.7601.17514_none_f1fca1ab90570e8a\MdSched.exe
Fin de recherche MdSched.exe
C:\>
(le C:\SYSUTIL\MdSched.exe c'est celui que j'ai créé, quant au dernier trouvé, scratch ).
Revenir en haut Aller en bas
Voir le profil de l'utilisateur
papydall

avatar

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

MessageSujet: Re: Des outils à enrichir …   Dim 8 Nov 2015 - 15:21

Le problème est (je croix) une mauvaise indexation des fichiers.
J’ai fais une demande à Google pour m’apporter son aide et j’ai atterri  sur cet océan.
Comme je ne suis pas un bon nageur, je t'y laisse découvrir les lieux Laughing
Revenir en haut Aller en bas
Voir le profil de l'utilisateur http://papydall-panoramic.forumarabia.com/
Contenu sponsorisé




MessageSujet: Re: Des outils à enrichir …   

Revenir en haut Aller en bas
 
Des outils à enrichir …
Voir le sujet précédent Voir le sujet suivant Revenir en haut 
Page 1 sur 1
 Sujets similaires
-
» trousse a outils
» Utilisation des outils de modération
» [2534] outils forumactif
» Outils de Modération des Modérateurs
» PA - explications des outils couleurs

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: