メソッドの使い分けについて (ID:146372)

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文

メソッドには、subとFunctionがありますが、どちらを使えばよいのか
わからないことがあります。戻り値の有無と説明されてますが、
その戻り値についても判断しかねる場合が多々あります。

下記は、タイピングゲームを作ってみたのですが、いちおうsubメソッドで
作成しました。

これをFunctionでも記述できると思うのですが、その場合の記述の仕方が
今ひとつ理解が及びません。できれば、ご教授お願いします。

（ファイルをLabel1に読み込み全文を確認してから、スタートを押すと
  テキストボックスに1行ずつ文字列が表示されます。
  ストップでタイピングに要した時間が表示されます。）
Imports System.IO, System.Text
Public Class Form1
    Dim count As Integer
    Dim total As Integer
    Dim fname As String
    Dim n As Integer = -1
   
 ’スタートボタン
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        TextBox4.Visible = True
        Label1.Visible = False
        If Label1.Text = "" Then
            MessageBox.Show("ファイルを読み込んでください")
        Else
            mondai()
          
         End If
    End Sub

’ストップボタン
    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        Timer1.Stop()
        TextBox2.Text = total.ToString & "秒です"
    End Sub

Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick

count += 1
        total = count

End Sub

’問題文を1行ずつ表示するメソッド
    Private Sub mondai()
        TextBox1.Focus()
        ImeModeBase = Windows.Forms.ImeMode.Hiragana
        count = 0
        Timer1.Start()
        TextBox1.Text = ""
        TextBox2.Text = ""

Dim line As Integer
        line = File.ReadAllLines(fname).Length
        Dim str(line - 1) As String
        Dim sr As StreamReader = New StreamReader(fname, Encoding.Default)
        n += 1

For i As Integer = 0 To n
            If i < line Then
                str(i) = sr.ReadLine
                TextBox4.Text = str(i)
            Else
                n = -1

End If
        Next

sr.Close()
    End Sub
   
 'ファイルをLabel1に読み込む
    Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
        TextBox4.Visible = False
        Label1.Visible = True
        If OpenFileDialog1.ShowDialog() = Windows.Forms.DialogResult.OK Then
            Label1.Text = System.IO.File.ReadAllText(OpenFileDialog1.FileName, Encoding.Default)
            fname = OpenFileDialog1.FileName
        End If
    End Sub
End Class

←解決時は質問者本人がここをチェックしてください。

戻る