Jumat, 20 April 2012

MODEL PEMASARAN DI INTERNET

1.Viral Marketing 
Viral marketing adalah suatu proses untuk mempromosikan dan menjual suatu produk atau jasa melalui pesan atau iklan yang menyertakan baris yang mendorong penerima pesan untuk mengirim atau meneruskan pesan ke orang lain .
2. Permission email ( Izin email )
Izin email berbasis email yang dikirimkan ke penerima yang memiliki opt-in atau berlangganan untuk menerima pesan email dari sebuah website, perusahaan tertentu atau individu. Izin dari pelanggan Anda adalah persyaratan wajib untuk pemasaran email yang sah dan sukses.
3.  A Friedly Search Engine Web
Search engine adalah program yang mencari dokumen untuk ditentukan kata kunci dan kembali daftar dokumen di mana kata kunci yang ditemukan.Sebuah  mesin pencari benar-benar sebuah kelas umum program, namun, istilah ini sering digunakan untuk menggambarkan sistem khusus seperti Google, Bing dan Yahoo! Search yang memungkinkan pengguna untuk mencari dokumen-dokumen di World Wide Web.
4.   Mailing List dan Newsgroup
 Milis (bahasa Inggris: mailing list) adalah grup diskusi di Internet di mana setiap orang bisa berlangganan dan berikutserta didalamnya. Anggota milis dapat membaca surat dari orang lain dan kemudian mengirimkan balasannya. Secara sederhana, milis adalah sebuah daftar alamat surat elektronik yang mempunyai kesukaan/kepentingan yang sama
5.Program affiliate
Program affiliate adalah satu bentuk program yang memberi peluang kepada pengguna internet untuk menjadi agen pemasaran bagi produk atau perkhidmatan yang ditawarkan oleh pengusaha  pengusaha laman web.          
6.Definisi Iklan online
Iklan online adalah  bentuk komunikasi yang dimaksudkan untuk memotivasi seseorang pembeli potensial dan mempromosikan penjual suatu produk atau jasa di internet, untuk mempengaruhi pendapat publik, memenangkan dukungan publik untuk berpikir atau bertindak sesuai dengan keinginan si pemasang iklan.
7.Relasi Media
Hubungan media adalah aktivitas yang dilakukan oleh individu ataupun profesi humas suatu organisasi untuk menjalin pengertian dan hubungan baik dengan media massa dalam rangka pencapaian publikasi organisasi yang maksimal serta berimbang (balance).
8.Web Ring
sebuah webring (atau cincin web ) adalah kumpulan situs-situs terkait bersama-sama dalam struktur melingkar, dan biasanya diorganisir sekitar tema tertentu, seringkali pendidikan atau sosial.Mereka sangat populer pada 1990-an dan awal 2000-an, khususnya di kalangan website amatir, tetapi sejak jatuh dari penggunaan umum dan menjadi langka.
9.Analisis Web Traffic
Analisis lalu lintas adalah proses mencegat dan memeriksa pesan untuk menyimpulkan informasi dari pola dalam komunikasi . Hal ini dapat dilakukan bahkan ketika pesan yang terenkripsi dan tidak dapat didekripsi . Secara umum, semakin besar jumlah pesan diamati, atau bahkan dicegat dan disimpan, semakin dapat disimpulkan dari lalu lintas. Analisis lalu lintas dapat dilakukan dalam konteks intelijen militer atau kontra-intelijen , dan merupakan perhatian dalam keamanan komputer.
10.Dynamite Link


11.meta Index


12.Cybermall


13.Publikasi Media

Senin, 19 Desember 2011

Membuat Database Dengan Visual Basic


1.Membuat 3 form dlm 3 tabel,masing-masing tabel 1 form
2.masing-masing form diberi report
3.dibuat menu utama
4.listing dan tampilan print screen dalam word



TABEL1
(Tabel Barang)




Listing:
Sub aktif()
Text1.Enabled = True
Text2.Enabled = True
Text3.Enabled = True
Combo1.Enabled = True

End Sub
Sub tidak()
Text1.Enabled = False
Text2.Enabled = False
Text3.Enabled = False
Combo1.Enabled = False
End Sub

Private Sub Command1_Click()
Data1.Recordset.AddNew
Data1.Recordset!kd_brg = Text1.Text
Data1.Recordset!nm_brg = Text2.Text
Data1.Recordset!satuan = Combo1.Text
Data1.Recordset!harga = Text3.Text
Data1.Recordset.Update
tidak
Command1.Enabled = True
End Sub

Private Sub Command2_Click()
aktif
Data1.Recordset.AddNew
Text1.SetFocus
End Sub
Private Sub Command3_Click()
Unload Me
End Sub

Private Sub Command4_Click()
DataReport1.Show
End Sub
Private Sub Command5_Click()
Text1 = ""
Text2 = ""
Text3 = ""
Combo1.Text = ""
End Sub
Private Sub Form_Activate()
tidak
Command2.SetFocus
End Sub
Private Sub Command6_Click()
Form4.Show
Form1.Hide
End Sub




Membuat  report table barang
 
.

2. Membuat table pelanggan





Listing:
Sub nonaktif()
Text1.Enabled = False
Text2.Enabled = False
Text3.Enabled = False
Text4.Enabled = False
End Sub
Sub aktif()
Text1.Enabled = True
Text2.Enabled = True
Text3.Enabled = True
Text4.Enabled = True
End Sub
Private Sub Command1_Click()
Text1 = ""
Text2 = ""
Text3 = ""
Text4 = ""
aktif
Data1.Recordset.AddNew
Command1.Enabled = False
Command2.Enabled = True
Text1.SetFocus
End Sub
Private Sub Command2_Click()
Data1.Recordset.AddNew
Data1.Recordset!kd_plg = Text1.Text


Data1.Recordset!nm_plg = Text2.Text
Data1.Recordset!almat = Text3.Text
Data1.Recordset!no_tlp = Text4.Text
Data1.Recordset.Update
nonaktif
End Sub
Private Sub Command3_Click()
a = MsgBox("keluar", vbQuestion + vbYesNo, "info")
If a = vbYes Then
End If
End
End Sub
Private Sub Command4_Click()
DataReport2.Show
End Sub
Private Sub Command5_Click()
Form4.Show
Form2.Hide
End Sub

Membuat report tabel2

3.tabel Transaksi




Listing:
Sub tombolsemula()
Command1.Enabled = True
Command2.Enabled = False
Command3.Enabled = True
Command4.Caption = False
End Sub
Sub bersih()
Text1 = ""
Text2 = ""
Text3 = ""
Text4 = ""

Text5 = ""
Text6 = ""
Text7 = ""
Text8 = ""
Text9 = ""
Combo1 = ""
Combo2 = ""
End Sub
Sub aktif()
Text1.Enabled = True
Combo1.Enabled = True
Combo2.Enabled = True
Text6.Enabled = True
Text8.Enabled = True
End Sub
Sub nonaktif()
Text1 = False
Text2 = False
Text3 = False
Text6 = False
Text7 = False
Text8 = False
Text9 = False
Text10 = False
Combo1.Enabled = False
Combo2.Enabled = False
End Sub
Sub output()
Text3.Enabled = False
Text2.Enabled = False
Text4.Enabled = False
Text5.Enabled = False
Text7.Enabled = False
Text8.Enabled = False
Text9.Enabled = False
End Sub
Private Sub Combo1_Click()
If Combo1.Text = "k001" Then
Text2.Text = "nia"
ElseIf Combo1.Text = "k002" Then
Text2.Text = "tiara"
Else
Text2.Text = "arum"
End If
End Sub
Private Sub Combo2_Click()
If Combo2.Text = "A001" Then
Text4.Text = "siomay komplit"
Text5.Text = 7000
ElseIf Combo2.Text = "A002" Then
Text4.Text = "batagor"
Text5.Text = 8000
Else
Text4.Text = "dimsum"
Text5.Text = 15000
End If
End Sub
Private Sub Command1_Click()
bersih
aktif
Text1.SetFocus
Command2.Enabled = True
Command3.Caption = "Batal"
End Sub
Private Sub Command2_Click()
With Data1.Recordset
.AddNew
!no_nota = Text1.Text
!nm_pelanggan = Combo1.Text
!nm_barang = Text4.Text
!harga = Text5.Text
!jumlah = Text6.Text
!total = Text7.Text
!bayar = Text8.Text
!kembali = Text9.Text
.Update
End With
bersih
nonaktif
tombolsemula

End Sub

Private Sub Command3_Click()
x = MsgBox("Benar ingin keluar?", vbOKCancel + vbQuestion, "Konfirmasi")
If x = vbOK Then
'MDIForm1.Show
'FormTransaksi.Hide
End If
End
End Sub
Private Sub Text6_Change()
Text7.Text = Val(Text5.Text) * Val(Text6.Text)
End Sub
Private Sub Text8_Change()
Text9.Text = Val(Text8.Text) - Val(Text7.Text)
End SubPrivate Sub Timer1_Timer()
Text3 = Date
End Sub
Private Sub Command5_Click()
Form4.Show
Form3.Hide
End Sub












Membuat report transaksi


Membuat Menu Utama
1.Buat form baru
2.Klik menu editor
3.Maka akan muncul jendela;

4.Isi caption, name, shortcut kemudian bila sudah terisi seprti gambar diatas kli ok
5.Maka tampilanya seperti di bawah ini;


6.klik barang,maka akan tampil kotak listing
 Isikan;

Private Sub mnbarang_Click()
Form1.Show
Form4.Hide
End Sub

Private Sub mnpelanggan_Click()
Form2.Show
Form4.Hide
End Sub

Private Sub tttransaksi_Click()
Form3.Show
Form4.Hide
End Sub

Private Sub eeexit_Click()
End
End Sub

Senin, 31 Oktober 2011

Hati S'bagai Hamba

Ku tak Membawa..Apapun Jua

Saat Ku datang Ke Dunia


Ku Tinggal Semua


Pada Akhirnya

Saat Ku Kembali Ke Surga

 

Inilah Yang Ku Punya

Hati S'bagai Hamba


Yang Mau Taat Dan Setia


Pada-Mu Bapa


Kemanapun Ku Bawa


Hati Yang Menyembah


Dalam Roh Dan Kebenaran


Sampai Slamanya


Bagaimanaku Membalas Kasih-Mu


S'gala Yang Ku Punya Itu Milik-Mu


Itu Milik-Mu

Engkau Ada Untukku

HadirMu Tuhan rubahkan hidupku
KasihMu Menjamah hatiku
SetiaMu melebihi segalanya
Lebar bagai langit
Engkaulah pengharapanku
Tiada yang sepertiMu
SetiaMu melebihi segalanya
Lebar bagai langit

Engkau Tuhan yang berjalakan bersamaku
Takkan aku takut
Engkau Allahku
Yang berdiri dipihakku
Takkan aku goyah

Percaya Saja


Ketika mata terpejam
Dan malam hening dan sunyi
Ku tahu Dia menjaga
Apapun yang akan terjadi

Ketika beban hidupMu
Tak sanggup untuk Kau panggul
Berserahlah kepadaNya
Ku tahu Dia menjaga

Percaya saja
Dia menjaga
Menjaga hidupmu
Dengan cintaNya

Aku percaya
Ada karunia
Didalam hidupku
Dia memelukku
Dia menjagaku

KepadaMu ku berserah
Kuserahkan jiwaku, ragaku
Seluruh hidupku

Kurenungkan


Bila kurenungkan kasih sayang-Mu
Sungguhlah Engkau Penolongku
Dan dalam naungan kepak sayap-Mu
Jiwaku bersorak memuji Engkau

Kasih setia-Mu lebih dari hidup
Biar bibirku memegahkan Engkau
Seumur hidupku kan memuji-Mu
Tanganku kunaikkan demi Nama-Mu

Bagi Tuhan Tak Ada Yang Mustahil

Ku yakin saat Kau berfirman
Ku menang saat Kau bertindak
Hidupku hanya ditentukan
Oleh perkataan-Mu

Ku aman karna Kau menjaga
Ku kuat karna Kau menopang
Hidupku hanya ditentukan
Oleh kuasa-Mu

Bagi Tuhan tak ada yang mustahil
Bagi Tuhan tak ada yang tak mungkin
Mujizat-nya disediakan bagiku
Ku diangkat dan dipulihkan-Nya

Tuhan Tak Pernah Gagal

Engkau yang lebih tahu
Cara untuk membuka jalanku
Engkau lebih mengerti
Cara untuk menolong hidupku

Ku percaya kau Tuhan yang tak pernah gagal
Menjadikan ku lebih dari pemenang
Ku percaya kau Tuhan yang tak pernah lalai
Menepati janji-janjiMu

HEHEHEHHE NOSTALGIA

Banyak lelaki hanya menggoda
Tapi kamu nekat juga
Ulurkan tangan sebut namamu
Terus mengejarku slalu.......hehehehehe
Sampai akhirnya kita akan menuju ke jenjang yg lebih lg (yg ku tunggu2...bkikikikiki)
10Tahun kenal ternyata ada manfaatnya jg ya buat kita.....


 Sungguh besar KAU Tuhan ku,Terimakasih Bapa,KAU pertemukan Priscilla dengan anakmu Samuel..Berkati slalu hubungan kami..Jadikan Kami yg slalu takut akanMu..Jaga slalu kekudus san hubungan kami

Nyanyian Cinta Samuel & PriscillaNia

 Kau tercipta hanya untukku
Kau penolong dalam hidupku
Cantiknya hatimu,mempesona slalu
Sungguh engkau belahan jiwaku
    Disaat duka maupun suka
    Jalan bersama penuh cinta
    Selalu tertawa tentang hari depan
    Jujur melangkah dengan berhikmat
Kasih ku kau berharga lebih dari permata
Kau anugrah yg terindah dalam hidup ini
Kekasih ku penopang hidupku

Wedding


Tuhan penyertaanMU untuk rencana kami semoga terwujud&terlaksana karna KAU yg mempersatukan kami..Jadikan semuanya indah pada waktunya..Amen

DATABASE PERPUSTAKAAN

1.Tabel Anggota
CREATE table anggota
(ID_Anggota text(5)primary key,Nama text(10),Alamat text(15),No_Telp text(12),Tgl_Lahir Date);

INSERT into anggota
Values("BB001","Anugerah","JL.Genuksari","085677889000","07/02/1990")
INSERT into anggota
Values("BB002","Mahrita","JL.Bates Utara ","081228004432","08/02/1989")
INSERT into anggota
Values("BB003","Retno","JL.Mekarjaya","08995543212","07/09/1988")
INSERT into anggota
Values("BB004","Debora","JL.Plamonganraya","08995437666","11/11/1985")
INSERT into anggota
Values("BB005","Lydia","JL.Genuk Indah","087987678899","12/12/1980")

anggota
ID_Anggota Nama Alamat No_Telp Tgl_Lahir
BB001 Anugerah JL.Genuksari 085677889000 07/02/1990
BB002 Mahrita JL.Bates Utara 081228004432 08/02/1989
BB003 Retno JL.Mekarjaya 08995543212 07/09/1988
BB004 Debora JL.Plamonganray 08995437666 11/11/1985
BB005 Lydia JL.Genuk Indah 087987678899 12/12/1980

2.Tabel Buku
CREATE table buku
(No_Buku text (5)primary key,Judul text (15),Pengarang text (10),Jenis_Buku text(15));

INSERT into buku
Values("CC001","Kesehatan","Erlangga","Pengetahuan")
INSERT into buku
Values("CC002","Matematika","Budi","Pengetahuan")
INSERT into buku
Values("CC003","Geografi","Galih","Pengetahuan")
INSERT into buku
Values("CC004","Sepakbola","Andi","Olahraga")
INSERT into buku
Values("CC005","Cintaku","Mira","Novel")

buku
No_Buku Judul Pengarang Jenis_Buku
CC001 Kesehatan Erlangga Pengetahuan
CC002 Matematika Budi Pengetahuan
CC003 Geografi Galih Pengetahuan
CC004 Sepakbola Andi Olahraga
CC005 Cintaku Mira Novel
 
3.Tabel Transaksi
CREATE table transaksi
(No_Pinjam text (4) primary key,Nama text(10),ID_Anggota text (5 ),No_Buku text (5),Tgl_pinjam Date,Tgl_Kembali Date)

INSERT into transaksi
Values("PJ01","Anugerah","BB001","CC001","01/11/2011","07/11/2011")
INSERT into transaksi
Values("PJ02","Mahrita","BB002","CC002","02/11/2011","08/11/2011")
INSERT into transaksi
Values("PJ03","Retno","BB003","CC003","03/11/2011","09/11/2011")
INSERT into transaksi
Values("PJ04","Debora","BB004","CC004","04/11/2011","10/11/2011")
INSERT into transaksi
Values("PJ05","Lydia","BB005","CC005","05/11/2011","11/11/2011")

transaksi
No_Pinjam Nama ID_Anggota No_Buku Tgl_pinjam Tgl_Kembali
PJ01 Anugerah BB001 CC001 01/11/2011 07/11/2011
PJ02 Mahrita BB002 CC002 02/11/2011 08/11/2011
PJ03 Retno BB003 CC003 03/11/2011 09/11/2011
PJ04 Debora BB004 CC004 04/11/2011 10/11/2011
PJ05 Lydia BB005 CC005 05/11/2011 11/11/2011