Program Scada menggunakan Winsock

11.  Buka program Visual Basic 6.0

  2.  Pilih “Standard EXE” pada form New Project

 

3. Buat tampilan Form Server seperti gambar berikut :

 

Keterangan:

TextBox

a.      Name           : Text1

b.      Name           : Text2

d.      Name           : Text3

e.       Name           : Text4

Shape

c.       Name           : Shape1

Fillcolor  : &H000000FF&

f.        Name           : Shape2

Fillcolor  : &H000000FF&

Command Button

g.      Name           : Command1

                       Command2

  4.  Masukkan script berikut pada form Server:

Dim data As String

Dim data1 As String

Dim data2 As String

Private intsockcnt As Integer

Private Sub Command1_Click()

     On Error GoTo Err

   

    Dim intcnt As Integer

    For intcnt = 1 To intsockcnt

        If Winsock1(intcnt).State = sckConnected Then Winsock1(intcnt).GetData data1

        Text1.Text = data1 & vbCrLf

        DoEvents

        Text2.Text = data2 & vbCrLf

    Next intcnt

    Exit Sub

Err:

    MsgBox "Error : " & Err.Description

 

End Sub

Private Sub Form_Load()

    On Error GoTo Err

    Winsock1(0).Close

    Winsock1(0).LocalPort = 250

    Winsock1(0).Listen

    Exit Sub

Err:

    MsgBox "Error : " & Err.Description, vbCritical

End Sub

Private Sub Winsock1_ConnectionRequest(Index As Integer, ByVal requestID As Long)

    intsockcnt = intsockcnt + 1

 

    Load Winsock1(intsockcnt)

    Winsock1(intsockcnt).Accept requestID

    Shape1.BackColor = &HC0C000 & vbCrLf

   

End Sub

Private Sub Winsock1_DataArrival(Index As Integer, ByVal bytesTotal As Long)

    Dim strdata As String

    Dim intcnt As Integer

   

    Winsock1(Index).GetData strdata, vbString

    Text1.Text = data1 & vbCrLf

    Text2.Text = data2 & vbCrLf

   

    For intcnt = 1 To intsockcnt

    If Winsock1(intcnt).State = sckConnected Then Winsock1(intcnt).SendData strdata

    End If

   

    Next intcnt

End Sub

 

 5. Buat pula tampilan Form Client seperti gambar dibawah:

Keterangan :

Textbox

a.       Name    : txInput

c.       Name    : txRH

d.      Name    : txPort

                                HScrollbar

b.      Name    : HScr1

Command Button

e.      Name    : command1

Option Button

f.        Name    : Option1

g.       Name    : Option2

Shape

h.      Name    : Shape1

Fillcolor : &H000000FF&

6. Masukkan script berikut pada form Client:

Dim data1 As String

Dim data2 As String

Dim data3 As String

Private Sub Command1_Click()

    On Error GoTo err

    Winsock1.Close

    Winsock1.RemoteHost = txRH.Text

    Winsock1.RemotePort = txPort.Text

    Winsock1.Connect

    Shape1.BackColor = &HC0C000

    Form1.Caption = "Anda terhubung ke Server"

    Exit Sub

err:

    MsgBox "Error : " & err.Description, vbCritical

End Sub

Private Sub Form_Load()

    HScr1.Enabled = False

End Sub

Private Sub HScr1_Change()

    txInput.Text = HScr1.Value

    data1 = HScr1.Value

End Sub

Private Sub HScr1_DragDrop(Source As Control, X As Single, Y As Single)

    HScr1_HScroll

End Sub

Private Sub HScr1_DragOver(Source As Control, X As Single, Y As Single, State As Integer)

    HScr1_HScroll

End Sub

Private Sub Option1_Click()

    txInput.Enabled = True

    HScr1.Enabled = True

    data2 = Option1.Caption

    End Sub

Private Sub Option2_Click()

    txInput.Enabled = False

    HScr1.Enabled = False

    data3 = Option1.Caption

    MsgBox "Status alat sedang rusak ...!!", vbInformation + vbOKOnly, "PrjClient"

End Sub

Private Sub HScr1_HScroll()

    Winsock1.SendData data1

    DoEvents

End Sub

Private Sub Winsock1_DataArrival(ByVal bytesTotal As Long)

    Dim data As String

    Winsock1.GetData data, vbString

    txInput = txInput & data & vbCrLf

End Sub

7. Selamat mencoba !! ~('-'~)(~'-')~

PHP: PHP Hypertext Preprocessor

PHP adalah sebuah bahasa script yang sangat bagus dan merupakan pasangan yang pas untuk bahasa HTML. Dengan kemampuan PHP untuk membuat website yang dinamis serta keindahan desain menggunakan HTML, maka nyaris tidak ada yang tidak dapat dilakukan gabungan kedua bahasa ini di dunia web. PHP ini merupakan bahasa yang sangat mudah karena tidak perlu repot-repot deklarasi variabel di awal, kalau butuh variabel tinggal pakai.

Kelebihan lain PHP adalah lisensinya yang open source, artinya selain boleh pakai secara gratis dapat memiliki keuntungan tambahan yaitu tersedia banyak sekali materi pendukung yang tersebar di Internet. Setelah kita memahami dasar-dasarnya, akan sangat mudah bagi kita untuk mengembangkan kemampuan kita karena ada begitu banyak materi tentang PHP yang bisa kita pelajari lebih lanjut.

PHP merupakan bahasa script yang disebut interpreter. Hal ini berarti kode tidak pelu di-compile sebelum digunakan dan hanya diproses saat diperlukan. Cara menggunakan PHP juga sangat mudah,yaitu denagn menyisipkan kode PHP ke dalam tag-tag HTML yang sudah ada.

Cara bekerjanya secara singkat adalah seperti ini. Ketika ada yang mengakses web anda di halaman yang berisi kode PHP (tentunya dengan file berekstensi .php), server  akan mengeksekusinya dan kemudian mengirimkan hasil eksekusinya ke web server untuk selanjutnya ditampilkan menggunakan kode HTML.

Itulah sebabnya perlu menginstal server anda sendiri untuk mengetes kode PHP secara lokal. Dalam hal ini, server merupakan otaknya dan fungsi browser hanyalah untuk menampilkan hasil output serverPHP ke PC klien, yaitu PC anda.

Kode-kode PHP akan disisipkan diantara kode-kode HTML. Misalnya, akan menampilkan kata-kata “Anda berada di situs Prothelon!” akan berada di sela-sela kode dalam file HTML yang berekstensi .php, bukan .htm atau .html. Contohnya,

Dari contoh di atas, HTML tetap diperlakukan sebagaimana HTML persis seperti HTML tanpa kode PHP, tetapi semua kode yang berada diantara tag akan diangggap kode PHP dan diproses oleh server PHP.

Hasil output dari proses PHP itu yang akan ditampilkan oleh HTML ke browser.Jjika file disimpan dengan ekstensi .htm/html, maka browser juga akan muncul akan menampilkan juga tag php namun tidak memprosesnya, sehingga muncul seperti ini:

Sedangkan jika disimpan dalam ekstensi .php, maka yang muncul hanya:

Anda berada di situs Prothelon!

Contoh lain,
File contoh1.php: 

Hasilnya:

VARIABLE

Dalam PHP setiap nama variable diawali tanda dollar ($). Misalnya nama variable a dalam PHP ditulis dengan $a.   Jenis suatu variable ditentukan pada saat jalannya program dan tergantung pada konteks yang digunakan.

File contoh2.php: 

Hasilnya :

STRUKTUR KONTROL

IF

Konstruksi IF digunakan untuk melakukan eksekusi suatu statement secara bersyarat.

Cara penulisannya adalah sebagai berikut:

if (syarat)

 {

 statement

 }

atau:

 if (syarat)

 {

 statement

 }

 else

 {

 statement lain

 }

atau:

 if (syarat pertama)

 {

 statement pertama

 }

 elseif (syarat kedua)

 {

 statement kedua

 } 

File contoh5.php: 

Hasilnya :

FOR

Cara penulisan statement FOR adalah sebagai berikut:

for (ekspresi1; ekspresi2 ; ekspresi3)

 statement

 keterangan:

ekspresi1 menunjukkan nilai awal untuk suatu variable

ekspresi2 menunjukkan syarat yang harus terpenuhi untuk menjalankan statemant

ekspresi3 menunjukkan pertambahan nilai untuk suatu variable

Contoh:

Hasilnya:

Selamat Mencoba !! 

sumber: 

• www.prothelon.com
• puskom.amikmbp.ac.id/~dahlan/TA_BIBIT...file/anon-phpmysql.pdf

jalan.jalan

me and glow, :)

AS $ 100

Suatu hari, seorang motivator terkenal membuka seminarnya dengan cara unik.
Sambil memegang uang pecahan AS $ 100, ia bertanya kepada hadirin, "Siapa yang mau uang ini?"
Tampak banyak tangan diacungkan, pertanda banyak yang minat.

"Saya akan berikan uang ini kepada salah satu dari Anda sekalian, tapi sebelumnya perkenankanlah saya melakukan ini."
Ia berdiri mendekati hadirin.
Uang itu diremas-remas dengan tangannya sampai berlipat-lipat.

Lalu bertanya lagi, "Siapa yang masih mau uang ini?"
Jumlah tangan yang teracung tak berkurang.

"Baiklah," jawabnya, "apa jadinya bila saya melakukan ini?" ujarnya sambil menjatuhkan uang ke lantai dan menginjak-injaknya dengan sepatunya. :gila:
Meski masih utuh, kini uang itu jadi amat kotor dan tak mulus lagi.

"Nah, apakah sekarang masih ada yang berminat?"
Tangan-tangan yang mengacung masih tetap banyak.

"Hadirin sekalian, Anda baru saja mendapatkan sebuah pelajaran penting.
Apa pun yang terjadi dengan uang ini, Anda masih berminat karena apa yang saya lakukan tidak akan mengurangi nilainya.
Biarpun lecek dan kotor, uang ini tetap bernilai 100 dolar."

Dalam kehidupan ini, kita pernah beberapa kali terjatuh, terkoyak, dan berlepotan kotoran akibat keputusan yang kita buat dan situasi yang menerpa kita.
Dalam kondisi seperti itu, kita merasa tak berharga, tak berarti.
Padahal apapun yang telah dan akan terjadi, Anda tidak pernah akan kehilangan nilai di mata mereka yang mencintai Anda.

So, setiap kali merasa diri tak berarti, ingatlah akan selembar uang 100 dolar tersebut.
Jangan pernah lupa – Anda adalah SPESIAL.
Be your self ;)

Ayah yang Kuat

Biasanya, bagi seorang anak perempuan yang sudah dewasa, yang sedang bekerja diperantauan, yang ikut suaminya merantau di luar kota atau luar negeri, yang sedang bersekolah atau kuliah jauh dari kedua orang tuanya.....

Akan sering merasa kangen sekali dengan Mamanya.

Lalu bagaimana dengan Papa?

Mungkin karena Mama lebih sering menelepon untuk menanyakan keadaanmu setiap hari,

tapi tahukah kamu, jika ternyata Papa-lah yang mengingatkan Mama untuk menelponmu


Mungkin dulu sewaktu kamu kecil, Mama-lah yang lebih sering mengajakmu bercerita atau berdongeng,

tapi tahukah kamu, bahwa sepulang Papa bekerja dan dengan wajah lelah Papa selalu menanyakan pada Mama tentang kabarmu dan apa yang kau lakukan seharian?


Pada saat dirimu masih seorang anak perempuan kecil......

Papa biasanya mengajari putri kecilnya naik sepeda.

Dan setelah Papa mengganggapmu bisa, Papa akan melepaskan roda bantu di sepedamu...


Kemudian Mama bilang : "Jangan dulu Papa, jangan dilepas dulu roda bantunya" ,

Mama takut putri manisnya terjatuh lalu terluka....


Tapi sadarkah kamu?

Bahwa Papa dengan yakin akan membiarkanmu, menatapmu, dan menjagamu mengayuh sepeda dengan seksama karena dia tahu putri kecilnya PASTI BISA.


Pada saat kamu menangis merengek meminta boneka atau mainan yang baru, Mama menatapmu iba.

Tetapi Papa akan mengatakan dengan tegas : "Boleh, kita beli nanti, tapi tidak sekarang"


Tahukah kamu, Papa melakukan itu karena Papa tidak ingin kamu menjadi anak yang manja dengan semua tuntutan yang selalu dapat dipenuhi?

Saat kamu sakit pilek, Papa yang terlalu khawatir sampai kadang sedikit membentak dengan berkata :

"Sudah di bilang! kamu jangan minum air dingin!".


Berbeda dengan Mama yang memperhatikan dan menasihatimu dengan lembut.

Ketahuilah, saat itu Papa benar-benar mengkhawatirkan keadaanmu.


Ketika kamu sudah beranjak remaja....

Kamu mulai menuntut pada Papa untuk dapat izin keluar malam, dan Papa bersikap tegas dan mengatakan: "Tidak boleh!".

Tahukah kamu, bahwa Papa melakukan itu untuk menjagamu?

Karena bagi Papa, kamu adalah sesuatu yang sangat - sangat luar biasa berharga..

Setelah itu kamu marah pada Papa, dan masuk ke kamar sambil membanting pintu...

Dan yang datang mengetok pintu dan membujukmu agar tidak marah adalah Mama....

Tahukah kamu, bahwa saat itu Papa memejamkan matanya dan menahan gejolak dalam batinnya,


Bahwa Papa sangat ingin mengikuti keinginanmu, Tapi lagi-lagi dia HARUS menjagamu?


Ketika saat seorang cowok mulai sering menelponmu, atau bahkan datang ke rumah untuk menemuimu, Papa akan memasang wajah paling cool sedunia.... :')

Papa sesekali menguping atau mengintip saat kamu sedang ngobrol berdua di ruang tamu..


Sadarkah kamu, kalau hati Papa merasa cemburu?

Saat kamu mulai lebih dipercaya, dan Papa melonggarkan sedikit peraturan untuk keluar rumah untukmu, kamu akan memaksa untuk melanggar jam malamnya.

Maka yang dilakukan Papa adalah duduk di ruang tamu, dan menunggumu pulang dengan hati yang sangat khawatir...

Dan setelah perasaan khawatir itu berlarut - larut...

Ketika melihat putri kecilnya pulang larut malam hati Papa akan mengeras dan Papa memarahimu.. .


Sadarkah kamu, bahwa ini karena hal yang di sangat ditakuti Papa akan segera datang?

"Bahwa putri kecilnya akan segera pergi meninggalkan Papa"

Setelah lulus SMA, Papa akan sedikit memaksamu untuk menjadi seorang Dokter atau Insinyur.

Ketahuilah, bahwa seluruh paksaan yang dilakukan Papa itu semata - mata hanya karena memikirkan masa depanmu nanti...

Tapi toh Papa tetap tersenyum dan mendukungmu saat pilihanmu tidak sesuai dengan keinginan Papa


Ketika kamu menjadi gadis dewasa....
Dan kamu harus pergi kuliah dikota lain...
Papa harus melepasmu di bandara.
Tahukah kamu bahwa badan Papa terasa kaku untuk memelukmu?
Papa hanya tersenyum sambil memberi nasehat ini - itu, dan menyuruhmu untuk berhati-hati. .
Padahal Papa ingin sekali menangis seperti Mama dan memelukmu erat-erat.
Yang Papa lakukan hanya menghapus sedikit air mata di sudut matanya, dan menepuk pundakmu berkata "Jaga dirimu baik-baik ya sayang".
Papa melakukan itu semua agar kamu KUAT...kuat untuk pergi dan menjadi dewasa.


Disaat kamu butuh uang untuk membiayai uang semester dan kehidupanmu, orang pertama yang mengerutkan kening adalah Papa.
Papa pasti berusaha keras mencari jalan agar anaknya bisa merasa sama dengan teman-temannya yang lain.
Ketika permintaanmu bukan lagi sekedar meminta boneka baru, dan Papa tahu ia tidak bisa memberikan yang kamu inginkan...
Kata-kata yang keluar dari mulut Papa adalah : "Tidak.... Tidak bisa!"
Padahal dalam batin Papa, Ia sangat ingin mengatakan "Iya sayang, nanti Papa belikan untukmu".


Tahukah kamu bahwa pada saat itu Papa merasa gagal membuat anaknya tersenyum?

Saatnya kamu diwisuda sebagai seorang sarjana.
Papa adalah orang pertama yang berdiri dan memberi tepuk tangan untukmu.
Papa akan tersenyum dengan bangga dan puas melihat "putri kecilnya yang tidak manja berhasil tumbuh dewasa, dan telah menjadi seseorang"
Sampai saat seorang teman Lelakimu datang ke rumah dan meminta izin pada Papa untuk mengambilmu darinya.
Papa akan sangat berhati-hati memberikan izin..
Karena Papa tahu.....
Bahwa lelaki itulah yang akan menggantikan posisinya nanti.
Dan akhirnya....
Saat Papa melihatmu duduk di Panggung Pelaminan bersama seseorang Lelaki yang di anggapnya pantas menggantikannya, Papa pun tersenyum bahagia....


Apakah kamu mengetahui, di hari yang bahagia itu Papa pergi kebelakang panggung sebentar, dan menangis?
Papa menangis karena papa sangat berbahagia, kemudian Papa berdoa....
Dalam lirih doanya kepada Tuhan, Papa berkata: "Ya Allah tugasku telah selesai dengan baik....
Putri kecilku yang lucu dan kucintai telah menjadi wanita yang cantik....
Bahagiakanlah ia bersama suaminya..."
Setelah itu Papa hanya bisa menunggu kedatanganmu bersama cucu-cucunya yang sesekali datang untuk menjenguk...
Dengan rambut yang telah dan semakin memutih....
Dan badan serta lengan yang tak lagi kuat untuk menjagamu dari bahaya....
Papa telah menyelesaikan tugasnya....

Papa, Ayah, Bapak, atau Abah kita...

Adalah sosok yang harus selalu terlihat kuat...

Bahkan ketika dia tidak kuat untuk tidak menangis...

Dia harus terlihat tegas bahkan saat dia ingin memanjakanmu. .

Dan dia adalah yang orang pertama yang selalu yakin bahwa "KAMU BISA" dalam segala hal. :))

sejam = 50.000

Temon, Pimpinan sebuah perusahaan di Jakarta,
tiba di rumahnya jam 9 malam.

Tak seperti biasanya anaknya, Shila, umur 9 th membukakan pintu untuknya.
Nampaknya ia sudah menunggu cukup lama.

"Kok, blum tidur?" sapa temon
"Aku nunggu Papa pulang,
sbab aku mau tanya,
Berapa sih gaji Papa?"

"Kamu hitung ya..
Tiap hari Papa bekerja sekitar 10 jam & dibayar 500.000
kadang Sabtu masih lembur.
Berapa gaji Papa hayo?"

"Kalo 1 hari Papa dibayar 500.000 u/ 10 jam,
berarti 1 jam Papa digaji 50.000 dong"

"Wah, pinter kamu.
Sekarang cuci kaki, terus tidur ya.."

"Papa, aku boleh pinjam 7.000 gak?"

"Sudah, gak usah macama-macam..
Buat apa minta uang malam-malam gini? Tidurlah.."

"Tapi Papa…"

"Papa bilang tidur!"

Shila pun lari menuju kamarnya sedih.

Usai mandi,
Temon menyesali kekesalannya,
menengok Shila di kamar tidurnya sedang terisak sambil memegang 18.000

Sambil mengelus kepala Shila, Temon berkata,
"Maafin Papa ya..
Papa sayang sama Shila..
Tapi buat apa sih minta uang sekarang?

"Papa, aku gak minta uang.
Aku hanya pinjam,
nanti aku kembalikan kalo sudah menabung lagi dari uang jajan seminggu ini."

"lya, iya, tapi buat apa?"

"Aku nunggu Papa dari jam 8 mau ajak Papa main ular tangga 30 menit aja.
Mama sering bilang waktu Papa itu amat berharga.
Jadi, aku mau ganti waktu Papa.
Aku buka tabunganku hanya ada 18.000...
Karna Papa 1 jam dibayar 50.000,
maka setengah jam aku harus ganti 25.000..
Duit tabunganku kurang 7.000,
makanya aku mau pinjam dari Papa" kata Shila dengan polos

Temon pun terdiam.
Ia kehilangan kata-kata.
Dipeluknya bocah kecil itu erat-erat dgn haru.

Dia baru menyadari,
ternyata limpahan harta yg dia berikan selama ini,
tak cukup u/ "membeli" kebahagiaan anaknya.

PESAN MORAL
"Bagi dunia kau hanya seseorang,
tapi bagi seseorang kau adalah DUNIA-nya

Anginkah yang Membelah Laut Merah Buat Nabi Musa A.S?

Washington, AS (ANTARA/Reuters) - Angin dari timur yang berhembus kencang dikabarkan membantu terbelahnya Laut Merah oleh Nabi Musa seperti yang tertulis pada kitab suci agama Samawi, kata para ilmuwan Amerika Serikat, Selasa.

Simulasi komputer memperlihatkan bagaimana angin dapat menghempaskan air laut sehingga mencapai dasar lautan dan membentuk laguna, kata kelompok peneliti di Badan Nasional Penelitian Atmosfir dan Universitas Colorado di Boulder.

"Simulasi tersebut hampir cocok dengan bukti pada rombongan Musa," kata pemimpin penelitian itu, Carl Drews dari NCAR.

Menurut Carl, berdasarkan ilmu fisika, angin dapat menghempaskan air menjadi sebuah jalur yang aman untuk dilintasi karena sifatnya yang luwes, kemudian kembali mengalir seperti semula.

Menurut tulisan dari kitab suci Islam maupun Kristen, Nabi Musa AS. memimpin umat Yahudi keluar dari Mesir atas kejaran Firaun pada 3.000 tahun yang lalu. Laut Merah saat itu terbelah sementara untuk membantu rombongan Musa melintas dan langsung menutup kembali, menenggelamkan para tentara Firaun.

Drews dan kelompoknya meneliti tentang angin topan yang berasal dari Samudera Pasifik menciptakan badai besar yang dapat menghempaskan air di laut dalam.

Kelompoknya menunjukkan kawasan selatan Laut Mediterania yang diduga menjadi tempat penyeberangan itu, dan memaparkan bentuk tanah yang berbeda karena terbentuk setelahnya serta memicu isu mengenai lautan yang terbelah.

Pemaparan tersebut membutuhkan bentuk tapal kuda Sungai Nil dan laguna dangkal di sepanjang garis pantai. Hal ini memperlihatkan angin berkecepatan sekitar 101 kilometer per jam yang berhembus selama 12 jam, dapat menghempaskan air pada kedalaman sekitar dua meter.

"Laguna itu memiliki panjang sejauh 3-4 kilometer dan lebar sejauh lima kilometer yang terbelah selama empat jam," kata mereka di dalam Jurnal Perpustakaan Umum Ilmu Pengetahuan, PloS ONE.

"Masyarakat telah dibuat kagum atas cerita pembelahan laut itu, membayangkan bahwa hal itu terjadi secara nyata," kata Drew menambahkan bahwa penelitian ini menjelaskan tentang pembelahan laut tersebut berdasarkan hukum fisika.

sumber : http://id.news.yahoo.com/antr/20100922/twl-anginkah-yang-membelah-laut-merah-bu-bbfa48e.html