yayan nuryana

YAYAN NURYANA D3/KA/3/M 43A87087100022  MEMBUAT ENTRI JURUSAN DI VB VERSI YAYAN NURYANA PERTAMA: KITA BUAT DULU FORM PADA VB SEPERTI DI BAWAH INI:                 KITA BUAT database dengan cara klik add-ins > visual data manager > file > new > ms. Acces > version 7.0 MDB. Buat folder dan file untuk menyimpan database yang akan dibuat, Setelah disimpan klik kanan pada visual data manager, lalu klik new table kemudian isi kolom table name dengan nama Jurusan > klik add field > isi name dengan kd_jurusan > size 10 > ok > add field > isi name dengan nm_jurusan > size 30 > ok >close > build the table. Seperti gambar dibawah ini : 5. Setting project                         ...

CARA MEMBUAT  DERET BARIS DI VB VERSI YAYAN NURYANA  NPM:43A87067100022 D3\KA\M\3 CARA PERTAMA  BIKIN  TEXT,COMMAND,LIST SEPERTI DI BAWAH INI CARA KEDUA KETIK SELURUHPERINTAH DI BAWAH INI Dim a, i, n As Integer Private Sub Command1_Click() n = Text1.Text i = 1 Do While i <= n If i Mod 2 = 0 Then List1.AddItem -1 Else If i Mod 2 = 1 Then List1.AddItem 1 End If End If i = i + 1 Loop End Sub Private Sub Command2_Click() i = 1 n = Text2.Text a = 1 m = -1 List2.Clear Do While i <= n m = m * -1 a = i * m * 2 List2.AddItem a i = i + 1 Loop End Sub Private Sub Command3_Click() a = 1 n = Val(Text3) i = 1 Do While i <= n List3.AddItem a If a = 1 Then a = 3 Else a = a + 3 End If i = i + 1 Loop End Sub Private Sub Command4_Click() a = 2 n = Val(Text4) i = 1 Do While i <= n List4.AddItem a a = a * a i = i + 1 Loop End Sub...

TUGAS VB 2 YAYAN NURYANA NPM:43A87067100022 D3\KA\3\M LANGKAH – LANGKAH MEMBUAT PROGRAM KALKULATOR Dim st, st2 As String Private Sub Text1_Click() st = "T" st2 = "f" End Sub Private Sub Text2_Click() st = "f" st2 = "T" End Sub 1.   Private Sub Command1_Click() If st = "T" Then Text1.Text = 1 Else If st2 = "T" Then Text2.Text = 1 End If End If End Sub 2.   Private Sub Command2_Click() If st = "T" Then Text1.Text = 2 Else If st2 = "T" Then Text2.Text = 2 End If End If End Sub 3.   Private Sub Command3_Click() If st = "T" Then Text1.Text = 3 Else If st2 = "T" Then Text2.Text = 3 End If End If End Sub 4.   Private Sub Command4_Click() If st = "T" Then Text1.Text = 4 Else If st2 = "T" Then Text2.Text = 4 End If End If End Sub 5.   Private Sub Comman...

TUGAS VB 1 YAYAN NURYANA  NPM:43A87067100022 D3\KA\M\3 TOOLBOX DAN PENGERTIANYA PADA VISUAL BASIC Control Description Pointer Menyediakan suatu cara untuk memindahkan dan mengubah ukuran bentuk kontrol PictureBox Menampilkan PictureBox icons / bitmaps dan metafiles . Ini menampilkan teks atau bertindak sebagai kontainer visual untuk kontrol lain . TextBox Digunakan untuk menampilkan pesan dan masukkan teks . Frame Berfungsi sebagai bingkai wadah visual dan fungsional untuk kontrol CommandButton Digunakan untuk melaksanakan tindakan tertentu ketika pengguna memilih itu . CheckBox Menampilkan kotak centang pilihan / Benar / Salah atau Ya Tidak . OptionButton yang merupakan bagian dari kelompok pilihan memungkinkan pengguna untuk memilih hanya satu pilihan bahkan ini akan menampilkan pilihan mulitiple...