Mencari Selisih Tanggal, Jam dan Menentukan Zodiak dan Shio dengan Bahasa Program Q Basic

Assalamualaikum
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

Membuat Tampilan Bintang Bentuk Segitiga Pada Bahasa Basic

Assalamualaikum Wr. Wb
Sahabat Informatika...!!!

Sudah lama juga tidak posting. karna banyak tu

gas yang numpuk di perkuliahan. ya maklum saja namanya seorang pelajar ya pastinya mempunyai kewajiban untuk menyelesaikan tugas-tugas kuliah.
kemarin saya di berikan tugas untuk menghasilkan output bintang (*)
exp :
    *
    ** 
    ***
    ****
    *****

sudah selesai lama sih tapi dari pada saya endapakn di laptop saya kemudian tidak berguna lebih baik saya share ke blogger.
okey langsung saja deh...

• Jalankan program Q basic
• Ketikan script seperti di bawah ini :

• Kemudian jalan kan program nya atau tekan F5
• Maka hasilnnya akan seperti di bawah ini

Demikian postingan saya pada kali ini semoga dapat bermanfaat untuk kita semua.
Wassalamualaikum Wr. Wb

Kalkulator Menggunakan Visual Studio 2010

Asslamualaikum Wr. Wb
Sahabat Informatika

Kali ini saya tidak memposting algoritma lagi. namun saya akan memposting program dasar saya untuk para pemula. program yang saya buat adalah Kalkulator menggunakan software Microsoft Visual Studio 2010. 

mekipun saya belum pernah mempelajari software Visual Studio 2010 namun saya berhasil membuat Program sederhana yaitu kalkulator. saya murni belajar otodidak, okey langsung ke tutorianlnya saja

• Buka program Microsoft Visual Studio 2010, kemudian pilih New Project...

 

• Kemudian pilih Windows > Windows Froms Application
• Tentukan Name nya saya buat Kalculator dan tentukan dimana anda akan menyimpan Project anda. Klik saja Browse

• Kemudian Design lah tempilan seperti di bawah ini 

 

• Double klik Button + dan ketikan kode sebagai berikut :

 

• Double klik Button - dan ketikan kode sebagai berikut :

 

• Double klik Button X dan ketikan kode sebagai berikut :

 

 

• Double klik Button - dan ketikan kode sebagai berikut : 

• Double klik Button Hapus dan ketikan kode sebagai berikut : 

• Double klik Button Keluar dan ketikan kode sebagai berikut : 

• setelah di selesai jalankan Program dengan menekean F5

hasilnya seperti di bawah ini, 50 * 2 = 100

 

mudah kan untuk membuat kalkulator sederhana 

sekian program sederhana dari saya semoga bermanfaat bagi anda

jika kita lihat kode keseluruhanya seperti di bawah ini

Wass. Wr. Wb

Logika Percabangan IF Pada Algoritma

Assalamualaikum Wr. Wb

Sahabat Informatika.!!!

Sudah lima kali berturut turut saya terus posting Code algoritma, tidak tau mengapa mungkin lagi demam Algoritma. hehehe.

IF merupakan Perintah yang digunakan untuk melakukan pemeriksaan/tes kondisi terhadap suatu data pada waktu proses sedang berlangsung. ketika menggunakan IF setelah menulisan coding khusus IF telah selesai di akhiri END IF

Bentuk Umum IF

        IF syarat THEN

                 pernyataan_benar

        ELSE

                 pernyataan_salah

        END IF

Contoh 1 :

        IF Nilai > 75 THEN

                  Print "LULUS"

        ELSE

                   Print "TIDAK LULUS"

        END IF

Penjelasan pada Contoh 1 :

Jika Nilai yang di input lebih besar 75 maka cetak LULUS, jika tidak cetak TIDAK LULUS

Bentuk IF Yang Kemungkinan Lebih Dari Satu

pada bagian atas hanya ada satu kemungkinan atau hanya menggunakan satu IF artinya : jika > 75 Lulus, jika tidak Tidak Lulus. bagai mana jika lebih dari satu kemungkinan. contoh bahasa sehari-hari :

Jika Nilai lebih besar dari 75 maka LULUS

Jika Nilai 70 - 75 maka REMEDIAL

Jika Nilai < 70 maka TIDAK LULUS

Statsment diatas sama juga dengan :

        IF syarat THEN

                 pernyataan_satu

        ELSEIF

                 pernyataan_dua

        END IF

                 pernyataan_diluarkondisi

Contoh 2 :

        IF Nilai > 75 Then

                   Print "Lulus"

        ELSEIF > 70 THEN

                   Print "Remedial"

        ELSE

                   Print "Tidak Lulus"

Sekian Postingan saya ini semoga bermanfaat bagi anda. Informasi lebih lengkap Facebook

Wass Wr Wb

Download Microsoft Q Basic

Assalamualaikum Wr. Wb
Sahabat Informatika !!!

Algoritma merupakan langkah untuk menyelesaikan suatu masalah. dalam hal ini menyelsaikan suatu masalah dengan menggunakan coding yang di buat di Software Q Basic

Tampa pikir panjang bagi anda yang belum memiliki software Q Basic silakan download di bawah ini. Q basic tidak perlu lagi menggunakan Keygen / Serial Key.

Download Microsoft Q Basic 32 Bit.
Download Microsoft Q Basic 64 Bit.

Contoh Gambar

Microsoft Qbasic 64 Bit

Microsoft Qbasic 32 Bit

Sekian posting dari saya
Wass. Wr. Wb

Menentukan Bilangan Atau Ganjil

Asslamualaikum Wr. Wb
Sahabat Informatika.!!!

Saya pernah ada tugas Algoritma untuk menentukan bilangan yang di inputkan bilangan ganjil atau genap. bingung juga logikanya. namun setelah tau fungsi MOD semua selesai.

Okey langsung saja ke program

• Buka Program Q Basic anda
• Kemudian ketikan kode seperti di bawah ini

• Setelah selesai silakan tes program nya Run > Strat (F5)

Bilangan MOD di atas memiliki pengertian :

• Jika Nilai yang di inputkan MOD 2 dan hasilnnya 0  maka Print Bilangan Genap Jika Tidak Print Bilangan Gannjil

Untuk mencari bilangan genap atau ganjil kita membutuhkan fungsi MOD atau Sisa Bagi.
Sebagai Contoh :

• 10 Mod 2 = 0

• 13 Mod 5 = 3

• 9 Mod 2 = 1

 Jadi dengan logika tersebut kita dapat menentukan Bilangan Genap atau Positif   

Sekian postingan saya. semoga bermanfaat untuk anda
terimah kasih.
Wass. Wr Wb

Rumus Matematika dengan Algoritma

Assalamuailakum Wr. Wb
Sahabat Informatika!!!.

Kalian sebagai pelajar Komputer atau mahasiswa Jurusan Informatika pasti pernah atau sedang memiliki tugas untuk mencari rumus matematika menggunakan Algoritma bahasa Basic.
di sini saya akan membagikan 50 Rumus matematika mulai

• Konversi Celcius ke Fahrenhit dll
• Mencari Luas
• Mencari Volume
• Dll

silakan anda download filenya DI SINI.
cara menjalankannya :

• Download programnya Q Basic dan Extract (Bagi anda yang belum memilikinya)

            Q Basic 32 Bit
            Q Basic 64 Bit

• Buka Program dengan pilih QB64.exe "lihat gambar 1"
 



• Klik File > Open "Gambar 2" , pilih file rumus matematika ".Bas" yang sudah di download "gambar 3"

 

Gambar 2

Gambar 3

• kemudian jalankan dengan klik Run > Start (F5) 

nb : Jika Rumus Matematika tidak bisa jalan coba anda menggunakan 64 Bit. soalnya saya mengerjakannya dengan Qb 64 bit.

Sekian postingan saya
Sahabat Informatika
Wass. Wr .Wb.

Mencari Nilai Tertinggi dengan Algoritma

Assalamuaikum Wr. Wb..
Sahabat Informatika!!!

Kali ini saya akan memberikan tutorial Algoritma untuk menyelesaikan masalah mencari nilai tertinggi dari tiga nilai yang di inputkan.
Banyak yang bilang temen-temen untuk mempelajari Algoritma sangat SULIT!!. namun sebenarnya asyik. tidak ada yang susah di kerjaan di Algoritma karena algoritma merupakan Langkah-langkah untuk menyelesaikan sebuah masalah.

Langsung saja kita ke programnya

• Yang paling utama jalankan program Algoritma. saya menggunakan Q Basic 64 Bit.
• Ketikan script seperti di bawah ini

•  Setelah selesai segera jalannya program anda Run > Start (F5)

Mudah kan?
Sekian dari saya
Informasi Lebih Lengkap Facebook
Wass. Wr. Wr
 

Rumus Luas Segitiga dengan Algoritma

Assalamualaikum Wr Wb.

Apa kabar sahabat informatika?. Mudah-mudahan Allah selalu memberikan Rahmat-Nya kepada kita amin.

Di artikel ini saya akan membahas tentang Dasar Pemograman yang sederhana. Saya akan memberikan tutorial Algoritma cara menyelesaikan rumus mencari Luas Segitiga.

• Buka terlebih dahulu programnya disini saya menggunakan Q Basic 64 Bit.
• Ketikkan Script berikut ini

• Silakan jalankan program Run > Start (F5)

nb : jangan bingung, tampilan saya Q B 64 bit untuk 32 bit sedikit berbeda 

tidak ada yang sulit kan?. semua mudah dan gampang. sekian postingan dari saya semoga bermanfaat untuk kita.