VBの添削をお願いします。

質問

VBの添削をお願いします。

先日
http://okwave.jp/qa/q5919602.html
で質問した者です。
(textboxの値の倍数が改行されながら表示されるようにするには?という主旨です。)

リンク先にもありますが下記の回答をいただきました。
Public Class Form1
Dim a As Integer
Dim b As Integer
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim b As Integer = 10
a = TextBox1.Text
lblMessage.Text = a & ControlChars.CrLf & a + b
End Sub
End Class

それで今度は下記の問いが出ました。
「表示されるのは最新の5行のみ」
Textbox内が10の場合、「60が表示された時点で10は消え、70が出た時点で20が消える」というものです。

このまま続けてもよし、Labelを5つ並べてもよし、とのことです。

で今回は前者で作ってみました。
lblmessage.textの上にlblmessage2.textを被せて隠しちゃえ、というやつなんですが、
模範解答とは程遠いんでしょうね。。。。

どなたか添削お願いできませんか。

回答No.4

WOPR · ベストアンサー

ANo.2 です。

まず、ANo.1 さんに謝っといた方がいいと思いますよ。

qc4 さんの最初の質問にあるコードを元に回答されていますので、TextBox1 に入力された数値の倍数の問題じゃなくなっていますよ。

記憶では 10 → 20 → 30 …　であり、2 → 4 → 6 → 8 …　を求められていたはず。
今だと 2 → 12 → 24 → 36 → 48 …　になっていますよ。
以前もお答えいましたが Dim b As Integer = 10 が不要です。

さて、私なりに添削してみます。

拝見しますに下記 3 行が足されただけのように見受けられますが…　思った通り動いてないのでは。

If m >= 50 Then
　　lblmessage2.Text = lblmessage2.Text & ControlChars.CrLf
End If

If m >= 50 Then の部分が何をしたいかはなんとなく分かります。「60 が表示された時点で 10 が消え」という部分を If 文で実現したかったのでしょう。

「最新の 5 行」という条件がいつのまにか「50 を含めて超えた場合」って勝手にすり替わっています。
TextBox1 に 10 だけではなく 2 とか 15 とか 200 とか入れてテストされていますか。

それから lblmessage2.Text に何も設定されていないので、どうなるかと言うと…

lblmessage2.Text = lblmessage2.Text（何も入っていない） & ControlChars.CrLf（改行）
↑
つまり何も表示されないが改行だけ表示されている。

なんだかんだでラベルを 5 つ並べるのをお勧めします。
「はい、わたしでも作れます。」とのことですが、一度こちらを作成されてから配列にチャレンジされるのがいいと思うのですが、いかがですか。

用意するもの
　Form1、Button1、TextBox1、lblMessage1、lblMessage2、lblMessage3、lblMessage4、lblMessage5

コード

Public Class Form1
　　Dim i As Integer = 0 ' 初期値
　　Dim c As Integer = 0 ' クリック数

　　Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
　　　　If String.IsNullOrEmpty(TextBox1.Text) Then
　　　　　　i = 0
　　　　Else
　　　　　　i = TextBox1.Text
　　　　End If

　　　　c = c + 1

　　　　If i * c > 100 Then
　　　　　　Exit Sub
　　　　End If

　　　　If c = 1 Then
　　　　　　lblMessage1.Text = i * c
　　　　ElseIf c = 2 Then
　　　　　　lblMessage2.Text = i * c
　　　　ElseIf c = 3 Then
　　　　　　lblMessage3.Text = i * c
　　　　ElseIf c = 4 Then
　　　　　　lblMessage4.Text = i * c
　　　　ElseIf c = 5 Then
　　　　　　lblMessage5.Text = i * c
　　　　ElseIf c > 5 Then
　　　　　　lblMessage1.Text = lblMessage2.Text
　　　　　　lblMessage2.Text = lblMessage3.Text
　　　　　　lblMessage3.Text = lblMessage4.Text
　　　　　　lblMessage4.Text = lblMessage5.Text
　　　　　　lblMessage5.Text = i * c
　　　　End If

　　End Sub
End Class

こうなりました。いかがでしょうか。

お礼

lblmessage1の上にlblmessage2を重ねて配置しています。
で60が表示されると同時にlblmessage2にブランク" "が入るようにしています。
条件だけは満たす形になったのですが。

クリック数も変数にできるんですね。
で、表示される数の一番小さい数が上にずれるようになっているんですね。

IF文のところがまだ私には全部理解できませんが、
とにかく丁寧に書いてくださったおかげで、
自分で丸写しして確認ができました。

ありがしうございます。

回答No.3

Wendy02

#1の回答者です。配列は、VBでは初歩だとは思いますが、何かダメ出しのような気もしますので、暫定球を出しておきます。以下のような方法も可能です。

>出題者がIF文の羅列を求めているとは思えないのですが
If 構文でも可能です。If文の羅列？悪くないと思います。
今回は、単に、Select Case は省スペースのために、使っただけです。

'//

Public Class Form1
　　Dim buf, buf1, buf2, buf3, buf4, buf5 As String
　　Dim i As Integer = 1
　　Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
　　　　Dim b As Integer = 10
　　　　Dim a As Integer
　　　　a = Val(TextBox1.Text)　'要件は前回と同じです。初期値0なら、Val不要です。
　　　　i = (i - 1) Mod 5 + 1
　　　　Select Case i
　　　　　　Case 1 : buf1 = a + buf + b : buf = buf1
　　　　　　Case 2 : buf2 = a + buf + b : buf = buf2
　　　　　　Case 3 : buf3 = a + buf + b : buf = buf3
　　　　　　Case 4 : buf4 = a + buf + b : buf = buf4
　　　　　　Case 5 : buf5 = a + buf + b : buf = buf5
　　　　End Select
　　　　lblmessage.Text = buf1 & ControlChars.CrLf & _
　　　　buf2 & ControlChars.CrLf & _
　　　　buf3 & ControlChars.CrLf & _
　　　　buf4 & ControlChars.CrLf & _
　　　　buf5 & ControlChars.CrLf
　　　　i = i + 1
　　End Sub
End Class

お礼

す、すみません。
かき回してしまいました。

頭の中がもうそんな感じで…。

ご厚意感謝しております。

回答No.2

WOPR

前回、回答したものです。

リンク先にもありますが、そのような回答はしておりません。落ち着いてください。
それから、添削しようにも今回 qc4 さんが考えたコードがありません。
私の見落としでしょうか。

考え方ですが、前回の概念を応用するなら Label を 5 つ並べる方をお勧めします。
見た目は美しくなりませんが、If 文を駆使して作れます。
このまま続けてもよしという方は、配列もしくは List<T> という概念が必要ですが習われましたか。
習っていないもしくは理解が追いついていないのであれば難易度が跳ね上がりますよ。

lblmessage.text の上に lblmessage2.text を被せて隠しちゃえという考え方がどうなるのかはイメージできませんが、あまり幸せな結果にならないような…

究極的にはプログラムは動けば勝ちなのですが、動いてますか。

模範解答というのは何を求められているのか存じませんが、前者であれば配列を使用している。
後者であれば Label の Text を操作している。というのが分かれば○なのではないでしょうか。

お礼

まったく返す言葉がございません。

Public Class Form1
Dim i As Integer
Dim m As Integer

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
i = TextBox1.Text
m = i + m
If m > 100 Then
Return
End If
lblmessage.Text = lblmessage.Text & ControlChars.CrLf & m

If m >= 50 Then
lblmessage2.Text = lblmessage2.Text & ControlChars.CrLf
End If

End Sub

End Class

以上を見ていただきたかったのですが。

>考え方ですが、前回の概念を応用するなら Label を 5 つ並べる方をお勧めします。
>見た目は美しくなりませんが、If 文を駆使して作れます。

はい、わたしでも作れます。
しかし、VBを初めてひと月とはいえ、出題者がIF文の羅列を求めているとは思えないのですが。。。。

List<T>は初対面です。配列使用もテキストを見て理解でき…ないところです。
「後者」は分かるんですが…。

回答No.1

Wendy02

TextBox1 は、0を入れていれば、10ずつ増加します。
配列とJoin を使いました。配列を使わないなら、5個の変数を使えばよいと思います。

'//
Public Class Form1
　　Dim ar(4) As String
　　Dim i As Integer
　　Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
　　　　Dim b As Integer = 10
　　　　Dim j As Integer
　　　　If ar(0) = "" Then ar(0) = "0"
　　　　i = (i + 5) Mod 5
　　　　j = (i + 1) Mod 5
　　　　'もし、TextBox1 のデフォルト値に0を入れるなら、Val は不要です。
　　　　ar(j) = ar(i) + Val(TextBox1.Text) + b
　　　　lblmessage.Text = Join(ar, ControlChars.CrLf)
　　　　i = i + 1
　　End Sub
End Class

お礼

ありがとうございます。
今日初めて、配列の存在を知ったのですが、
使い方がよくわからないでいます。

ただ、頂いたプログラムは問題なく動きました。

ご丁寧にありがとうございます。