再次运行功能的条件

时间:2019-11-18 04:41:04

标签: vb.net console-application

这是我的代码

Sub Main()

    process()

    Console.WriteLine("Ulangi Pencarian? (Y/N)?")
    strUlangi = Console.ReadLine()

    'conditions for searching
    If strUlangi.ToUpper = "Y" Then

        Console.WriteLine()
        process()
        Console.WriteLine()

    Else

        Console.WriteLine()
        Console.Write("Press any key to exit")
        Console.ReadKey()

    End If

  End Sub

 Sub process()

    Console.WriteLine("Masukan Kode Mahasiswa : ")
    decKodeMhs = Console.ReadLine()

    Console.WriteLine("Masukan Kode Matakuliah : ")
    decKodeMatkul = Console.ReadLine()
    Console.WriteLine()

    Console.WriteLine("Hasil Pencarian : ")
    Console.WriteLine("Nilai Mahasiswa A.N " & strNamaMhs(decKodeMhs) & " untuk Matakuliah " & StrNamaMatkul(decKodeMatkul) & " adalah " & intNilaiMhs(decKodeMhs, decKodeMatkul))
    Console.WriteLine()

 End Sub

我想如果我输入“ Y”,过程功能将再次运行。它的工作,但当我输入decKodeMatkul的变量时,该应用程序将退出。为什么??请有人告诉我

1 个答案:

答案 0 :(得分:0)

我认为你应该把         Console.ReadKey() 在代码末尾。

Sub Main()

    process()
    Console.WriteLine("Ulangi Pencarian? (Y/N)?")
    strUlangi = Console.ReadLine()
    'conditions for searching
    If strUlangi.ToUpper = "Y" Then
        Console.WriteLine()
        process()
    Else
        Console.WriteLine()
        Console.Write("Press any key to exit")
    End If
    Console.ReadKey()
End Sub

Sub process()
    Console.WriteLine("Masukan Kode Mahasiswa : ")
    decKodeMhs = Console.ReadLine()

    Console.WriteLine("Masukan Kode Matakuliah : ")
    decKodeMatkul = Console.ReadLine()
    Console.WriteLine()

    Console.WriteLine("Hasil Pencarian : ")
    Console.WriteLine("Nilai Mahasiswa A.N " & strNamaMhs(decKodeMhs) & " untuk Matakuliah " & StrNamaMatkul(decKodeMatkul) & " adalah " & intNilaiMhs(decKodeMhs, decKodeMatkul))
    Console.WriteLine()

End Sub

您的process()实际上可以工作,但是它执行的太快,然后关闭,因此您认为它刚刚关闭。