Membuat Header Website

Assalamu alaikum warah matullahi wabaro katuh….. akhirnya ada waktunya ngeblog. Sebelumnya mohon maaf, saya bukannya niat spam apalagi Sampah yang hanya mengambila kata kunci supaya blog saya bisa dikunjungi. tapi saya hanya berbagi kepada anda, dan teman-teman sekalian yang membutuhkanya. semoga aja bermanfaat.

okey… back to topic aja yah.Topic kali ini yaitu Bagaimana Cara Edit Header Website. jikalau anda kurang paham apa itu header, anda bisa clik dsini

Membuat Koneksi Database SQL Server Dari Visual Basic 6.0

Assalamu alaikum Wr….Wb………….

huh…!!! dah ngantuk mash juga mo ngetik. dsini saya ingin kasi tips sedikit bagi Para Programer Visual Basic!! Programmer kacangan maksudnya. karena saya juga termasuk programer kacangan..!! sebelum saya mulai lebih baik saya akhiri..[ (:)) ) ) ] !! sory………..( ) saya mau jelasin dulu apa manfaat dari  Aplikasi yang satu ini. guna form koneksi ini nantinya untuk memudahkan kita dalam mengkoneksikan Database SQL Server kita, saya juga kurang paham jelasinnya. tapi mudah-mudahan anda paham. kita mulai aja dah…!! saya juga malas basa basi. ga bisa…!! nanti hasilnya seperti ini

Koneksi Database SQL Server

Kalo dah liat gambarnya wes mudengkan…. nah…………. sekarang tugas kita adalah………:

• Buka Aplikasi Visual Basic Anda
• kemudian Tambahkan Satu Form di Projek anda
• kemudian Tambahkan juga  Satu Modules di Projek anda
• Tambahkan Pada Form Objek-objek seperti diatas. 4 Label, 4 TextBox, 3 CummondButton
• terus Desain objek tersebut atau yang anda tambahkan tadi ke Form Koneksi. contohnya seperti gambar diatas, terserah mo gimana…..!! kalo mo cantik, ya buat acem gitulah ( )
• kalo dah selesai…. okeh…!!! Buka Modules yang sudah ditambahkan dan kemudian ketikkan koding dibawah ini.

Source Kode Program dibuat di module

Public MyDB As New ADODB.Connection
Public KONEKSI As String
Public StrUser As String
Public StrPwd As String
Public StrDB As String
Public Strsrv As String
Public File_Con As String, SQL As String, pesan As String

Private Sub Main()
If Dir(App.Path & “\Konektor.txt”) = “Konektor.txt” Then
GO_MENU
Else
FrmNew.Show
End If
End Sub

‘ ini gunanya untuk membuat file notepad…..!!! yar koneksinya kita ga sering-sering gitu loh

Sub Create_Con()
Dim kondisi As String
File_Con = App.Path & “\Konektor.txt”
Open File_Con For Output As #1   ‘Buka file text
Strsrv = FrmNew.txtserver.Text
StrPwd = FrmNew.txtpass.Text
StrUser = FrmNew.txtuser.Text
StrDB = FrmNew.txtdb.Text
Print #1, Strsrv ‘Modify; Baris; Pertama
Print #1, StrUser ‘Modify; Baris; Ketiga
Print #1, StrPwd ‘Modify; Baris; Keempat
Print #1, StrDB ‘Modify; Baris; Kedua
Print #1, kondisi
Close #1
End Sub

Sub Load_Con()
File_Con = App.Path & “\Konektor.txt”
Open File_Con For Input As #1
Line Input #1, Strsrv
Line Input #1, StrUser
Line Input #1, StrPwd
Line Input #1, StrDB
Close #1
End Sub

Sub GO_MENU()
On Error GoTo pesan
Load_Con ‘ ini memanggil fungsi load_con
With MyDB
KONEKSI = “Provider=SQLOLEDB.1;” & _
“Password=” & StrPwd & “;” & _
“User ID=” & StrUser & “;” & _
“Initial Catalog =” & StrDB & “;” & _
“Data Source=” & Strsrv & “”
.CursorLocation = 3
.Open KONEKSI
If .State = adStateOpen Then
‘Menu.Show
FrmLogin.Show
Else
MsgBox “CONECTION VIEW ERROR”, vbCritical + vbOKOnly, “ERROR”
End If
End With
Exit Sub
pesan:
MsgBox Err.Description, vbOKOnly + vbCritical, “ERROR”
FrmNew.Show
End Sub

Setelah itu Masukkan Kode Program ini di Form Koneksi

Private Sub Cmdconek_Click()
On Error GoTo eror
StrPwd = txtpass.Text
StrUser = txtuser.Text
StrDB = txtdb.Text
Strsrv = txtserver.Text
If txtpass.Text = “” Or txtuser.Text = “” Or txtdb.Text = “” Or txtserver.Text = “” Then
MsgBox “Empty Connecting server “, vbInformation + vbOKOnly, “Connection”
txtserver.SetFocus
Exit Sub
End If
Create_Con
Screen.MousePointer = vbHourglass
With MyDB
KONEKSI = “Provider=SQLOLEDB.1;” & _
“Password=” & StrPwd & “;” & _
“User ID=” & StrUser & “;” & _
“Initial Catalog =” & StrDB & “;” & _
“Data Source=” & Strsrv & “”
.CursorLocation = 3
.Open KONEKSI
If .State = adStateOpen Then
FrmLogin.Show
Unload Me
Else
MsgBox “CONECTION VIEW ERROR”, vbCritical + vbOKOnly, “ERROR”
End If
End With
Screen.MousePointer = vbDefault
Exit Sub
eror:
MsgBox Err.Description, vbInformation + vbOKOnly, “Connection”
bersih
FrmNew.Show
Screen.MousePointer = vbDefault
End Sub

Private Sub cmdexit_Click()
End
End Sub

Sub bersih() ‘ ini fungsi memberihkan text… ini variable kita buat ndiri…. tapi diingat ya…..
Dim OBJEK As Variant
For Each OBJEK In Me
If TypeOf OBJEK Is TextBox Then
OBJEK.Text = “”
End If
Next

End Sub

Private Sub Picture2_Click()
Call bersih: txtserver.SetFocus
End Sub

Selesai sudah…!! cuman itu doang kog..!!! Cara Kerja Program diatas gini… pada saat program dijalankan… startupnya ada dimodule, pada Private Sub Main Kemudian Akan Langsung membaca File notepad yang dipadukan sebagai tempat koneksi database. jika file didalam file notepad itu tidak sesuai dengan nama server, user id , password dan nama database yang ada di SQL server maka aplikasi akan menampilkan pesan bahwa koneksi kedatabase error. dan kemudian akan dilanjutkan ke form Koneksi untuk membuat koneksi baru..!! kemudian isikan field-Field yang ada di Form Koneksi..dan kemudian Klik Konek,

Mungkin sampai dsini aja dulu artikel ini, berhubung karena saya sudah ngantuk dan capek… jadi jikalaw, seandainyam, andaikata, apabila. ( hahaha…. ) saya ada salah ketik dan salah omong saya mohon maaf sebesar-besarnya. sekian dari saya dan terimakasih banyak

.................................

Mempercepat browsing of Windows 2000 & XP

Berikut tip yang bagus untuk mempercepat browsing Windows XP  anda. sebenarnya disini kita hanya memperbaiki bug diinstal sebagai default pada Windows 2000 yang memindahi file untuk membagi Tugasnya masing-masing di browser. Anda dapat mengalami penundaan selama 30 detik saat Anda mencoba untuk melihat berbagi file di dalam jaringan, karena Windows 2000 menggunakan waktu tambahan untuk mencari komputer .Perhatikan , walaupun perbaikan ini awalnya hanya ditujukan untuk mereka yang terkena dampak Positif, pengguna Windows 2000 yang berpengalaman dengan ini akan  memperbaiki  kecepatan browsing Internet & Windows Explorernya. setelah menerapkan tips ini.  Begini Cara Settingannya :

Buka Registry dan pergi ke:

HKEY_LOCAL_MACHINE / Software / Microsoft / Windows / Current Version / Explorer / RemoteComputer / NameSpace

Di bawah cabang, pilih kunci(Key):

(D6277990-4C6A-11CF-8D87-00AA0060F5BF)

dan kemudian Hapus Key tersebut.

Ini adalah key yang memerintahkan Windows untuk mencari jadwal tugas browser. Jika Anda seperti Anda mungkin ingin mengekspor cabang yang tepat sehingga Anda dapat memulihkan key jika perlu. Memperbaiki ini sangat efektif sehingga tidak memerlukan reboot dan Anda dapat langsung menentukan sendiri berapa banyak mempercepat proses browsing Anda.

Good Luck….!!!!

Note :: Cara membuka Registry Click Menu Start >> Run >> Ketikkan  Regedit >> OK

Membuat Icon Desktop Transparan

Berbagi Ilmu sangat penting sekali, walaupun hanya hal kecil seperti ini banyak kalangan pemula lupa akan hal yang seperti ini. untuk mempermudah dan menambah wawasan sedikit, saya maw kasi tips buat para pengunjung yang ingin menjelaskan kepada adik-adiknya bagaimana membuat icon desktop jadi transparan. yang saya maksud membuat icon transparant adalah seperti gambar dibawah ini:

Icon Transparant

Nah…. sekarang tips ini ingin kita jadikan menjadi tidak transparant..! Caranya :

• Click Menu Star ==> Control Panel
• Pada Control Panel Pilih System

Control Panel >> System

• Pilih Tab Anvanced Pada Form System >>  Area Performance >> Setting

Control Panel >> System >>Advanced >> Performanced >> Setting

• Untuk Membuat Icon Transparant Ceklis Use Drop Shadow For Icon label on the Desktop
• dan untuk Mengembalikannya lagi seperti semula Un Cheklis aja lagi yang tadi….

Semoga Bermanfaat. jika menurut anda tips ini tidak terlalu penting diposting karena terlalu gampang saya minta maaf. Terimakasih.

Menampilkan Laporan Pertanggal dan Per Faktur

Hasil Tampilan Laporan :

Dua Minggu lalu aku lagi banti teman yang lagi nyelesaiin Tugas Akhir, dial lagi buat sistem aplikasi persediaan Stock obat, tapi dia bingung mo nampilin laporannya. Masalahnya Laporannya Pertanggal dan No Faktur. Katanya dia koding kodingnya agak reda-reda lupa …!! J J  (katanya…!!!

Terus dia dating kerumah maksudnya kost, dia nanya Gima cara menampilkan Laporan di Crystal Report Berdasarkan Tanggal. Kebetulan aku juga agak reda-reda lupa…!! Ta’ cari-cari dinternet…!!banyak banget…!! tapi ga taw mo pilih cara yang mana. Bingung!!!. Cari kesana-kesini, minjem buku dari perpus. Tanya teman juga ga ngerti. Mo browsing kebetulan Dompet Kosong TOTAL (WADUH,,,!!!) Berhubung karena kodingnya agak reda-reda lupa, dang dompet….!!!!!Akhirnya coba-coba aja….!!! Alhamdulillah dapet juga!!! So…jadi saya posting aja deh…!! Sapa taw ada yang lupa seperti saya dan bermaanfaat bagi kita semua.

OK . let start it  now…!!!!!

• Pertama-tama siapkan satu tabel transaksi yang anda buat. Disini saya menampilkan laporan Transaksi Masuk dan keluarnya Obat.

• Kemudian desain satu Laporan Transaksi tersebut dengan menggunakan Cystal Report 8.5. ataw versi diatas juga lebih bagus..!!! Example

• setelah anda selesai menesain Laporan Tersebut Buka Software Visual Basic anda. Disini saya mengunakan Versi 6.0 . siapkan satu Form untuk seting tanggal yang ingin ditampilkan. Contohnya seperti dibawah ini:

• Berikut Objek yang ditambah dalam form tersebut

Toolbox	Properties	Value
1 Form	Width	7980
	Height	3375
	Name	FrmLaporan
1 Picture Box	Width	2805
	Height	2805
	Name	PicLatar
2 Label	Label1.Caption	Cetak Laporan Obat Keluar/ Masuk dari tanggal S/D
	Label2.caption
2 DTPicker	Name	Dt.Awal (seting Nilai Properties)
	Name	DtAkhir
2 CummonButton	Name	CmdPreview
	Name	CmdCancel
`1 CrViewer	Width	2805
	Height	2805
	Name	CrViewer1
	Visible	False
1 Modules	Name	ModConnection
Nb : jika Objek DTPicker tidak ada di Toolbox, anda harus menginstall terlebih dahulu dengan cara Menu Project èComponentsè cari objek yang ingin ditambahkan.

• OK!! Sekar ang anda tinggal masukkan senjata ampuhnya….alias listing Programannya!! .. silahkan  ketik koding dibawah in

v Ketikkan Koding ini di modKonnection

Public KONEKSI As String

Public MyDB As New ADODB.Connection

Private Sub Main()

On Error GoTo PESAN

With MyDB

KONEKSI = “Provider=SQLOLEDB.1;” & _

“Password=” & sambungpassword & “;” & _

“User ID=” & sambungUserID & “;” & _

“Initial Catalog =” & sambungDB & “;” & _

“Data Source=” & sambungoperator & “”

.CursorLocation = 3

.Open KONEKSI

If .State = adStateOpen Then

‘FrmLogin.Show

Menu.Show

Else

MsgBox “CONNECTION VIEW ERROR”, vbOKOnly + vbInformation, “KONEKSI BARU”

End If

End With

Exit Sub

PESAN:

MsgBox “ERROR 010 :” & vbTab & Err.Description & vbCrLf & ” BUAT KONEKSI BARU “, vbCritical + vbOKOnly, “ERROR”

End Sub

v Setelah itu ketikkan koding di Form (FrmLaporan)

Private Sub cmdprint_Click()

Dim RptKeluar As New LapTanggalMasuk

Dim RsKeluar As New ADODB.Recordset

If dtawal.Value > dtakhir.Value Then

MsgBox “Tanggal Mulai tidak boleh lebih kecil dari tanggal akhir”,   vbInformation, “PRINT”

dtawal.SetFocus

Exit Sub

End If

Screen.MousePointer = vbHourglass

StrSQL = “SELECT * FROM OBAT_MASUK where(Tanggal between ‘” & (Format(dtawal.Value, “mm/dd/yyyy”)) & “‘ and ‘” & ((Format(dtakhir.Value, “mm/dd/yyyy”))) & “‘)”

RsKeluar.Open StrSQL, MyDB, adOpenKeyset, adLockOptimistic

RptKeluar.ReportTitle = “LAPORAN OBAT MASUK/KELUAR DARI TANGGAL” &  vbCrLf & Format(dtawal.Value, “DD-MM-YYYY”) & space(3) & “S/D” & space(3) & Format(dtakhir.Value, “DD-MM-YYYY”)

RptKeluar.Database.SetDataSource RsKeluar

CRViewer1.Visible = True

CRViewer1.ReportSource = RptKeluar

CRViewer1.DisplayGroupTree = False

CRViewer1.DisplayToolbar = True

CRViewer1.ViewReport

CRViewer1.Zoom 100

Screen.MousePointer = vbDefault

pictgl.Visible = False

picobt.Visible = False

Me.WindowState = 2

End Sub

v Yang terakhir ketikkan koding ini di Cmd Batal

Private Sub Command2_Click()

Unload Me

End Sub

• Setelah selesai coba anda jalankan program yang telah kita buat….!! Jika berhasil.. hasilnya seperti dibawah ini:

• Setting Tanggal yang ingin di cetak dan kemudian click tombol PREVIEW maka hasilnya akan seperti gambar dibawah ini :

• 

Semoga Berhasil !!!!!

salam  { Erwinsyah Mth }

Toolbox	Properties	Value
1 Form	Width	7980
	Height	3375
	Name	FrmLaporan
1 Picture Box	Width	2805
	Height	2805
	Name	PicLatar
2 Label	Label1.Caption	Cetak Laporan Obat Keluar/ Masuk dari tanggal S/D
	Label2.caption
2 DTPicker	Name	Dt.Awal (seting Nilai Properties)
	Name	DtAkhir
2 CummonButton	Name	CmdPreview
	Name	CmdCancel
`1 CrViewer	Width	2805
	Height	2805
	Name	CrViewer1
	Visible	False
1 Modules	Name	ModConnection
Nb : jika Objek DTPicker tidak ada di Toolbox, anda harus menginstall terlebih dahulu dengan cara Menu Project èComponentsè cari objek yang ingin ditambahkan.

Membuat Efek Listrik

Hasil dari efek pijaran api

EFEK PIJARAN LISTRIK

Download Artikel Membuat Efek Pijaran Listrik

Membuat Photo Frame

hi…. apa kabar….??? baik2 aja ya!!! ne aku mo kasi grati buwat yang dah masuk kemari! tapi sebelumnya saya minta maaf ya karena saya ga kasi taw cara-caranya. bukan saya ga maw kasi taw. tapi saya lagi males. jadi saya minta maaf ya. ini photo frame Love….!!!! km tinggal masukin aja pic kamu kesitu. jadi ga susah-susah. saya kasi file PSD nya kog disitu,,,!!!! ok?

kali ini maaf ya!! tapi kalaw kamu ga taw gimana cara masukin Fotonya. kamu bisa tinggalin comment disini, ntar nanti saya bales!!! ok? thanks

ne hasil framenya :::

Jana Cinta Beni

click Link dibawah ini untuk mendownload File PSD & JPG

download Frame Love.rar

Membangun Domain dan host gratis

Assalamu Alaikum warahmatullahi wabarokatuh. sebelumnya artikel ini sudah diposting. tapi karena belum terlalu fixm, jadi saya perbaiki dikit… . dan karena sebagai salah satu bentuk dan wujud saya untuk berbagi bagi semua orang, dalam rangka untuk mempercepat proses penyebaran keahlian dalam bidang teknologi informasi kepada teman-teman semua saya ingin sekali berbagi pengetahuan kepada anda tentang webstite!! kebetulan karena saya lagi jalan-jalan soalnya.

Domain dan hosting sekarang banyak yang gratis, dan banyak yang bayar. jadi sekarang anda tinggal pilih saja. kalau anda bener-bener dengan bisnis anda saya sarankan anda untuk membeli Domain dan Hosting. ada banyak yang menyediakan jasa Domain dan hosting. seperti http://www.myzoombase.com , http://www.mywebinstant.net

Screen dibawah ini juga merupakan website yang menyediakan domain dan hosting.

IDWEBSPACE DOMAIN MURAH

Webhosting Gratis

RUMAH WEB HOSTING..!!!!!!