Jump to content

Guı' De Slidere Müzik Seviyesi Tanımlanır?

x_files_x

By x_files_x,
in AutoIT

Recommended Posts

x_files_x Rookie

x_files_x

Posted
Posted

Selam Arkadaşlar ben bir GUI yapıyorumda ,script açıldıgında müzik calsın ve ona birde slider ekledim.sesi kısıp arttırmak icin ama ilk defa denedigim icin olmadı, acaba bu kodu nasıl çalıştırabilirim.biraz kurcaladım ama bişileri yalnıs yaptım galiba ,scripti acınca bilgisayarın ses ayarı kısılıyor.yardımınızı bekliyorum lütfen

#Region ;**** Directives created by AutoIt3Wrapper_GUI ****
#AutoIt3Wrapper_icon=J:\IKONLAR\Web1.ico
#AutoIt3Wrapper_Compression=0
#EndRegion ;**** Directives created by AutoIt3Wrapper_GUI ****
#include <ButtonConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>




#Region ### START Koda GUI section ### Form=

$Form1 = GUICreate("ResOurce X", 450, 274, 192, 124)

$Button1 = GUICtrlCreateButton("AIMP2 Player", 8, 128, 81, 33, $WS_GROUP)
$Button2 = GUICtrlCreateButton("TEMİZLİK", 104, 128, 81, 33, $WS_GROUP)
$Button3 = GUICtrlCreateButton("ResOurce Tools", 8, 176, 81, 33, $WS_GROUP)
$Button4 = GUICtrlCreateButton("IDMAN TR", 104, 176, 81, 33, $WS_GROUP)
$Button5 = GUICtrlCreateButton("FOLDERICON", 8, 224, 81, 33, $WS_GROUP)
$Button6 = GUICtrlCreateButton("Everything Tr", 104, 224, 81, 33, $WS_GROUP)
$Button7 = GUICtrlCreateButton("ProcX Taskman", 264, 128, 81, 33, $WS_GROUP)
$Button8 = GUICtrlCreateButton("Quick Startup", 360, 128, 81, 33, $WS_GROUP)
$Button9 = GUICtrlCreateButton("AUTOIT", 264, 176, 81, 33, $WS_GROUP)
$Button10 = GUICtrlCreateButton("Thinstall Tr", 360, 176, 81, 33, $WS_GROUP)
$Button11 = GUICtrlCreateButton("Regshot Tr", 264, 224, 81, 33, $WS_GROUP)
$Button12 = GUICtrlCreateButton("InstantDemo Tr", 360, 224, 81, 33, $WS_GROUP)
$Button13 = GUICtrlCreateButton(" TIKLA ", 192, 232, 65, 25, $WS_GROUP)
;Hocam inanın bu kodlarla iki saat ugrastım ilk defa denedigim icin olmadı
Dim $slider = GUICtrlCreateSlider(174 ,260 ,100 ,12)
GUICtrlSetLimit(-1, 100, 0)
GUISetState()
Dim $ses = GUICtrlRead($slider)
GUICtrlSetData($slider, 50)

SoundPlay(@ScriptDir & "\adem.mp3",0)
SoundSetWaveVolume($ses)

$Pic1 = GUICtrlCreatePic("J:\RESiMLER\WALLPAPER XP\Dragon Heart.jpg", 0, 0, 449, 273, BitOR($SS_NOTIFY,$WS_GROUP,$WS_CLIPSIBLINGS))

GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###

While 1
$nMsg = GUIGetMsg()
Switch $nMsg


Case $Button1
	ShellExecute(@ScriptDir & "/AIMP2 Tr.exe")

Case $Button2
	ShellExecute(@ScriptDir & "/SISTEM TEMIZLIK.exe")

Case $Button3
	ShellExecute(@ScriptDir & "/Resource Tools.exe")

Case $Button4
	ShellExecute(@ScriptDir & "/Internet Download Manager.exe")

Case $Button5
	ShellExecute(@ScriptDir & "/Klasor ikon degiş.exe")

Case $Button6
	ShellExecute(@ScriptDir & "/Everything Tr.exe")

Case $Button7
	ShellExecute(@ScriptDir & "/ProcX.exe")

Case $Button8
	ShellExecute(@ScriptDir & "/Quick Startup.exe")

Case $Button9
	ShellExecute(@ScriptDir & "/AUTOIT.exe")

Case $Button10
	ShellExecute(@ScriptDir & "/Thinstall Katılımsız")
Case $Button11
	ShellExecute(@ScriptDir & "/Regshot.exe")

Case $Button12
	ShellExecute(@ScriptDir & "/InstantDemo.exe")

Case $Button13
	MsgBox(64,"BİLGİ", "ADEM SEZGİN")

Case $GUI_EVENT_CLOSE
Exit

EndSwitch
WEnd

Link to comment
Share on other sites
blue_life Newbie

blue_life

Posted
Posted

@ x_files_x

Exe dosyalar için ShellExecute yerine Run kullanman daha mantıklı!

#Region ;**** Directives created by AutoIt3Wrapper_GUI ****
#AutoIt3Wrapper_Icon=J:\IKONLAR\Web1.ico
#AutoIt3Wrapper_Compression=0
#EndRegion ;**** Directives created by AutoIt3Wrapper_GUI ****

#include <ButtonConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>

Global $Get_WaweVolume = _SoundGetWaveVolume()
Global $Read_Slider

$Form1 = GUICreate("ResOurce X", 450, 280, 192, 124)
$Button1 = GUICtrlCreateButton("AIMP2 Player", 8, 128, 81, 33, $WS_GROUP)
$Button2 = GUICtrlCreateButton("TEMİZLİK", 104, 128, 81, 33, $WS_GROUP)
$Button3 = GUICtrlCreateButton("ResOurce Tools", 8, 176, 81, 33, $WS_GROUP)
$Button4 = GUICtrlCreateButton("IDMAN TR", 104, 176, 81, 33, $WS_GROUP)
$Button5 = GUICtrlCreateButton("FOLDERICON", 8, 224, 81, 33, $WS_GROUP)
$Button6 = GUICtrlCreateButton("Everything Tr", 104, 224, 81, 33, $WS_GROUP)
$Button7 = GUICtrlCreateButton("ProcX Taskman", 264, 128, 81, 33, $WS_GROUP)
$Button8 = GUICtrlCreateButton("Quick Startup", 360, 128, 81, 33, $WS_GROUP)
$Button9 = GUICtrlCreateButton("AUTOIT", 264, 176, 81, 33, $WS_GROUP)
$Button10 = GUICtrlCreateButton("Thinstall Tr", 360, 176, 81, 33, $WS_GROUP)
$Button11 = GUICtrlCreateButton("Regshot Tr", 264, 224, 81, 33, $WS_GROUP)
$Button12 = GUICtrlCreateButton("InstantDemo Tr", 360, 224, 81, 33, $WS_GROUP)
$Button13 = GUICtrlCreateButton(" TIKLA ", 192, 232, 65, 25, $WS_GROUP)

Global $slider = GUICtrlCreateSlider(174, 260, 150, 15)
GUICtrlSetLimit(-1, 100, 0)
GUICtrlSetData($slider, $Get_WaweVolume)
SoundPlay(@ScriptDir & "\adem.mp3", 0)
$Pic1 = GUICtrlCreatePic("J:\RESiMLER\WALLPAPER XP\Dragon Heart.jpg", 0, 0, 449, 273, BitOR($SS_NOTIFY, $WS_GROUP, $WS_CLIPSIBLINGS))
GUISetState(@SW_SHOW)
While 1
	$nMsg = GUIGetMsg()
	Switch $nMsg
		Case $slider
			$Read_Slider = GUICtrlRead($slider)
			SoundSetWaveVolume($Read_Slider)

		Case $Button1
			ShellExecute(@ScriptDir & "/AIMP2 Tr.exe")

		Case $Button2
			ShellExecute(@ScriptDir & "/SISTEM TEMIZLIK.exe")

		Case $Button3
			ShellExecute(@ScriptDir & "/Resource Tools.exe")

		Case $Button4
			ShellExecute(@ScriptDir & "/Internet Download Manager.exe")

		Case $Button5
			ShellExecute(@ScriptDir & "/Klasor ikon degiş.exe")

		Case $Button6
			ShellExecute(@ScriptDir & "/Everything Tr.exe")

		Case $Button7
			ShellExecute(@ScriptDir & "/ProcX.exe")

		Case $Button8
			ShellExecute(@ScriptDir & "/Quick Startup.exe")

		Case $Button9
			ShellExecute(@ScriptDir & "/AUTOIT.exe")

		Case $Button10
			ShellExecute(@ScriptDir & "/Thinstall Katılımsız")

		Case $Button11
			ShellExecute(@ScriptDir & "/Regshot.exe")

		Case $Button12
			ShellExecute(@ScriptDir & "/InstantDemo.exe")

		Case $Button13
			MsgBox(64, "BİLGİ", "ADEM SEZGİN")

		Case $GUI_EVENT_CLOSE
			Exit

	EndSwitch
WEnd

Func _SoundGetWaveVolume()
	Local $WaveVol = -1, $p, $ret
	Const $MMSYSERR_NOERROR = 0
	$p = DllStructCreate("dword")
	If @error Then
		SetError(2)
		Return -2
	EndIf
	$ret = DllCall("winmm.dll", "long", "waveOutGetVolume", "long", -1, "long", DllStructGetPtr($p))
	If ($ret[0] == $MMSYSERR_NOERROR) Then
		$WaveVol = Round(Dec(StringRight(Hex(DllStructGetData($p, 1), , 4)) / 0xFFFF * 100)
	Else
		SetError(1)
	EndIf
	$Struct = 0
	Return $WaveVol
EndFunc   ;==>_SoundGetWaveVolume

Link to comment
Share on other sites

Archived

This topic is now archived and is closed to further replies.

Go to topic listing

  • Recently Browsing   0 members

    No registered users viewing this page.

×
×
  • Create New...