[リストへもどる]
一括表示
タイトルボリュームについて
記事No46
投稿日: 2008/05/15(Thu) 21:55:23
投稿者ひらい
いつもお世話になります、ひらいです。

ボリュームを下げても左から少し小さく鳴るだけで思うように下がりません。9900〜10000の間でpanが変わる事とボリュームが少し下がる変化はありますが、9900より下は変化ありません。
何かが足りないんでしょうか?以下ソースです。
Imports System.Drawing
Imports System.Windows.Forms
Imports Wakaba
Public Class Form1
Private WithEvents t As Wakaba.GameTimer
Private w As Wakaba.Helper
Private Sub HScrollBar1_Scroll(ByVal sender As System.Object, ByVal e As System.Windows.Forms.ScrollEventArgs) Handles HScrollBar1.Scroll
Label1.Text = HScrollBar1.Value
w.SoundVolume("test1", Label1.Text)
End Sub

Private Sub Form1_FormClosed(ByVal sender As Object, ByVal e As System.Windows.Forms.FormClosedEventArgs) Handles Me.FormClosed
w.Dispose()
End Sub

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Try
w = New Wakaba.Helper

'スクリーン初期化
w.Initialize(640, 480, Helper.ScreenColor.High, Helper.SpriteSize.Max1024)

w.SoundCreate("test1", My.Resources.soundtest1)
w.SoundVolume("test1", Label1.Text)
w.SoundPan("test1", 0)
w.SoundPlay("test1", True)


w.ScreenChange(Helper.ScreenMode.Window)

Catch ex As Exception
MessageBox.Show(ex.Message & ex.StackTrace)
End Try


End Sub
End Class

タイトルRe: ボリュームについて
記事No47
投稿日: 2008/05/17(Sat) 17:04:52
投稿者田村(管理人)
参照先http://denkabow.com/
ひらいさん、こんにちは。

この現象は、若葉ヘルパーの問題です。
修正します。

ご指摘、ありがとうございました。

> いつもお世話になります、ひらいです。
>
> ボリュームを下げても左から少し小さく鳴るだけで思うように下がりません。9900〜10000の間でpanが変わる事とボリュームが少し下がる変化はありますが、9900より下は変化ありません。
> 何かが足りないんでしょうか?以下ソースです。
> Imports System.Drawing
> Imports System.Windows.Forms
> Imports Wakaba
> Public Class Form1
> Private WithEvents t As Wakaba.GameTimer
> Private w As Wakaba.Helper
> Private Sub HScrollBar1_Scroll(ByVal sender As System.Object, ByVal e As System.Windows.Forms.ScrollEventArgs) Handles HScrollBar1.Scroll
> Label1.Text = HScrollBar1.Value
> w.SoundVolume("test1", Label1.Text)
> End Sub
>
> Private Sub Form1_FormClosed(ByVal sender As Object, ByVal e As System.Windows.Forms.FormClosedEventArgs) Handles Me.FormClosed
> w.Dispose()
> End Sub
>
> Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
> Try
> w = New Wakaba.Helper
>
> 'スクリーン初期化
> w.Initialize(640, 480, Helper.ScreenColor.High, Helper.SpriteSize.Max1024)
>
> w.SoundCreate("test1", My.Resources.soundtest1)
> w.SoundVolume("test1", Label1.Text)
> w.SoundPan("test1", 0)
> w.SoundPlay("test1", True)
>
>
> w.ScreenChange(Helper.ScreenMode.Window)
>
> Catch ex As Exception
> MessageBox.Show(ex.Message & ex.StackTrace)
> End Try
>
>
> End Sub
> End Class

タイトルRe^2: ボリュームについて
記事No48
投稿日: 2008/05/18(Sun) 22:35:30
投稿者ひらい
調査いただきありがとうございます。
とりあえず別のものを使用します。修正版が公開されるのを楽しみにしています。

タイトル新バージョン公開しました
記事No49
投稿日: 2008/05/25(Sun) 19:54:32
投稿者田村(管理人)
参照先http://denkabow.com/
ひらいさん、こんばんは。
問題を修正した若葉ヘルパー2.41を公開しました。
お試しください。

> 調査いただきありがとうございます。
> とりあえず別のものを使用します。修正版が公開されるのを楽しみにしています。

タイトルRe: 新バージョン公開しました
記事No50
投稿日: 2008/07/01(Tue) 11:23:46
投稿者ひらい
改良いただきましてありがとうございます。感謝感激!
早速使用してみます。