PureBasic Forums - English

I need to start an external program via RunProgram (), this program is launched between Repeat and ForEver commands ... how can I prevent the software from being launched infinitely?

Repeat

RunProgram ()

Forever

Hi,

have you really enabled Administrator mode in Compiler options?

This works here:

CompilerIf Defined(SYSTEMTIME, #PB_Structure) = 0
Structure SYSTEMTIME
wYear.w
wMonth.w
wDayOfWeek.w
wDay.w
wHour.w
wMinute.w
wSecond.w
wMilliseconds.w
EndStructure
CompilerEndIf

Define SetTime ...

As Administrator:
; enable admin-modus!
CompilerIf Defined(SYSTEMTIME, #PB_Structure) = 0
Structure SYSTEMTIME
wYear.w
wMonth.w
wDayOfWeek.w
wDay.w
wHour.w
wMinute.w
wSecond.w
wMilliseconds.w
EndStructure
CompilerEndIf

Define SetTime.SYSTEMTIME
SetTime\wDay = 25
SetTime\wMonth = 12 ...

Hello
I could use a little program to change the date and system time , I used the following code

Structure Time
Giorno.w
Mese.w
Anno.w
Ora.w
Minuti.w
Secondi.w
EndStructure

Dim SetTime.Time(1)
SetTime(1)\Giorno=25
SetTime(1)\Mese=12
SetTime(1)\Anno=2015
SetTime(1)\Ora=23
SetTime(1 ...

What if I want to have only one slider to control overall volume?

PS. Maybe you could help me create a digital VU-meter to be inserted in the code? InitSound()
UseOGGSoundDecoder()

Enumeration
#Vol_001 = 1
#Vol_002 = 2
#Vol_003 = 3

#Btn_001 = 4
#Btn_002 = 5
#Btn_003 = 6
#Btn_004
#Btn ...

Thank you, but I want to change the volume of just one and you do not all sound ... Hi PremierePRO. I've modified the code to individually control the volumes of the sounds, pause and resume their playback by toggling their buttons, and even display their status (paused or playing) :
InitSound ...

InitSound()
UseOGGSoundDecoder()

Enumeration
#Win
#Text_
#Btn_001
#Btn_002
#Btn_003
#Btn_004
#Btn_005
EndEnumeration

DataSection
IncludePath "E:\Music\"
s001: IncludeBinary "your1.ogg": End_s001:
s002: IncludeBinary "your2.ogg": End_s002:
s003: IncludeBinary "your3.ogg": End_s003 ...

InitSound()
UseOGGSoundDecoder()

Enumeration
#Win
#Text_
#Btn_001
#Btn_002
#Btn_003
#Btn_004
#Btn_005
EndEnumeration

DataSection
IncludePath "E:\Music\"
s001: IncludeBinary "your1.ogg": End_s001:
s002: IncludeBinary "your2.ogg": End_s002:
s003: IncludeBinary "your3.ogg": End_s003 ...

Works fine for me, but I have not tested more sounds than the 3 here....

InitSound()
UseOGGSoundDecoder()

Enumeration
#Win
#Text_
#Btn_001
#Btn_002
#Btn_003
#Btn_004
#Btn_005
EndEnumeration

DataSection
IncludePath "E:\Music\"
s001: IncludeBinary "your1.ogg": End_s001:
s002 ...

Is there a way to assign a larger amount of memory to software?

At the same code, I tried to integrate the sounds in ogg format (100mb less) but are not played .....

Someone, if I recall, I said that ogg can not be used with IncludeBinary but must be converted into code, I used a code in the forum ...

Still the same error!

I can not figure it out, maybe there is a limit of files that can be included?

Maybe I should load the sounds from the hdd, but I'd need them to be loaded from the directory where you installed the software ....

InitSound()
UseOGGSoundDecoder()

Enumeration
#Win
#Text_
#Btn_001
#Btn_002
#Btn_003
#Btn_004
#Btn_005
EndEnumeration

DataSection
s001: IncludeBinary "any.wav"
s002: IncludeBinary "any1.wav"
s003: IncludeBinary "any.wav"
EndDataSection

CatchSound(1, ?s001,?s002-?s001)
CatchSound(2 ...

you need to tell it how much to read


CatchSound(1, ?s001,?s002-?s001)
CatchSound(2, ?s002,?s003-?s002)
CatchSound(3, ?s003)



I do not understand ? :oops:

Did you replace try to replace it in your code ?

When you use the function catch sound, you need to tell it the length to read
The ...

idle wrote:you need to tell it how much to read

Code: Select all

CatchSound(1, ?s001,?s002-?s001)
CatchSound(2, ?s002,?s003-?s002)
CatchSound(3, ?s003)

I do not understand ?

LoadSound(1, GetPathPart(ProgramFilename()) + "s001.wav")

In reference to what? To upload files from the folder of the software?

I have to code
InitSound()
UseOGGSoundDecoder()

Enumeration
#Win
#Text_
#Btn_001
#Btn_002
#Btn_003
#Btn_004
#Btn_005
EndEnumeration

DataSection
s001 ...