问题标签 [qbasic]

我正在尝试将旧的 Quick BASIC 程序转换为 VB.Net。似乎没有任何直接替代旧文件语句的方法。对于我的简单需求，构建数据库似乎有点过头了。

如何在 VB.Net 中执行以下操作？

我目前正在将一个程序从 QBasic 翻译为 VB.Net，并且我有这行代码：

我把它翻译成

对于 VB.Net，但结果不同。以下是一些信息：

PI = 3.141592654

对于我的测试，
我使用“ 6.8929106501697825 ”作为我的X(Z, 2)价值，
我使用“ -5.08864764726704 ”作为我的X(Z, 1)价值

QBasic 的结果是：323.9964
VB.Net 的结果是：323.5636369944437

我做错什么了吗？

谢谢

我有一本关于学习 BASIC 编程的旧书。它写得很好，很有趣，并且在教授计算机编程的第一步方面做得很好。这也是我的第一本关于编程的书，它为我开启了这一切。:)

现在有另一个人想学习编程，而且（因为我不能亲自教他）我想不出更好的书来推荐他。当然，这门语言已经过时了，但编程的基础知识并没有改变，而且这本书写得很好，我还没有看到过类似的东西（诚然，我没有看过）。

只有一个问题——因为这本书很旧，它是关于一些 BASIC 方言的，这些方言曾经在大约 25 年前在大型机上流行过（或者我认为是这样）。这是强制性的行号，没有适当的文本编辑器（所有编辑都通过行号在命令行上进行）等。当我第一次拿着这本书时，这已经严重过时了。

对我（和其他人）来说幸运的是，我发现语法几乎与 Microsoft QBasic 完全兼容。我记得的唯一区别是，书中的字符串变量必须以¤while QBasic required为后缀$。不知何故，它们都以旧键盘上的同一个键结束，所以我自己发现了这一点。

现在，我可以推荐使用 QBasic 或 QuickBasic，但我想知道是否没有更好、更现代的东西。文本模式屏幕、有限的慢速图形和 64K 可用 RAM 有点教育意义，但是......

有什么建议么？

我的 QB 应用程序中有这样的播放命令：

我想以某种方式将这些转换为现代应用程序可以使用的东西。有什么想法吗？我目前正在使用 FreeBasic 中的应用程序。

有时我需要在屏幕的某个位置写东西（例如：第 10 列和第 20 行）。我在网上搜索，发现它是通过使用 windows.h 的 windows 处理程序完成的。

是的，使用句柄很快但有点复杂，所以我编写了一个只使用 printf(string) 的类，并以适合屏幕的方式更改字符串，并且每个 printf 命令都填充整个 80x24 控制台屏幕。该类模仿 QBasic 的 CLS 、 LOCATE x,y 和 PRINT 命令。

问题：有没有一种更简单的方法可以到达屏幕中的任何位置并放置一个字符或一个点（绘图）而不使用 Windows 句柄或像我这样的慢速类？

我的 QBASIC 课程太慢了，我每秒只能使用几次。VC++ 10.0 Windows XP

谢谢你的时间。

这是我的课和一些例子：

我认为没有解决办法。

QBASIC有一些命令，例如将光标放在屏幕上某个位置的LOCATE (x, y) ，以及清除屏幕的CLS，这有助于控制台应用程序看起来干净。

ruby 有同样的功能吗？将它用于一个小项目可能会很好。

感谢您的帮助

我想从我的控制台中删除滚动条（就像在edit-command 中一样），因为我想制作一个类似 qbasic 的程序。我知道这是一个线程，但它在windows 7 32bit中对我不起作用。有人写道，您只需使控制台屏幕缓冲区的大小与控制台窗口的大小相同。
这不起作用：

即使我将csbi.dwSize.Xand设置Y为 10 或更小，滚动条也在那里。

我有一些使用标签的代码，它的一个例子如下：

如您所见，它使用标签保持跳出它所在的 For..Next 循环。我不知道有什么好方法可以将其更改为更好/正确的代码？例如，我通常可能会这样做：

但这会产生一个问题——FOR..NEXT 循环现在嵌套在 IF..THEN 中的一半。有关解决此问题的方法的任何建议？

我是 Python 新手，没有使用 QBasic 的经验。我在 Python 中运行了一个模拟，得出了理论上错误的值。然后我在 QBasic 中运行它并得出了理论上的预测值。

以下是测试用例。我只计算概率 P(0.9<%Y<=1.8) 所以计数必须在这些值范围内。1-random.random() 仅适用于这种情况，当我尝试将其用于所有情况时，他们仍然得出错误的值。这是理论上的结果，你可以看到它有什么不同：

y~u(0,1) = 0.575

y~exp(2) = 0.3371

x1~u(0,1) x2~u(0,2) = 0.4475

P(y=0.25)=0.8 P(y=1.5)=0.2 = 0.32

在 Python 中，模拟代码为：

这是 Python 输出，后面是它应该给出的值，但这显示了结果有多远。

在 QBasic 中，模拟代码是：

情况1：

案例二：

案例3：

案例4：

这是 QBasic 输出，它显示了这实际上是如何获得正确的结果的。

以上所有代码都对我有用，没有错误。我看不到用于获取值的算法有任何差异。不确定 Python 生成的数字是否与 QBasic 不同，以及这是否解释了这种行为背后的原因。

我对这两种语言都很陌生，但 QBasic 似乎非常原始，而且 Python 似乎更有可能得到正确的答案而 QBasic 得到错误的答案。但相反的情况正在发生。它似乎与代码中的任何差异无关。在翻译时，他们似乎都在说同样的话。

我对他们给出两种不同结果的原因很感兴趣。我更感兴趣的是为什么 Python 给出了错误的答案而 QBasic 给出了正确的答案。

是否有与 GW-BASIC 和 QBasic 的 DRAW 语句等效或实现的 Visual Basic（甚至 .NET 或 C++）？

我有一个非常古老的程序，它以 DRAW 语句的格式将图形输出为字符串，并希望在我正在用 Visual Basic 开发的 Windows 应用程序中呈现它们。