标签: qbasic

使用虚拟机编译(例如JVM)相对于本机编译语言有什么好处?

我听说java的优势在于人们可以编写代码,为JVM编译代码,并在任何地方运行代码.每个人只需要一个适用于他们平台的JVM应用程序.

当然,它看起来类似于当前的情况,每个人都有一个特定于他们平台的编译器.因此没有解释这个优点.但我认为我看到了解释..问题必须是在java情况下,你不能或不想以特定于操作系统的方式直接访问真机.

我想这意味着在其他语言中,代码本身必须根据运行的计算机进行修改.

任何人都可以提供一个简短的例子,就像一个演示这个的Hello World程序吗?毫无疑问,它将在非Java中,例如C.

因为它不是通常在Hello World程序中发生的事情,或者是我在java上使用过的书籍以来最常见的事情,所以不幸的是"如何编程"样式书,而且其中的所有内容都没有演示它(也许'他们不能或不想用java来演示它!).虽然他们大肆宣扬它是一个很大的优势.我想看看它的例子.

c java pascal qbasic

17
推荐指数
2
解决办法
1万
查看次数

这是一个旧的学校IF声明给你,但有一个问题

我在QBASIC中有一个IF声明......是的... QBASIC ......

我一直在教别人编程(我认为这很好,很容易看出语法是如何工作的).

......无论如何,我有这个代码:

CLS

start:
INPUT ">>", a$

PRINT a$
IF (INSTR(a$, "do you")) THEN
    IF (INSTR(a$, "like")) THEN
        IF (INSTR(a$, "cheese")) THEN PRINT "Yep, I like cheese":
        IF (INSTR(a$, "music")) THEN PRINT "Depends, which genre?": GOTO musicGenre
    ELSE IF (INSTR(a$, "hate")) THEN
            IF (INSTR(a$, "cheese")) THEN PRINT "No, I like cheese"
        END IF
    END IF
END IF


musicGenre:
INPUT ">>", m$
SELECT CASE (m$)
    CASE "pop"
        PRINT "..pop! lol, baa baa"
    CASE "rock"
        PRINT "Rock is ok" …
Run Code Online (Sandbox Code Playgroud)

qbasic

14
推荐指数
1
解决办法
1116
查看次数

寻找用C#重写的Nibbles游戏

我正在编写一个控制台应用程序,它将启动长时间运行的进程.因此,我不想让用户盯着屏幕几分钟,而是喜欢将我的处理工作放在后台线程上,让用户同时玩游戏.

如果你是我的年龄,你肯定记得用DOS随附的QBasic写的Nibbles游戏多年.我记得几年前读过有人在C#控制台模式下重写了它.但我找不到它.谁知道我可以抓住它?

c# qbasic

8
推荐指数
1
解决办法
1153
查看次数

QBasic语言规范

我被朋友挑战在QBasic中编写QBasic编译器.

我在哪里可以找到最新版本语言的语言规范?

specifications basic qbasic

8
推荐指数
2
解决办法
929
查看次数

如何在PHP中读取RS232串口,就像这个QBasic程序一样

我正在尝试将以下小型QBASIC程序(可以100%工作)移植到PHP:

OPEN "com1:2400,n,8,1,DS," FOR RANDOM AS #3
OPEN "data.dat" FOR OUTPUT AS #2
REM read 17 chars from the port
scale$ = INPUT$(17, #3)
PRINT scale$
WRITE #2, scale$
CLOSE #2
CLOSE #3
SYSTEM
Run Code Online (Sandbox Code Playgroud)

目前我从PHP(在WAMP5上)以编译(exe)形式调用它,但我想摆脱QBASIC并直接从PHP调用它.

我写了这个PHP函数,但它只是挂在fgets()行:

function read_port($port='COM1:', $length=17, $setmode=TRUE, $simulate='') {
    if ($simulate){
        $buffer = '"'.strval(rand(1000, 2000));
        return $buffer;
    }
    if ($setmode){
        shell_exec('mode com1: baud=2400 parity=n data=8 stop=1 to=on xon=off odsr=on octs=on dtr=on rts=on idsr=on');
    }
    $fp = fopen($port, "rb+");
    if (!$fp) {
        file_put_contents('debug1.log','COM1: could not open'."\n",FILE_APPEND);
    } else …
Run Code Online (Sandbox Code Playgroud)

php hardware-interface qbasic

6
推荐指数
2
解决办法
3万
查看次数

如何将QBASIC PLAY命令转换为更现代的东西?

我在我的QB应用程序中播放命令,如下所示:

PLAY "MSe8f#4f#8f#8g8a8b4.a4.g4.f#4.o0b8o1e8e8e4d8e2."
Run Code Online (Sandbox Code Playgroud)

我想将这些转换成现代应用程序可以使用的东西.有什么想法吗?我正在搞乱FreeBasic中的应用程序.

audio dos freebasic qbasic quickbasic

6
推荐指数
2
解决办法
2773
查看次数

将程序从QBasic转换为Python

我试图转换我在Basic中制作的程序!(iOS上的QBASIC)到Python.我正在慢慢地通过Python for Dummies工作,但我仍然坚持如何转换FOR循环.有人可以帮忙吗?贝娄是QB代码.

REM Prime Numbers v2

REM Av 2.2 seconds for 1000
REM Av 5.3 seconds for 2000

INPUT "Prime numbers upto";limit
PRINT
t1 = TickCount
PRINT "2 3 ";
count = 2
FOR posprime = 3 TO limit STEP 2
    posfactor = 3
    prime = 1
    GOSUB testing
    IF prime = 1 THEN
        PRINT posprime " ";
        count = count + 1
    END IF
NEXT posprime
t2 = TickCount
PRINT
PRINT
PRINT count " prime numbers found"
PRINT …
Run Code Online (Sandbox Code Playgroud)

python qbasic

6
推荐指数
1
解决办法
1955
查看次数

如何查看Gwbasic .bas文件的源代码?

我有一个旧的.bas文件,我正在尝试查看并遇到一些问题.在线搜索似乎表明我应该能够在记事本或类似的情况下打开它,但这样做会给我带来胡言乱语,如下所示:

þ*©¿TÜ…7[/C̸yõ»€¹Ù<Ñ~Æ-$Ì™}³nFuJ,ÖYòÎg)ʇŒ~НDËðïþSnhœJN
‰=É™2+df”c).vX»[šû'Û9¹8%ñx5m#8úV4ÊBº)Eª;Iú¹ó‹|àÆ„72@ާi§Ë @îÑ?
í‘ú™ÞMÖæÕjYе‘_¢y<…7i$°Ò.ÃÅR×ÒTÒç_yÄÐ
}+d&jQ *YòÎg)ʇŒ~НDË?úŽ©Ž5\šm€S{ÔÍo—#ìôÔ”ÜÍѱ]ʵ¬0wêÂLª¡öm@Å„Ws雦 X
Ô¶æ¯÷¦É®jÛ ¼§
”n ŸëÆf¿´ó½4ÂäÌ3§Œ®
Run Code Online (Sandbox Code Playgroud)

我知道文件是合理的,因为我可以在Gwbasic中打开它.但是,列表似乎也无法查看文件.我还尝试从Gwbasic中以ascii格式保存文件,但这也不起作用.两者都给了我一个"非法函数调用"错误:

GW-BASIC 3.22
(C) Copyright Microsoft 1983,1984,1986,1987
60300 Bytes free
Ok
LOAD"Pwrharm
Ok
LIST
Illegal function call
Ok
SAVE "Pwrharm2",A
Illegal function call
Ok
RUN
[Program runs successfully]
Run Code Online (Sandbox Code Playgroud)

再次,RUN命令工作得很好.我究竟做错了什么?

basic reverse-engineering editor gw-basic qbasic

6
推荐指数
1
解决办法
1093
查看次数

为什么我们使用“End If”语句?

为什么我们要END IF在这个程序中写语句呢?不用写,我们就可以轻松得到我们的结果。有没有什么例子可以解释一下END IFstatement的用法?

我已经尝试过这个:

INPUT X
IF X>10 THEN PRINT "X IS GREATER THAN 10" ELSE PRINT "X IS NOT GREATER THAN 10"
END
Run Code Online (Sandbox Code Playgroud)

那么我也得到了预期的结果。

真正的代码是:

INPUT X
IF X>10 THEN 
    PRINT "X IS GREATER THAN 10"
ELSE
    PRINT "X IS NOT GREATER THAN 10"
END IF
END
Run Code Online (Sandbox Code Playgroud)

预期和期望
的示例:
When X=5Then 输出将为“X IS NOT GREATER THAN 10”。

if-statement basic qbasic

6
推荐指数
1
解决办法
2万
查看次数

我可以告诉 QB64 编译器*不*优化我的代码吗?

我想尝试各种算法的效率,编译器优化是一个障碍。我可以在 QB64 中禁用编译器优化吗?

basic compiler-optimization qbasic qb64

5
推荐指数
0
解决办法
104
查看次数