Contoh coodingan membuat struk pada qbasic

CLS

LOCATE 1, 15

PRINT "TOKO KA20"

LOCATE 2, 9

PRINT "KAMPUS E UNIV.GUNADARMA"

LOCATE 3, 12

PRINT "KELAPA DUA JABAR"

LOCATE 4, 5

PRINT "==========================="

DATA "AQUA BOTOL 1L","ROTI TAWAR SARI ROTI","BENGBENG"

DATA 1

DATA 1

DATA 3

DATA 8000

DATA 5000

DATA 1500

FOR i = 1 TO 3

READ Barang$

PRINT Barang$

NEXT i

FOR i = 1 TO 1

READ Until1

LOCATE 5, 25

PRINT Until1

NEXT i

FOR i = 1 TO 1

READ unit2

LOCATE 6, 25

PRINT unit2

NEXT i

FOR i = 1 TO 1

READ unit3

LOCATE 7, 25

PRINT unit3

NEXT i

FOR i = 1 TO 1

READ Harga1

LOCATE 5, 28

PRINT Harga1

NEXT i

FOR i = 1 TO 1

READ Harga2

LOCATE 6, 28

PRINT Harga2

NEXT i

FOR i = 1 TO 1

READ Harga3

LOCATE 7, 28

PRINT Harga3

NEXT i

LOCATE 8, 5

PRINT "============================="

LOCATE 9, 10

PRINT "TOTAL"

Total = Harga1 + Harga2 + Harga3

LOCATE 9, 27

PRINT Total

LOCATE 10, 10

PRINT "Bayar Tunai"

LOCATE 10, 27

PRINT 20000

LOCATE 11, 10

PRINT "Kembalian"

Kembalian = 20000 - Total

LOCATE 11, 27

PRINT Kembalian

LOCATE 12, 5

PRINT "==========================="

LOCATE 13, 10

PRINT "***TERIMA KASIH***"

LOCATE 14, 10

PRINT "Atas Kunjungan Anda"

END

Anda sedang membaca artikel tentang Contoh coodingan membuat struk pada qbasic dan anda bisa menemukan artikel Contoh coodingan membuat struk pada qbasic ini dengan url http://clouddhia.blogspot.com/2012/11/contoh-coodingan-membuat-struk-pada.html,anda boleh menyebar luaskannya atau mengcopy paste-nya jika artikel Contoh coodingan membuat struk pada qbasic ini sangat bermanfaat bagi teman-teman anda,namun jangan lupa untuk meletakkan link Contoh coodingan membuat struk pada qbasic sumbernya.