Code: Select all
/*
Tocador
Copyright 2023 Benedito Carneiro
*/
#NoEnv
#SingleInstance, Force
SendMode, Input
SetBatchLines, -1
SetWorkingDir, %A_ScriptDir%
SoundSet 100
bc := Chr(0169) " 2023 Benedito Carneiro"
Gui, default
Gui, Font, s13 cWhite, Segoe UI
Gui, Color,003366
Gui, Add, Text,y20,Escolher a música:
Gui, Add, Button, h30 w80 gArquivo, Música
Gui, Add, Text,,Alterar o volume:
Gui, Font, cBlack
Gui, Add, ListBox, r4 vVolume gVolume, Volume máximo|Volume mínimo|Aumentar 10`%|Diminuir 10`%
Gui, Add, Text,,
Gui, Add, Button, h30 w80 gSair, Sair
Gui, Font, cYellow
Gui, Add, Text,, %bc%
Gui, Show
Return
Arquivo:
FileSelectFile, musica,,, Selecione o arquivo com a música
if ErrorLevel
Return
SoundPlay, %musica%, Wait
if ErrorLevel
MsgBox,16, Erro, O programa falhou ao tentar tocar
Return
Volume:
Gui, Submit, NoHide
Switch, %A_GuiControl%
{
case "Volume máximo" : SoundSet 100
case "Volume mínimo" : SoundSet 0
case "Aumentar 10%" : SoundSet +10
case "Diminuir 10%" : SoundSet -10
}
GuiControl,, Volume, |Volume máximo|Volume mínimo|Aumentar 10`%|Diminuir 10`%
Return
GuiEscape:
GuiClose:
Sair:
Gui,destroy
ExitApp