Logical IF in BASIC Language Program

Filed under: ,

pada pertemuan kedua kali ini kita akan mempelajari logikal if dengan menggunakan bahasa pemograman turbo basic.pada dasarnya if adalah suaru pengujian pada suatu kondisi jika kondisi itu terpenuhi maka program yang ditentukan dapat dijalankan.jika tidak dia akan melakukan pengujian dengan kondisi berbeda hingga akhir pengujian.operator penguhung dalam turbo basic antara lain "and","or","xor".seperti terlihat dibawah ini adalah tampilan setelah program dijalankan .dalam program yang akan kita buat nanti memiliki logika seperti berikut :

1. nim diinputkan tergantung dari user

2.nama dimasukkan sesuai dengan nama user

3.user memasukan nilai ujian middle /ujian tengah semester

4.uiser memasukan nilai tugas

5.user memasukan nilai quiz/ulangan harian

kemudian data diolah

6.rata-rata dicari dengan menjumalhan ketiga nilai variabel kemudian dibagi 3(jumlah variabel)

7.masuk ke pengujian if,dalam bahasa manusia pengujiannya adalah sebagai berikut

jika nilai rata-rata diantara 100 dan 80 maka

cetak di layar bahwa "ANDA MENDAPAT GRADE A"

jika nilai rata-rata diantara 80 dan 70 maka

cetak di layar bahwa "ANDA MENDAPAT GRADE B"

jika nilai rata-rata diantara 70 dan 60 maka

cetak di layar bahwa "ANDA MENDAPAT GRADE C"

jika nilai rata-rata diantara 60 dan 40 maka

cetak di layar bahwa "ANDA MENDAPAT GRADE D"

jika nilai rata-rata diantara 40 dan 0 maka

cetak di layar bahwa "MAAF, TOLONG MASUKAN DATA ANDA"

listing program/atau dalam bahasa basic adalah seperti dibawah ini :


CLS

REM RUMUS UNTUK MENGECEK NIM

INPUT "NIM :",NIM

INPUT "NAMA :",NAMA

INPUT "NILAI MIDDLE :",NILAI

INPUT "NILAI TUGAS :",TUGAS

INPUT "NILAI QUIZ :",QUIZ

RATA=(NILAI+TUGAS+QUIZ)/3

PRINT "RATA-RATA :",RATA

COLOR 12

IF RATA<=100 AND RATA>=80 THEN

PRINT "ANDA MENNDAPAT GRADE A"

ELSEIF RATA<80>=70 THEN

PRINT "ANDA MENDAPAT GRADE B"

ELSEIF RATA<70>=60 THEN

PRINT "ANDA MENDAPAT GRADE C"

ELSEIF RATA<60>=40 THEN

PRINT "ANDA MENDAPAT GRADE D"

ELSEIF RATA<40>0 THEN

PRINT "MAAF,ANDA TIDAK DAPAT MENGIKUTI UJIAN"

ELSEIF RATA=0 THEN

PRINT "MAAF, TOLONG MASUKAN DATA ANDA "

ELSE

END IF






dengan adanya percabangan/pengujian diatas maka komputer akan menguji nilai rata-rata dan memberikan pesan dilayar sesuai pengujian yang kita buat tadi.mudah bukan belajar if.pemograman itu memang menyenangkan



Baca Selengkapnya..
Baca Selengkapnya..

memasang google search di komponen website

Filed under:

ini nih ku kasih kodenya supaya ada komponen google search nya







<!-- Google CSE Search Box Begins --><center> <a href="http://www.google.com/" target="_blank"><img src="http://d4n4ngsp.googlepages.com/images.jpg"/></a><br/> <form id="searchbox_013354683226409328020:aiuxsgc1ahi" action="http://www.google.com/cse" target="_blank"> <input value="013354683226409328020:aiuxsgc1ahi" name="cx" type="hidden"/> <input name="q" type="text"/> <input value="Search" name="sa" type="submit"/> <input value="FORID:0" name="cof" type="hidden"/> </form><!-- Google CSE Search Box Ends --></center>





Baca Selengkapnya..
Baca Selengkapnya..

Who Am I ?

Stmik Blogger Community

My Full name is Danang Setya Pramana,if you want to call me just Danang or "nang" Born and grow up at tarakan,Tarakan is alitle city in north of east borneo/Kalimantan.i like to help people about anythink

specially about computer and technology.i like design and make a website.



Friendstertrk3a2@yahoo.co.id

My emailtrk3a2@yahoo.co.id

My emailD4n4ngsp@gmail.com

My emaildanangsetya@ppkia.ac.id

namaku danang setya pramana,aku tinggal di kota kecil bernama kota tarakan yang letaknya di kepulauan kalimantan,kenapa aku membuat blog ini ?karena pertama aku hobi banget ama yang namanya nulis,kedua aku ingin memberikan semua ilmuku kepada semua pembaca ,jadi apa yang aku pelajari di kampus STMIK PPKIA Tarakanita Rahmawati dimana pada jurusan ku Tehnik Informatika bisa kubagikan untuk temen -temen blogger sekalian.aku tinggal di jl.ladang dalam rt.10 no.150 kelurahan pamusian,kecamatan tarakan tengah,oh ya kalo temen-temen pada butuh bantuan ku sms aja ke 085247353513 aku pasti akan siap untuk membantu entah itu seputar blogger atau komputer.aku paling hobi yang namanya menemukan sesuatu yang baru yang bahasa kerenya berexplorasi gitu.dan kenapa aku memilih ngeblog di blogger karena aku ingin buktiin kepada temen-temen bahwa tidak selamanya dengan fasilitas yang seminimal mungkin hanya menghasilkan blog yang standart karena pada dasarnya kita bisa sangat berexplorasi di dalam blogger ini,jadi bagi para blogger harus tetap semangat dan jangan mudah menyerah ,tetaplah berexplorasi dengan apa yang kamu miliki ,karena pada dasarnya dunia ini diciptakan untuk diexplorasi





Pemilik


Danang Setya Pramana

Stmik Blogger Community

Insyaallah dengan diterbitkannya banner ini para mahasiswa dan mahasiswi di STMIK PPKIA Tarakanita Rahmawati terutama para bloggernya bisa bersatu padu di dalam community ini.community ini di buat bertujuan selain untuk menjalin silaturahmi juga sebagai media sharing bagi kawan-kawan sekalian baik seputar blog ataupun seputar masalah IT lainya.

untuk memasang banner ini tinggal kamu copy aja link yang tersedia dibawah ini dan paste di komponen html/script di panel kontrol elemen halaman blogger kamu.

Terima Kasih

Sponsors

Kota Tarakan download,magic,manga