*.bas Dateien welche Sprache?
Verfasst: 03.01.2008 10:23
Hallo ich habe hier eine Script sprache in einer *.bas Datei und ich weis nicht welche das ist...
nun ich würde gerne wissen was es für eine ist... bei google habe ich herausgefunden das es macros sein können oder auch QBasic... oder ist es ganz was anderes? hier mal ein code ausschnit.
nun ich würde gerne wissen was es für eine ist... bei google habe ich herausgefunden das es macros sein können oder auch QBasic... oder ist es ganz was anderes? hier mal ein code ausschnit.
Code: Alles auswählen
Public Sub StopMidi()
Dim I As Long
CurrentSong = ""
I = mciSendString("close all", 0, 0, 0)
End Sub
Public Sub MakeMidiLoop()
Dim SBuffer As String * 256
Call mciSendString("STATUS background MODE", SBuffer, 256, 0)
If Left$(SBuffer, 7) = "stopped" Then
Call mciSendString("PLAY background FROM 0", vbNullString, 0, 0)
End If
End Sub
Public Sub PlaySound(Sound As String)
If Val(GetVar(App.Path & "\config.ini", "CONFIG", "Sound")) = 1 Then
If FileExist("SFX\" & Sound) = False Then Exit Sub
Call sndPlaySound(App.Path & "\SFX\" & Sound, SND_ASYNC Or SND_NODEFAULT)
End If
End Sub
Public Sub StopSound()
Dim x As Long
Dim wFlags As Long
wFlags = SND_ASYNC Or SND_NODEFAULT
x = sndPlaySound("", wFlags)
End Sub