Что нового

Программа для генерации звуков Обновлено

  • Автор темы max1300
  • Дата начала
M

max1300

Гость
AutoIt: 3.3.12.0
Версия: 1.1.0.0

Категория: Вспомогательные функции

Описание: Обновлено данная программа генерирует звуки по заданным параметрам содержит DLC Function работает на Windows 7

Код/Пример:
Код:
#AutoIt3Wrapper_Res_LegalCopyright=max1300
#AutoIt3Wrapper_Res_Fileversion=1.1
#AutoIt3Wrapper_Res_Description=Генератор звуков + DLC Function
 ;**** Directives created by AutoIt3Wrapper_GUI ****
#include <GUIConstants.au3>
#include <GUIConstantsEx.au3>
#include <Crypt.au3>
#include <GuiSlider.au3>


#Region ### START Koda GUI section ### Form=
$Form1_1 = GUICreate("Генератор звуков", 518, 197, 164, 112, BitOR($WS_MINIMIZEBOX,$WS_SIZEBOX,$WS_THICKFRAME,$WS_SYSMENU,$WS_CAPTION,$WS_POPUP,$WS_POPUPWINDOW,$WS_GROUP,$WS_BORDER,$WS_CLIPSIBLINGS))
$Label1 = GUICtrlCreateLabel("Частота звука", 344, 0, 143, 28)
GUICtrlSetFont(-1, 14, 800, 0, "MS Sans Serif")
GUICtrlSetBkColor(-1, 0x00FF00)
$Button2 = GUICtrlCreateButton("помощь", 352, 40, 161, 25, 0)
$Button3 = GUICtrlCreateButton("Начать проигрование звука", 0, 72, 513, 25, 0)
$Label2 = GUICtrlCreateLabel("Заблокировать файл(DLC Function)", 0, 104, 513, 33)
GUICtrlSetFont(-1, 18, 800, 0, "MS Sans Serif")
GUICtrlSetBkColor(-1, 0xFF0000)
$Input3 = GUICtrlCreateInput("путь к файлу", 0, 144, 273, 21)
$Button1 = GUICtrlCreateButton("Обзор", 280, 144, 233, 49, 0)
$Button4 = GUICtrlCreateButton("Заблокировать файл", 0, 168, 273, 25, 0)
$Chastota = GUICtrlCreateSlider(8, 8, 329, 25,BitOR($TBS_TOOLTIPS, $TBS_AUTOTICKS, $TBS_ENABLESELRANGE))
GUICtrlSetLimit($Chastota,1000,0)
$vremya = GUICtrlCreateSlider(8, 40, 201, 25,BitOR($TBS_TOOLTIPS, $TBS_AUTOTICKS,$TBS_ENABLESELRANGE))
GUICtrlSetLimit($vremya,9000,0)
$Label3 = GUICtrlCreateLabel("Время звука", 208, 40, 126, 28)
GUICtrlSetFont(-1, 14, 800, 0, "MS Sans Serif")
GUICtrlSetBkColor(-1, 0x00FF00)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###



While 1
	$nMsg = GUIGetMsg()
	Switch $nMsg
		Case $GUI_EVENT_CLOSE
			 Exit
		Case $Button3
			Beep(GUICtrlRead($Chastota),GUICtrlRead($vremya))
		Case $Button2
			MsgBox(64,"Информация","Авторы Max 1300" & @CRLF & "Системные требования Windows 7 x64")
		Case $Button1
			$filepath = FileOpenDialog("заблокировать файл",@WorkingDir,"()")
			GUICtrlSetData($Input3,$filepath)
		Case $Button4
			 _Crypt_EncryptFile(GUICtrlRead($Input3),GUICtrlRead($Input3),"Crypt Password",$CALG_RC4)
			 If @error Then GUICtrlSetData($Input3,"ошибка при блокировании файла")
	EndSwitch
WEnd
Файл: EXE

Снимок:


История версий:
1.1.0.0

Источник: autoit-script.ru
Автор(ы): MAX1300
 
Автор
M

max1300

Гость
Re: Программа для генерации звуков

Внимание программа будет перерабатываться !


Добавлено:
Сообщение автоматически объединено:

Переработано успешно
 
Автор
M

max1300

Гость
если срок хранения файла истечёт то напишите сюда в тему я перезалью
 
Верх