Selasa, 31 Maret 2020
M4 PKTI 2B ANUGRAH BINTANG LANGKARI 20219948 1EB10
1. A. CARA PEMBUATANNYA Implementasi If-Then;
1. . Buka Halaman Utama VB
2. Desain Form (seperti tampilan seperti halaman sebelumnya)
3. Buat 2 Label; 2 Text dan 2 Command
4. Pengaturan Desain Form Pengaturan
Label 1 caption >
Label 2 Caption -
Text 1Text -
Text 2 Text -
Command 1 Caption Hasil
Command 2 Caption Refresh
5. Pembutan Kode Program : Penjelasan Kode Program
Private Sub Command1_Click()
If Text1.Text > Text2.Text Then
Label2.Caption = "Benar" (jika pertanyaannya kondisi benar)
End If
End Sub
Private Sub Command2_Click()
Text1.Text = ""
Text2.Text = ""
Label2.Caption = ""
End Sub
Note : Jika kondisi salah makan tidak akan menghasilkan apa apa
6. kemudian klik running
B. CARA MEMBUAT Implementasi If-Then
1. . Buka Halaman Utama VB
2. Desain Form (seperti tampilan seperti halaman sebelumnya)
3. Buat 2 Label; 2 Text dan 2 Command
4. Pengaturan Desain Form Pengaturan :
Label 1 caption >
Label 2 Caption -
Text 1Text -
Text 2 Text -
Command 1 Caption Hasil
Command 2 Caption Refresh
5. Penjelasan Kode Program
Private Sub Command1_Click()
If Text1.Text > Text2.Text Then
Label2.Caption = "Benar" (Pernyataan jika kondisi benar )
Else
Label2.Caption = "Salah" (Pernyataan jika kondisi salah)
End If
End Sub
Private Sub Command2_Click()
Text1.Text = ""
Text2.Text = ""
Label2.Caption = ""
End Sub
6. Kemudian klik running
2. bagaimana logika dari programny:
A. jika suatu kondisi benar, maka pertanyaanny juga benar sebalikny juga jika suatu kondisi pertanyaan yang salah, maka suatu kondisi pertanyaan pun juga salah
Rabu, 25 Maret 2020
PKTI 2B VCLASS 1EB10
TUTORIAL MEMBUAT Implementasi Tipe Data, Konstanta dan Variabel
1. Buka Aplikasi microsoft visual basic
2. Buka Halaman Utama VB
2. Desain Form
3. Buat 3 Label; 3 Text dan 2 Command
4. Pengaturan Desain Form
label 1 dikasih nama volume balok
label 2 dikasih nama luas balok
label 3 dikasih nama keliling balok Command 1 Caption Hasil
command 1 capptionny hasil
Command 2 Caption Keluar
5. lalu masukkan rumusny seperti Dim Luas, Keliling As Double Const Phi = 22 / 7
Jari_jari = Val(Jari.Text) Luas = Val(Phi * Jari_jari * Jari_jari) Keliling = Val(2 * Phi * Jari_jari)
Luas_text.Text = Luas Keliling_text.Text = Keliling
6. lalu jangan ketik End Sub
7. abis itu langsung di running untuk melihat hasilny
NAMA: ANUGRAH BINTANG LANGKARI
KELAS:1EB10
NPM:20219948
Langganan:
Postingan (Atom)