Quelqu'un pour tester ?

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

Bonjour à tous.

L'un d'entre vous pourrait-il tester cette sub sous Win 7, et m'informer de son bon fonctionnement ou non ?
Merci.

Code:: dim ram, z

ram_installee()
end

sub ram_installee()
   dim_local pr$, vb$, vt$, q$

   pr$="test.bat"

   file_open_write 1,pr$
   file_writeln 1,"@echo off"
   file_writeln 1,"wmic ComputerSystem get TotalPhysicalMemory | clip"
   file_close 1

   q$=chr$(34)
   vb$="Vb.vbs": vt$="tmp.bat"

   file_open_write 9,vb$
   file_writeln 9,"CreateObject("+q$+"Wscript.Shell"+q$+").Run "+q$+pr$+q$+",0,True"
   file_close 9
   execute_wait "WSCRIPT.exe|"+vb$
   file_delete vb$:if file_exists(vt$)=1 then file_delete vt$

   if object_exists(9998)=1 then delete 9998
   create_hide
   memo 9998
   text 9998,clipboard_string_paste$
   z=val(item_read$(9998,3))/1000000000
   ram=int(z*10)/10
   message "RAM installée: "+str$(ram)+" Go."
   delete 9998
   create_show
end_sub

Désolé Pedro, mais la SUB que tu proposes ne peut pas être exécutées.
Revoir la syntaxe de la ligne 24

Code:: Ligne 53110 z=val(item_read$(9998,3))/1000000000

Les variables Z et ram ne sont pas déclaréés

Eh bien, pourquoi ne pas simplement ajouter
DIM Z, ram
en tête de programme ?

Admin Nombre de messages : 2386 Date d'inscription : 28/05/2007

@Pedro:
Ton exemple s'exécute sans erreur et produit le fichier test.bat qui contient:

Code:: @echo off
wmic ComputerSystem get TotalPhysicalMemory | clip

_________________

username : panoramic@jack-panoramic password : panoramic123

C'est l'équivalent de

Code:: execute_wait "cmd.exe | /c wmic ComputerSystem get TotalPhysicalMemory | clip"
message clipboard_string_paste$

N'est-ce pas ?

Bonjour à tous !

@Pedro
Contrairement au test de Jack, chez moi, le programme plante.
Pour t'aider, je t'ai mis une saisie d'écran avec le message d'erreur et en plus, une fenêtre txt avec le contenu du clipboard.

Configuration utilisée : Win7 64bit + 16Go

Pour mémoire, je t'avais déjà signalé cette erreur le 22 nov 2018 à 20h51.

Bonne continuation !

Essaie d'affecter le résultat de la fonction item_read$ dans une variable temporaire, puis utilise cette variable dans la fonction val(...). Certaines versions de Panoramic n'aiment pas des fonctions Panoramic comme argument...

@Klaus

Le problème vient du fait que le ITEM-READ$ va lire la ligne 3 qui n'existe pas sur ma config.
Chez moi, c'est la ligne 2 qui contient la quantité de mémoire.

J'ai mis en REM le CREATE_HIDE ligne 27 pour afficher le MEMO :

Pas de ligne 3 !

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

Et comme ceci:

Code:: dim k%, ram, z

ram_installee()
end

sub ram_installee()
   dim_local pr$, vb$, q$

   pr$="test.bat"

   file_open_write 1,pr$
   file_writeln 1,"@echo off"
   file_writeln 1,"wmic ComputerSystem get TotalPhysicalMemory | clip"
   file_close 1

   q$=chr$(34)
   vb$="Vb.vbs"

   file_open_write 9,vb$
   file_writeln 9,"CreateObject("+q$+"Wscript.Shell"+q$+").Run "+q$+pr$+q$+",0,True"
   file_close 9
   execute_wait "WSCRIPT.exe|"+vb$
   file_delete vb$

   if object_exists(9998)=1 then delete 9998
   create_hide
   memo 9998
   text 9998,clipboard_string_paste$
   for k%=count(9998) to 1 step -1
   te$=trim$(item_read$(9998,k%))
   if numeric(te$)=1 then exit_for
   next k%
   z=val(te$)/1000000000:ram=int(z*10)/10
   delete 9998
   create_show
end_sub

@Marc.

Je viens de mettre en ligne la version modifiée du fichier "langues.exe", téléchargeable ici:

https://e-nautia.com/share/87054-z36rcjfh

Cet exécutable doit être placé dans le dossier racine où tu as installé le logiciel.

@Pedro

J'ai fait l'essai, c'est bon !

» 3 lignes de code à tester pour moi ?
» Gestionnaire de Projets Panoramic
» Walking Mario - Pour tester le compilateur...
» Tester un programme
» RESOLU : petit code à tester, trouver l'erreur^^