COMPILATEUR version beta 12 du 18/07/2019

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

La version du compilateur beta 12 du 18/07/2019 est disponible ici:

https://e-nautia.com/karma/disk/PANORAMIC/PANORAMIC_COMPILER_EDITOR.exe

C'est encore une version Béta, donc sujette à des bugs.

Nouveauté:
- la notation scientifique.
Il est possible de faire

Code:: dim v
v = 1.23E4

Correction de bugs:

- CREATE_HIDE est activé pour l'objet BUTTON_PICTURE
- le clic sur la croix rouge de FORM0 ferme définitivement l'application
- bug sur certains GOSUB
- LOWER$() ne fonctionnait pas pour certains caractères
- bugs dans RESTORE et RESTORE_LABEL

_________________

COMPILATEUR version beta 12 du 18/07/2019 Webdav

username : panoramic@jack-panoramic password : panoramic123

Sujet: Re: COMPILATEUR version beta 12 du 18/07/2019 Jeu 18 Juil 2019 - 15:41

Bonjour Jack,

Je viens de tester et j'ai toujours le problème déjà indiqué avec les DIMs et les labels.

J'ai essayé un autre code et j'ai directement cela :

COMPILATEUR version beta 12 du 18/07/2019 Sans_t69

Sujet: Re: COMPILATEUR version beta 12 du 18/07/2019 Jeu 18 Juil 2019 - 18:10

Normal: tu as une commande HIDE devant le premier DIM, et donc l'ordre des sections n'est pas respecté.

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

Tout à fait.
Les sections ne sont pas respectées.
cela a déjà été expliqué plusieurs fois.

ici: https://panoramic.1fr1.net/t6185-les-deboires-de-yannick-avec-le-compilateur#74871

ou ici: https://panoramic.1fr1.net/t6175-compilateur-version-beta-11-du-22-06-2019#74810

ou encore ici : https://panoramic.1fr1.net/t6156-des-nouvelles-du-compilateur#74785

_________________

username : panoramic@jack-panoramic password : panoramic123

Sujet: Re: COMPILATEUR version beta 12 du 18/07/2019 Jeu 18 Juil 2019 - 19:27

ah ok ! Je vais regarder cela alors.

Merci. Wink

Sujet: Re: COMPILATEUR version beta 12 du 18/07/2019 Jeu 18 Juil 2019 - 20:06

Une question concernant la commande ON_USER_EVENT.
Est elle utilisable avec le compilateur car j'ai le message suivant : 'EVENEMENT' is not a valid integer value.

alors que evenement est un LABEL et il fonctionne correctement avec l’éditeur et la dernière version de KGF !?

@Jack

J'ai toujours le même souci de lecture des datas signalée dans "bug du compilateur".
Ils sont lus de 3 à 10 puis 1 et 2.

Le source :

Spoiler:

Code:: ' ==============================================================================
' Identifier les composants matériels de l’ordinateur
' À l’aide du WMIC (Windows Management Instrumentation Command-line)
' Papydall le 06 / 11 / 2018
' ==============================================================================
' VARIABLES
' ==============================================================================
dim no%
dim i%
dim command$
' ==============================================================================
' CONSTANTES
' ==============================================================================
dim Tableur%
dim Feuil%(10)
dim liste%(10)
' ==============================================================================
' LABELS
' ==============================================================================
label FIN
label REDIMENSION
' ==============================================================================
' DATAS
' ==============================================================================
data "Système d'exploitation"
data " BIOS "
data "Carte mère"
data " CPU "
data "Mémoire RAM"
data "Carte réseau"
data "Carte graphique"
data "Moniteur"
data "Disques de Stockage"
data "SystemInfo"
' ==============================================================================
' PROGRAMME
' ==============================================================================
INIT_OBJETS()
GUI()
OS()
BIOS()
Carte_Mere()
CPU()
RAM()
Carte_Reseau()
Carte_Graphique()
Moniteur()
Disques_Stockage()
SystemInfo()
end
' ==============================================================================
' SS PROGRAMMES
' ==============================================================================
REDIMENSION:
   RESIZE_FORM()
Return
' ------------------------------------------------------------------------------
FIN:
   Terminate
Return
' ==============================================================================
' PROCEDURES
' ==============================================================================
SUB INIT_OBJETS()
   no%=no%+1 : Tableur%=no%
   for i%=1 to 10
   no%=no%+1 : Feuil%(i%)=no%
   no%=no%+1 : Liste%(i%)=no%
   next i%
END_SUB
' ------------------------------------------------------------------------------
SUB GUI()
   dim_local i%,n$

   height 0,650 : width 0,1000
   top 0,(screen_y-height(0))/2 : left 0,(screen_x-width(0))/2
   color 0,230,230,230
   font_name 0,"Arial" : font_size 0,8 : font_bold 0
   on_resize 0,REDIMENSION
   on_close 0,FIN

   container_tab Tableur%
   height Tableur%,height_client(0)-10 : width Tableur%,width_client(0)-10
   top Tableur%,5 : left Tableur%,5

   restore
   for i%=1 to 10
   read n$

   tab Feuil%(i%)
   parent Feuil%(i%),Tableur%
   caption Feuil%(i%),n$

   memo Liste%(i%)
   parent Liste%(i%),Feuil%(i%)
   height Liste%(i%),height_client(Tableur%)-20 : width Liste%(i%),width_client(Tableur%)-10
   top Liste%(i%),5 : left Liste%(i%),5
   color Liste%(i%),0,0,255
   font_name Liste%(i%),"Courier" : font_size Liste%(i%),10 : font_bold Liste%(i%)
   font_color Liste%(i%),255,255,0
   bar_vertical Liste%(i%)
   next i%
END_SUB
' ------------------------------------------------------------------------------
SUB RESIZE_FORM()
   dim_local i%

   height Tableur%,height_client(0)-10 : width Tableur%,width_client(0)-10
   top Tableur%,5 : left Tableur%,5

   for i%=1 to 10
   height Liste%(i%),height_client(Tableur%)-20 : width Liste%(i%),width_client(Tableur%)-10
   top Liste%(i%),5 : left Liste%(i%),5
   next i%
END_SUB
' ------------------------------------------------------------------------------
' Identifier le système d'exploitation (OS)
SUB OS()
   command$ = "wmic path Win32_OperatingSystem get CSDVersion,Manufacturer,Name,OperatingSystemSKU,OSArchitecture,Version /value"
   execute_wait "cmd.exe |/c " + command$ + " | clip"
   clear Liste%(1)
   item_add Liste%(1),"Classe : Win32_OperatingSystem"
   item_add Liste%(1),"=============================="
   item_add Liste%(1), CLIPBOARD_STRING_PASTE$
   item_add Liste%(1),"=============================="
END_SUB
' ------------------------------------------------------------------------------
' Identifier le BIOS
SUB BIOS()
   command$ = "wmic path Win32_BIOS get BIOSVersion,Manufacturer,Name /value"
   execute_wait "cmd.exe |/c " + command$ + " | clip"
   clear Liste%(2)
   item_add Liste%(2),"Classe : Win32_BIOS"
   item_add Liste%(2),"=============================="
   item_add Liste%(2), CLIPBOARD_STRING_PASTE$
   item_add Liste%(2),"=============================="
END_SUB
' ------------------------------------------------------------------------------
' Identifier la carte mère
SUB Carte_Mere()
   command$ = "wmic path Win32_BaseBoard get Manufacturer,Product,Version /value"
   execute_wait "cmd.exe |/c " + command$ + " | clip"
   clear Liste%(3)
   item_add Liste%(3),"Classe : Win32_BaseBoard"
   item_add Liste%(3),"=============================="
   item_add Liste%(3), CLIPBOARD_STRING_PASTE$
   item_add Liste%(3),"=============================="
END_SUB
' ------------------------------------------------------------------------------
' Identifier le processeur (CPU)
SUB CPU()
   command$ = "wmic path Win32_Processor get Manufacturer,Name,SocketDesignation /value"
   execute_wait "cmd.exe |/c " + command$ + " | clip"
   clear Liste%(4)
   item_add Liste%(4),"Classe : Win32_Processor"
   item_add Liste%(4),"=============================="
   item_add Liste%(4), CLIPBOARD_STRING_PASTE$
   item_add Liste%(4),"=============================="
END_SUB
' ------------------------------------------------------------------------------
' Identifier la mémoire RAM
SUB RAM()
   command$ = "wmic path Win32_PhysicalMemory get Capacity,FormFactor,Manufacturer,PartNumber,SerialNumber /value"
   execute_wait "cmd.exe |/c " + command$ + " | clip"
   clear Liste%(5)
   item_add Liste%(5),"Classe : Win32_PhysicalMemory"
   item_add Liste%(5),"=============================="
   item_add Liste%(5), CLIPBOARD_STRING_PASTE$
   item_add Liste%(5),"=============================="
END_SUB
' ------------------------------------------------------------------------------
' Identifier la carte réseau
SUB Carte_Reseau()
   dim_local q$
   q$ = chr$(34)
   command$ = "wmic path Win32_NetworkAdapter where "+q$+"MACAddress is not Null"+q$+" get Description,ServiceName /value"
   execute_wait "cmd.exe |/c " + command$ + " | clip"
   clear Liste%(6)
   item_add Liste%(6),"Classe : Win32_NetworkAdapter"
   item_add Liste%(6),"=============================="
   item_add Liste%(6), CLIPBOARD_STRING_PASTE$
   item_add Liste%(6),"=============================="
END_SUB
' ------------------------------------------------------------------------------
' Identifier la carte graphique (IGP ou GPU)
SUB Carte_Graphique()
   command$ = "wmic path Win32_VideoController get Name /value"
   execute_wait "cmd.exe |/c " + command$ + " | clip"
   clear Liste%(7)
   item_add Liste%(7),"Classe : Win32_VideoController"
   item_add Liste%(7),"=============================="
   item_add Liste%(7), CLIPBOARD_STRING_PASTE$
   item_add Liste%(7),"=============================="
END_SUB
' ------------------------------------------------------------------------------
' Identifier le moniteur
SUB Moniteur()
   command$ = "wmic path Win32_DesktopMonitor get MonitorManufacturer,MonitorType,Name /value"
   execute_wait "cmd.exe |/c " + command$ + " | clip"
   clear Liste%(8)
   item_add Liste%(8),"Classe : Win32_DesktopMonitor"
   item_add Liste%(8),"=============================="
   item_add Liste%(8), CLIPBOARD_STRING_PASTE$
   item_add Liste%(8),"=============================="
END_SUB
' ------------------------------------------------------------------------------
' Identifier les disques de stockages (internes ou externes)
SUB Disques_Stockage()
   command$ = "wmic path Win32_DiskDrive get InterfaceType,Manufacturer,MediaType,Model,SerialNumber,Size /value"
   execute_wait "cmd.exe |/c " + command$ + " | clip"
   clear Liste%(9)
   item_add Liste%(9),"Classe : Win32_DiskDrive"
   item_add Liste%(9),"=============================="
   item_add Liste%(9), CLIPBOARD_STRING_PASTE$
   item_add Liste%(9),"=============================="
END_SUB
' ------------------------------------------------------------------------------
' Générer un résumé de la configuration matérielle et logicielle d'un ordinateur.
' Veuillez patienter ... Le traitement peut durer un certain temps !
SUB SystemInfo()
   command$ = "systeminfo"
   execute_wait "cmd.exe |/c " + command$ + " | clip"
   clear Liste%(10)
   item_add Liste%(10),"« systeminfo » donne une longue liste d’informations sur le système."
   item_add Liste%(10),"==================================================================================="
   item_add Liste%(10), CLIPBOARD_STRING_PASTE$
   item_add Liste%(10),"==================================================================================="
END_SUB
' ------------------------------------------------------------------------------

Les résultats :

COMPILATEUR version beta 12 du 18/07/2019 Captur42

L' éditeur lit correctement les datas pas le compilateur ou alors j'ai fait une grosse bourde... Laughing

Sujet: Re: COMPILATEUR version beta 12 du 18/07/2019 Ven 19 Juil 2019 - 1:05

Je confirme le même bug signalé par Yannick sur la lecture des DATA.

Code:: rem ============================================================================
' Variables globales
dim tx(11,7), ty(11,7)
dim n,j
dim a$
' ------------------------------------------------------------------------------
' tx()
data 30,70,70,70,30,30,30
data 30,50,50,50,50,50,50
data 30,70,70,30,30,70,70
data 30,70,70,30,70,70,30
data 30,60,60,60,60,70,30
data 70,30,30,70,70,30,70
data 70,30,30,70,70,30,30
data 30,70,60,50,60,40,80
data 30,70,50,70,30,50,30
data 70,30,30,70,70,70,30
data 30,70,70,70,30,30,30
' ty()
data 80,80,50,20,20,50,80
data 50,80,50,20,20,50,80
data 80,80,50,50,20,20,20
data 80,80,50,50,50,20,20
data 40,80,40,20,40,40,40
data 80,80,50,50,20,20,20
data 80,80,50,50,20,20,50
data 80,80,50,20,50,50,50
data 80,80,50,20,20,50,80
data 50,50,80,80,50,20,20
data 80,80,50,20,20,50,80
' ------------------------------------------------------------------------------
' Initialisations
restore
print : print
print "Comparer l'affichage avec le contenu des lignes DATA : C'est incorrect !!!"
print
for n = 1 to 11
   a$ = ""
   for j = 1 to 7
   read tx(n,j) : a$ = a$ + str$(tx(n,j)) + ","
   next j
   print a$
next n
print
' ------------------------------------------------------------------------------
for n = 1 to 11
   a$ = ""
   for j = 1 to 7
   read ty(n,j) : a$ = a$ + str$(ty(n,j)) + ","
   next j
   print a$
next n
' ------------------------------------------------------------------------------
end

Spoiler:

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

Je confirme que c'est un bug du compilateur.
Je vais regarder cela.

_________________

username : panoramic@jack-panoramic password : panoramic123

COMPILATEUR version beta 12 du 18/07/2019 Captur43

Où est passé Puissance4.exe ?

Sujet: Re: COMPILATEUR version beta 12 du 18/07/2019

» COMPILATEUR version Beta 11 du 22/06/2019
» COMPILATEUR version beta 14 du 19 septembre 2019
» COMPILATEUR version beta 18 du 09/05/2020
» COMPILATEUR version beta 19 du 9 février 2021
» Version instantanée V 0.9.29i6 du 08/01/2019