Egg-Plant

Tugas AP1B Visual Basic

Unknown | ,Selasa, November 11, 2014 |

TUGAS ALGORITMA PEMROGRAMAN 1 B



Disusun Oleh :
NAMA    : DIAH AYU SETIANI
NPM      : 2D114282
KELAS    : 1KB05



Coding Visual Basic:
-          Logika dari Coding Berikut yaitu untuk mengosongkan Seluruh  textbox dan Button yang terdapat pada Form.
-          Jika ingin mengosongkan Textbox dan labelnya yaitu dengan symbol (=””)
-          Untuk Field dan button gunakan symbol (=False)

Private Sub CMDBERSIH_Click()
TXTNAMA.Text = ""
TXTKELAS.Text = ""
LBLKELAS.Caption = ""
TXTHARGA.Text = ""
TXTJUMLAH.Text = ""
TXTTOTAL.Text = ""
OPTYOGYA.Value = False
OPTSOLO.Value = False
OPTSBY.Value = False
TXTNAMA.SetFocus
End Sub
-          Coding dibawah ini untuk tanda Keluar.
-          Jika di klik,maka akan memunculkan tab berjudul Informasi.
-          Dan terdapat tulisan (MAU KELUAR YAA...?)
-          Jika di Klik yes maka akan keluar dari program. Berikut codingnya :
Private Sub CMDKELUAR_Click()
S = MsgBox("MAU KELUAR YAA...?", vbQuestion + vbYesNo, "INFORMASI")
If S = vbYes Then
    End
End If
End Sub

-          Coding dibawah ini berupa harga (nilai) pada Harga Tiket.
-          jika kita memberikan angka 1 sampai 3. Jika kita memberikan angka 1 pada TXTHARGA maka akan keluar 310000 pada TXTKELAS.
-          Coding  pada bagian OPTSOLO dan OPTYOGYA,prinsip dasarnya sama dengan yg sudah dijelaskan. Yang membedakan hanya harganya. Berikut Codingannya :
Private Sub OPTSBY_Click()
If TXTKELAS.Text = "1" Then
    TXTHARGA.Text = 310000
ElseIf TXTKELAS.Text = "2" Then
    TXTHARGA.Text = 250000
Else
    TXTHARGA.Text = 170000
End If
End Sub

-          Coding  dibawah berfungsi untuk menampilkan jumlah harga yang harus dibayar.
-          Jumlah harga didapat dari TXTHARGA (harga per tiketnya) dikalikan dengan TXTJUMLAH (banyaknya tiket yang dipesan). Berikut Codingannya.

Private Sub TXTJUMLAH_Change()
TXTTOTAL.Text = Val(TXTHARGA.Text) * Val(TXTJUMLAH.Text)
End Sub

-          Coding  diatas untuk menampilkan label dari nama kelas kereta yg dipesan.
-          Jika pada TXTKELAS ditulis 1,maka label LBLKELAS akan menampilkan (EXECUTIVE).
-          Jika pada TXTKELAS ditulis 2,maka label LBLKELAS akan menampilkan (BISNIS).
-          Jika pada TXTKELAS ditulis 3,maka LBLKELAS akan menampilkan (EKONOMI).
-           Jika pada TXTKELAS ditulis selain 1,2,dan 3,maka LBLKELAS akan menampilkan (SALAH INPUT)
Private Sub TXTKELAS_Change()
If TXTKELAS.Text = "1" Then
    LBLKELAS.Caption = "EXECUTIVE"
ElseIf TXTKELAS.Text = "2" Then
    LBLKELAS.Caption = "BISNIS"
ElseIf TXTKELAS.Text = "3" Then
    LBLKELAS.Caption = "EKONOMI"
Else
    LBLKELAS.Caption = "SALAH INPUT"
End If
End Sub









1.        Output :
a.     6
b.    1 1
1 2
2 1
 2 2

c.     Lulus
d.     TOLAK !
 TOLAK !
       
 TOLAK MENCONTEK !

e.    A. INGAT!INGAT!
B. Let B$(J) = B$(5) + B$(4) + B$(3) + B$(2) + B$(1)

2.       Jenis – jenis Variabel dalam basic..
Setiap data yang disimpan dalam komputer memerlukan variabel sebagai sesuatu tempat untuk menyimpan nilai dari data tersebut, dan nilainya suatu variable dapat berubah-ubah selama proses program.misalnya kita bisa menyimpan nilai ujian mid di variable A dan nilai ujian akhir di variable B, dan setiap mahasiswa nilainya pasti berbeda.
Dalam penamaan sebuah variable tidak boleh ada 2 atau lebih variabel yang memiliki nama yang sama, pemberian nama variabel harus unik. Hal ini bertujuan agar tidak terjadi kesalahan pada program. 
Dalam visual basic dikenal adanya istilah variabel lokal dan variabel global :
a.    Variabel lokal yaitu variabel yang hanya dikenal pada satu bagian program saja, nilai data yang terdapat di dalamnya hanya hidup ketika bagian program tersebut dijalankan.
b.    Variabel global yaitu variabel yang dikenal pada seluruh bagian program dan waktu hidupnya selama program dijalankan.
Selain itu masih ada aturan-aturan dalam penamaan sebuah variable yaitu sebagai berikut :
a.    Tidak boleh lebih dari 255 karakter
b.    Nama harus unik tidak boleh menggunakan kata yang sudah digunakan dalam visual basic, seperti dim, procedure, dll.
c.    Tidak boleh menggunakan spasi atau tanda titik/dot (.) diantara kata jika nama variabel lebih dari satu kata
d.    Harus dimulai dari huruf , bukan angka atau karakter lainnya
Bentuk umum untuk mendeklarasikan sebuah variabel :
Dim/Public/Private/Static NamaVariabel As TipeData
Misalnya :
Dim sngAngka As Single
Dim strText As String
Dim dblBilangan As Double
Untuk sebuah variabel agar bisa digunakan di seluruh bagian program, harus dideklarasikan secara publik contohnya sebagai berikut :
Public strNama As String
Untuk memanggil variabel public perlu disertai nama form tempat variabel di deklarasikan. Misalnya kita mendeklarasikan variabel public di form1 maka untuk memanggilnya dari form2 caranya adalah sebagai berikut :
nama = form1.strNama
variabel lokal hanya bisa digunakan pada bagian program dimana variabel tersebut dideklarasikan, sebaliknya variabel global bisa digunakan di seluruh bagian program.

3.       Tipe-tipe data yang terdapat dalam visual basic antara lain :
a.    Integer, long : tipe data untuk angka bulat
b.    Single, double : tipe data untuk angka pecahan/desima
c.    Currency : tipe data untuk angka mata uang
d.    String : tipe data untuk teks
e.    Boolean : tipe data logika ( True/False)
f.    Date : tipe data waktu/tangggal
g.    Object : tipe data untuk sebuah objek misalnya gambar
h.    Variant : tipe data variant

4.       Jenis Operator Pada VB :
A.   Operator Aritmatika digunakan untuk operasi matematis terhadap nilai data. Simbol-simbol yang digunakan :
Simbol Operasi Matematis Contoh
^
pemangkatan
5 ^ 2 hasilnya 25
*
perkalian
5 * 2 hasilnya 10
/
pembagian (hasil pecahan)
5 / 2 hasilnya 2,5
\
pembagian (hasil bulat)
5 \ 2 hasilnya 2
mod
sisa pembagian
5 Mod 2 hasilnya 1
+
penjumlahan
5 + 2 hasilnya 7
-
pengurangan
5 – 2 hasilnya 3
&
penggabungan string
5 & 2 hasilnya 52

B.    Operator Perbandingan digunakan untuk operasi yang membandingkan nilai data. Simbol-simbol yang digunakan :
Simbol Operasi Perbandingan Contoh
<  lebih kecil 5 < 2 hasilnya FALSE
>  lebih besar 5 > 2 hasilnya TRUE
<=  lebih kecil atau sama dengan 5 <= 2 hasilnya FALSE
>=  lebih besar atau sama dengan 5 >= 2 hasilnya TRUE     
=  sama dengan 5 = 2 hasilnya FALSE
<>  tidak sama dengan 5 <> 2 hasilnya TRUE

C.     Operator Logika digunakan untuk operasi yang membandingkan suatu perbandingan. Simbolsimbol yang digunakan :
Simbol Operasi Logika Contoh
Or atau (5 < 2) Or (5 > 2) hasilnya TRUE
And dan (5 < 2) And (5 > 2) hasilnya FALSE
Not Tidak Not (5 < 2) hasilnya TRUE


  • Digg
  • Del.icio.us
  • StumbleUpon
  • Reddit
  • RSS

0 komentar:

Posting Komentar