Kamis, 19 April 2012


VIRAL MARKETING
1.Menurut Ferrel, Hartline dan Lucas (2004:106) adalah sebagai suatu bentuk elektronik dari komunikasi dari mulut ke mulut.
2. Menurut Armstrong dan Kotler (2004:90)Viral Marketing adalah versi internet dari penggunaan pemasaran dari mulut ke mulut, yang sangat berhubungan dengan menciptakan E-Mail atau acara pemasaran yang sangat menular sehingga pelanggan mau menyampaikannya kepada teman mereka.
3. Menurut Turban (2004:193) Viral Marketing  adalah pemasaran dari mulut ke mulut dimana pelanggan mempromosikan sebuah produk atau jasa dengan cara menceritakan kepada orang lain.
4. Viral Marketing menurut Arifin (2003:115) adalah suatu program yang dirancang seperti virus dan berjangkit dari satu orang ke orang lainnya secara cepat dan luas.
5.Viral Marketing menurut Wiranaga (2002:95) Viral marketing merupakan perkembangan dari sistem direct selling dengan cara memberikan imbalan yang khusus dengan bentuk menyerupai Network Marketing atau Multi Level Marketing. Yang membedakan antara Viral Marketing dengan Multi Level Marketing terletak pada variabel produk, perusahaan, harga, sistem bonus, iuran, target belanja dan berbagai syarat lainnya.

A FRIENDLY SEARCH ENGINE WEB
definisi situs web search-engine friendly adalah user-friendly situs web yang dapat dengan mudah ditemukan di mesin pencari web komersial. Dengan kata lain, mesin pencari desain ramah TIDAK merancang untuk mesin pencari. Sebaliknya, itu adalah merancang untuk orang yang menggunakan mesin pencari. Mungkin istilah yang lebih akurat adalah "pencari ramah desain web.

MAILING LIST(MILIS)
yaitu group diskusi di internet dimana setiap orang bisa berlangganan dan berikutserta didalamnya. siapapun yang bergabung dapat mengirim ke email group yang kemudian oleh sistem, email tersebut di kirimkan ke seluruh daftar email anggota.

News Group
Newsgroup adalah kelompok diskusi maya di internet. Newsgroup disalurkan melalui Usenet, jaringan kelompok diskusi warta.
Usenet menggunakan protokol NNTP (Network News Transfer Protocol). Newsgroup dikelompokkan dalam subyek-subyek secara hirarkis dengan beberapa huruf pertama sebagai kategori subyek.
Sebagai contoh adalah: rec (rekreasi), soc (masyarakat), sci (sains), alt (alternatif), comp (komputer) dan lain-lain. Untuk menggunakan Newsgroup diperlukan aplikasi bernama news reader dan sambungan internet ke peladen warta (news server) terdekat.
Artikel pada newsgroup adalah pesan yang disediakan untuk umum. Kita tidak bisa mengontrol siapa yang akan menerima pesan kita kecuali sebatas memilih newsgroup-nya. Protokol yang digunakan pada newsgroup adalah NNTP (news to news transfer protocol). Arikel yang kita kirim akan ditampilkan pada setiap news server yang menyediakan akses ke newsgroup yang dituju. Untuk membaca artikel pada newsgroup, kita harus menggunakan program news reader.

AFFILIATE PROGRAM
Program Affiliate adalah suatu program perkongsian keuntungan yang ditawarkan oleh sebuah masyarakat yang memasarkan produk. Anda akan dibayar konsumen jika berhasil 'menghantar' seseorang pelanggan ke masyarakat tersebut sama halnya secara online (Internet) ataupun offline. Affiliate bolehlah dikatakan seperti 'broker' atau orang tengah yang terlibat didalam perniagaan konvensional yang biasa kita temui.
Affiliate merupakan kaedah perniagan yang berteraskan perkongsian keuntungan yang ditawarkan oleh seseorang pemilik laman web perniagaan sekiranya anda berhasil menghasilkan jualan terhadap produk mereka.
Dalam kata lain anda hanya perlu mempromosikan produk tersebut dan menerima komisi sekiranya promosi yang dijalankan berhasil di jual.

META INDEX
Kunci untuk mendapatkan peringkat halaman web  blogspot yang baik  di search engine.

IKLAN ONLINE
  Iklan Online adalah  berita pesanan untuk mendorong, membujuk khalayak ramai agar tertarik pada barang dan jasa yg ditawarkan melalui media internet dalam keadaan online

CYBERMALL
cybermall adalah Sebuah situs Web yang link ke ratusan situs belanja online. Cybermall dapat menyediakan keranjang belanja dan menangani transaksi keuangan untuk semua situs afiliasi.

MEDIA RELATION
Media Relations  adalah relasi yang dibangun dan dikembangkan dengan media untuk menjangkau publik guna meningkatkan pencitraan, kepercayaan, dan tercapainya tujuan-tujuan individu maupun organisasi/perusahaan. Fungsi media relations adalah meningkatkan citra perusahaan, meningkatkan kepercayaan publik, meningkatkan point of selling, membantu perusahaan keluar dari komunikasi krisis, dan meningkatkan relasi dari beragam publik.

WEB RING
adalah cara saling menghubungkan situs Web yang terkait sehingga orang dapat mengunjungi banyak situs web serupa dengan hanya mengikuti "Web ring" link pada setiap halaman.

Minggu, 18 Desember 2011

TUGAS KELOMPOK VB


MEMBUAT DATA BASE MENGGUNAKAN 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