Sunday, January 29, 2012

kuis No 3

Jawaban dari kasus Listing Program Server Dim ClientIndex As Byte Dim cRequest As Integer Dim cData As String Dim i As Integer Dim iGD As Integer Sub MulaiServer()         WS(0).LocalPort = 3000         WS(0).Listen         cRequest = 1         ClientIndex = 1 End Sub Private Sub Form_Load()         MulaiServer        ...

Soal Kuis No 2 Hari Jum'at

Jawaban quis No 2 dari kasus Nama : Andi pratama purbaNpm : 0902425MI- SO911 A Siang   Tampilan Form Server Listing Program Server Sub Hapus()kode.Enabled = TrueClearFORM MeCall RubahCMD(Me, True, False, False, False)cmdproses(1).Caption = " &simpan"End SubSub prosesDB(log As Byte)Select Case log    Case 0     sql = "insert into barang(Kode,Nama,Harga)" & _     "values('" & kode.Text & _     "','" &...

Friday, January 20, 2012

Tugas program pegawai Client & server 1

Di bawah ini listing programnya : Sub hapus()        NRK.Enabled = True    clearFORM Me    Call RubahCMD(Me, True, False, False, False)    cmdproses(1).Caption = " &Simpan "End Sub Sub prosesdb(log As Byte)Select Case log    Case 0        SQL = "INSERT into Pegawai(NRK,Nama_Pegawai,Alamat,Tempat_lahir,Tanggal_lahir,Agama,Jenis_Kelamin,Golongan)" & _       ...

Page 1 of 3123Next

Share

Twitter Delicious Facebook Digg Stumbleupon Favorites More