Bug du compilateur.

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

Bonjour.

@Jack.

Il semblerait que la commande lower$() ne fonctionne pas correctement avec le compilateur.
Le résultat affiché est incorrect.

Code:: dim a$

a$="Moyen-Âge;nom propre;Edad Media;nom propre;Histoire"

message lower$(a$)

Bonjour Pédro,

Je confirme qu'il y a une différence entre le compilateur et l'éditeur.
LOWER$("Â") avec l'éditeur donne bien â, mais pas le compilateur.

A+

PS: j'ajoute que l'exécutable créé avec le compilateur reste en instance dans le gestionnaire des taches.
La fermeture par la croix rouge du FORM ne suffit pas. J'ai ajouté un TERMINATE pour qu'il ne reste rien dans le gestionnaire des taches.

Code:: message LOWER$("Â")
' END
TERMINATE

Je pense que c'est un problème d'Unicode.

J'ai testé avec FBPano : pour avoir l'accent circonflexe sur le "a" minuscule il faut utiliser une fonction de mise en minuscules spécifique de l'Unicode (ULCASE au lieu de LCASE)

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

Pedro a écrit:: Il semblerait que la commande lower$() ne fonctionne pas correctement avec le compilateur.

Ce problème est corrigé, et la correction sera disponible dans la prochaine version.

_________________

username : panoramic@jack-panoramic password : panoramic123

Le compilateur aurait il une divergence d'opinion avec les data ?
J' ai datatisé en binaire un fichier zip de 16 ko ce qui me donne en première ligne :

Code:: data "Mon_fichier.zip"

puis des lignes de 30 data (moins pour la dernière) :

Code:: data "1","12","25","30".....

quand je lui demande de recréer le fichier de la façon suivante :

Code:: restore
read t$
filebin_open_write 1,t$
filebin_close 1

je me retrouve avec un fichier nommé :
159

A noter que cela fonctionne correctement avec l'interpréteur

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

Jean Claude a écrit:: PS: j'ajoute que l'exécutable créé avec le compilateur reste en instance dans le gestionnaire des taches.
La fermeture par la croix rouge du FORM ne suffit pas. J'ai ajouté un TERMINATE pour qu'il ne reste rien dans le gestionnaire des taches.

Ce bug est corrigé. Un exécutable est définitivement fermé après un clic sur la croix rouge.
J'essaye de sortir rapidement une nouvelle version.

_________________

username : panoramic@jack-panoramic password : panoramic123

Merci Jack cheers

A+

Il y a vraiment un problème de lecture des datas avec le compilateur :

Le premier est la lecture par l' interpréteur et elle est correcte de 1 à 10.
La deuxième est la lecture par le compilateur, les datas sont lus de 3 à 10 puis 1 et 2.

Le source est un source de Papydall que j' ai voulu mettre à ma sauce pour le compilateur:

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
' ------------------------------------------------------------------------------

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

Yannick a écrit:: Il y a vraiment un problème de lecture des datas avec le compilateur

Ce problème a été corrigé. La correction sera effective dans la prochaine version.

_________________

username : panoramic@jack-panoramic password : panoramic123

Encore merci Jack.

» compilateur version de travail 0.1 alpha 4
» Le compilateur.
» COMPILATEUR version beta 19 du 9 février 2021
» Le compilateur.
» COMPILATEUR version beta 14 du 19 septembre 2019