Contoh Program Qbasic

Program Untuk Menginput dan Mencetak


CLS
DIM P AS INTEGER
10 PRINT "menu"
PRINT "1. Input nama"
PRINT "2. Input NPM"
PRINT "3. Input Kelas"
PRINT "4. Cetak Semua"
PRINT "5. Exit"
INPUT "Pilihan menu?", P
SELECT CASE P
CASE 1
CLS
DIM NM AS STRING
INPUT "Nama:", NM
GOSUB 10

CASE 2
CLS
DIM NPM AS LONG
INPUT "NPM:", NPM
GOSUB 10
CASE 3
CLS
DIM KLS AS STRING
INPUT "Kelas:", KLS
GOSUB 10

CASE 4
CLS
PRINT "Nama:"; NM
PRINT "NPM:"; NPM
PRINT "Kelas:"; KLS
GOSUB 10

CASE 5
CLS
PRINT "see you next time "
END SELECT
END

Rekor Dunia Lari Dengan 4 " Kaki "

Lari 100 m dengan menggunakan 2 kaki mungkin sudah biasa, namun bagaimana jika lari menggunakan 4 kaki?? pasti bagi orang pada umumnya hal ini di anggap tabu tapi tidak bagi orang-orang ini.

Inilah Kenithci Ito pria asal negeri sakura yang mampu berlari menggunakan 4 kakinya. Bahkan Pria ini memecahkan rekor dunia yang di catat secara resmi.

Kenitchi Ito mampu memecahkan rekor dunia dengan berlari dengan jarak 100m hanya dengan 17,47 detik dan itu lebih cepat 1,11 detik dari rekor sebelumnya.

Kenitchi Ito berharap mampu menyamai rekor lari 100m tercepat yang di pegang oleh Usain Bolt. Meskipun BOlt berlari dengan 2 kakinya berbeda dengan Ito yang lari menggunakan kaki dan tangannya ( Seperti Kera ) . 

Dan Ito pun sangat bangga dengan prestasi yang ia raih . Karna tak semua orang mampu melakukan hal tersebut.