pada pertemuan kali ini silahkan dibuat form seperti gambar di bawah ini
Pengaturan properti silahkan dibuat seperti berikut
| No | Objek | Properties | Nilai |
| 1 | form | (name) | Program Tulis kalimat |
| caption | Program Tulis kalimat | ||
| 2 | Label | auto size | true |
| caption | Penulisan kalimat | ||
| 3 | text1 | (name) | text |
| height | 375 | ||
| width | 3255 | ||
| 4 | command 1 | caption | tulis kalimat |
| command 2 | caption | hapus kalimat |
lalu tuliskan coding program berikut
BAB 2. 2 TYPE DATA
Pengertian Tipe Data (Data Type) dan Mengenal Tipe Data Pada Visual Basic 6.0. hal dasar yang harus kalian mengerti adalah memilah dan menggunakan tipe data, jika kalian belajar pemrograman termasuk juga pemrograman Visual Basic maka wajib untuk mengerti tentang tipe datatype data yang ada di visual basic 6.0 seperti tabel berikut
didalam pemrograman sering digunakan istilah variabel dimana ini akan menyimpan nilai-nilai yang dipakai dalam perhitungan. contohnya adalah pendeklarasian menggunkan DIM dan konstanta (Phi)
variabel akumulator yaitu suatu variabel yang terus menerus bertambah sesuai data yang disimpan. sedangkan variabel storage menyimpan nilai yang nantinya dipanggil kembali
untuk pengaturan object propertiesnya silahkan dibuat seperti gambar dibawah
lalu coding programnya seperti berikut
Dim var1 As Single, var2 As Single
Dim luasan As Single
Const phi As Single = 3.14
Private Sub Command1_Click()
var1 = Text1.Text
var2 = Text2.Text
If Option1.Value = True Then
luasan = var1 * var1
Text3.Text = luasan
End If
If Option2.Value = True Then
luasan = var1 * var2
Text3.Text = luasan
End If
If Option3.Value = True Then
luasan = phi * var1 * var1
Text3.Text = luasan
End If
If Option4.Value = True Then
luasan = 0.5 * var1 * var2
Text3.Text = luasan
End If
End Sub
Private Sub Option1_Click()
Label1.Caption = "Sisi"
Label2.Visible = False
Label3.Caption = "Luas Bujur Sangkar"
Text2.Visible = False
Text3.Text = 0
End Sub
Private Sub Option2_Click()
Label1.Caption = "Panjang"
Label2.Visible = True
Label2.Caption = "Lebar"
Label3.Caption = "Luas Persegi Panjang"
Text1.Visible = True
Text2.Visible = True
Text1.Text = 0
Text2.Text = 0
Text3.Text = 0
End Sub
Private Sub Option3_Click()
Label1.Caption = "Jari-Jari"
Label2.Visible = False
Label3.Caption = "Luas Lingkaran"
Text1.Visible = True
Text2.Visible = False
Text1.Text = 0
Text3.Text = 0
End Sub
Private Sub Option4_Click()
Label1.Caption = "Alas"
Label2.Visible = True
Label2.Caption = "Tinggi"
Label3.Caption = "Luas Segitiga Siku-Siku"
Text1.Visible = True
Text2.Visible = True
Text1.Text = 0
Text2.Text = 0
Text3.Text = 0
End Sub