Modul 2 Fungsi Aritmatika dalam Visual Basic 2010
Modul 2
1. Operator
: suatu langkah-langkah yang digunakan untuk memproses angka dan variable
(Sumber : unilanet.unila.ac.id/~gigih/belajar_komputer/VB)
2. Operator
Aritmatika : operator untuk menghitung perhitungan matematis (bulat dan
pecahan)
Jenisnya : + à
penjumlahan ; - àpengurangan ; * à
perkalian; / à
pembagian ; MOD à sisa hasil bagi
(Sumber : Modul Praktikum Teknologi Informatika 2012 Teknik
Industri Undip)
3. Operator
val : untuk mengkonversi nilai angka yang memiliki tipe string ke nilai dengan tipe
double / angka (harus berformat inggris)
Operator round : untuk
menyederhanakan angka desimal yang panjang
Operator sqr : untuk
mencari nilai akar kuadrat suatu angka
(Sumber : buku catatan)
4. Operator
perbandingan : (=operator logika) operator untuk membandingkan suatu
nilai pada suatu variabel dengan variabel lain (=, <, <=, >, >=,
< > )
Operator aritmatika :
uuntuk menghitung angka secara
matematis (+, -, /, *)
5. Flowchart
Program Bil. Ganjil dan Genap
6. Listing
Visual Basic perhitungan nilai Absen, UTS,
UAS Mahasiswa
Form → Activate
thisform.ttgl.Value=DATE()
thisform.cbnim.additem(“12068493”)
thisform.cbnim.additem(“12068494”)
thisform.cbnim.additem(“12068495”)
cbnim → Click
IF thisform.cbnim.Listindex=1
thisform.tnama.Value="Maruloh"
ELSE
IF thisform.cbnim.ListIndex=2
thisform.tnama.Value="Ahmad"
ELSE
thisform.tnama.Value="Sukur"
ENDIF
ENDIF
thisform.tabsen.SetFocus
Chitung → Click
thisform.trata.Value=(0.1*VAL(thisform.tabsen.Value)+0.2*VAL(thisform.ttugas.Value)+0.3*VAL(thisform.tuts.Value)+0.4*VAL(thisform.tuas.Value))
IF thisform.trata.Value>=85
thisform.tgrade.Value="A"
ELSE
IF thisform.trata.Value>=70
thisform.tgrade.Value="B"
ELSE
IF thisform.trata.Value>=60
thisform.tgrade.Value="C"
ELSE
IF thisform.trata.Value>=50
thisform.tgrade.Value="D"
ELSE
thisform.tgrade.Value="E"
ENDIF
ENDIF
ENDIF
ENDIF
IF
thisform.tgrade.Value="A" OR thisform.tgrade.Value="B"
thisform.tket.Value="Lulus"
ELSE
IF
thisform.tgrade.Value="C"
thisform.tket.Value="Optional"
ELSE
thisform.tket.Value="Her"
ENDIF
ENDIF
thisform.cbersih.SetFocus
Cbersih → click
thisform.cbnim.Value=""
thisform.tnama.Value=""
thisform.tabsen.Value=""
thisform.ttugas.Value=""
thisform.tuts.Value=""
thisform.tuas.Value=""
thisform.trata.Value=""
thisform.tgrade.Value=""
thisform.tket.Value=""
thisform.cbnim.SetFocus
CKeluar → Click
Thisform.release
(Sumber : http://dc363.4shared.com/doc/GWHCkyS8/preview_html_m2e70f42d.png)
Flowchart Visual Basic
perhitungan nilai Absen, UTS, UAS
Mahasiswa
Interface Visual Basic
perhitungan nilai Absen, UTS, UAS
Mahasiswa
7. Listing
Rumus Lingkaran
uses crt;
var
r,L: real;
begin
Clrscr;
gotoxy(4,2);write('Luas Lingkaran : ');readln;
gotoxy(4,3);write(Jari-jari : ');readln(r);
L:=3.14*r*r;
gotoxy(5,6);write('Luas Lingkaran Adalah : ',L:2:2);readln;
end.
var
r,L: real;
begin
Clrscr;
gotoxy(4,2);write('Luas Lingkaran : ');readln;
gotoxy(4,3);write(Jari-jari : ');readln(r);
L:=3.14*r*r;
gotoxy(5,6);write('Luas Lingkaran Adalah : ',L:2:2);readln;
end.
(Sumber: http://gapurapangarti.blogspot.com)
Listing Rumus Segitiga
#include<iostream.h>
main()
{
int a, b;
cout<<"Mencari Luas Segitiga n";
cout<<"Alas =";
cin>> a;
cout<<"Tinggi =";
cin>> b;
cout<<"Luas Segitiga ="<<a*b/2;
return 0;
end
main()
{
int a, b;
cout<<"Mencari Luas Segitiga n";
cout<<"Alas =";
cin>> a;
cout<<"Tinggi =";
cin>> b;
cout<<"Luas Segitiga ="<<a*b/2;
return 0;
end
(Sumber : http://materi-kuliah-informatika.blogspot.com)
Listing Rumus Balok
uses crt;
var
p,l, t: real;
begin
var
p,l, t: real;
begin
vol_blk:=p*l*t
end.
(Sumber :
http://marsekalmuhammaddzulqornain.blogspot.com)
Listing Rumus Kubus
uses crt;
var
s: real;
begin
vol_kbs:=s*s*s
var
s: real;
begin
vol_kbs:=s*s*s
end.
(Sumber :
http://marsekalmuhammaddzulqornain.blogspot.com)
8. a)
add item : untuk melakukan penambahan maupun penghapusan suatu item pada combo
box
b) .text : untuk
menginput suatu/beberapa kata yang dibaca sebagai karakter teks
c) ekspresi : kombinasi
dari berbagai nilai eksplisit, konstanta, variabel, operator dan fungsi menurut
aturan prioritas tertentu untuk sebuah bahasa pemrograman tertentu, menghitung
menghasilkan nilai lain
d) mod : sisa bagi dari
suatu operasi pembagian (ex : 10 mod 3 = 1)
(Sumber : buku catatan.
unilanet.unila.ac.id/~gigih/belajar_komputer/VB)
9. Double
: tipe data pada VB 2010 dengan kisaran sangat besar
String : tipe data yang
memiliki alfanumerik (huruf dan angka)
Integer : tipe data numeric
berupa bilangan bulat
Single : tipe numeric dengan
kisaran -3,402823E+38 sampai +3,402823E+38
(Sumber : buku catatan)
10. a. potongan merupakan variabel double
b. total merupakan
variabel double
c. harga merupakan
variabel integer
d. jumlah merupakan
variabel integer
e. harga menggunnakan
operator val
f. jumlah menggunnakan
operator val
g. nilai potongan
ditentukan dengan menghitung jumlah dikalikan harga lalu dikali diskon,
kemudian hasilnya diagi 100
h. nilai total
ditentukan dengan menghitung jumlah dikalikan dengan harga yang kemudian
dikurangi nilai potongan.
(Sumber : pemikiran)
0 komentar:
Posting Komentar