ab.com コミュニティ

何も出力されませんでした。なにがおかしいんでしょう｡･ﾟ･(ﾉД`)･ﾟ･｡

Dim Expression[ELM(3)] = ["Angry", "Enjoy", "Sad"] As String
Dim RnS As Long

Sub Menu_SPEAKBTM_Click()
ShowWindow(hMenu,SW_HIDE)
ShowWindow(hMessage,SW_SHOW)
RANDOMIZE
RnS=Int(Rnd()*3+1)
SetDlgItemText(hMessage, MesBox, Expression[RnS])
End Sub

質問ばかりだからなんとか自己解決しようとがんばっているんですがヘルプの説明が自分的に足りなくて｡｡｡
ほんとすみません。＿|＼○＿

Dim Expression[ELM(3)] = ["Angry", "Enjoy", "Sad"] As String

当方の環境では、このコードがエラーになりました。

Dim Expression[ELM(3)] = [0, 1, 2] As Long

これはエラーにならないことから、String型は(仕様なのか未対応なのかは不明ですが)初期値の設定ができないものと思われます。
対策としては…地道に代入するしかないでしょうね(^^;

_________________
[hira]
http://hira.hopto.org/

そういわれるとファイルから読み込んだほうがいいと思ったんですが
そっちのほうがめんどいんですよねぇ
ファイルの読込もできないですし(´A｀)←が。

おっとこれは失礼しました。
さてBytePtrにすれば動くかと思いましたがだめでした。
BytePtr型でだめならもはやバグかと思いバグ報告に書いておきました。

ファイルの入出力のコードなら書けるので書いておきます。

指定バイトごとに読み出す場合（ここでは、変数XByteに指定バイト数を代入してあるとして書く。）

'ファイルを開く
Open "a.txt" As #1
Field #1,XByte
'読み出し
Get #1,1,A$
Get #1,2,B$
    ・
    ・
    ・
'ファイルを閉じる
Close #1

一行ごとに読み出す場合（こっちの方が便利な場合も多い。）

'ファイルを開く
Open "a.txt" For Input As #1
'読み出し
Input #1,A$
Input #1,B$
    ・
    ・
    ・
'ファイルを閉じる
Close #1

文字列をByte型に変換するにはMid$関数や何かとAsc関数を使うなり、何か別のもっと便利な関数を使うなり何とかしてください。

コードを見た人は気が付いたと思いますが、僕はN88系BASICのスタイルが未だに抜けません。

_________________
Website→http://web1.nazca.co.jp/himajinn13sei/top.html
ここ以外の場所では「暇人13世」というHNを主として使用。

に署名を書き換えて欲しいと言われたので暇だしやってみるテスト。

んー　解決しないです、、、(´A｀)

とりあえず、以下の形で初期化を行い、プログラムの論理エラーを取る事に専念した方が良いと思います。

Dim Expression(2) As String

Expression(0) = "Angry"
Expression(1) = "Enjoy"
Expression(2) = "Sad"

論理エラーが取れたらファイルから、パラメータを取得出来るように改造します。

Const MaxParam = 1000      'パラメータの上限
Dim Expression(MaxParam) As String,i As Long
'読み出し
Open "Expression.txt" For Input As #1
i=0 
While (Eof(1)=False)
    Input #1,Expression(i)
    i=i+1
    If(i>MaxParam)Then
        'エラー処理を書く
    End If
Wend
Close #1

実行ファイルと同じ場所に、Expression.txtを作成し、その内容を

Angry
Enjoy
Sad

とします。

以上で、実行可能になると思います。

ちゃんと話してくれるようになりました！
助けて頂いた方々、ありがとうございました。
完成品はこちら
話すだけですが。。。