Sub play_sound(path as string)
Dim jo As JavaObject = Me
jo.RunMethod("playWav", Array As Object(path))
End Sub
Sub stop_sound
Dim jo As JavaObject = Me
jo.RunMethod("stopWav", Null)
End Sub
#if java
import javax.sound.sampled.AudioSystem;
import javax.sound.sampled.Clip;
import java.io.File;
private static Clip clip;
public static void playWav(String wavFilePath) {
try {
clip = AudioSystem.getClip();
clip.open(AudioSystem.getAudioInputStream(new File(wavFilePath)));
clip.start();
} catch (Exception e) {
e.printStackTrace();
}
}
public static void stopWav() {
if (clip != null && clip.isRunning()) {
clip.stop();
}
}
#End If