POSTINGAN JAWABAN NO.3 (NURJANNAH)

Untuk kasus lihat disini Kasus Winsock

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 Timer2_Timer()

WS.SendData "PAKAI-" & Pakai.Value & "/" & 3000

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 '

Timer1.Enabled = True

Timer2.Enabled = True

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)

        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

        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

Berikut Adalah Hasil Program Server  

Jika diklik Tombol Start maka muncul tampilan seperti dibawah ini :

Jika diklik Tombol Stop maka muncul tampilan seperti dibawah ini :

LISTING PROGRAM CLIENT

Dim IPS As String

Dim user As String

Dim xpakai As String

Dim xkirim As String

Dim xData1() As String

Dim xData2() As String

Private Sub Form_Load()

IPS = "192.168.11.1"

user = ws.LocalIP

ws.Connect IPS, 3000

End Sub

Private Sub start_Click()

ws.SendData "START-" & user & "-EKA_WAHYUNI"

End Sub

Private Sub stop_Click()

ws.SendData "STOP-" & user

End Sub

Private Sub Timer1_Timer()

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

Timer1.Enabled = True

End Sub

Private Sub Timer2_Timer()

pakai.Value = Format(Now, "HH:MM:SS")

Timer2.Enabled = True

End Sub

Private Sub WS_DataArrival(ByVal bytesTotal As Long)

ws.GetData xkirim, vbString, bytesTotal

Call CheckData

End Sub

Sub CheckData()

xData1 = Split(xkirim, "-")

xData2 = Split(xData1(1), "/")

Select Case xData1(0)

    Case "PAKAI"

    mulai.Value = xData2(0)

    selesai.Value = xData2(1)

    pakai.Value = xData2(2)

    biaya.Text = (Val(Hour(pakai.Value) * 60) + Val(Minute(pakai.Value) * 50))

    End Select

End Sub 

HASIL PROGRAM CLIENT:

POSTINGAN JAWABAN NO.2 (NURJANNAH)

Jawaban No.2

LISTING PROGRAM 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:\module\belajar server\vb q\belajar server\data.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

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("yakin RECORD barang akan dihapus...!", 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

Sub hapus()

     kode.Enabled = True

    clearform Me

    Call rubahcmd(Me, True, False, False, False)

    cmdproses(1).Caption = " &Simpan"

End Sub

Private Sub Form_Load()

Call opendb

Call hapus

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  FROM barang WHERE kode='" & kode.Text & "'"

    End Select

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

    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 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 * FROM barang WHERE kode='" & kode.Text & "'"

If rs.State = adStateOpen Then rs.Close

rs.Open SQL, db, adOpenDynamic, adLockOptimistic

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

LISTING MODULE

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:\module\belajar server\vb q\belajar server\data.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

BERIKUT ADALAH HASIL PROGRAM

            Pada program client ada yang diganti pada db.open provider dengan cara:

Cari di My Network Places, seperti pada program berikut di bawah ini:

LISTING PROGRAM CLIENT

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=\\Ekawahyu-a562c3\belajar server\vb\data.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

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("yakin RECORD barang akan dihapus...!", 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

Sub hapus()

     kode.Enabled = True

    clearform Me

    Call rubahcmd(Me, True, False, False, False)

    cmdproses(1).Caption = " &Simpan"

End Sub

Private Sub Form_Load()

Call opendb

Call hapus

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  FROM barang WHERE kode='" & kode.Text & "'"

    End Select

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

    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 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 * FROM barang WHERE kode='" & kode.Text & "'"

If rs.State = adStateOpen Then rs.Close

rs.Open SQL, db, adOpenDynamic, adLockOptimistic

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

LISTING MODULE

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=\\Ekawahyu-a562c\belajar server\vb\data.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

Tips Cara Menjadi Orang Yang Sukses

Cara Menjadi Orang Sukses - Karena penulis Nur Jannah Lubis juga kepengen menjadi orang Sukses suatu saat kelak, maka iseng-iseng penulispun mencari tahu informasi tentang bagaimana cara menjadi orang sukses. Dari berbagai penelusuran di situs internet, ternyata sudah banyak sekali tulisan-tulisan yang mengacu terhadap informasi yang ingin didapatkan tersebut, yaitu tentang cara menjadi orang sukses.

Karena memang ada rasa ingin selalu berbagi dengan pembaca blog Karo Cyber, maka tulisan yang saya dapat tentang rahasia cara menjadi orang yang sukses tersebutpun juga ingin saya bagikan kepada teman-teman semua. Oleh pemikiran itulah maka kemudian timbul niat untuk membuat tulisan ini.

Baik... agar teman-teman sekalian juga bisa tau cara apa saja yang sebenarnya bisa dilakukan agar kita menjadi orang sukses, maka berikut adalah cara menjadi orang sukses selengkapnya:

1. Mau Belajar
Orang sukses adalah pelajar seumur hidup. Mereka menyadari, pendidikan tak pernah berakhir tapi dimulai di setiap tingkatan kehidupan dan terus berlanjut hingga akhir kehidupan. Pendidikan tidak terbatas di ruang kelas, artinya mencoba ide baru, membaca buku, surat kabar, majalah dan menggunkan internet merupakan bentuk pendidikan pula.

2. Percaya Diri
Orang sukses percaya diri dan merasakan bahwa mereka berbuat sesuatu untuk dunia. Mereka memandang sebuah dunia yang besar dan ingin memainkan peranan penting di dalamnya. Mereka tetap bekerja sesuai ketrampilan mereka, sambil tetap menyadari bahwa ketrampilan ini memberi nilai kepada ketrampilan lainnya. Mereka juga sadar, karya terbaik akan menghasilkan kompensasi bagi mereka.

3. Berpandangan Positif
Orang sukses berpandangan positif terhadap apa yang dapat mereka kerjakan, dan ini meluas pada hal-hal lain. Mereka percaya gelas itu setengah penuh dan bukan setengah kosong. Mereka menanamkan semangat pada diri sendiri dan dapat membayangkan diri bagaimana mereka berhasil menyelesaikan suatu tugas sulit atau mencapai penghargaan tertinggi.

4. Berani Mengambil Resiko
Orang sukses berani mengambil resiko. Mereka berupaya untuk mencapai target, melakukan penghematan, membangun relasi dengan banyak orang dan gesit mencoba sesuatu yang baru guna mengikuti perkembangan zaman, dan mau terus mengambil resiko untuk meraih sukses.

5. Mampu Menikmati Pekerjaan
Orang sukses menikmati apa yang sedang mereka lakukan. Mereka mampu melihat pekerjaan sebagai kesenangan, mereka memilih bekerja di mana mereka dapat unggul. Orang sukses menyukai tantangan, mereka menikmati pencapaian puncak permainan mereka, apakah di pekerjaan, lapangan tennis atau lapangan golf.

6. Mampu Memotivasi Diri
Orang sukses punya banyak cara untuk memotivasi diri sendiri sehingga dapat terus berkarya lebih baik dari yang lain. Ada yang dengan cara melakukan beberapa pekerjaan setiap hari pada bidang berbeda.

7. Menyelesaikan Tugas Sepenuh Hati
Orang sukses menyelesaikan tugas tidak dengan setengah-tengah, dan mereka menggunakan cara kreatif dalam meraih sukses. Meski mungkin membutuhkan waktu lebih lama, mereka akhirnya melampaui garis finish. Mereka memanfaatkan waktu dengan baik dalam mensinergikan kemampuan fisik dan mental untuk mencapai sukses.

Itulah beberapa poin penting yang saya dapatkan ketika mencari informasi tentang cara menjadi orang sukses. Semoga poin-poin diatas dapat diterapkan dalam hidup kita masing-masing, agar kesuksesan akan segera menghampiri kehidupan yang sedang kita jalani. Selamat mencoba...