Operasi File - File Sequential Membaca & Menambahkan Isi File

B. Membaca Isi File
 1. > OPEN "I", #1, "ID.DAT" atau OPEN "ID.DAT" FOR INPUT AS #1
 2. > INPUT #1, nm$, tggl$, umur$
 3. > EOF(1)

Operasi File - File Sequential Membuat & Menyimpan Data

A. Membuat File baru dan Menyimpan Data.
 1. > OPEN "O",#1, "ID.DAT" atau OPEN "MHS.DAT" FOR OUTPUT AS #1
 2. > WRITE #1 atau PRINT #1
 3. > CLOSE #1 atau CLOSE 1
 => Penjelasan :
 >> Huruf "O" sebagai output untuk membuat file baru

Contoh Program Menggunakan SubRutin

SubRutin adalah program kecil yang melakukan tugas terterntu dan termasuk dalam bagian dari program secara keseluruhan.

Rumus:
[NamaLabel] :
statment 1

Contoh Program Menggunakan Function

Function yang saya ketahui itu, menentukan suatu nilai pada Nama Function-nya dan memiliki nilai balik sesuai dengan nilai ungkapannya dan daftar parameter bersifat optional.

Rumus :
FUNCTION namafunction [daftar parameter]

Pengulangan Menggunakan Do Until - Loop

Pengulangan Menggunakan Do Until - Loop adalah pengulangan bila kondisi salah dan berakhir bila kondisinya benar.

rumus:

DO UNTIL [kondisi]
statment

Pengulangan Menggunakan Do While - Loop

Pengulangan Menggunakan Do While - Loop adalah pengulangan bila kondisinya benar dan berakhir bila kondisinya salah.

Rumus :

DO WHILE [kondisi]

Pengulangan Menggunakan Do - Loop While

Pengulangan Menggunakan Do - Loop While adalah pengulangan yang tidak akan terjadi 1x pengulangan / mengulang terus-menerus dan Looping ini dengan kondisi Benar

rumus :
DO

Nested Looping For-Next / Pengulangan Bersarang Pola "K"

CLS
FOR a = 8 TO 1 STEP -1
    FOR b = 1 TO a
    PRINT b;
    NEXT b

Nested Looping For-Next / Pengulangan Bersarang Pola 2

CLS
FOR a = 1 TO 8
    FOR b = 1 TO a
        PRINT b;

Nested Looping For-Next / Pengulangan Bersarang Pola 1

Nested Looping For-Next / Pengulangan bersarang ini adalah suatu pengulangan di dalam pengulangan. Jadi, pengulangan yang di kerjakan terlebih dahulu adalah pengulangan yang paling dalam.


 For a = ...
   For b = ...

For-Next menggukanan STEP

For-Next menggukanan STEP

CLS
FOR s = 8 TO 1 step -1
    x = 2 ^ s

Pengulangan Menggunakan For-Next

CLS
FOR s = 1 TO 8
    x = 2 ^ s

Contoh Penggunaan Menggunakan "While - Wend"

CLS
hitung = 0
bilangan = 1
WHILE hitung < 50

Fungsi LEN & MOD pada Qbasic

Fungsi LEN(var$)

fungsi LEN pada qbasic sebagai penghitung panjang karakter yang terdapat pada string
contoh :

Menghitung Suhu dengan Data & Read

10 CLS
RESTORE
PRINT "Menghitung Suhu Fahrenheit ke Celcius dan Reaumur."
DATA 77,113

Pembelajaran QBASIC

Pembelajaran Qbasic

1. Pengulangan Menggunakan "IF"
2. Menghitung Suhu dengan Data & Read  
3. Fungsi LEN & MOD pada Qbasic
4. Contoh Penggunaan Menggunakan "While - Wend"
5. Pengulangan Menggunakan For-Next
6. For-Next menggukanan STEP 
7. Nested Looping For-Next / Pengulangan Bersarang Pola 1
8. Nested Looping For-Next / Pengulangan Bersarang Pola 2
9. Nested Looping For-Next / Pengulangan Bersarang Pola "K"
10. Pengulangan Menggunakan Do - Loop While
11. Pengulangan Menggunakan Do While - Loop
12. Pengulangan Menggunakan Do Until - Loop
13. Contoh Program Menggunakan Function 
14. Contoh Program Menggunakan SubRutin
15. Operasi File - File Sequential Membuat & Menyimpan Data
16. Operasi File - File Sequential Membaca & Menambahkan Isi File

Pengulangan menggunakan "IF"

Tugas PTSI 1 = Menghitung Upah Buruh

10 cls
print "Menghitung Upah Buruh"
tunjangan.anak = 100000
ongkos.kerja = 2500
input "NIB"; nib
input "Nama"; nama$