Postingan

Menampilkan postingan dari Oktober, 2011

tugas 4 entri data pake vb

Gambar
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                                                                                              Label 1 Caption : kd_jurusan Label 2 Caption : nm_jurusan Command 1 Caption : tambah

TUGAS VB 3

Gambar
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 CARA KE TIGA