Lihat Video MTQ ke-45 Deli Serdang pada tanggal 24 Maret 2012 di Desa Sampali Kec. Percut Sei Tuan.di bawah ini :
Kamis, 19 September 2013
Rabu, 27 Februari 2013
Program Chatting dengan VB 6.0
Program Chatting ini saya dapat dari dosen saya di perkulihan. untuk melihatnya silahkan download programnya
Jika anda ingin membuat programnya sendiri. berikut ini listing programnya :
Server :
Option Explicit
Private Sub cmdSend_Click()
Winsock1.SendData txtChat.Text
DoEvents
txtMain.Text = txtMain.Text & vbCrLf
& txtChat.Text
txtChat.Text = ""
End Sub
Private Sub Form_Load()
Winsock1.LocalPort = 11111
Winsock1.Listen
End Sub
Private Sub Winsock1_ConnectionRequest(ByVal requestID As Long)
'reset the
socket, and accept the new connection
Winsock1.Close
Winsock1.Accept requestID
End Sub
Private Sub Winsock1_DataArrival(ByVal
bytesTotal As Long)
Dim strData
As String
'get the data and
display it in the textbox
Winsock1.GetData strData
txtMain.Text = txtMain.Text & vbCrLf
& strData
txtMain.SelStart = Len(txtMain.Text)
End Sub
Kien :
Option Explicit
Private Sub Form_Load()
'set up the
Winsock1 to connect to the local computer
Winsock1.RemoteHost = "127.0.0.1"
Winsock1.RemotePort = 11111
Winsock1.Connect
End Sub
Private Sub cmdSend_Click()
'send the data
thats in the text box and
'clear it to
prepare for the next chat message
Winsock1.SendData txtChat.Text
DoEvents
txtMain.Text = txtMain.Text & vbCrLf
& txtChat.Text
txtChat.Text = ""
End Sub
Private Sub Winsock1_Connect()
'we are
connected!
MsgBox "Connected"
End Sub
Private Sub Winsock1_DataArrival(ByVal
bytesTotal As Long)
Dim strData
As String
' get the data
from the socket
Winsock1.GetData strData
' display it in
the textbox
txtMain.Text = txtMain.Text & vbCrLf
& strData
' scroll the box
down
txtMain.SelStart = Len(txtMain.Text)
End Sub
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)
' an error has
occured somewhere, so let the user know
MsgBox "Error:
" & Description
' close the
socket, ready to go again
Winsock1.Close
End Sub
Minggu, 24 Februari 2013
Lirik dan kunci lagu WALI (Cari Berkah(cabe))
Berikut ini Lirik dan kunci lagu Wali-CABE (Cari Berkah) :
Intro : Em-D Em-G Em
Bm D C D Bm
E Bm E D
Bang, beli bawang, beli bawang 'gak pake kulit
D E
Bang, jadi orang, jadi orang jangan pelit-pelit
E Bm D
Neng, beli batik, beli batik warnanya terang
D G E
Neng, tambah cantik, kalo sering bantu orang
B C
Itu semua dari Allah, itu semua karena Allah
D Em
Itu semua milik Allah Barokallah
Am C
Banyak harta ngapain (ngapain)
D A
Kalo nggak berkah pikirin (pikirin)
Bm E
Oh punya harta gak mungkin (gak mungkin) di bawa mati
C D E
Hidup indah bila mencari berkah
Bm C
Punya rezeki bagiin (bagiin)
G D
Bantu yang susah tolongin (tolongin)
Bm Em
Oh jadi miskin gak mungkin (gak mungkin), Allah yang jamin
C D E
Hidup indah bila mencari berkah
Solo : Bm Em Bm Em Bm
Em
Ya Allah Tuhan kami
D
Berkahi hidup ini
F#m D
Sampai tua nanti
D E
Dan sampai dan sampai dan sampai kami mati
C
Banyak harta ngapain (ngapain)
D
Kalo nggak berkah pikirin (pikirin)
Bm Em
Oh punya harta gak mungkin (gak mungkin) di bawa mati
C A Bm
Hidup indah bila mencari berkah
C
Punya rezeki bagiin (bagiin)
D
Bantu yang susah tolongin (tolongin)
Bm Em
Oh jadi miskin gak mungkin (gak mungkin), Allah yang jamin
Em D Em
Hidup indah bila mencari berkah
Int : C D Bm Em
C D Em
C
Banyak harta ngapain (ngapain)
D
Kalo nggak berkah pikirin (pikirin)
Bm Em
Oh punya harta gak mungkin (gak mungkin) di bawa mati
C D Em
Hidup indah bila mencari berkah
C
Punya rezeki bagiin (bagiin)
D
Bantu yang susah tolongin (tolongin)
Bm Em
Oh jadi miskin gak mungkin (gak mungkin), Allah yang jamin
Bm C D Em
Hidup indah bila mencari berkah
C D Em
Hidup indah bila mencari berkah
Lihat video Wali-Cabe (Cari Berkah)
Download lagunya disini
Jumat, 22 Februari 2013
Textarea dengan tampilan yang menarik
Di kesempatan kali ini saya akan berbagi ilmu pengetahuan yang saya
dapat baik itu dari perkuliahan maupun media internet. Pada postingan
hari ini mengenai macam-macam model dari textarea. Jika anda belajar
pemograman baik itu HTML maupun PHP pasti nama textarea sudah tidak
asing lagi. Sekedar mengingatkan dan bukan maksud untuk menggurui para
bloger , disini saya akan berbagi bagaimana membuat textarea dengan tampilan yang menarik tentunya sesuai keinginan anda. Langsung saja ke
TKP :
1. Sintax : <textarea
cols="30" name="code" rows="6"
style="background: none repeat scroll 0% 0% rgb(239, 0, 144); border: 3px
dotted rgb(255, 239, 249); color: #ffeff9; line-height: 1.5em; padding:
5px;"> Masukkan tulisan anda disini </textarea>
Hasilnya :
2. Sintax : <textarea name="code" rows="3" cols="20" style="background:#BFFAFF; color:#FF0000; border-bottom: 4px solid #40FF1F; border-right: 4px solid #40FF1F; border-top: 4px solid #FFE900; border-left: 4px solid #FFE900; line-height:1.5em; padding:5px; -moz-border-radius:10px;"> Masukkan tulisan anda disini </textarea>
Hasilnya :
3. Sintax : <textarea cols="30" name="code" rows="6" style="-moz-border-radius: 7px 7px 7px 7px; background: none repeat scroll 0% 0% rgb(251, 239, 255); border-color: rgb(202, 61, 217); border-style: solid; border-width: 1px 1px 1px 20px; color: #ca3dd9; line-height: 1.5em; padding: 5px;"> Masukkan tulisan anda disini </textarea>
Hasilnya :
Semoga Bermanfaat...........
Langganan:
Postingan (Atom)