Kamis, 19 September 2013

MTQ KE-45 KAB DELI SERDANG 2012 - FINALIS DEWASA

Lihat Video MTQ ke-45 Deli Serdang pada  tanggal 24 Maret 2012 di Desa Sampali Kec. Percut Sei Tuan.di bawah ini :


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  disini.



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

Akhir kata Semoga bermanfaat..........



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...........