#cs ----------------------------------------------------------------------------

 AutoIt Version : 3.3.0.0
 Auteur:         MonNom

 Fonction du Script :
	Modèle de Script AutoIt.

#ce ----------------------------------------------------------------------------

; Début du script - Ajouter votre code ci-dessous.

$GUI_EVENT_CLOSE = -3
$ES_CENTER = 1
opt("GUIOnEventMode",1)
opt("GUICloseOnESC",1)

$margegauche=10
$margetop=10
$inputX=201
$inputY=199

$nbcasehoriz=8
$nbcasevert=8
$nbcasesshoriz=7
$nbcasessvert=9
$deltacase=1
$largeurbouton=100
$hauteurbouton=20
$largeurcase=int((($inputX-$deltacase)/$nbcasehoriz))-$deltacase;10
$hauteurcase=int((($inputY-$deltacase)/$nbcasevert))-$deltacase;10
$inputX=(($largeurcase+$deltacase)*$nbcasehoriz)+$deltacase
$inputY=(($hauteurcase+$deltacase)*$nbcasevert)+$deltacase

$margecases=$inputX+$margegauche+20
$largeurboite=$margecases+$inputX + 2*$margegauche+$largeurbouton
$posxlabel=$margecases+$inputX + $margegauche

Dim $Cases [1] [1]
Dim $Casess [1] [1]
ReDim $Cases[$nbcasessvert][$nbcasesshoriz]
ReDim $Casess[$nbcasessvert][$nbcasesshoriz]

guicreate("mongui",$largeurboite,260)
GUISetOnEvent($GUI_EVENT_CLOSE,"quit")
$moninput=guictrlcreateinput("",$margegauche,$margetop,$inputX,$inputY,$ES_CENTER)
guictrlsetfont(-1,144,400,-1,"Apple ][")
GUICtrlSetBkColor(-1,"0xFFFFFF")
CreerPanneau( $margecases, $margetop)
$btndessinmanu=GUICtrlCreateButton("Dessin Manuel",$margecases+$inputX + $margegauche,10,$largeurbouton,$hauteurbouton)
GUICtrlSetOnEvent(-1,"dessin_manuel")
$btndessinauto=GUICtrlCreateButton("Dessin Automatique",$margecases+$inputX + $margegauche,50,$largeurbouton,$hauteurbouton)
GUICtrlSetOnEvent(-1,"dessin_automatique")
$btnok=GUICtrlCreateButton("Ok",$margecases+$inputX + $margegauche,130,$largeurbouton,$hauteurbouton)
GUICtrlSetOnEvent(-1,"dessin_ok")
$monlabel=GUICtrlCreateLabel("",$posxlabel,80,$largeurboite-$posxlabel,50)
guictrlsetcolor($monlabel,0xFF0000)
$btnQuit=GUICtrlCreateButton("Quitter",$margecases+$inputX + $margegauche,190,$largeurbouton,$hauteurbouton)
GUICtrlSetOnEvent(-1,"quit")
guisetstate()
While 1
WEnd
func dessin_manuel()
	if guictrlread($moninput) ="" Then
		msgbox(0,"", "rien de saisi")
		return
	endif
	dessin_txt(1,asc(guictrlread($moninput)))

guictrlsetdata($monlabel,"Terminé...")
	EndFunc

func dessin_txt($nbtot,$txt)
	if $nbtot=1 then
		$txtaffic=32
	Else
		$txtaffic=$txt
	endif
	guictrlsetdata($monlabel,"Je dessine " &$txtaffic-31 & "/" &$nbtot)
	CreerPanneau( $margecases, $margetop)
	$size=WinGetPos("mongui")
	$deltaX=14
	$deltaY=40
	$xdeb=$size[0]+$deltaX
	$ydeb=$size[1]+$deltaY
	$xfin=$xdeb+$inputX-1
	$yfin=$ydeb+$inputY-1
	$xstep= $largeurcase+$deltacase;int($inputX/($nbcasehoriz+1))
	$ystep= $hauteurcase+$deltacase;int($inputY/($nbcasevert+1))
	$xaff=0
	$yaff=0
	for $xaff=0 to $nbcasesshoriz
		$x=$xdeb+($xstep*$xaff)+($xstep*.5)
		for $yaff=0 to $nbcasessvert
			$y=$ydeb+($ystep*$yaff)+($ystep*.5)
			$myval = PixelGetColor($x,$y)
			if $myval=0 then
				if $txt= 116 then
					GUICtrlSetBkColor($Cases[$yaff][$xaff-1], 0x00F000)
					$Casess[$yaff][$xaff-1] = 1
				else
					GUICtrlSetBkColor($Cases[$yaff][$xaff], 0x00F000)
					$Casess[$yaff][$xaff] = 1
				Endif
			endif
		next
	next
	guictrlsetdata($monlabel,"J'enregistre "& $txtaffic-31 & "/" &$nbtot)
	textefinal($txt)
	;sleep(500)
EndFunc

func dessin_automatique()
	$nbtot=126-32+1
	for $txt=32 to 126
		guictrlsetdata($moninput,chr($txt))
		dessin_txt($nbtot,$txt)
	next
	guictrlsetdata($monlabel,"Terminé...")
EndFunc

func quit()
	Exit
endfunc

Func CreerPanneau( $ecartgauche, $ecarthaut)
	For $j = 0 To $nbcasessvert-1
        For $i = 0 To $nbcasesshoriz-1
            $Cases[$j][$i] = GUICtrlCreateLabel("", $ecartgauche+$i*($largeurcase+$deltacase), $ecarthaut+$j*($hauteurcase+$deltacase),$largeurcase, $hauteurcase)
            GUICtrlSetBkColor(-1, 0x003000)
			GUICtrlSetOnEvent($Cases[$j][$i], "modifcouleur")
			$Casess[$j][$i]=0
        Next
    Next
EndFunc

func modifcouleur()
	Opt("MouseCoordMode", 2)
	$pos = MouseGetPos()
	$i=int(($pos[0]-$margecases)/($largeurcase+$deltacase))
	$j=int(($pos[1]-$margetop)/($hauteurcase+$deltacase))
    If($Casess[$j][$i] = 0) Then
		GUICtrlSetBkColor($Cases[$j][$i], 0x00F000)
		$Casess[$j][$i] = 1
	Else
		GUICtrlSetBkColor($Cases[$j][$i], 0x003000)
		$Casess[$j][$i] = 0
	EndIf
	Opt("MouseCoordMode", 1)
EndFunc
func textefinal($txt)
	$file = FileOpen("Test.txt", 1)
    filewrite($file,chr($txt)& chr(13))
	FileWrite($file, chr(34))
    For $j = 0 To $nbcasessvert-1
		For $i = 0 To $nbcasesshoriz-1
			FileWrite($file, $Casess[$j][$i])
		Next
		FileWrite($file, 0)
	Next
	FileWrite($file, chr(34)& chr(13))
	FileClose($file)
EndFunc
func dessin_ok()
	textefinal(32)
EndFunc