Menginstall Joomla 1.0.12 Dengan Server Wamp 2.0h

Untuk menginstall joomla dengan Wampserver 2.0h ini tentunya membutuhkan aplikasi wampserver yang sudah terinstall, dan juga mentahan joomla 1.0.12.

Untuk menginatalnya buka direktori penginstalan wampserver dan masuk pada folder www, disana akan ada sebuah file index.php, biarkan saja, kita tidak akan mengganggu itu, buatlah sebuah folder dalam folder www tersebut, lalu copykan mentahan joomla 1.0.12 pada folder yang dibuat tadi.

Selanjutnya buka browser, baik mozila firefox, google chrome, opera atau apa pun lah itu, ketikkan pada urlnya 127.0.0.1 dan enter, maka akan keluar tampilan wamp server berikut :

Selanjutnya lihat pada your project aka nada nama folder yang kita buat tadi, klik folder tersebut, maka akan muncul tampilan penginstalan berikut :

Klik pada tombol Next, maka akan muncul tampilan lisensi berikut :

Klik lagi next, selanjutnya isi Host Name dengan localhost, MySQL User Name : root, dan MySQL Database Name dengan nama terserah anda, jika diinginkan ubah juga MySQL Table Prefix dengan nama terserah anda yang mana defaultnya jos_ , dan biarkan centang Install Sample Data jika ingin menginstall contoh artikel dalam website yang akan dibuat 

Dan klik lagi next, maka akan muncul message box berikut :

Klik ok, dan akan keluar tampilan dibawah ini, isikan nama website yang dibuat dan klik lagi tombol next :

Selanjutnya isi email pada kolom your email dan ganti password Admin, karena itu password acak acakkan saja, lalu klik tombol next lagi

Selanjutnya akan ada pemberitahuan joomla berhasil di install dan pemberitahuan username dan juga password adminnya :

Selanjutnya, masuk lagi pada folder penginstalan tadi dan hapus folder installation dalam folder tersebut dan kembali ke browser, pilih View Site untuk melihat website yang telah terinstall atau pilih administration untuk melihat halaman administration.

Membuat Efek Form Berbintang Di Visual Basic 6.0

Untuk form berbintang cukup tambahkan sebuah timer ke dalam form dan ubah properties backcolor formnya menjadi warna hitam, lalu ketikkan coding berikut di jendela coding :

Dim X(100), Y(100), Z(100) As Integer

Dim tmpX(100), tmpY(100), tmpZ(100) As Integer

Dim K As Integer

Dim Zoom As Integer

Dim Speed As Integer

Private Sub Form_Activate()

Speed = -1

K = 2038

Zoom = 256

Timer1.Interval = 1

For i = 0 To 100

X(i) = Int(Rnd * 1024) - 512

Y(i) = Int(Rnd * 1024) - 512

Z(i) = Int(Rnd * 512) - 256

Next i

End Sub

Private Sub Timer1_Timer()

For i = 0 To 100

Circle (tmpX(i), tmpY(i)), 5, BackColor

Z(i) = Z(i) + Speed

If Z(i) > 255 Then Z(i) = -255

If Z(i) < -255 Then Z(i) = 255

tmpZ(i) = Z(i) + Zoom

tmpX(i) = (X(i) * K / tmpZ(i)) + (Form1.Width / 2)

tmpY(i) = (Y(i) * K / tmpZ(i)) + (Form1.Height / 2)

Radius = 1

StarColor = 256 - Z(i)

Circle (tmpX(i), tmpY(i)), 5, RGB(StarColor, StarColor, StarColor)

Next i

End Sub

Lalu jalankan project (F5)…!!!

Mengubah Nama Recycle Bin Di Desktop Windows

Buka menu Run dan ketikkan Regedit, lalu enter, setelah window regedit terbuka masuk pada direktori HKEY_CURRENT_USER\Software\Microsoft\ShellNoRoam\MUIChace,

 lalu cari @C:\WINDOWS\system32\SHELL32.dll,-8964

Klik kanan pada baris tersebut dan pilih Modify, lalu ubah value datanya sesuka hati

Selanjutnya tutup jendela regedit, dan lihat pada desktop nama recycle bin akan berubah, jika belum berubah refresh.

Mengetahui Info Image Dari Visual Basic 6.0

Program ini berfungsi untuk mengetahui kapasitas, dan ukuran dari sebuah gambar, sebenarnya ini bias dilihat saja dari properties file gambar tersebut, namun tak ada salahnya kita mengaplikasikannya ke dalam pemrograman visual basic ini. Masukkan sebuah command button dan common dialog ke dalam form, ubah caption command nya menjadi  “Search Image”, lalu masuk pada jendela coding dan buat coding berikut :

Option Explicit

Private sTypes(4) As String

Private Sub Command1_Click()

Dim ii As New Class1

Dim msg As String

CommonDialog1.ShowOpen

ii.ReadImageInfo (CommonDialog1.FileName)

msg = msg & "FileName: " & CommonDialog1.FileName & vbCrLf

If ii.ImageType Then

msg = msg & "Width: " & ii.Width & vbCrLf

msg = msg & "Height: " & ii.Height & vbCrLf

msg = msg & "Bits per pixel: " & ii.Depth & vbCrLf

msg = msg & "Type: " & sTypes(ii.ImageType)

Else

msg = msg & "Unknown image type"

End If

MsgBox msg, vbInformation Or vbOKOnly, "Image Information"

End Sub

Private Sub Form_Load()

sTypes(1) = "GIF"

sTypes(2) = "JPEG"

sTypes(3) = "PNG"

sTypes(4) = "BMP"

End Sub

Selanjutnya tambahkan sebuah class module ke dalam form dengan cara click menu  project > add class module dan masukkan listing berikut :

Option Explicit

Private Const BUFFERSIZE As Long = 65535

Public Enum eImageType

itUNKNOWN = 0

itGIF = 1

itJPEG = 2

itPNG = 3

itBMP = 4

End Enum

Private m_Width As Long

Private m_Height As Long

Private m_Depth As Byte

Private m_ImageType As eImageType

Public Property Get Width() As Long

Width = m_Width

End Property

Public Property Get Height() As Long

Height = m_Height

End Property

Public Property Get Depth() As Byte

Depth = m_Depth

End Property

Public Property Get ImageType() As eImageType

ImageType = m_ImageType

End Property

Public Sub ReadImageInfo(sFileName As String)

Dim bBuf(BUFFERSIZE) As Byte

Dim iFN As Integer

m_Width = 0

m_Height = 0

m_Depth = 0

m_ImageType = itUNKNOWN

iFN = FreeFile

Open sFileName For Binary As iFN

Get #iFN, 1, bBuf()

Close iFN

   

If bBuf(0) = 137 And bBuf(1) = 80 And bBuf(2) = 78 Then

m_ImageType = itPNG

Select Case bBuf(25)

Case 0

m_Depth = bBuf(24)

Case 2

m_Depth = bBuf(24) * 3

Case 3

m_Depth = 8

Case 4

m_Depth = bBuf(24) * 2

Case 6

m_Depth = bBuf(24) * 4

Case Else

m_ImageType = itUNKNOWN

End Select

       

If m_ImageType Then

m_Width = Mult(bBuf(19), bBuf(18))

m_Height = Mult(bBuf(23), bBuf(22))

End If

End If

   

If bBuf(0) = 71 And bBuf(1) = 73 And bBuf(2) = 70 Then

m_ImageType = itGIF

m_Width = Mult(bBuf(6), bBuf(7))

m_Height = Mult(bBuf(8), bBuf(9))

m_Depth = (bBuf(10) And 7) + 1

End If

   

If bBuf(0) = 66 And bBuf(1) = 77 Then

m_ImageType = itBMP

m_Width = Mult(bBuf(18), bBuf(19))

m_Height = Mult(bBuf(22), bBuf(23))

m_Depth = bBuf(28)

End If

If m_ImageType = itUNKNOWN Then

Dim lPos As Long

Do

If (bBuf(lPos) = &HFF And bBuf(lPos + 1) = &HD8 And bBuf(lPos + 2) = &HFF) _

Or (lPos >= BUFFERSIZE - 10) Then Exit Do

lPos = lPos + 1

Loop

lPos = lPos + 2

If lPos >= BUFFERSIZE - 10 Then Exit Sub

Do

Do

If bBuf(lPos) = &HFF And bBuf(lPos + 1) <> &HFF Then Exit Do

lPos = lPos + 1

If lPos >= BUFFERSIZE - 10 Then Exit Sub

Loop

lPos = lPos + 1

Select Case bBuf(lPos)

Case &HC0 To &HC3, &HC5 To &HC7, &HC9 To &HCB, &HCD To &HCF

Exit Do

End Select

lPos = lPos + Mult(bBuf(lPos + 2), bBuf(lPos + 1))

If lPos >= BUFFERSIZE - 10 Then Exit Sub

Loop

m_ImageType = itJPEG

m_Height = Mult(bBuf(lPos + 5), bBuf(lPos + 4))

m_Width = Mult(bBuf(lPos + 7), bBuf(lPos + 6))

m_Depth = bBuf(lPos + 8) * 8

End If

End Sub

Private Function Mult(lsb As Byte, msb As Byte) As Long

Mult = lsb + (msb * CLng(256))

End Function

Selanjutnya jalankan program (F5), dan tekan tombol search image dan cari image yang akan kita ketahui ukuran dan kapasitasnya.