QBasic - Dice

Roll the dice and get a random number between 1 and 6. The force with which you roll the dice will influence the result. Program made for QBasic.

Downloads

English (EN)

dice-en.exe

Language: English

Executable for Windows, generated with QB64.

dice-en.bas

Language: English

Source code. You can generate an executable with it (using programs like QB64), you can use it on an old computer with QBASIC, or you can examine the code in case you are learning BASIC.

Spanish (ES)

dados-es.exe

Language: Spanish

(In Spanish) Ejecutable para Windows, generado con QB64.

dados-es.bas

Language: Spanish

(In Spanish) Código fuente. Puedes generar un ejecutable con el (usando programas como QB64), puedes usarlo en un antiguo computador con QBASIC, o puedes examinar el código en caso que estes aprendiendo BASIC.

Instructions

1. On the main screen.

• Press the ENTER key to continue to the dice rolling screen.
• Type END to end the program (In the Spanish version, type FIN).

2. On the dice roll screen.

• Press the A key to decrease the force with which the dice will be rolled, or the S key to increase the force (The force influences the result)
• Press ENTER to roll the dice.
• Then, press ENTER if you want to roll the dice again, or type END to end the program (in the Spanish version, type FIN)

For Windows executables, press the ALT and ENTER keys at the same time to enable fullscreen of the program.

Donations

You can use this software completely for free! On the other hand, donations are highly valuable to us. Your support allows us to meet our goals and continue developing games and apps. If this software has been useful to you, please consider making a donation.

Code

A small sample of the code:

Cls
Screen 7
Locate 2, 8: Print "▄▄▄▄   ▄▄▄▄▄   ▄▄▄▄  ▄▄▄▄▄"
Locate 3, 8: Print "█   █    █    █      █"
Locate 4, 8: Print "█   █    █    █      █▀▀▀"
Locate 5, 8: Print "█   █    █    █      █"
Locate 6, 8: Print "▀▀▀▀   ▀▀▀▀▀   ▀▀▀▀  ▀▀▀▀▀"
X = 80
Y = 80
For HE = 1 To 10
    For WI = 1 To 10
        Read A
        PSet (X, Y), A
        X = X + 1
    Next WI
    Y = Y + 1
    X = 80
Next HE
Dim ONE%(46)
Get (80, 80)-(90, 90), ONE%()

To see the complete code, download the file with extension ".bas" from this page.

Important note: Files with the ".bas" extension may be displayed incorrectly in various text editors. This is due to character encoding. It is recommended to open these files in programs such as QB64, QBasic, or Visual Studio Code in a DOS encoding (CP437).

Credits

Programmed by Gustavo Belemmi

Tested by Karol Hidalgo

Special thanks to my dad for teaching me BASIC.

Visit our website!

https://hidalemmi.com