Sahabat Informatika..!!!
Bagi anda yang baru mempelajari bahasa pemograman yang biasanya menggunakan bahasa pemograman Basic dan C. kali ini saya akan mengupas tuntas tentang Q basic untuk membuat program mencari selisih Tanggal, Jam dan menentukan Zodiak dan Shio. Tidak mudah memang jika kita memahami bahasa pemograman yang akan saya postingkan ini.
- Buka program Q Basic 32 Bit atau Q Basic 64 Bit
- Kemudian ketikan kode yang cukup melelahkan ini. hati hati dengan pengetikan salah titik saja program anda akan Error
Do
cls
DIM tgl, bln, thn, tgls, blns, thns AS INTEGER
DIM jlhthn, jlhbln, jlhhari, s AS INTEGER
DIM ttgl, tbln, tthn AS INTEGER
DIM jlhjam, jlhmnt, jlhdtk AS DOUBLE
DIM shio AS STRING
DIM zodiak AS STRING
DIM pertanyaan AS STRING
print "*** Masukkan Data Lahir Anda ***"
print "======================================================="
print "Cth : 17",
input "Tanggal : ",tgl,
print "Cth : 2",
input "Bulan : ",bln
print "Cth : 1995",
input "Tahun : ",thn
print " "
print ""
print "*** Masukkan Data Sekarang ***"
print "======================================================="
print "Cth : 4",
input "Tanggal : ",tgls
print "Cth : 11",
input "Bulan : ",blns
print "Cth : 2013",
input "Tahun : ",thns
print " "
if tgl > 31 or tgls > 31 then
print "Tanggal Tidak Valid"
elseif bln > 12 or blns > 12 then
Print "Bulan Tidak Valid"
elseif thn > 9999 or thn < 1000 or thns < 1000 or thns > 9999 then
print "Tahun Tidak Valid"
elseif thns < thn then
print "Tahun Lahir Harus Lebih Rendah dari Tahun Sekarang"
elseif blns < bln and thn = thns then
print "Hasil Akan Minus, Input Tahun dan Bulan Yang Benar"
else
if thn = 1938 or thn = 1950 or thn = 1962 or thn = 1974 or thn = 1986 or thn = 1998 or thn = 2010 then
shio = "Macan"
elseif thn = 1939 or thn = 1951 or thn = 1963 or thn = 1975 or thn = 1987 or thn = 1999 or thn = 2011 then
shio = "Kelinci"
elseif thn = 1940 or thn = 1952 or thn = 1964 or thn = 1976 or thn = 1988 or thn = 2000 or thn = 2012 then
shio = "Naga"
elseif thn = 1941 or thn = 1953 or thn = 1965 or thn = 1977 or thn = 1989 or thn = 2001 or thn = 2013 then
shio = "Ular"
elseif thn = 1942 or thn = 1954 or thn = 1966 or thn = 1978 or thn = 1990 or thn = 2002 or thn = 2014 then
shio = "Kuda"
elseif thn = 1943 or thn = 1955 or thn = 1967 or thn = 1979 or thn = 1991 or thn = 2003 or thn = 2015 then
shio = "Kambing"
elseif thn = 1944 or thn = 1956 or thn = 1968 or thn = 1980 or thn = 1992 or thn = 2004 or thn = 2016 then
shio = "Monyet"
elseif thn = 1945 or thn = 1957 or thn = 1969 or thn = 1981 or thn = 1993 or thn = 2005 or thn = 2017 then
shio = "Ayam"
elseif thn = 1946 or thn = 1958 or thn = 1970 or thn = 1982 or thn = 1994 or thn = 2006 or thn = 2018 then
shio = "Anjing"
elseif thn = 1947 or thn = 1959 or thn = 1971 or thn = 1983 or thn = 1995 or thn = 2007 or thn = 2019 then
shio = "Babi"
elseif thn = 1948 or thn = 1960 or thn = 1972 or thn = 1984 or thn = 1996 or thn = 2008 or thn = 2020 then
shio = "Tikus"
elseif thn = 1949 or thn = 1961 or thn = 1973 or thn = 1985 or thn = 1997 or thn = 2009 or thn = 2021 then
shio = "Kerbau"
else
shio = " Shio Anda Tidak di Kenal"
end if
if tgl >= 22 and bln = 12 then
zodiak = "Capricorn"
elseif tgl <= 20 and bln = 1 then
zodiak = "Capricon"
elseif tgl >= 21 and bln = 1 then
zodiak = "Aquarius"
elseif tgl <= 19 and bln = 2 then
zodiak = "Aquarius"
elseif tgl >= 20 and bln = 2 then
zodiak = "Pisces"
elseif tgl <= 20 and bln = 3 then
zodiak = "Pisces"
elseif tgl >= 21 and bln = 3 then
zodiak = "Aries"
elseif tgl <= 19 and bln = 4 then
zodiak = "Aries"
elseif tgl >= 20 and bln = 4 then
zodiak = "Taurus"
elseif tgl <= 20 and bln = 5 then
zodiak = "Taurus"
elseif tgl >= 21 and bln = 5 then
zodiak = "Gemini"
elseif tgl <= 21 and bln = 6 then
zodiak = "Gemini"
elseif tgl >= 22 and bln = 6 then
zodiak = "Cancer"
elseif tgl <= 23 and bln = 7 then
zodiak = "Cancer"
elseif tgl >= 24 and bln = 7 then
zodiak = "Leo"
elseif tgl <= 23 and bln = 8 then
zodiak = "Leo"
elseif tgl >= 24 and bln = 8 then
zodiak = "Virgo"
elseif tgl <= 22 and bln = 9 then
zodiak = "Virgo"
elseif tgl >= 22 and bln = 9 then
zodiak = "Libra"
elseif tgl <= 22 and bln = 10 then
zodiak = "Libra"
elseif tgl >= 23 and bln = 10 then
zodiak = "Scorpio"
elseif tgl <= 22 and bln = 11 then
zodiak = "Scorpio"
elseif tgl >= 23 and bln = 11 then
zodiak = "Sagitarius"
elseif tgl <= 20 and bln = 12 then
zodiak = "Sagitarius"
end if
if thn = thns then
jlhthn = 0
else
jlhthn = thns - thn
end if
jlhbln = ((thns * 12) + blns) - ((thn * 12) + bln)
jlhhari = 30 * jlhbln
jlhjam = 24 * jlhhari
jlhmnt = 60 * jlhjam
jlhdtk = 60 * jlhmnt
print "Jumlah Umur :",jlhthn ,"Tahun"
print "Jumlah Bulan :",jlhbln ,"Bulan"
print "Jumlah Hari :",jlhhari ,"Hari"
print "Jumlah Jam :",jlhjam ,"Jam"
print "Jumlah Menit :",jlhmnt ,"Menit"
print "Jumlah Detik :",jlhdtk ,"Detik"
print "Zodiak Anda :",zodiak
print "Shio Anda :",shio
print ""
end if
Input "Anda Ingin Melanjutkan Tekan Y, Jika Tidak N = " ,pertanyaan
loop while pertanyaan = "Y" or pertanyaan ="y"
cls
end
- setelah anda capek mengetik dan selesai coba jalan kan program nya dengan menekan F5
- Jika penginputan anda benar maka hasilnya :
Tampilan jika pengimputan benar |
- Jika anda salah dalam pengimputan bulan maka hasilnya :
Tampilan jika anda salah menginput bulan, dalam satahun hanya ada 12 bulan |
- Dan jika anda salah dalam pengimputan tanggal maka hasilnya :
Tampilan jika anda salah mengimput tanggal, dalam 1 bulan maksimal tanggal hanya 31 |
Gimana? sulit atau mudah. saya kira semua mudah jika kita memiliki niat yang baik untuk belajar dan menjadi orang sukses.
sekian postingan dari Saya Hari Rahmad Dani semoga bermanfaat,
Wass. wr. wb