Kumpulan Ilmu: Juni 2014

Jumat, 06 Juni 2014

Program Mencari Shio Dan Zodiak Seseorang Dengan QBasic (IF)

LISTING PROGRAM

Source code

DIM tgl AS INTEGER
DIM bl AS INTEGER
DIM tl AS INTEGER
DIM tgs AS INTEGER
DIM bs AS INTEGER
DIM ts AS INTEGER
DIM a AS DOUBLE
DIM b AS DOUBLE
DIM c AS DOUBLE
DIM d AS DOUBLE
DIM e AS DOUBLE
DIM f AS DOUBLE

DIM h AS STRING
DIM g AS STRING

CLS
PRINT "MASUKKAN TANGGAL LAHIR ANDA"
INPUT "Tanggal   :", tgl
INPUT "Bulan     :", bl
INPUT "Tahun     :", tl
PRINT "TANGGAL LAHIR ANDA = "; tgl; "/"; bl; "-"; tl
PRINT
PRINT "MASUKKAN TANGGAL SEKARANG"
INPUT "Tanggal   :", ts
INPUT "Bulan     :", bs
INPUT "Tahun     :", ths
PRINT "TANGGAL HARI INI = "; ts; "/"; bs; "-"; ths
PRINT "======================================================================"

a = ths - tl
b = a * 12
c = b * 30
d = c * 24
e = d * 60
f = e * 60

IF tgl >= 21 AND bl = 1 THEN
g = "Aquarius"
ELSEIF tgl <= 19 AND bl = 2 THEN
g = " Aquarius "
END IF

IF tgl >= 20 AND bl = 2 THEN
g = "Pisces"
ELSEIF tgl <= 20 AND bl = 3 THEN
g = "Pisces"
END IF

IF tgl >= 21 AND bl = 3 THEN
g = "Aries"
ELSEIF tgl <= 20 AND bl = 4 THEN
g = "Aries"
END IF

IF tgl >= 21 AND bl = 4 THEN
g = "Taurus"
ELSEIF tgl <= 21 AND bl = 5 THEN
g = "Taurus"
END IF

IF tgl >= 22 AND bl = 5 THEN
g = "Gemini"
ELSEIF tgl <= 21 AND bl = 6 THEN
g = "Gemini"
END IF

IF tgl >= 21 AND bl = 6 THEN
g = "Cancer"
ELSEIF tgl <= 22 AND bl = 7 THEN
g = "Cancer"
END IF

IF tgl >= 23 AND bl = 7 THEN
g = "Leo"
ELSEIF tgl <= 22 AND bl = 8 THEN
g = "Leo"
END IF

IF tgl >= 22 AND bl = 8 THEN
g = "Virgo"
ELSEIF tgl <= 22 AND bl = 9 THEN
g = "Virgo"
END IF

IF tgl >= 24 AND bl = 9 THEN
g = "Libra"
ELSEIF tgl <= 23 AND bl = 10 THEN
g = "Libra"
END IF

IF tgl >= 24 AND bl = 10 THEN
g = "Scorpio"
ELSEIF tgl <= 22 AND bl = 11 THEN
g = "Scorpio"
END IF

IF tgl >= 23 AND bl = 11 THEN
g = "Sagitarius"
ELSEIF tgl <= 21 AND bl = 12 THEN
g = "Sagitarius"
END IF

IF tgl >= 22 AND bl = 12 THEN
g = "Capricorn"
ELSEIF tgl <= 20 AND bl = 1 THEN
g = "Capricorn"
END IF

IF tl = 1938 OR tl = 1950 OR tl = 1962 OR tl = 1974 OR tl = 1986 OR tl = 1998 OR tl = 2010 THEN
h = "Macan"
ELSEIF tl = 1939 OR tl = 1951 OR tl = 1963 OR tl = 1975 OR tl = 1987 OR tl = 1999 OR tl = 2011 THEN
h = "Kelinci"
ELSEIF tl = 1940 OR tl = 1952 OR tl = 1964 OR tl = 1976 OR tl = 1988 OR tl = 2000 OR tl = 2012 THEN
h = "Naga"
ELSEIF tl = 1941 OR tl = 1953 OR tl = 1965 OR tl = 1977 OR tl = 1989 OR tl = 2001 OR tl = 2013 THEN
h = "Ular"
ELSEIF tl = 1942 OR tl = 1954 OR tl = 1966 OR tl = 1978 OR tl = 1990 OR tl = 2002 OR tl = 2014 THEN
h = "Kuda"
ELSEIF tl = 1943 OR tl = 1956 OR tl = 1967 OR tl = 1979 OR tl = 1991 OR tl = 2003 OR tl = 2015 THEN
h = "Kambing"
ELSEIF tl = 1944 OR tl = 1957 OR tl = 1968 OR tl = 1980 OR tl = 1992 OR tl = 2004 OR tl = 2016 THEN
h = "Monyet"
ELSEIF tl = 1945 OR tl = 1958 OR tl = 1969 OR tl = 1981 OR tl = 1993 OR tl = 2005 OR tl = 2017 THEN
h = "Ayam"
ELSEIF tl = 1946 OR tl = 1959 OR tl = 1970 OR tl = 1982 OR tl = 1994 OR tl = 2006 OR tl = 2018 THEN
h = "Anjing"
ELSEIF tl = 1947 OR tl = 1960 OR tl = 1971 OR tl = 1983 OR tl = 1995 OR tl = 2007 OR tl = 2019 THEN
h = "Babi"
ELSEIF tl = 1948 OR tl = 1961 OR tl = 1972 OR tl = 1984 OR tl = 1996 OR tl = 2008 OR tl = 2020 THEN
h = "Tikus"
ELSEIF tl = 1949 OR tl = 1962 OR tl = 1973 OR tl = 1985 OR tl = 1997 OR tl = 2009 OR tl = 2021 THEN
h = "kerbau"

END IF

PRINT "======================================================================"
PRINT "UMUR             :", a, "Tahun"
PRINT "BULAN            :", b, "Bulan"
PRINT "HARI             :", c, "Hari"
PRINT "JAM              :", d, "Jam"
PRINT "MENIT            :", e, "Menit"
PRINT "DETIK            :", f, "Detik"
PRINT "ZODIAK           :", g
PRINT "SHIO             :", h
END

Output

Rabu, 04 Juni 2014

PERULANGAN / LOOP (FOR - NEXT) DI QBASIC

PROGRAM MENGHITUNG NILAI RATA - RATA
Source code :
DIM n AS INTEGER
DIM a AS INTEGER
DIM b AS INTEGER
DIM jumlah AS INTEGER
DIM total AS INTEGER
DIM hasil AS INTEGER
CLS
PRINT "--------------------------------------------------------------------------------"
LOCATE , 27
PRINT "# MENGHITUNG RATA - RATA #"
PRINT "--------------------------------------------------------------------------------"
PRINT
INPUT "Banyak Nilai = ", n
PRINT

FOR a = 1 TO 5
PRINT "Nilai : "; a; "=";
INPUT "", b(i)
total = total + b(i)
hasil = total / n
NEXT
PRINT
PRINT "Rata - Rata Nilai Anda Adalah = ", hasil
END

Output :
TAMPILAN BINTANG

Source code :
DIM a AS INTEGER
DIM b AS INTEGER
DIM c AS INTEGER
DIM d AS INTEGER
DIM e AS INTEGER
DIM f AS INTEGER
cls
?"--------------------------------------------------------------------------------"
?"                          * TAMPILAN_BINTANG *"
?"--------------------------------------------------------------------------------"

for d = 1 to 9
    for e = 1 to d

        print "*";
    next e
    c = d - 1
    print
next d
end

Output :
TAMPILAN 1, 2, 3, ...

Source code :
DIM a AS INTEGER
DIM b AS INTEGER
DIM c AS INTEGER
CLS
PRINT "--------------------------------------------------------------------------------"
LOCATE , 30
PRINT "> TAMPILAN 1.2.3, ... <"
PRINT "--------------------------------------------------------------------------------"
PRINT
PRINT
FOR a = 1 TO 10
FOR b = 1 TO a
PRINT b;
NEXT b
c = a - 1
PRINT
NEXT a
END

Output :
PERKALIAN 1 S/D 10
Source code :
DIM b AS INTEGER
DIM a AS INTEGER
DIM x AS INTEGER
CLS
LOCATE , 30
PRINT "P E R K A L I A N"
PRINT "================================================================================"
f$ = " ## X## =###|"
FOR a = 1 TO 10
FOR b = 1 TO 5
x = a * b
PRINT USING f$; a; b; x;
NEXT b
PRINT
NEXT a
PRINT
f$ = " ## X## =###|"
FOR a = 1 TO 10
FOR b = 5 TO 10
x = a * b
PRINT USING f$; a; b; x;
NEXT b
PRINT
NEXT a
PRINT
END

Output :

Kumpulan Ilmu: CONTOH PROGRAM QBasicREKAP GAJI KARYAWAN SCREEN S...

Kumpulan Ilmu: CONTOH PROGRAM QBasicREKAP GAJI KARYAWAN SCREEN S...: CONTOH PROGRAM QBasic REKAP GAJI KARYAWAN SCREEN SHOT SOURCE CODE : OUTPUT: LISTING PROGRAM DIM...