Page 2 sur 2
Re: [..] Problème de la commande ECRIRE dans ART-OS
Posté : ven. 02 sept. 2011 10:03
par TT22
L'idée est bien sauf que lorsque l'on écrit des chose, ça ne s'affiche pas à l'écran
Re: [..] Problème de la commande ECRIRE dans ART-OS
Posté : ven. 02 sept. 2011 11:44
par moi
tu faıs des ıspressed pour tous les caracteres.
maıs c'est long
, ça prends de la place maıs c'est une solutıon comme une autre
sı tu trouve pas autre chose.
pour vısualıser ça faıs
Code : Tout sélectionner
do
ıf _ıspressed(76) then
$var = 76
elseıf _ıspressed(71) then
$var = 71
endıf
ıf _ıspressed(40) then send({a})
ıf _ıspressed(41) then send({b})
...
...
untıl _ıspressed(76) or _ıspressed(71)
;actıon a effectuer en fonctıon de $var
Re: [..] Problème de la commande ECRIRE dans ART-OS
Posté : ven. 02 sept. 2011 18:11
par TT22
C'est un peu long comme solution
Re: [..] Problème de la commande ECRIRE dans ART-OS
Posté : ven. 02 sept. 2011 18:28
par moi
oui mais pour l'instant c'est la seule solution.
Re: [..] Problème de la commande ECRIRE dans ART-OS
Posté : ven. 02 sept. 2011 18:48
par TT22
moi a écrit :c'est la seule solution.
Doit bien en avoir une autre
Re: [..] Problème de la commande ECRIRE dans ART-OS
Posté : ven. 02 sept. 2011 19:06
par moi
bıen sur je parle pour l'ınstant.
bon ecoute tu teste sı ça marche et tu le met dans la source en attendent de trouver une solutıon plus courte
comme ça tu peut contınuer le devellopement de art os
Re: [..] Problème de la commande ECRIRE dans ART-OS
Posté : sam. 03 sept. 2011 01:44
par TT22
En fait, ART-OS 1.2 est presque terminé, il ne reste que ce problème à régler
J'ai d'ailleur commencé à faire des tests, et la version 1.2 est environ 25 fois plus rapide que la 1.1
Re: [..] Problème de la commande ECRIRE dans ART-OS
Posté : sam. 03 sept. 2011 07:30
par moi
on peut toujours retoucher une versıon
je suıt en traın decrıre un code pour artos
maıs patıence...
bon aller je crache le morceau je suıs en traın de modıfıer assoart pour quıl reconnaısse l'extensıon de prog.
Re: [..] Problème de la commande ECRIRE dans ART-OS
Posté : dim. 04 sept. 2011 16:19
par TT22
Je viens de trouver la solution
► Afficher le textevoir la solution
Code : Tout sélectionner
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
#include <Misc.au3>
#include <File.au3>
#include <Array.au3>
$good_stop = FileExists(@ScriptDir&"\stop")
$first="ARTHOS ART-OS [version 1.2.2592]"&@CRLF&"Copyright (c) 2011 ARTHOS CORPORATION. Tous droits réservés."&@CRLF&@CRLF&@ScriptDir&"\ART-OS_Limited_Folder>"
$folder_start=@ScriptDir&"\ART-OS_Limited_Folder"
$gui=guicreate(@ScriptDir&"\ART-OS.exe",1000,500,2,2,BitOR($GUI_SS_DEFAULT_GUI, $WS_MAXIMIZEBOX, $WS_SIZEBOX))
$pic = GUICtrlCreatePic(@ScriptDir&"\img\BAOI1LP",0,0,1000,500)
GUISetState(@SW_SHOW)
Sleep(2000)
GUICtrlDelete($pic)
$edit = guictrlcreateedit ($first, 0, 0, 1000, 500)
GUICtrlSetBkColor(-1, "000000")
GUICtrlSetFont(-1, 80, 100, "", "System", 2)
GuiCtrlSetColor($edit, 0xFFFFFF)
GUIRegisterMsg($WM_COMMAND, "WM_NOTIFY")
FileDelete(@tempdir&"\old_title_temp")
$old_title=FileWrite(@tempdir&"\old_title_temp",@ScriptDir&"\ART-OS.exe")
Send("{right}")
while 1
$msg = guigetmsg()
If $msg = $GUI_EVENT_CLOSE Then
Exit
EndIf
WEnd
Func WM_NOTIFY($hWnd, $iMsg, $lParam, $wParam)
If(_IsPressed("0D")) Then
Sleep(50)
$file=GUICtrlRead($edit)
FileWrite(@tempdir&"\temp_ART-OS",$file)
_ReplaceStringInFile(@tempdir&"\temp_ART-OS","*rep*",$folder_start)
_ReplaceStringInFile(@tempdir&"\temp_ART-OS","#rep#","*REP*")
_ReplaceStringInFile(@tempdir&"\temp_ART-OS",$folder_start&">","#*.*#")
$lin=_FileCountLines(@tempdir&"\temp_ART-OS")
$last_line=FileReadLine(@tempdir&"\temp_ART-OS",$lin)
_ReplaceStringInFile(@tempdir&"\temp_ART-OS","#*.*#","")
$line=_FileCountLines(@tempdir&"\temp_ART-OS")
$write=FileReadLine(@tempdir&"\temp_ART-OS",$line)
FileDelete(@tempdir&"\temp_ART-OS")
FileWrite(@tempdir&"\temp_ART-OS_com",$write)
$traiter = 0
$re_write = 1
If $last_line = "#*.*#" Then
$traiter = 1
EndIf
;-------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
If $traiter = 0 Then
$write_2=FileRead(@tempdir&"\temp_ART-OS_com",7)
If $write_2 = "ecrire " Then
_ReplaceStringInFile(@tempdir&"\temp_ART-OS_com","ecrire ","")
$file2=FileRead(@tempdir&"\temp_ART-OS_com")
$existfiles = FileExists($file2)
If $existfiles = 0 Then
$anciennnnegui = GUICtrlRead($edit)
GUICtrlSetData($edit,"")
Sleep(100)
While 1
Sleep(100)
If _IsPressed("76") Then
Sleep(100)
$cequilaecrit = GUICtrlRead($edit)
Sleep(100)
FileWrite($file2,$cequilaecrit)
Sleep(100)
GUICtrlSetData($edit,$anciennnnegui)
Sleep(100)
Send("Votre fichier à été créé."&@CR)
Sleep(100)
ExitLoop
EndIf
WEnd
EndIf
If $existfiles = 1 Then
$anciennnnegui = GUICtrlRead($edit)
GUICtrlSetData($edit,FileRead($file2))
Sleep(100)
While 1
Sleep(100)
If _IsPressed("76") Then
Sleep(100)
$cequilaecrit = GUICtrlRead($edit)
Sleep(100)
FileDelete($file2)
Sleep(100)
FileWrite($file2,$cequilaecrit)
Sleep(100)
GUICtrlSetData($edit,$anciennnnegui)
Sleep(100)
Send("Votre fichier à été modifié."&@CR)
Sleep(100)
ExitLoop
EndIf
WEnd
EndIf
$traiter = 1
EndIf
EndIf
;-------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
FileDelete(@tempdir&"\temp_ART-OS_com")
If $traiter = 0 Then
$old_gui = GUICtrlRead($edit)
GUICtrlSetData($edit,$old_gui&@CR&"'"&$write&"'"&" n'est pas reconnu en tant que commande interne"&@CRLF&"ou externe, un programme exécutable ou un fichier de commandes."&@CRLF)
Sleep(100)
EndIf
If $re_write = 1 Then
GUICtrlSetData($edit,GUICtrlRead($edit)&@CRLF&@CR&$folder_start&">")
Sleep(100)
EndIf
EndIf
EndFunc