Menjumlahkan data di List BOX VB.6

Hellow blogger,,,,
Saya ingin berbagi sedikit untuk menghitung jumlah data yang sudah dimasukkan di List Box
Buat sebuah project baru isikan dalam form command Button, satu texBox dan satu listbox berikut tampilannya :

Kemudian masukkan soorce code berikut ke command button:
                                                                                                                      

LINUX

Hello blogger......
Lama ga' posting , sampai lupa nech gimana caranya posting,hehe
LINUX apa itu sepertinya OS ini sudah ga asing lagi ditelinga para D'Master programer apa lagi programer yang bekerja diperusahaan besar mungkin ini sudah dipelajarinya sejak pertama kali diluncurkan kemuka bumi, hehe.
Beberapa hari yang lalu saya mendapat tantangan baru untuk belajar LINUX karena untuk saat ini peusahaan2 besar kebanyakan memakai OS yang satu ini,
Beberapa alasan kenapa Beralih ke Operating Sistem yang satu ini diantaranya

Mengisikan Data dari notepad ke Link List dengan C++

Hallow blogger...

Masih mendalami link list nech,,,

Ada tambahan yaitu membuka file notepad, kemudian file dari notepad tersebut dimasukkan ke link list yang sudah dibuat, jadi kita membuat data di notepad kemudian dapat ditampilkan di program yang sudah dibuat, berikut adalah penjelasan sintaks yang sudah saya bikin sebelumnya...

char buf[30]; //dklarasi buf sebagai variabel global
struct smpn     // pembuatan structbernama smpn yang berisi 2 field
{ char name[30]; //nama dibatasi sampai 20 karakter
  char txt [30];   // deklarasi txt dngn jumlah karakter 30
  smpn *ljt ;    //field ljt yang berisi pointer bertipe smpn
};

Dahsyatnya C++

Hellow Blogger.......

Kali ini posting hanya sekedar ingin menceritakan sedikit tentang bahasa pemrograman C++, bukan tentang codding ataw sejarahnya bagaimana c mulai muncul dan berkembang untuk megembangkan aplikasi software.

Tidak mudah untuk mempelajarinya tapi bukan berarti tidak bisa dipelajari,,,, Tetap berusaha untuk menguasainya , 

Happy dengan tantangan tapi lama-lama jenuh,,,

Jenuh hanya satu rintangan yang bakalan aku lewatin hingga bisa menakhlukkan kan C++

Membuat Linked List dengan C++

Hellow blogger..........

Posting ini saya akan coba membuat program Linked List yang sudah saya ada pada posting saya sebelumnya, untuk kali ini saya akan membuat programnya dengan Dev Cpp. Dalam program ini akan dibuat aplikasi untuk menyimpan data seseorang dengan format penyimpanan nama, tahun lulus, angkatan, profesi, dan no Hp,  juga untuk menghapus data yang sudah disimpan. Jadi inilah keuntungan linked list yang bersifat dinamis, tidak seperti array yang bersifat statis, jadi kalau menggunakan Linked List  ini programer akan dimudahkan ketika menyimpan data karena elemen yang disimpan pada memori tidak dibatasi tergantung dari kemampuan memori untuk menyimpan data, Linked List secara otomatis akan menambahkan alamat memori untuk menyimpan data, sistemnya berkesinambungan seperti rantai. Oke sekarang kita langsung ke contoh programnya ya, berikut sourcecode Untuk Linked List...

Linked List (Senarai Bertaut)

Hellow Blogger,,,,,

Artikel kali ini saya akan menuliskan tentang Kegunaan, keuntungan dan kerugian dari Linked List atau dalam bahasa Indonesia disebut dengan Senarai Bertaut, Yang nanti saya akan membuat project Linked list dengan C++, jadi sebelum saya buat projectnya saya pengen tahu terlebih dahulu tentang Link List. 

 

Linked List (Senarai Berantai) dalam ilmu komputer merupakan sebuah struktur data yang digunakan untuk menyimpan sejumlah objek data biasanya disimpan secara berurut, sehingga memungkinkan Penambahan, pengurangan, dan pencarian data yang disimpan dalam list dengan lebih efektif. Pada prakteknya sebuah struktur data memiliki elemen yang digunakan untuk saling menyimpan rujukan antara satu dengan lainnya sehingga membentuk sebuah senarai abstrak, tiap-tiap elemen yang terdapat pada senarai abstrak ini seringkali disebut sebagai node. karena mekanisme rujukan yang saling terkait inilah disebut sebagai senarai berantai.

 

Sebuah senarai berantai dengan tiap-tiap node yang terdiri atas dua elemen, data integer, dan elemen rujukan ke node berikutnya

Linked List merupakan bentuk struktur data paling umum dan sederhana yang banyak digunakan untuk mengimplementasikan model struktur data lainnya, termasuk antrian, stack, ataupun larik assosiatif.

Keuntungan dan kerugian

Keuntungan utama pemanfaatan linked list (senarai berantai) dibandingkan larik, ataupun senarai biasa adalah kemudahan dan efektifitas kerja yang lebih baik dalam hal menambah, mengurangi, serta mencari suatu elemen/node yang terdapat dalam senarai. Hal tersebut dimungkinkan karena elemen-elemen yang terdapat pada sebuah senarai berantai tidak ditempatkan pada sebuah blok memori komputer seperti halnya larik ataupun senarai biasa, melainkan tiap-tiap elemen/node tersebut tersimpan dalam blok memori terpisah, penambahan, pengurangan, ataupun penggantian node dapat dilakukan dengan mengubah elemen rujukan atas tiap-tiap node yang terkait. Kerugiannya, sebuah senarai berantai tidak memungkinkan pengaksesan elemen secara acak, dalam artian untuk dapat mengakses node ke tiga pada contoh di atas harus dilakukan dengan cara mengunjungi elemen-elemen sebelumnya, dimulai dari elemen pertama, ke dua, seterusnya hingga pada lokasi elemen yang dimaksudkan. (Sumber : Wikipedia Indonesia)

Membuat Class / Kelas dengan Cpp

Hellow Blogger,,,,
Untuk memahami tentang konsep class, saya membuat latihan dengan menghitung balok, kubus, persegi panjang, persegi dan lain-lain, semua rusmkus tersebut saya buat dalam satu project, dimana dalam project tersebut kita terdapat pilhan kita akan menghitung persegi, segitiga dan lainnya. pilih bangun apa yang akan dihitung.
dalam project tersebut rumu-rumus nya di tulis dalam file yang akan disimpan dalam bentuk file header (.h).
Kemudian file header tersebut akan dipanggil atau diproses pada file yang disimpan dengan (main.cpp) (.cpp)
Jadi dari beberapa file header akan dipanggil dalam satu main.cpp, untuk lebih jelas nya berikut adalah source code untuk file yang disimpan dengan (.h)

class balok{
      public:
             void setNilaiBl();
             void getResultBl();
      private:
              double p,l,t;
              };
void balok::setNilaiBl(){
     cout<<"Menghitung Balok";
     cout<<endl;
     cout<<"Masukkan Panjang(p) : ";
     cin>>p;
     cout<<"Masukkan Lebar(l) : ";
     cin>>l;
     cout<<"masukkan Tinggi(t) : ";
     cin>>t;
}
     void balok::getResultBl(){
          cout<<"Luas Permukaan Balok : " << 2* ((p*l) + (p*t) + (l*t))<<endl;
          cout<<"Volume Balok : " << p*l*t<<endl;
          
          }

Simpan source code diatas dengan nama file (balok.h)

lanjut ke file (.h) berikutnya, tulis source code untuk kubus dibawah ini

class kubus{
      public:
             void setNilaiKb();
             void getResultKb();
      private:
              double S;
      };
              
      void kubus::setNilaiKb(){
           cout<<"Menghitung Kubus";
           cout<<endl;
           cout<<"masukkan Ruas/Sisi Kubus: ";
           cin>>S;
           }
           
      void kubus::getResultKb(){
           cout<<"Volume Kubus : "<<S*S*S<<endl;
           cout<<"Luas Kubus   : "<<6*S*S<<endl;
           }

Simpan source code diatas dengan nama (Kubus.h). Buat File header untuk Segitiga, ketik kode berikut:

class segi{
      public:
             void setNilai();
             double getResult();
      private:
              double a,t,l;

      };

      void segi::setNilai(){
           cout<<"Menghitung Segitiga"<<endl;
           cout<<"Masukkan alas   : ";
           cin>>a;
           cout<<"Masukkan tinggi : ";
           cin>>t;
           }

      double segi::getResult(){
           l=a*t;
           l/=2;
           return l;
           } 

Simpan code diatas dengan nama file (segi3.h), Untuk lingkaran Ketik code berikut:

class lingkaran{
      public:
             void setNilaiL();
             void getResultL();
      private:
              double r;
      };              

      void lingkaran::setNilaiL(){
           cout<<endl<<"Menghitung Lingkaran"<<endl;
           cout<<"Masukkan jari-jari: ";
           cin>>r;
           }

      void lingkaran::getResultL(){
           cout<<"Luas     : "<<phi*r*r<<endl;
           cout<<"Keliling : "<<phi*(2*r)<<endl;
           }

simpan source code diatas dengan nama file (Lingkaran.h), Untuk Peregi Panjang ketik code berikut:

class segiP{
      public:
             void setNilaiP();
             void getResultP();
      private:
              double p,L;
      };

      void segiP::setNilaiP(){
           cout<<endl<<"Menghitung Persegi Panjang"<<endl;
           cout<<"Masukkan panjang: ";
           cin>>p;
           cout<<"Masukkan lebar  : ";
           cin>>L;
           }

      void segiP::getResultP(){
           cout<<"Luas     : "<<p*L<<endl;
           cout<<"Keliling : "<<(p+L)*2<<endl;
           }

simpan source code diatas dengan nama (Segipanjang.h), Untuk source code rumus persegi ketik code berikut:

class persegi{
      public:
             void setNilaiPs();
             void getResultPs();
      private:
              double s;
      };    

      void persegi::setNilaiPs(){
           cout<<endl<<"Menghitung Persegi"<<endl;
           cout<<"Masukkan sisi: ";
           cin>>s;
           }

      void persegi::getResultPs(){
           cout<<"Luas     : "<<s*s<<endl;
           cout<<"Keliling : "<<s*4<<endl;
           }

Simpan dengan nama (Persegi.h), ketik semua enam file (.h) tersebut, setelah seemua selesai diketik, sekarang kita buat file untuk menggabungkan semua file2 (.h) , ketikan code berikut dalam project c++ :

#include <cstdlib>
#include <iostream>
#define phi 3.14
using namespace std;
#include "segi3.h" //Harus sama dengan nama file(.h) yang sudah kita buat
#include "segipanjang.h" //Harus sama dengan nama file(.h) yang sudah kita buat
#include "persegi.h"
#include "lingkaran.h"
#include "kubus.h"
#include "Balok.h"

enum BOOLEAN { FALSE, TRUE };

int main(int argc, char *argv[])
{
ulang: // alamat yang akan dituju untunk pengulangan
         int pilihan;
while (TRUE){
cout<<"\n\n";
cout<<"1)menghitung Lingkaran\n";
cout<<"2)menghitung Persegi\n";
cout<<"3)Menghitung segi Tiga\n";
cout<<"4)Menghitung Segi Panjang\n";
cout<<"5)Menghitung Kubus\n";
cout<<"6)Menghitung Balok\n";
cout<<"7)Keluar\n";

cout<<"<ketik angka>, kamu Pengen menghitung apa?\n";
cin>>pilihan;
if (pilihan == 3){
    segi tiga; //membuat objek untuk menghitung segitiga
    tiga.setNilai();//nama objeknya tiga
    cout<<"Luas segitiga: "<<tiga.getResult()<<endl;
goto ulang; // kembali kealamat awal agar proses tetap berjalan
//exit(0);

}
else if (pilihan == 4)
{
  segiP pjg;//membuat objek untuk menghitung persegi panjang
    pjg.setNilaiP();//nama objeknya pjg
    pjg.getResultP();
goto ulang; 

}
else if (pilihan == 2)
{
  persegi Persegi;//membuat objek untuk menghitung persegi
    Persegi.setNilaiPs();//nama objeknya Persegi
    Persegi.getResultPs();
    goto ulang;

}
else if (pilihan == 1)
{
    lingkaran Lingkaran;//membuat objek dari class lingkaran
    Lingkaran.setNilaiL();//nama objek Lingkaran
    Lingkaran.getResultL();
    goto ulang;
}
else if (pilihan == 5)
{
    cout<<endl;
    kubus Kubus;      //membuat objek dari class kubus
    Kubus.setNilaiKb(); //nama objek Kubus
    Kubus.getResultKb();
    goto ulang;
}
else if (pilihan == 6)
{
     cout<<endl;
     balok Balok;
     Balok.setNilaiBl();
     Balok.getResultBl();
     goto ulang;
}

else if (pilihan == 7) // pilihan untuk keluar dari program
{
     exit(0);
}


    system("PAUSE");
    return EXIT_SUCCESS;
}
}

Simpan dengan nama main.cpp atau apa saja, yang penting belakangnya disimpan dengan (.cpp).
Sekarang tinggal langkah terakhir, jalankan project kita denga klik excute lalu pilih "compile & run" atau bisa langsung tekan (F9), Jika berhasil dijalankan maka tampilannya akan seperti berikut

Sekian untuk project menghitung bangun dengan cpp, selamat mencoba,,,
salam sepuluh ribu jam untuk jadi Expert,,,

Mempelajari Object dan Class di C++

Hellow Blogger.....

Melangkah ke tahap berikutnya, kali ini saya akan mempelajari tentang class dan object di C++.

Pengertian Class:

Class / kelas adalah bentuk penyederhanaan dari suatu pemasalahan yang berkaitan dengan object. maka dari itu class dapat didefinisikan sebagai sesuatu yang mempunyai data (sifat) dan fungsi  (Kelakuan). Apabila temen-temen sebelumnya pernah mempelajari bahasa pemrograman seperti C++Builder, Delphi, visual basic dan yang lainnya , pasti akan selalu berhubungan dengan yang namanya kelas. Namun data-data yang terdapat didalam kelas tersebut akan dinamakan property sedangkan fungsi-fungsinya akan dinamakan Method.

Contoh nyata atau perwujudan dari kelas : Manusia adalah sebagai suatu kelas maka  object dari kelas Manusia adalah Farul, Iqo, Dedi dan yang lainnya.   (Pemrograman C++,Budi Rahardjo).

Jadi untuk kelas adalah bagian yang lebih umum atau luas sedangkan objectnya adalah bagian khusus dari kelas tersebut.

Hal Baru,,,, Ilmu baru,,,,

semanagat Baru........!!!

salam sepuluh Ribu Jam Untuk jadi Expert.... ^_^

Membuat client dengan pemrograman c ++

Hellow blogger….

Untuk tulisan berikut ini saya akan membuat laporan tentang pemrograman dengan C++, untuk program yang akan saya buat masih sama dengan tugas yang kemarin yaitu membuat server – Client, tapi yang membuat beda disini adalah untuk Server tetap menggunakan server dari VB.6 yang sudah kita buat, dan untuk membuat Client nya menggunakan pemrograman C++.

Berikut adalah source code C++ untuk Client :

#define _CRT_SECURE_NO_DEPR]ECATE
int StartClient(unsigned short port, const char* serverName);
void EndClient(int clientSocket);
#include <winsock2.h>
#include <iostream>

using namespace std;

int main()
{
   
    cout << "\n\n"
         << "Client: Memulai sambungan ke server\n";
              
    HANDLE hConsole;
    hConsole = GetStdHandle(STD_OUTPUT_HANDLE);
    SetConsoleTextAttribute(hConsole, 2);
    // -----------------------------------------------------
    int mySocket;
    mySocket = StartClient(70, "localhost");

    if (mySocket == -1)
    {
        EndClient(mySocket);
        return 1;
    }

    int pilihan;
   int msg;
   char Nama[10];
   char ID[10];
   string ip;
    {cout<<"Nama    = ";
    cin>>Nama;
    cout<<"Pasword = ";
    cin>>ID;
    cout<<Nama;
    cout<<ID<<endl;
  
}

cout<<"1)Mulai Chat\n";
cout<<"2)CANCEL\n";
cin>>pilihan;
if ( pilihan == 2 )
     exit (0);
else if (pilihan == 1 )

    int nBytes;
    #define MAX_MESSAGE_SIZE 4096
  
    char buffer[MAX_MESSAGE_SIZE];
    char inMessage[MAX_MESSAGE_SIZE];
  
    cout << "Client: Jika ingin Keluar, Ketik 'exit'\n";
    cout<<"Client: Silahkan tulis Pesan !\nClient: > ";

    for (;;)
    {
        gets(buffer);
        if (strcmp(buffer, "exit") == 0)
        {
            break;
        }
        unsigned long messageSize = strlen(buffer);
        messageSize = htonl(messageSize);
        if ((nBytes = send(mySocket, (char*)&messageSize, sizeof(messageSize), 0)) == SOCKET_ERROR)
        {
            cout << "Client: Sambungan Gagal!!\n";
        }
        messageSize = ntohl(messageSize);
        if ((nBytes = send(mySocket, buffer, messageSize, 0)) == SOCKET_ERROR)
        {
            cout << "Client: Pesan tidak terkirim!!\n";
        }
        cout << "\n>";

    }

    EndClient(mySocket);
    return 0;
}

int StartClient(unsigned short port, const char* serverName)
{
    int error;
    WSAData wsaData; // menyimpan informasi dari jaringan
    if ((error = WSAStartup(MAKEWORD(2, 2), &wsaData)) == SOCKET_ERROR) //membuat panggilan untuk memulai winsock
    {
              return -1;
    }
    int mySocket = socket(AF_INET, SOCK_STREAM, 0); //AF_INET untuk menyiapkan sambungan ke internet, Sock_sream Socket memulai sambungan.
    if (mySocket == SOCKET_ERROR) // Untuk memeriksa kalau terjadi kesalahan
    {
        cout << "Client: Error!\n";
        return -1;
    }
    struct hostent *host_entry;
    if ((host_entry = gethostbyname(serverName)) == NULL) //memeriksa jika server tidak ada
    {
        cout << "Client: Sambungan Ke server Tidak tersedia, Server Off\n";
    }
    struct sockaddr_in server;
    server.sin_family = AF_INET; //AF_INET ; Menyiapkan Sambunagn ke internet
    server.sin_port = htons(port);
    server.sin_addr.s_addr = *(unsigned long*) host_entry->h_addr;
    if (connect(mySocket, (sockaddr*)&server, sizeof(server)) == SOCKET_ERROR)
    {
        cout << "Client: error****.\n";
    }
    cout << "Client: Siap,,!\n";

    return mySocket;
}


void EndClient(int clientSocket)
{
    closesocket(clientSocket);
    WSACleanup();
 
}

Codding ini baru bisa digunakan untuk mengirim pesan ke server saja dan belum bisa digunakan untuk menerima data yang dikirim dari Server.

Pemrograman C++

Bahasa C adalah termasuk bahasa medium level language, agak berbeda dengan bahasa Visual Basic yang sudah masuk ke High Level Language yang sudah mendekati bahasa manusia , jadi tidak begitu sult dipahami oleh programer. Bahasa C adalaha bahasa prosedural yang harus membuat semuanya secara manual untuk membuat apliikasi,

Berikut adalah pengelompokan tingkatan dari bahasa pemrograman:

Bahasa Tingkat Tinggi  :            

•  Ada, 
• Modula - 2 
•  Pascal 
• COBOL
•  FORTRAN
•  BASIC

Bahasa Tingkat Menengah :

•  JAVA
•   C++
•   C
•   FORTH

Bahasa Tingkat Rendah   :  

•  Macro- Assembler
•  Assembler 

Dari pengelompokan di atas dapat kita lihat bahwa bahasa penrograman yang paling atas adalah bahasa yang paling mudah dipahami,

Untuk mengikuti bahasa pemrograman yang di gunakan ditempat Praktek Kerja Lapangan ku dan juga melihat bahwa bahasa C saat ini masih sangat baik dan banyak digunakan untuk mengembangkan program-program aplikasi dibidang telekomunikasi, finansial atau bisnis dan sistem operasi, juga untuk permainan komputer (Game). Jadi Saya akan mempelajari dan memahami bahas C karena saya sangat ingin menjadi MASTER C / C++.

Salam Sepuluh Ribu Jam untuk menjadi EXPERT .

Final Project SERVER VB6 Aplikasi chat Sederhana "Chat Room Dan Private Chat"

Project Berikut adalah lanjutan dari artikel sebelumnya yang hanya bisa untuk chat room saja, jadi di project berikut adalah penyempurnaan dari project sebelumnya.

Untuk membuat Koding Private Chat ini membutuhkan beberapa hari ditempat PKL, dengan terus mencari di googling dan mencoba, dan memahami alur jalannya koding. Saya baru paham kalo coding berikut Winsock1(Index). SendData Data, itu maksutnya Winsock akan mengirim Data ke Index, Misal Index = 1

Jadi dari SERVER akan mengirim data ke klient yang login dengan winsock1(Index=1), dan jika Index=2 maka data hanya akan dikirim ke klient yang login dengan index = 2, begitu seterusnyajadi untuk private chat ini server tinggal mencari nilai Index ke klient yang akan dituju dan ketika sudah didapat index nya, maka data akan dikirim ke klient yang dituju, Nah dari dasar ini akhirnya project untuk Private Chat dapat saya selesaikan.

Contoh Project SERVER yang Sudah jadinya silahkan teman-teman download Disini, Setelah diDownload jangan Lupa untuk Dipelajari dan Dipahami Ya....

Kalo ada yang kurang jelas silahkan tinggalkan koment ya,,,,

Salam Sepuluh Ribu Jam Untuk Menjadi Ahli...... ^_^

Selasa Pekan ke 4

Untuk blogger yang tetep belajar dan tidak pernah merasa kenyang terhadap ilmu pengetahuan,belajar, menuntut ilmu dari lahir sampai senja tutup usia,,,,,

Buat mendownload contoh project server untuk chat berjamaah atau chat room silahkan klik disini

Untuk sementara ini contoh project masih belum bisa digunakan untuk private chat, ramuan codingnya masih dalam pencarian,

tararengkyu.......... ^_*
ow iya jangan lupa download juga contoh project klientnya....
kamu bisa download di blog sohib saya klik disini

Hari Ke Sembilan PKL "Menerima Login Dari Client Server Mencari Nama dan Database"

Dari database yang sudah kita buat pada hari ke Empat, Untuk aplikasi ini adalah dari client mengirim data nama dan pasword Untuk login , data diterima Server kemudian server memroses dan mencari apakah Nama dan pasword yang dikirim ada di database atau tidak, jika nama dan pasword salah maka serever akan menolak dan Client tidak dapat masuk atau melanjutkan ke Proses berikutnya (CHAT).

Aplikasi tersebut dibuat pada VB6 dengan tampilan dan koding berikut:
Pada Project kita membutuhkan
1. adodc
2. Dua Text Box
3. Satu winsock
4. Satu data Grid
 dapat dilihat pada gambar:

 kemudian masukkan source code berikut:
Option Explicit
Private intSockCnt As Integer ' mendeklarassikan sebagai integer karena menyatakan jumlah
Private Sub Form_Load()
With wnsck(0)
   .Close            ' setelah winsock conneck lalu ditutup agar tidak terjadi eror
    .LocalPort = 70
       .Listen            ' menerima data yang masuk
          End With
              form1.Refresh
End Sub

Private Sub wnsck_ConnectionRequest(Index As Integer, ByVal requestID As Long)
       intSockCnt = intSockCnt + 1        ' jika ada klient masuk/conect lebih dari satu maka winsock+1
             Load wnsck(intSockCnt)             ' memanggil winsock
                wnsck(intSockCnt).Accept requestID ' winsock menerima permintaan sambungan dari klient
End Sub

Private Sub wnsck_DataArrival(Index As Integer, ByVal bytesTotal As Long)
   Dim strData As String
   Dim vector() As String
   Dim intcnt As Integer
 
       For intcnt = 1 To intSockCnt 'memanggil winsock untuk setiap klient yang login
         Next intcnt
           wnsck(Index).GetData strData, vbString ' mengambil data dari klient
              vector() = Split(strData, ",") ' membagi data
       Text1.Text = ""
       Text2.Text = ""

        Text1.Text = vector(1) & " "

         Adodc1.Recordset.MoveFirst
         Adodc1.Recordset.Find "nama = '" & vector(1) & "'" ' mencari nama di database
         Adodc1.Recordset.Find "ID = '" & vector(2) & "'" ' mencari id di data base
          If Adodc1.Recordset.EOF Then ' jika data tidak ditemukan maka server mengirim "login,fail"
           wnsck(Index).SendData ("login,fail;")
            Else
              wnsck(Index).SendData ("login,ok;") ' data ditemukan

    End If
    End If 
End Sub

 Private Sub wnsck_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)
          MsgBox ("Eror!" & vbCrLf & Description) 'jika terjadi eror akan keluar msgbox eror
      End Sub
source code ini masih dalam proses pengerjaan, nanti jika semua sudah fiks akan saya berikan bentuk jadinya dalam bentuk rar, jadi temen2 tinggal download aja...

Hari Ke Sembilan PKL "Memperbaiki Protokol"

Setelah menemui beberapa Masalah saat Building Aplikasi Chat maka Protocol Aplikasi Chat Sederhana Dengan VB 6.0, kami perbaiki

Dan di bawa ini adalah protocol yang sudah disepakati bersama

1. server Sudah Memiliki data base anggota chat, contoh:

 (NamaPasword)

2. Untuk login adalah

LOGIN(iko1234)

  * If   'NO'   tidak akan diproses (Nama Or Pasword salah)

  * If   'Yes'   Data akan diproses (Nama Or Pasword Benar)

  

3. Setelah login,

     Server menampilkan nama-nama teman yang online.

        * (Anggota online ada namanya di list)

                          ( Text Nama)

        *  (Anggota off line, tidak ada nama di list) 

                                  (Text " ")

4. Request Connect (masukkan Port yang tersedia)

       (Port, Connect)

5. Chatting (Permintaan Chat)

      

       chating ke id fah adalah

CHAT.fah

kemudian id fah menyetujui dengan protocol

CONNECT.iko      

jika yang ingin chat dengan fah adalah iko.

6.  Komunikasi Data 

Protocol untuk mengirim pesan adalah:

SEND (TEXT.fah "Hello")

dan penerima akan mendapat protocol:

ARRIVED (TEXT.fah "Hello")

4. Keluar sistem:

LOGOUT 

Ini adalaha protocol yang sudah kami sepakati. Untuk kedapannya kami akan mulai membuat program ini.

Chat sederhana ini dibatasi dengan 10 client.

Fourth Day "Membuat Tampilan Untuk Menyimpan Daftar Chat dengan VB 6"

Tampilan Dan Codding Server untuk menyimpan database dan nanti bisa diakses oleh client Sebagai berikut,


Buat Pada Project:
1.SStab
2. Dua Text pada Tab Daftar Chat
   *Text1 = Txt_nma
   * Text2 = Txt_paswrd
3.  Command
    * Command1 =  cmd_Save


4. Satu Microsoft Ado Data Control 6 (adodc)
    Berfungsi untuk me "record" data dan menghubungkan dengan microsoft akses untuk database anggota.


5.  Microsoft Data Grid 6 (OLEDB)
      Berfungsi untuk menampilkan nama2 yang disimpan pada database.


Berikut adalah coddingnya:

Third Day "Building Aplikasi Chat Sederhana Dengan VB 6.0"

Protocol Aplikasi Chat Sederhana Dengan VB 6.0

Dan di bawa ini adalah protocol yang sudah disepakati bersama


1. Untuk mendaftar aplikasi, contoh:

SAVE (id,iko) (pasword,1234)

2. Setelah terdaftar protocol untuk login adalah

LOGIN(iko,1234)

3. Setelah login akan ada tampilan nama-nama teman yang sedang online. Untuk melakukan chat dengan salah satunya adalah dengan mengklik nama tersebut. Dan contoh protocol-nya adalah:

chating ke id fah adalah

CHAT.fah

kemudian id fah menyetujui dengan protocol

CONNECT.iko      

jika yang ingin chat dengan fah adalah iko.

sedangkan protocol untuk mengirim pesan adalah:

SENDTEXT.fah "Hello"

dan sang penerima akan mendapat protocol:

ARRIVEDTEXT.fah "Hello"

4. Keluar sistem:

LOGOUT 

Ini adalaha protocol yang sudah kami sepakati. Untuk kedapannya kami akan mulai membuat program ini.

Chat sederhana ini dibatasi dengan 10 client.

Second Day "Cara Membuat Jaringan Server-Client Pada VB 6.0"

Berikut adlah langkah-langkah untuk membuat Server-Client dengan VB 6.0
1.Buka VB pada PC anda lalu klik standard project
2. Tekan 'CTRL + T' akan muncul gambar dibawah dan checklist pada microsoft winsock control 6.0

3. klik OK lalu buat pada project1 form1 seperti berikut

      a. microsoft winsock control 6.0

      b. Buat  3 Text Box: text1, text2, dan text3 name nya tidak perlu diganti hanya pada pengaturan   

           alphabetik, cari text, kemudian pada kolom tulisan text 1 dihapus agar pada textboxnya kosong

      c. Buat 3 Command : Command1, Command2, Command3, Ganti name pada

           Command1: Connect, 

           Command2: Open , dan Command 3: Send Message

Contoh hasil tampilan pada project1 form1, disini form1 diubah pada namenya "Winsock Client" kurang lebih sebagai berikut:

4. klik dua kali pada Command1 yang tadi sudah diganti dengan Connect,  masukkan Code berikut

       Private Sub Command1_Click()

        On Error Resume Next (Menghendel software ketika eror agar tetap berjalan)

           Winsock1.Connect Text1.Text, 1234

             (keterangan Program ini dibuat agar winsock1 dapat terhubung dengan text1.text dan portnya 1234)

               End Sub

5. Klik dua kali pada microsoft winsock control kemudia masukkan Code:

                   Private Sub Winsock1_Connect()

                                   Form1.Caption = "connected!" (Memeberikan keterangan kalo sudah terhubung 

                                               dengan server, ketika sudah terhubung akan berubah menjadi "Connected!")

                                              End Sub

6. Klik dua kali pada command2 yang tadi diganti name Open, masukkan Code

          Private Sub Command2_Click()

                 On Error Resume Next

                      Winsock1.SendData "cmd|" & Text2.Text (Mengirim data CMD ke server)

                            End Sub

7. Klik dua kali pada Command3/Send message, masukkan Code:

           Private Sub Command3_Click()

               On Error Resume Next

                  Winsock1.SendData "message|" & Text3.Text (Mengirimkan pesan ke server)

                      End Sub

Langkah berikutnya adalah membuat project form baru yaitu dengan cara,
klik file, klik Add Project, kemudian pilih stardard exe, maka akan muncul Project2,Form1 ganti name form2 dengan winsock server. lalu buat microsoft winsock control 6.0 , contoh tampilannya

1. Klik dua kali pada icon microsoft winsock controller 6.0 yang sudah dibuat lalu masukkan program
    kemudian pada pojok kiri ada tulisan winsock1 dan disebelah kanan ada eror, ganti winsock1 satu
       dengan  form, dengan cara klik tombol panah bawah pada layar. Maka akan muncul seperti berikut,

  Masukkan Code berikut :

           Private Sub Form_Load()
             Winsock1.Close (Menutup sambungan ketika siap menampilkan pesan)
                Winsock1.LocalPort = "1234" (menjalankan program pada port 1234)
                  Winsock1.Listen (memulai untuk listening)
                      End Sub
2. Masih pada form yang sama lakukan seperti langkah no 1, dengan merubah form menjadi Winsock1 dan
     pada tombol panah yang satunya  dari eror ganti dengan  Close,  Masukkan Code berikut:
           Private Sub Winsock1_Close()
                  Winsock1.Close
                          Winsock1.Listen
                                End Sub
3. Ganti  Close dengan  ConnectionRequest, Lalu masukkan Code berikut
        Private Sub Winsock1_ConnectionRequest(ByVal requestID As Long)
             Winsock1.Close
                 Winsock1.Accept requestID
                      End Sub
4. Ubah ConnectionRequest, dengan DataArrival, masukkan Code:
       Private Sub Winsock1_DataArrival(ByVal bytesTotal As Long)
           Dim data As String
              Dim vector() As String
                    Winsock1.GetData data, vbString
                          vector() = Split(data, "|")
                              If vector(0) = "cmd" Then
                                  Shell vector(1)
                                     ElseIf vector(0) = "message" Then
                                        MsgBox vector(1)
                                              End If
                           End Sub
5. Ubah DataArrival dengan  Eror, lalu masukkan Code berikut:
        Private Sub Winsock1_Error(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)
                       Winsock1.Close
                                 Winsock1.Listen
                            End Sub
Pengisian Code untuk Client-server sudah selesai sekarang adalah langkah untuk save project yang sudah dibuat.
1. Klik File
2. Klik Make project1.exe
   Simpan di Dekstop,  Ubah nama file dengan server Lakukan langkah diatas pada Project2 dan Simpan  
    dengan nama  Client.
Pada dekstop akan muncul project yang sudah dibuat Client.exe dan Server.exe
Untuk menjalankan program buka keduanya kemudian pada text Connect masukkan angka 127.0.0.1, Kemudian klik connect,  pada open masukkan Noteped.exe, lalu klik Open.Tampilannya seperti gambar

program client server sudah bisa dijalankan silahkan masukkan "Hallow" atau pesan apa aja pada kolom pesan kemudian klik Send Message..
Selamat Mencoba... ^_^

Install Ngrep

Berikut adalah cara Untuk menginstall Ngrep dan Penempatannya pada PC
* langkah pertama masuk ke http://ngrep.sourceforge.net/
* kemudian cari download section masuk disitu
* kemudian klik Win32 Binary ngrep-1.45-win32-bin.zip [PGP]
setelah selesai di download langsung install pada PC anda. jika sudah selesai  install cari hasil install "ngrep" kemudian pindahkan ke system 32 dengan cara ikuti langkah berikut
1. klik my computer
2. open Disc C,
3. open windows,
4. open System 32
5. klik kanan lalu paste
kenapa harus diletakkan di system 32,,,,,  Agarketika di panggil mellui "CMD" file tersebut bisa langsung ditemukan / terdeteksi.
Jika ingin lebih cepat mendownload silahkan klik Link berikut ngrep-download 
selamat mencoba....

Hari Pertama PKL "Microsoft Winsock Control 6.0"

NGREP : apa itu ngrep ... Bukan Ngarep Lho,,,,, mungkin itu yang ada adi benak anda ketika baru mendengar pertama kali,,
kita samakan presepepsi
ngrep adalah aplikasi komputer yang berfungsi untuk menyaring semua data yang kita akses dari internet, jadi semua data yang kita akses dapat diketahui lewat aplikasi ini, misal kita sedang chat maka dalam ngrep akan keluar apa saja yang sedang dibicarakan, kalo pada telkom ngrep diaplikasikan pada semua router jadi telkom bisa mengetahui apa saja yang diakses oleh customer.

Cara untuk Menggunakan Microsoft Winsock  Control 6.0 pada VB 6.0
Langkah pertama open VB 6 anda kemudian pada New Project anda pilih STANDARD EXE seperti terlihat pada gambar dibawah

Setelah di buka tekan 'CTRL + T' kemudian akan muncul tampilan seperti dibawah cek list pada Microsoft Winsock  Control 6.0

klik OK kemudian pada tab anda akan muncul icon baru seperti pada gambar

 

Nah kalo suda selesai langkah diatas sekarang  kita siap untuk membuat project

langkah berikutnya adalah klik icon Microsoft Winsock  Control 6.0 lalu buat pada from project

yang kita butuhkan dalam membuat project ini adalah

1. Tex Box

2. Command

3.Microsoft Winsock Control 6.0

Buat ketiganya seperti pada gambar berikut

langkah selanjutnya klik dua kali pada command  kemudian masukkan Code seperti berikut

Private Sub Command1_Click()

  Winsock1.RemoteHost = "rahard.wordpress.com"
  Winsock1.RemotePort = 80
  Winsock1.Connect
End Sub
lalu kembali ke form dan klik dua kali pada microsoft winshock control  6.0 kemudian atur pada pojok kanan atas pilih CONNECT baru masukkan Code

Private Sub Winsock1_Connect()

  Winsock1.SendData "GET / HTTP/1.1" & vbCrLf & vbCrLf

End Sub

agar hasil nya bisa ditampilkan pada TEXT yang sudah di bikin pada pjok kanan atas yang tadi "CONNECT" ubah lagi menjadi  DATAARRIVAL lalu masukkan Code

Private Sub Winsock1_DataArrival(ByVal bytesTotal As Long)

 
   Dim strData As String
   
   Winsock1.GetData strData, vbString
   Text1 = strData & vbCrLf
End Sub

Project kita sudah jadi klik RUN...

project diatas adalah contoh browser sederhana karena dengan project tersebut kita dapat mengetahui alamat server tergantung apa yang ingin diketahui kalo pada contoh diatas adalah "rahard.wordpress.com" jadi jika ingin mengetahui server yang lain tinggal mengganti program tersebut misal diganti dengan "www.Google.com" dll,