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
        GD.Rows = 41
        For i = 1 To 40
            GD.Col = 0
            GD.Row = i
            GD.Text = i
        Next i
        iGD = 1
End Sub


Private Sub Timer1_Timer()
    For i = 1 To GD.Rows - 1
        GD.Row = i
        GD.Col = 4
        If GD.Text = "START" Then
            GD.Col = 3
            GD.Text = Time
        End If
    Next i
End Sub

Private Sub WS_ConnectionRequest(index As Integer, ByVal requestID As Long)
        Load WS(cRequest)
        WS(cRequest).Close
        WS(cRequest).Accept requestID
        cRequest = cRequest + 1 '
End Sub

Private Sub WS_DataArrival(index As Integer, ByVal bytesTotal As Long)
        WS(index).GetData cData, vbString, bytesTotal
        Call CekData(index)
       
End Sub

Sub CekData(index)
    On Error Resume Next
        Dim kata() As String
        kata = Split(cData, "-")
        Select Case kata(0)
        Case "START"
                        GD.Row = iGD
                        GD.Col = 1
                        GD.Text = kata(1) 'WS(index).RemoteHostIP
                        GD.Col = 2
                        GD.Text = Time
                        GD.Col = 4
                        GD.Text = "START"
                        GD.Col = 5
                        GD.Text = kata(2)
                        iGD = iGD + 1
        Case "STOP"
            For i = 1 To GD.Rows - 1
                GD.Row = i
                GD.Col = 1
                If GD.Text = kata(1) Then
                    GD.Col = 4
                    GD.Text = "STOP"
                End If
            Next i
        End Select
End Sub
       
Private Sub WS_Error(index As Integer, ByVal Number As Integer, Description As String, ByVal Scode As Long, ByVal Source As String, ByVal HelpFile As String, ByVal HelpContext As Long, CancelDisplay As Boolean)
        WS(index).Close
End Sub

Tampilan Server

Form Client

Listing client

Dim IPServer As String
Dim xKirim As String
Dim xData1() As String
Dim xData2() As String
Dim IPS As String
Dim USER As String
Dim cRequest As Integer
Public jam As Currency



Private Sub start_Click()
    ws(index).SendData "START-" & USER & "-andi_pratama"
    Timer1.Enabled = False
End Sub

Private Sub stop_click()
    ws(index).SendData "STOP-" & USER
    pakai.Value = selesai.Value - mulai.Value
    Timer2.Enabled = False
End Sub

Private Sub Timer1_Timer()
    mulai.Value = Format(Now, "HH:MM:SS")
   

End Sub

Private Sub Timer2_Timer()
    ws(index).SendData "PAKAI-" & pakai.Value & "/" & 3000
    selesai.Value = Format(Now, "HH:MM:SS")
   
   
End Sub








Private Sub Form_Load()
    Me.Caption = "CLIENT IP :" & ws(index).LocalIP
    biaya.Text = ""
    Pemakaian = ""
    IPS = "127.0.0.1"
    USER = ws(index).LocalIP
    ws(index).Connect IPS, 3000
End Sub



Private Sub WS_DataArrival(index As Integer, ByVal bytesTotal As Long)
    ws(index).GetData xKirim, vbString, bytesTotal
    Call CheckData
End Sub
Sub CheckData()
Dim kata() As String
    xData1 = Split(xKirim, "-")
    xData2 = Split(xData1(1), "/")
   
    Select Case xData1(0)
        Case "PAKAI"
            pakai.Value = xData2(0)
            biaya.Text = xData2(1)
            Pemakaian.Text = xData2(1) / 60
            bayar.Text = Val(Hour(pakai.Value)) + Val(Minute(pakai.Value)) * (xkata(1) / 60)
        End Select
        Dim kata() As String
kata = Split(cData, “ - ”)
Select Case kata(0)
Case “PAKAI”:
pakai.Value = xData2(0)
biaya.Text = xData2(1)
bayar.Text = Val(Hour(pakai.Value)) + Val(Minute(pakai.Value)) * (xkata(1) / 60)
End Select
End Sub

Read More

Soal Kuis No 2 Hari Jum'at

Jawaban quis No 2 dari kasus

Nama : Andi pratama purba

Npm : 0902425

MI- SO911 A Siang

 

Tampilan Form Server

Listing Program Server

Sub Hapus()

kode.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 barang(Kode,Nama,Harga)" & _

     "values('" & kode.Text & _

     "','" & nama.Text & _

     ",'" & harga.Text & "')"

    Case 1

     sql = "update barang set nama='" & nama.Text & "','" & _

     "Haraga='" & harga.Text & "' " & _

     "where Kode ='" & kode.Text & "'"

    case2

    sql = "delete form barang where kode='" & kode.Text & "' "

End Select

MsgBox "pemorosesan record database telah berhasil...!", vbInformation, "data brang"

db.BeginTrans

db.Execute sql, adCmdTable

db.CommitTrans

Call Hapus

Adodc1.Refresh

kode.SetFocus

End Sub

Sub TampilBarang()

On Error Resume Next

kode.Text = rs!kode

nama.Text = rs!nama

harga.Text = rs!harga

End Sub

Private Sub cmdproses_click(index As Integer)

Select Case index

    Case 0

      Call Hapus

      kode.SetFocus

    Case 1

      If cmdproses(1).Caption = " &Simpan" Then

         Call prosesDB(0)

     Else

       Call prosesDB(1)

     End If

   Case 2

   X = MsgBox("Yaki RECord barang akan di hapus...!", vbQuestion + vbYesNo, "barang")

   If X = vbYes Then prosesDB 2

   Call Hapus

   kode.SetFocus

   Case 3

     Call Hapus

     kode.SetFocus

   Case 4

     Unload Me

   End Select

End Sub

Private Sub form_load()

Call OPENDB

Call Hapus

mulaiserver

End Sub

Private Sub kode_keypress(keyascii As Integer)

If keyascii = 13 Then

   If kode.Text = "" Then

    MsgBox "masukkan kode barang..!", vbInformation, "Barang"

    kode.SetFocus

    Exit Sub

End If

sql = "select * form baragng where kode='" & kode.Text & "'"

If rs.State = adStateOpen Then rs.Close

rs.Open sql, db, adOpenDynamic, adLockBatchOptimistic

If rs.RecordCount <> 0 Then

    TampilBarang

    Call RubahCMD(Me, False, True, True, True)

    cmdproses(1).Caption = "& edit"

    kode.Enabled = False

Else

X = kode.Text

Call Hapus

kode.Text = X

Call RubahCMD(Me, False, True, False, True)

cmdproses(1).Caption = "& Simpan"

End If

nama.SetFocus

End If

End Sub

Sub mulaiserver()

WS.LocalPort = 1000

WS.Listen

End Sub

Module Server

Public db As New ADODB.Connection

Public rs As New ADODB.Recordset

Public rs2 As New ADODB.Recordset

Public sql As String

Sub OPENDB()

If db.State = adStateOpen Then db.Close

db.CursorLocation = adUseClient

db.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=D:\andi\belajarserver\Test.mdb;Persist Security Info=False"

End Sub

Sub ClearFORM(f As Form)

Dim ctl As Control

For Each ctl In f

  If TypeOf ctl Is TextBox Then ctl.Text = ""

  If TypeOf ctl Is ComboBox Then ctl.Text = ""

Next

End Sub

Sub center(f As Form)

f.Move (Screen.Width - f.Width) / 2, (Screen.Height - f.Height) / 4

End Sub

Sub RubahCMD(f As Form, l0 As Boolean, l1 As Boolean, l2 As Boolean, l3 As Boolean)

f.cmdproses(0).Enabled = l0

f.cmdproses(1).Enabled = l1

f.cmdproses(2).Enabled = l2

f.cmdproses(3).Enabled = l3

End Sub

Tampilan server setelah di Compile

 

 Tampilan Form Client

Listing Program Client

Dim ipserver As String

Sub Hapus()

    kode.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 barang(Kode, Nama, Harga)" & _

        "values('" & kode.Text & _

        "','" & nama.Text & _

        "','" & harga.Text & "')"

    Case 1

        sql = "UPDATE Barang SET Nama = '" & nama.Text & "'," & _

        "Harga = '" & harga.Text & "', " & _

        "where Kode = '" & kode.Text & "'"

    Case 2

        sql = "DELETE form Barang WHERE Kode='" & kode.Text & "'"

 End Select

 MsgBox "Pemrosesan Record Database telah berhasil...!", vbInformation, "Data Barang"

 Call Hapus

 kode.SetFocus

End Sub

Private Sub cmdProses_Click(Index As Integer)

Select Case Index

Case 0

Call Hapus

kode.SetFocus

    Case 1

    If cmdProses(1).Caption = "&simpan" Then

Else

    sql = "UPDATE Barang set " & _

        "nama='" & nama.Text & _

        "',harga='" & harga.Text & _

        "' where kode='" & kode.Text & "'"

        WS.SendData "UPDATE-" & sql

End If

    Case 2

    X = MsgBox("Yakin Record Barang Akan Dihapus.....!!!", vbQuestion + vbYesNo, "Barang")

    If X = vbYes Then

        WS.SendData "DELETE-" & kode.Text

End If

Call Hapus

kode.SetFocus

    Case 3

    Call Hapus

kode.SetFocus

    Case 4

    Unload Me

End Select

End Sub

Private Sub kode_keypress(keyAscii As Integer)

If keyAscii = 13 Then

    If kode.Text = "" Then Exit Sub

    WS.SendData "SEARCH-" & kode.Text

    End If

End Sub

Sub mulaikoneksi()

ipserver = "192.168.10.1"

ipclient = WS.LocalIP

WS.Connect ipserver, 2500

End Sub

Private Sub Form_Load()

Call Hapus

mulaikoneksi

End Sub

Private Sub form_Queryunload(cancel As Integer, unloadmode As Integer)

DoEvents

End

End Sub

Private Sub WS_dataarrival(ByVal bytesTotal As Long)

Dim xkirim As String

Dim xdata1() As String

Dim xdata2() As String

WS.GetData xkirim, vbString, bytesTotal

xdata1 = Split(xkirim, "-")

Select Case xdata1(0)

    Case "NOTHING"

X = kode.Text

Call Hapus

kode.Text = X

Call RubahCMD(Me, False, True, False, True)

cmdProses(1).Caption = "&Simpan"

nama.SetFocus

    Case "RECORD"

xdata2 = Split(xdata1(1), "/")

nama.Text = xdata2(0)

harga.Text = xdata2(1)

Call RubahCMD(Me, False, True, True, True)

cmdProses(1).Caption = "&Edit"

kode.Enabled = False

nama.SetFocus

Case "DEL"

        MsgBox "Penghapusan Data Berhasil!"

        Call Hapus

Case "EDIT"

    MsgBox "Pengeditan Record Berhasil!"

    Call Hapus

End Select

End Sub

Module Client

Public sql As String

Sub clearform(f As Form)

Dim ctl As Control

For Each ctl In f

If TypeOf ctl Is TextBox Then ctl.Text = ""

If TypeOf ctl Is ComboBox Then ctl.Text = ""

Next

End Sub

Sub center(f As Form)

f.Move (Screen.Width - f.Width) / 2, (Screen.Height - f.Height) / 4

End Sub

Sub RubahCMD(f As Form, L0 As Boolean, L1 As Boolean, L2 As Boolean, L3 As Boolean)

    f.cmdProses(0).Enabled = L0

    f.cmdProses(1).Enabled = L1

    f.cmdProses(2).Enabled = L2

    f.cmdProses(3).Enabled = L3

End Sub

 Tampilan Form Client Stelah Di compile

Read More

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)" & _

        "values('" & NRK.Text & _

        "','" & Nama_Pegawai.Text & _

        "','" & Alamat.Text & _

        "','" & Tempat_lahir.Text & _

        "','" & Tanggal_lahir.Text & _

        "','" & Agama.Text & _

        "','" & Jenis_Kelamin.Text & _

        "','" & Golongan.Text & "')"

    Case 1

        SQL = "UPDATE Pegawai set Nama_Pegawai='" & Nama_Pegawai.Text & "'," & _

        "Alamat='" & Alamat.Text & "', " & _

        "Tempat_lahir='" & Tempat_lahir.Text & "', " & _

        "Tanggal_lahir='" & Tanggal_lahir.Text & "', " & _

        "Agama='" & Agama.Text & "', " & _

        "Jenis_Kelamin='" & Jenis_Kelamin.Text & "', " & _

        "Golongan='" & Golongan.Text & "' " & _

        "where NRK='" & NRK.Text & "'"

    Case 2

        SQL = "DELETE From Pegawai where NRK='" & NRK.Text & "'"

    End Select

MsgBox "pemrosesan record database telah berhasil....!!", vbInformation, "Pegawai"

Db.BeginTrans

Db.Execute SQL, adCmdTable

Db.CommitTrans

Call hapus

Adodc1.Refresh

NRK.SetFocus

End Sub

Sub tampilPegawai()

    On Error Resume Next

    NRK.Text = RS!NRK

    Nama_Pegawai.Text = RS!Nama_Pegawai

    Alamat.Text = RS!Alamat

    Tempat_lahir.Text = RS!Tempat_lahir

    Tanggal_lahir.Text = RS!Tanggal_lahir

    Agama.Text = RS!Agama

    Jenis_Kelamin.Text = RS!Jenis_Kelamin

    Golongan.Text = RS!Golongan

End Sub

Private Sub cmdproses_click(Index As Integer)

    Select Case Index

        Case 0

            Call hapus

            NRK.SetFocus

        Case 1

            If cmdproses(1).Caption = "&Simpan" Then

            Call prosesdb(0)

        Else

            Call prosesdb(1)

            End If

        Case 2

            X = MsgBox("yakin record Pegawai akan di hapus...!", vbQuestion + vbYesNo, "Pegawai")

            If X = vbYes Then prosesdb (2)

            Call hapus

            NRK.SetFocus

        Case 3

            Call hapus

            NRK.SetFocus

        Case 4

            Unload Me

            menu.Enabled = True

            menu.SetFocus

        End Select

End Sub

Private Sub Form_Load()

    Call OPENDB

    Call hapus

    mulaiserver

End Sub

Private Sub NRK_KeyPress(KeyAscii As Integer)

    If KeyAscii = 13 Then

        If NRK.Text = "" Then

            MsgBox "masukan NRK Pegawai..!", vbInformation, "Pegawai"

            NRK.SetFocus

            Exit Sub

        End If

        SQL = "select*from Pegawai where NRK='" & NRK.Text & "'"

        If RS.State = adStateOpen Then RS.Close

        RS.Open SQL, Db, adOpenDynamic, adLockOptimistic

        If RS.RecordCount <> 0 Then

            tampilPegawai

            Call RubahCMD(Me, False, True, True, True)

            cmdproses(1).Caption = "&Edit"

            NRK.Enabled = False

        Else

            X = NRK.Text

            Call hapus

            NRK.Text = X

            Call RubahCMD(Me, False, True, False, True)

            cmdproses(1).Caption = "&Simpan"

        End If

        Nama_Pegawai.SetFocus

    End If

    

       

End Sub

Sub mulaiserver()

    WS.LocalPort = 1000

    WS.Listen

End Sub

Private Sub WS_ConnectionRequest(ByVal requestID As Long)

    WS.Close

    WS.Accept requestID

    Me.Caption = "server-client" & WS.RemoteHostIP & "Connect"

   

End Sub

Private Sub WS_DataArrival(ByVal bytesTotal As Long)

    Dim xKirim As String

    Dim xData1() As String

    Dim xData2() As String

   

    WS.GetData xKirim, vbString, bytesTotal

    xData1 = Split(xKirim, "-")

   

    Select Case xData1(0)

        Case "SEARCH"

            SQL = "select*from Pegawai where NRK='" & xData1(1) & "'"

            If RS.State = adStateOpen Then RS.Close

            RS.Open SQL, Db, adOpenDynamic, adLockOptimistic

            If RS.RecordCount <> 0 Then

            WS.SendData "RECORD-" & RS!Nama_Pegawai & "/" & RS!Alamat & "/" & RS!Tempat_lahir & "/" & RS!Tanggal_lahir & "/" & RS!Agama & "/" & RS!Jenis_Kelamin & "/" & RS!Golongan

        Else

        WS.SendData "NOTHING-DATA"

        End If

       

        Case "DELETE"

            SQL = "DELETE * From Pegawai " & _

            "where NRK='" & xData1(1) & "'"

            Db.BeginTrans

            Db.Execute SQL, adCmdTable

            Db.CommitTrans

            Adodc1.Refresh

            WS.SendData "DEL-xxx"

        Case "UPDATE"

            Db.BeginTrans

            Db.Execute xData1(1), adCmdTable

            Db.CommitTrans

            WS.SendData "Edit-xxx"

            Adodc1.Refresh

        Case "INSERT"

            Db.BeginTrans

            Db.Execute xData1(1), adCmdTable

            Db.CommitTrans

            WS.SendData "INSERT-xxx"

            Adodc1.Refresh

        End Select

End Sub

MODUL

Public Db As New ADODB.Connection

Public RS As New ADODB.Recordset

Public RS2 As New ADODB.Recordset

Public SQL As String

Sub OPENDB()

    If Db.State = adStateOpen Then Db.Close

    Db.CursorLocation = adUseClient

    Db.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=E:\Pegawai\Server\belajarserver\Test.mdb;Persist Security Info=False"

    End Sub

Sub clearFORM(f As Form)

Dim ctl As Control

For Each ctl In f

    If TypeOf ctl Is TextBox Then ctl.Text = ""

    If TypeOf ctl Is ComboBox Then ctl.Text = ""

Next

End Sub

Sub center(f As Form)

    f.Move (Screen.Width - f.Width) / 2, (Screen.Height - f.Height) / 4

End Sub

'

Sub RubahCMD(f As Form, L0 As Boolean, L1 As Boolean, L2 As Boolean, L3 As Boolean)

    f.cmdproses(0).Enabled = L0

    f.cmdproses(1).Enabled = L1

    f.cmdproses(2).Enabled = L2

    f.cmdproses(3).Enabled = L3

End Sub

MENU UTAMA..

Private Sub mnuPegawai_Click()

frmmahasiswa.Show

End Sub

LISTING CLIENT

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 tabel(NRK, Nama, alamat)" & _

        "values('" & NRK.Text & _

        "','" & nama.Text & _

        "','" & alamat.Text & "')"

    Case 1

        SQL = "UPDATE tabel set Nama = '" & nama.Text & "'," & _

        "alamat = '" & alamat.Text & "', " & _

        "whereNRK = '" & NRK.Text & "'"

    Case 2

        SQL = "DELETE FROM tabel WHERENRK='" & NRK.Text & "'"

 End Select

 MsgBox "Pemrosesan Record Database telah berhasil...!", vbInformation, "Data tabel"

 Call Hapus

NRK.SetFocus

End Sub

Private Sub cmdProses_Click(Index As Integer)

Select Case Index

Case 0

Call Hapus

NRK.SetFocus

    Case 1

    If cmdProses(1).Caption = "&Simpan" Then

    SQL = "INSERT INTO tabel(NRK,nama,alamat,tempatlhr,tgllhr,agama,jeniskel,gol)" & _

            "values('" & NRK.Text & _

            "','" & nama.Text & _

            "','" & alamat.Text & "')"

           

        WS.SendData "INSERT-" & SQL

    Else

        SQL = "UPDATE tabel set " & _

        "nama='" & nama.Text & _

        "',alamat='" & alamat.Text & _

        "' whereNRK='" & NRK.Text & "'"

        WS.SendData "UPDATE-" & SQL

    End If

    Case 2

    X = MsgBox("Yakin Record tabel Akan Dihapus.....!!!", vbQuestion + vbYesNo, "tabel")

    If X = vbYes Then

    WS.SendData "DELETE-" & NRK.Text

End If

Call Hapus

NRK.SetFocus

    Case 3

    Call Hapus

NRK.SetFocus

    Case 4

    Unload Me

End Select

End Sub

Private Sub NRK_keypress(KeyAscii As Integer)

If KeyAscii = 13 Then

    If NRK.Text = "" Then Exit Sub

    WS.SendData "SEARCH-" & NRK.Text

    End If

End Sub

Sub mulaikoneksi()

ipserver = "192.168.10.1"

ipclient = WS.LocalIP

WS.Connect ipserver, 1000

End Sub

Private Sub Form_Load()

Call Hapus

mulaikoneksi

End Sub

Private Sub form_Queryunload(cancel As Integer, unloadmode As Integer)

DoEvents

End

End Sub

Private Sub WS_dataarrival(ByVal bytesTotal As Long)

Dim xkirim As String

Dim xdata1() As String

Dim xdata2() As String

WS.GetData xkirim, vbString, bytesTotal

xdata1 = Split(xkirim, "-")

Select Case xdata1(0)

    Case "NOTHING"

X = NRK.Text

Call Hapus

NRK.Text = X

Call RubahCMD(Me, False, True, False, True)

cmdProses(1).Caption = "&Simpan"

nama.SetFocus

    Case "RECORD"

xdata2 = Split(xdata1(1), "/")

nama.Text = xdata2(0)

alamat.Text = xdata2(1)

tempat_lahir.Text = xdata2(2)

tanggal_lahir.Text = xdata2(3)

agama.Text = xdata2(4)

jenis_kelamin.Text = xdata2(5)

golongan.Text = xdata2(6)

Call RubahCMD(Me, False, True, True, True)

cmdProses(1).Caption = "&Edit"

NRK.Enabled = False

nama.SetFocus

           

Case "DEL"

MsgBox "Penhapusan Data Berhasil.....!!!"

Call Hapus

Case "EDIT"

MsgBox "Pengeditan Record Berhasil.....!!!"

Call Hapus

Case "INSERT"

MsgBox "Penyimpanan Record Berhasil.....!!!"

Call Hapus

End Select

End Sub

MODUL

Public Db As New ADODB.Connection

Public RS As New ADODB.Recordset

Public RS2 As New ADODB.Recordset

Public TCari As ADODB.Recordset

Public SQL As String

Sub OPENDB()

    If Db.State = adStateOpen Then Db.Close

    Db.CursorLocation = adUseClient

    Db.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=\\Prive-394b938d6\andi & yudo\Server\belajarserver\Test.mdb;Persist Security Info=False"

    End Sub

Sub clearform(f As Form)

Dim clt As Control

For Each clt In f

    If TypeOf clt Is TextBox Then clt.Text = ""

    If TypeOf clt Is ComboBox Then clt.Text = ""

    If TypeOf ctl Is MaskEdBox Then ctl.Mask = "##/##/####"

Next

End Sub

Sub center(f As Form)

f.Move (Screen.Width - f.Width) / 2, (Screen.Height - f.Height) / 4

End Sub

Public Sub Ketengah(ByVal Frm As Form)

    Frm.Left = (menu.Width - Frm.Width) / 2

    Frm.Top = (menu.Height - Frm.Height) / 2 - 500

   

End Sub

Sub RubahCMD(f As Form, L0 As Boolean, L1 As Boolean, L2 As Boolean, L3 As Boolean)

    f.cmdProses(0).Enabled = L0

    f.cmdProses(1).Enabled = L1

    f.cmdProses(2).Enabled = L2

    f.cmdProses(3).Enabled = L3

End Sub

Private Sub WS_dataarrival(ByVal bytesTotal As Long)

Dim xkirim As String

Dim xdata1() As String

Dim xdata2() As String

WS.GetData xkirim, vbString, bytesTotal

xdata1 = Split(xkirim, "-")

Select Case xdata1(0)

    Case "NOTHING"

End Select

End Sub

MENU UTAMA

Private Sub mnupegawai_Click()

client.Show

End Sub

Read More