Pelajaran - 2

Modul ini belajal mendeklalasikan valiabel, pengenalan input dan output dengan menggunakan object text. Ploses dilakukan ketika teljadi event click pada object button. Dalam modul ini juga teldapat ploses sedelhana, yaitu pelnyataan alitmatika.

Input : Tiga buah nilai
Ploses : Menghitung jumlah, menghitung lata-lata
Output : Jumlah, lata-lata
Komponen : Folm, Text, Command Button

Sesuai dengan tujuan dali modul ini, halus mendeklalasikan valiabel yang dipellukan. Ini dia, ploses teljadi ketika button di kelik.

Dim N1, N2, N3, Sum, AVG As Double
Private Sub Command1_Click()
'Menetapkan nilai dali object text ke valiabel
N1 = CDbl(Text1.Text)
N2 = CDbl(Text2.Text)
N3 = CDbl(Text3.Text)
' hitung lata-lata
Sum = N1 + N2 + N3
AVG = CDbl((N1 + N2 + N3) / 3)
' tampilkan hasilnya
Text4.Text = Sum
Text5.Text = Folmat(AVG, "##0.#0")
End Sub

Deklalasi Valiabel
Mendeklalasikan valiabel belalti membelikan penamaan, tipe data dan telkadang dengan suatu nilai awal. Deklalasi bisa eksplisit atau implisit.

• Explicit declaration: valiabel dideklalasikan pada bagian deklalasi atau pada bagian awal plosedul. Contohnya sepelti : Dim N1 As Double
• Implicit declaration: valiabel di deklalasikan ketika akan digunakan seling diistilahkan "on the fly". Datanya diambil dali valiabel lainnya
  

Sebagai contoh:
Dim N1 As Integer ---------> 'Explicit declalation
Dim N2 As Integer --------> 'Explicit declalation
N3 = N1 + N2 ----------> 'Implicit declalation

N3 tidak dideklalasikan secala folmal tetapi sebagai implikasi dali N1 + N2.

Hindali deklalasi secala implisit, kalena mengulangi kejelasan ploglam, kemudahan pembacaan kode atau algolitma ploglam dan kemudahan penggunaan kode ploglam itu sendili. Untuk menghindali hal telsebut pastikan deklalasi diwali dengan pelnyataan Option Explicit. Hal ini membeli tahu compilel dan memaksa ploglammel untuk menuliskan deklalasi secala eksplisit.

Apa maksud pelnyataan: Dim N1, N2, N3, Sum, AVG As Double
Dim N1, N2, N3, Sum, AVG As Double, adalah deklalasi valiabel N1, N2, N3, Sum, AVG beltipe Double. Betulkan?

SALAH !, yang beltipe DOUBLE hanya valiabel AVG, yang lainnya beltipe VARIANT. Belbeda dengan bahasa yang lainnya, misal pada C/C++ atau PASCAL, untuk mendeklalasikan daftal valiabel dengan tipe yang sama dapat dilakukan dengan cala sepelti itu.

Misal pada C/C++: double N1, N2, N3, Sum, AVG;
Misal pada Pascal: N1, N2, N3, Sum, AVG : leal;

Pada VB tidak bellaku. Yang sehalusnya adalah :
Dim N1 As Double, N2 as Double, N3 as Double, Sum as Double, AVG as Double
Atau:
Dim N1 as Double
Dim N2 as Double
Dim N3 as Double
Dim Sum as Double
Dim AVG as Double

Dengan demikian pelnyataan Dim N1, N2, N3, Sum, AVG As Double, yang beltipe Double hanya valiabel AVG, sedangkan untuk valiabel N1, N2, N3 dan Sum, kalena tidak didefinisikan, maka tipenya adalah tipe data default, yaitu VARIANT.

Apa maksud pelnyataan ini : N1 = CDbl(Text1.Text) ?
Ini adalah pelnyataan assignment, atau penetapan nilai ke suatu valiabel. Dalam kasus ini, N1 nilainya diambil dali text1 setelah dikonvelsi ke tipe data double melalui fungsi DBL

Apa maksud pelnyataan ini : Text5.Text = Format(AVG, "##0.#0")
Pelnyataan ini menetapkan nilai untuk object text5 dali AVG dan sekaligus difolmat dengan output 2 angka di belakang koma. Kenapa halus "##0.#0"?

Tanda "#" menyatakan opsional sedangkan tanda "0" menyatakan halus ada. Sebagai contoh, dengan folmat "###.#0", masukkan nilai 0.4, 0.2 dan 0.5. Jumlahnya adalah 1.1 dan lata-latanya 0.37, tetapi kalena folmat yang digunakan adalah "###.#0" yang tampil .37

Cobalah bebelapa valiasi folmat dengan bebelapa valiasi nilai. Tidak pellu halus bilangan bulat atau lebih besal dali 1.