Oracle, Web, Script, SQLserver, Tips & Trick

November 18, 2017

How to Install DosBox with QBASIC

Filed under: dos,qbasic — sikathabis @ 10:35 pm
Tags: , , ,
  1. First you must download dosbox on this link
    https://www.dosbox.com/download.php?main=1
    If your Operating System (OS) Windows choose Windows, if your OS Mac OS X
  2. Download QBASIC on this link http://www.qbasic.net/en/qbasic-downloads/compiler/qbasic-interpreter.htm
  3. Extract zip file from point 2 to new folder example c:\oldDos\qbasic
  4. Run DosBox , shortcut on the Desktop or programs Clipboard01
  5. Type mount C c:\oldDos
  6. Type c:\
  7. Type CD\qbasic
  8. Type Qbasic, now you can use Qbasic

 

Advertisements

January 15, 2013

Cara menghapus record pada operasi file sequential (Quick Basic)

Filed under: qbasic — sikathabis @ 7:37 pm
Tags:

Cara menghapus record pada operasi file sequential / text file menggunakan Quick Basic

Sebagai Ilustrasi ada menu sebagai berikut

hapus01

 

Tampilkan data per halaman, lalu ada input-an baris berapa yang akan dihapus, jika diinput (> 0) maka hapus record pada file

hapus02

 

Setelah terhapus refresh

hapus03

Berikut kutipan source-nya

'Label menu untuk menghapus record
 (more...)

Membuat procedure delay pada Quick Basic

Filed under: dos,qbasic — sikathabis @ 3:48 am
Tags: ,
SUB DELAY (SECOND!) STATIC

BEGIN! = TIMER
DO UNTIL (TIMER - BEGIN! > SECOND!) OR (TIMER - BEGIN! < 0)
LOOP

END SUB

‘cara penggunaan

DELAY 0.5 'maksudnya akan ada jeda (delay) selama 1/2 detik

Contoh program pengurutan menggunakan algoritma Bubble Sort (Quick Basic)

Filed under: qbasic — sikathabis @ 3:37 am
Tags: ,

‘Contoh program pengurutan nomor laporan menggunakan algoritma Bubble Sort (QBASIC)

'Variabel array
DIM no(100) AS INTEGER
DIM nama(100) AS STRING

'Variabel sementara
DIM tmpno AS INTEGER
DIM tmpnama AS STRING
CONST maxdata = 4

CLS

'Data awal
no(1) = 2
nama(1) = "Iqbal"
no(2) = 4
nama(2) = "Reza"
no(3) = 1
nama(3) = "Fariz"
no(4) = 3
nama(4) = "Rangga"

PRINT "TAMPILAN SEBELUM DI SORT"
FOR i = 1 TO maxdata
    PRINT no(i); "    "; nama(i)
NEXT i

PRINT STRING$(80, "-")

'Proses pengurutan memakai algoritma Bubblesort
FOR i = 1 TO maxdata
    FOR j = i TO maxdata
        IF no(i) > no(j) THEN
            tmpno = no(i)
            no(i) = no(j)
            no(j) = tmpno
            tmpnama = nama(i)
            nama(i) = nama(j)
            nama(j) = tmpnama
        END IF
    NEXT j
NEXT i

PRINT "TAMPILAN SETELAH DI SORT BERDASARKAN NOMOR"
FOR i = 1 TO maxdata
    PRINT no(i); "    "; nama(i)
NEXT i

bubblesort
Menggunakan metode ini tergolong paling mudah algoritma-nya akan tetapi paling lama proses pengurutannya. 
Ada algoritma lain yang lebih cepat proses pengurutannya, seperti Quick Sort, Heap Sort ...

December 6, 2012

Membuat report dan teknik switching dalam Quick Basic

Filed under: dos,qbasic — sikathabis @ 8:16 am
Tags: ,

Contoh output Laporan

report

Contoh Output teknik switching

kw1

Download teknik switching

Download source laporan dan switching

Download SWITCHING

Create a free website or blog at WordPress.com.

Pureblood

DONT WANNA BE NUMBER ONE

Learning is not a spectator sport

Connor McDonald on SQL and the Oracle Database

Teknologi Pendidikan

Just another WordPress.com weblog

KATAKAMI

Jurnalisme Yang Dapat Dipercaya

Tonk Kosonk Baonk Bunyinya

Penampungan Serapah Tanpa Sumpah

Qey050489's Blog

Ayo Bangkit sobat..!!!!!

B. S. Totoraharjo

Orang Desa Yang Mencintai Desa dan Kebudayaannya

culturekitchen foodlab

New Food and Art in Yogyakarta

Wahyu Catur Wibowo

Musafir Dunia Maya

SQL.... Still Learning

My Reference on SQL Server

arihdyacaesar

"Tuhan tidak menuntut kita untuk menang. Tuhan hanya meminta kita untuk berjuang tanpa henti.” -ean-

neinframe

Street Photography is like a box of a chocolates, you're never know what you're gonna get - Thomas Leuthard -

Be a good Moeslim

Menuju Pribadi Muslim Sejati yang Bertaqwa

TuanSUFI

Manajemen Sholat, renungan spiritual, Teknologi Informasi

Pelangi di khatulistiwa....

Mari berbagi kebaikan, pengalaman dan senyum denganku

Angkasa13

Ceritanya saya, Pikirannya saya, Hatinya saya

sikathabis

sikathabis semua informasi disini

Don Charisma

because anything is possible with Charisma