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