将两个模块设置为一个控制台应用程

时间:2012-11-30 09:11:50

标签: .net vb.net

我做了两个控制台应用程序,都计算了3D CAD程序的数据。一个计算正常数据,另一个计算对数形式的相同数据。 现在我想在一个控制台应用程序中同时拥有它们。用户需要在命令窗口中选择是使用普通的还是对数的。 我尝试将这两个放在一个不同的子中,并使用如下的主子:

Module Module1
    Sub Main()
        Console.Write("Logarithmic? (yes/no):")
        While Console.ReadLine = "no"
            Call normal()
        End While
        While Console.ReadLine = "yes"
            Call log()
        End While
    End Sub 

这不起作用,因为它只摧毁了第一个潜艇。 或者有没有办法可以调用不同的模块或什么?

1 个答案:

答案 0 :(得分:1)

你有两个独立的循环,这意味着它只在第一个循环中检查“no”,并且只在第二个循环中检查“yes”;假设你想要循环,那么方法应该是(伪代码)

keepGoing = true;
while(keepGoing)
   line = ReadLine
   switch(line)
       case "no"
           normal();
       case "yes"
           log()
       default
           keepGoing = false