[Элементы GUI] Использование прогресс бара

АндрейVirus · 13 Апр 2018

Доброго утра! Подскажите как к функции копирования подключить прогресс бар?

Код:

DirCopy(GUICtrlRead($Input1), GUICtrlRead($Input2), 1)

joiner · 13 Апр 2018

как вариант

Код:

#include <File.au3>
Local $sSF = @ScriptDir & '\доки'
Local $sDF = @ScriptDir & '\test'


_Copy($sSF, $sDF)

Func _Copy($sFS, $sCFD)
	Local $gds = DirGetSize($sFS), $alr
	Local $nCR = 1024 * 1024, $tmperc
	Local $aFiles = _FileListToArrayRec($sFS, '*', 1, 1, 0, 2)
	ProgressOn('Копирование', '', '', Default, Default, 16)
	For $i = 1 To $aFiles[0]
		Local $nwp = StringReplace($aFiles[$i], $sFS, $sCFD)
		Local $fso = FileOpen($aFiles[$i], 16)
		If $fso = -1 Then
			ProgressOff()
			Return SetError(1)
		EndIf
		Local $fdo = FileOpen($nwp, 26)
		If $fdo = -1 Then
			FileClose($fso)
			ProgressOff()
			Return SetError(2)
		EndIf
		Local $cr, $ext, $fwr, $prc
		While 1
			$cr = FileRead($fso, $nCR)
			$ext = @extended
			If @error = -1 Then ExitLoop
			$alr += $ext
			$fwr = FileWrite($fdo, $cr)
			If Not $fwr Then
				FileClose($fso)
				FileClose($fdo)
				ProgressOff()
				Return SetError(3)
			EndIf
			$prc = Floor($alr / $gds * 100)
			If $tmperc < $prc Then
				$tmperc = $prc
				ProgressSet($prc, '', $prc & ' %')
			EndIf
		WEnd
		FileClose($fso)
		FileClose($fdo)
	Next
	ProgressOff()
EndFunc   ;==>_Copy

на форуме много примеров.
вместо ProgressOn можно использовать текущее окно программы и ProgressBar

АндрейVirus · 13 Апр 2018

joiner сказал(а):

как вариант

Код:

#include <File.au3>
Local $sSF = @ScriptDir & '\доки'
Local $sDF = @ScriptDir & '\test'


_Copy($sSF, $sDF)

Func _Copy($sFS, $sCFD)
	Local $gds = DirGetSize($sFS), $alr
	Local $nCR = 1024 * 1024, $tmperc
	Local $aFiles = _FileListToArrayRec($sFS, '*', 1, 1, 0, 2)
	ProgressOn('Копирование', '', '', Default, Default, 16)
	For $i = 1 To $aFiles[0]
		Local $nwp = StringReplace($aFiles[$i], $sFS, $sCFD)
		Local $fso = FileOpen($aFiles[$i], 16)
		If $fso = -1 Then
			ProgressOff()
			Return SetError(1)
		EndIf
		Local $fdo = FileOpen($nwp, 26)
		If $fdo = -1 Then
			FileClose($fso)
			ProgressOff()
			Return SetError(2)
		EndIf
		Local $cr, $ext, $fwr, $prc
		While 1
			$cr = FileRead($fso, $nCR)
			$ext = @extended
			If @error = -1 Then ExitLoop
			$alr += $ext
			$fwr = FileWrite($fdo, $cr)
			If Not $fwr Then
				FileClose($fso)
				FileClose($fdo)
				ProgressOff()
				Return SetError(3)
			EndIf
			$prc = Floor($alr / $gds * 100)
			If $tmperc < $prc Then
				$tmperc = $prc
				ProgressSet($prc, '', $prc & ' %')
			EndIf
		WEnd
		FileClose($fso)
		FileClose($fdo)
	Next
	ProgressOff()
EndFunc   ;==>_Copy

на форуме много примеров.
вместо ProgressOn можно использовать текущее окно программы и ProgressBar

Что то я не разберусь ни как что тут и как. я новичок в этом деле.

joiner · 14 Апр 2018

раз новичок, нужно читать справку и разбирать примеры по каждой функции. иначе вопросов будет еще больше. на раз два писать код не получится
еще вариант

Код:

#include <File.au3>
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
Local $Form1 = GUICreate("Form1", 615, 255, 192, 124)
Local $sSF = GUICtrlCreateInput("", 32, 24, 393, 21)
Local $sDF = GUICtrlCreateInput("", 32, 72, 393, 21)
Local $sSFB = GUICtrlCreateButton("Выбор исходной папки", 440, 24, 155, 25)
Local $sDFB = GUICtrlCreateButton("Папка назначения", 440, 64, 155, 25)
Local $Progress1 = GUICtrlCreateProgress(32, 128, 566, 17)
Local $Start = GUICtrlCreateButton("Копировать", 30, 200, 100, 25)
Global $Stop = GUICtrlCreateButton("Стоп", 225, 200, 75, 25)
GUISetState(@SW_SHOW)

While 1
	Switch GUIGetMsg()
		Case $GUI_EVENT_CLOSE
			Exit
		Case $sSFB
			GUICtrlSetData($sSF, FileSelectFolder('', '', 0, '', $Form1))
		Case $sDFB
			GUICtrlSetData($sDF, FileSelectFolder('', '', 0, '', $Form1))
		Case $Start
			Local $PathS = GUICtrlRead($sSF)
			Local $PathD = GUICtrlRead($sDF)
			If FileExists($PathS) And FileExists($PathD) Then
				Global $fls = 0
				GUIRegisterMsg($WM_COMMAND, "WM_COMMAND")
				_Copy($PathS, $PathD, $Progress1)
				GUIRegisterMsg($WM_COMMAND, "")
			EndIf
	EndSwitch
WEnd

Func WM_COMMAND($hWnd, $Msg, $wParam, $lParam)
	Local $nID = BitAND($wParam, 0x0000FFFF) ; _WinAPI_LoWord
	Switch $nID
		Case $Stop
			$fls = 1
	EndSwitch
	Return $GUI_RUNDEFMSG
EndFunc   ;==>WM_COMMAND

Func _Copy($sFS, $sCFD, $PR)
	Local $gds = DirGetSize($sFS), $alr
	Local $nCR = 1024 * 1024, $tmperc
	Local $aFiles = _FileListToArrayRec($sFS, '*', 1, 1, 0, 2)
	For $i = 1 To $aFiles[0]
		Local $nwp = StringReplace($aFiles[$i], $sFS, $sCFD)
		Local $fso = FileOpen($aFiles[$i], 16)
		If $fso = -1 Then
			GUICtrlSetData($PR, 0)
			Return SetError(1)
		EndIf
		Local $fdo = FileOpen($nwp, 26)
		If $fdo = -1 Then
			GUICtrlSetData($PR, 0)
			FileClose($fso)
			Return SetError(2)
		EndIf
		Local $cr, $ext, $fwr, $prc, $nMsg
		While 1
			If $fls Then
				FileClose($fso)
				FileClose($fdo)
				GUICtrlSetData($PR, 0)
				Return
			EndIf
			$cr = FileRead($fso, $nCR)
			$ext = @extended
			If @error = -1 Then ExitLoop
			$alr += $ext
			$fwr = FileWrite($fdo, $cr)
			If Not $fwr Then
				FileClose($fso)
				FileClose($fdo)
				Return SetError(3)
			EndIf
			$prc = Floor($alr / $gds * 100)
			If $tmperc < $prc Then
				$tmperc = $prc
				GUICtrlSetData($PR, $prc)
			EndIf
		WEnd
		FileClose($fso)
		FileClose($fdo)
	Next
	GUICtrlSetData($PR, 0)
EndFunc   ;==>_Copy

Попытайся разобраться

АндрейVirus · 14 Апр 2018

joiner сказал(а):

раз новичок, нужно читать справку и разбирать примеры по каждой функции. иначе вопросов будет еще больше. на раз два писать код не получится
еще вариант

Код:

#include <File.au3>
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
Local $Form1 = GUICreate("Form1", 615, 255, 192, 124)
Local $sSF = GUICtrlCreateInput("", 32, 24, 393, 21)
Local $sDF = GUICtrlCreateInput("", 32, 72, 393, 21)
Local $sSFB = GUICtrlCreateButton("Выбор исходной папки", 440, 24, 155, 25)
Local $sDFB = GUICtrlCreateButton("Папка назначения", 440, 64, 155, 25)
Local $Progress1 = GUICtrlCreateProgress(32, 128, 566, 17)
Local $Start = GUICtrlCreateButton("Копировать", 30, 200, 100, 25)
Global $Stop = GUICtrlCreateButton("Стоп", 225, 200, 75, 25)
GUISetState(@SW_SHOW)

While 1
	Switch GUIGetMsg()
		Case $GUI_EVENT_CLOSE
			Exit
		Case $sSFB
			GUICtrlSetData($sSF, FileSelectFolder('', '', 0, '', $Form1))
		Case $sDFB
			GUICtrlSetData($sDF, FileSelectFolder('', '', 0, '', $Form1))
		Case $Start
			Local $PathS = GUICtrlRead($sSF)
			Local $PathD = GUICtrlRead($sDF)
			If FileExists($PathS) And FileExists($PathD) Then
				Global $fls = 0
				GUIRegisterMsg($WM_COMMAND, "WM_COMMAND")
				_Copy($PathS, $PathD, $Progress1)
				GUIRegisterMsg($WM_COMMAND, "")
			EndIf
	EndSwitch
WEnd

Func WM_COMMAND($hWnd, $Msg, $wParam, $lParam)
	Local $nID = BitAND($wParam, 0x0000FFFF) ; _WinAPI_LoWord
	Switch $nID
		Case $Stop
			$fls = 1
	EndSwitch
	Return $GUI_RUNDEFMSG
EndFunc   ;==>WM_COMMAND

Func _Copy($sFS, $sCFD, $PR)
	Local $gds = DirGetSize($sFS), $alr
	Local $nCR = 1024 * 1024, $tmperc
	Local $aFiles = _FileListToArrayRec($sFS, '*', 1, 1, 0, 2)
	For $i = 1 To $aFiles[0]
		Local $nwp = StringReplace($aFiles[$i], $sFS, $sCFD)
		Local $fso = FileOpen($aFiles[$i], 16)
		If $fso = -1 Then
			GUICtrlSetData($PR, 0)
			Return SetError(1)
		EndIf
		Local $fdo = FileOpen($nwp, 26)
		If $fdo = -1 Then
			GUICtrlSetData($PR, 0)
			FileClose($fso)
			Return SetError(2)
		EndIf
		Local $cr, $ext, $fwr, $prc, $nMsg
		While 1
			If $fls Then
				FileClose($fso)
				FileClose($fdo)
				GUICtrlSetData($PR, 0)
				Return
			EndIf
			$cr = FileRead($fso, $nCR)
			$ext = @extended
			If @error = -1 Then ExitLoop
			$alr += $ext
			$fwr = FileWrite($fdo, $cr)
			If Not $fwr Then
				FileClose($fso)
				FileClose($fdo)
				Return SetError(3)
			EndIf
			$prc = Floor($alr / $gds * 100)
			If $tmperc < $prc Then
				$tmperc = $prc
				GUICtrlSetData($PR, $prc)
			EndIf
		WEnd
		FileClose($fso)
		FileClose($fdo)
	Next
	GUICtrlSetData($PR, 0)
EndFunc   ;==>_Copy

Попытайся разобраться

Спасибо большое этот вариант отличный и более понятный!

Автор темы	Похожие темы	Форум	Ответы	Дата
B	[Элементы GUI] Использование $WS_EX_CONTEXTHELP	Общие вопросы по AutoIt	5	27 Авг 2016
I	[Элементы GUI] Использование Qt5-контролов	GUI - Графический интерфейс пользователя	1	24 Янв 2016
	Перенесено: [Элементы GUI] Помогите заменить имеющийся код на использование в нем _FileListToArray	Общие вопросы по AutoIt	0	24 Окт 2014
	[Элементы GUI] Помогите заменить имеющийся код на использование в нем _FileListToArray функции	GUI - Графический интерфейс пользователя	2	24 Окт 2014
A	[Элементы GUI] Почему на Win8 не работает эле-нт GUICreate с использованием стилей resources.au	Общие вопросы по AutoIt	17	16 Май 2014

Поиск

Поиск

[Элементы GUI] Использование прогресс бара

АндрейVirus

Новичок

joiner

Модератор

АндрейVirus

Новичок

joiner

Модератор

АндрейVirus

Новичок