Kamis, 15 November 2012

Modul 2 Praktikum Teknologi Informatika 2012


1. menjalankan operan-operan (yang dioperatorkan) yang ada seperti variabel atau konstanta. (modul praktikum TI 2012)
2. operator yang bertugas untuk menyelasaikan proses perhitungan.
-  =   : operator sama dengan
-  <   : operator lebih kecil
-  >    : operator lebih besar
-   <>   : operator tidak sama dengan
3. m3engubah nilai angka yang mempunyai nilai, string, ke tipe angka/double. Menggunakan bahasa inggris.
4. mengidentifikasi apakah beberapa elemen sama, identik , kurang dari atau lebih besar dari yang lain. ( ==,===, !=, <>, dll). Sedangkan operator aritmatika menentukan nilai secara matematis.
5. .
 









6.Perhitungan Nilai
Algoritma
Deskripsi
Absensi, UAS, UTS, Tugas: real
Deklarasi
Sum         0
Tugas         0
UTS         0
UAS        0
Read absensi
                 Absensi = absensi*10%
Read tugas
                 Tugas = tugas*20%
Read UTS
UTS = UTS *30%
Read UAS
                 UAS = UAS*40%
Sum = absensi+tugas+UTS+UAS
Ave = Sum/4
write Ave

https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEjWumy6K9Fg0-0e6ExyacjtoM8bhmaEV1co36r8dbgr8jZrB-3rl10JTGFvg0_STr_PJFxA4AcKULbEDClcHipVYHYYFB-j56xEaaFVwSWJnMCg44qTutSAB0WnkK4jarAG8DO8bB70FDin/s320/New+Picture+%25282%2529.bmp


7. Algoritma lingkaran, segitiga dan balok
·         Listing rumus lingkaran
                               Luas lingkaran
Declaration
Public a As Integer
Const pi = 3.14
Private Sub cmdbersih_Click()
optjar
i.Value = 0
End Sub
Private Sub cmdhitung_Click()
a = Val(txtukur.Text)
txtluas.Text = Round( pi * a ^ 2, 2)
                        End Sub

·         Listing rumus segitiga

                           Luas
General Declaration
Public a,b As Integer
Private Sub cmdbersih_Click()
optalas.Value = 0
Opttinggi.value = 0
End Sub

Private Sub cmdhitung_Click()
a = Val(txtalas.Text)
b = val(txttinggi.Text)
txtluas.Text = Round(  a*b/2, 2)
                    End Sub

·         Listing rumus balok
Volume
General Declaration
Public a, As Integer

Private Sub cmdbersih_Click()
optsisi.Value = 0
End Sub

Private Sub cmdhitung_Click()
a = Val(txtsisi.Text)
txtluas.Text = Round(  s^3, 2)
End sub

8.
·         .add item      : perintah untuk menambahkan item tertenu
·         .text             : menuliskan text
·         Ekspresi        : gabungan dari kesatuan nilai eksplisit konstanta
·         Mod                         : sisa pembagian dua buah variabel atau lebih



9 .
·            Double                  : variabel bialangan positif
·            Single                    : variabel data positif atau negatif
·            String                    : Objek yang diapit tanda petik atau tana petik tunggal
·            Integer                   : data yang akan diproses secara numerik.

Tidak ada komentar:

Posting Komentar