若葉ヘルパーサポート掲示板
[記事リスト] [新着記事] [ワード検索] [過去ログ] [管理用]

タイトル Re: ボリュームについて
投稿日: 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


- 関連一覧ツリー (▼ をクリックするとツリー全体を一括表示します)

- 返信フォーム (この記事に返信する場合は下記フォームから投稿して下さい)
おなまえ
Eメール
タイトル
メッセージ   手動改行 強制改行 図表モード
参照先
暗証キー (英数字で8文字以内)
  プレビュー

- 以下のフォームから自分の投稿記事を修正・削除することができます -
処理 記事No 暗証キー