Jumat, 09 November 2012

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 (+, -, /, *)
(Sumber : Modul Praktikum Teknologi Informatika 2012 Teknik Industri Undip)
5.      Flowchart Program Bil. Ganjil dan Genap

Interface 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

(Sumber:http : //itsibsi.blogspot.com)

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.
(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
(Sumber : http://materi-kuliah-informatika.blogspot.com)
Listing Rumus Balok
uses crt;
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
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