Mengambil Atau Menampilkan Beberapa Jumlah kata Pada String PHP

ok kali ini saya share bagaimana cara menampilkan atau mengambil beberapa jumlah kata yang kita tentukan pada php.

misal nya kita punya string "aku adalah anak gembara selalu riang serta gembira"

nah kita hanya mau mengambil atau menampilkan 3 kata dari string tersebut, berikut codingan nya


<?php

 $string="aku adalah anak gembara selalu riang serta gembira";

 $jml=4; //banyak kata yang akan dipotong/diambil

 $potong=implode(" ", array_slice(explode(" ", $string), 0, $jml));

 echo $potong;

?>

maka output dari echo $potong adalah "aku adalah anak gembara"

Video Tutorial Visual Basic

Bagi anda yang ingin mendapatkan Video Tutorial Visual Basic 6.0, 2005, 2008, 2010, 2012 kami akan uploade beberapa Tutorial dari kami di youtube. Mungkin dengan ini anda akan semakin mudah dalam belajar Visual Basic. Berikut ini yang sudah kami Uploade pada Youtube :


A. Membuat Project Baru VB 6.0
B. Membuat Form Menu Utama
C. Membuat Database dan Tabel
D. Koneksi Database
E. Membuat Form Login

Untuk Video lainnya, kami akan menguploade dilain waktu, mohon di tunggu :)

Net TV Online Live Streaming

Trans 7 Online Live Streaming

TVRI Online TV Streaming Live

MNC TV Live Streaming Online

Metro TV Online Live Streaming

Kompas Online TV Streaming Live

Global TV Online Live Streaming

AnTV Online Live Streaming

TV One Live Streaming TV

Trans TV Online Live Streaming

Indosiar Online Live Streaming

SCTV Live Online Streaming

Cara merubah bilangan hexadesimal ke binary pada vb6

Hexadecimal to binary

Berikuta adalah codingan atau cara merubah atau convert konversi bilangan hexadecimal ke binary dengan vb6

Function HexToBinary(str As String, Optional Seperator As String = "")

Dim TempStr As String
Dim X As Integer



For X = 1 To Len(str)

    Select Case Mid(str, X, 1)

        Case "0"
            TempStr = TempStr & "0000"
        Case "1"
            TempStr = TempStr & "0001"
        Case "2"
            TempStr = TempStr & "0010"
        Case "3"
            TempStr = TempStr & "0011"
        Case "4"
            TempStr = TempStr & "0100"
        Case "5"
            TempStr = TempStr & "0101"
        Case "6"
            TempStr = TempStr & "0110"
        Case "7"
            TempStr = TempStr & "0111"
        Case "8"
            TempStr = TempStr & "1000"
        Case "9"
            TempStr = TempStr & "1001"
        Case "A"
            TempStr = TempStr & "1010"
        Case "B"
            TempStr = TempStr & "1011"
        Case "C"
            TempStr = TempStr & "1100"
        Case "D"
            TempStr = TempStr & "1101"
        Case "E"
            TempStr = TempStr & "1110"
        Case "F"
            TempStr = TempStr & "1111"
    End Select

    TempStr = TempStr & Seperator

Next

HexToBinary = TempStr
End Function


Private Sub Command1_Click()
Text2.Text = HexToBinary(Text1.Text)

End Sub

Cara merubah hexadecimal to image pada vb6

berikut adalah codingan dari cara merubah atau konversi dari hexadecimal ke image atau gambar pada vb6

Private Sub cmdHexToImage_Click()
 Dim s As String
 Dim b() As Byte

 Open App.Path & "\t-rex_hex.txt" For Binary As #2

 s = String(LOF(2), 0)

 Get #2, 1, s

 Close #2

 b = Hex2ByteArr(s)

 Open App.Path & "\new_image.jpg" For Binary As #3
 Put #3, 1, b
 Close #3
End Sub


Public Function Hex2ByteArr(sHex As String) As Byte()
 '
 ' Call this function and write the byte array it returns back to disk
 '
 Dim bArr() As Byte
 Dim nUBound As Long, n As Long
   
 'Remove all spaces in the hex string
 sHex = Replace(sHex, " ", "")
   
 'Since each byte takes up 2 hex numbers the string length must be dividable by 2
 If Not Len(sHex) Mod 2 = 0 Then
   'you should throw an error here
   Exit Function
 End If
   
 nUBound = Len(sHex) \ 2 - 1
   
 ReDim bArr(nUBound)
   
 For n = 0 To nUBound
   k = CInt("&H" & Mid$(sHex, n * 2 + 1, 2))
   bArr(n) = k 'CInt("&H" & Mid$(sHex, n * 2 + 1, 2))
 Next

 Hex2ByteArr = bArr
End Function

download project nya di sini :
http://www.4shared.com/rar/Bqx9p-7xce/imagetostring.html

Cara merubah image to hexadecimal pada vb6

berikut adalah cara merubah atau konversi dari image ke hexadecimal pada vb6

Private Sub cmdImageToHex_Click()
 Dim s As String
 s = Image2Hex(App.Path & "\t-rex.gif")
 Open App.Path & "\t-rex_hex.txt" For Binary As #1
 Put #1, 1, s
 Close #1
End Sub


Public Function Image2Hex(ByVal sFileName As String) As String
 Dim hFile As Integer, bArr() As Byte
   
 On Error Resume Next
   
 If Len(Dir$(sFileName, vbHidden Or vbSystem)) = 0 Then
   Call MsgBox("Can't find the file", vbCritical, "Error")
   Exit Function
 End If
   
 hFile = FreeFile
  
 Open sFileName For Binary Access Read As #hFile
       
 If Err.Number = 0 Then
   ReDim bArr(LOF(hFile) - 1)
           
   Get #hFile, , bArr
           
   Image2Hex = ByteArr2Hex(bArr)
 Else
   Call MsgBox("Can't open the file", vbCritical, "Error")
 End If
   
 Close #hFile
End Function


Download aplikasi project nya di mari
http://www.4shared.com/rar/Bqx9p-7xce/imagetostring.html