LA : DATABASE VISUAL BASIC

Dapat didownload di : https://www.dropbox.com/s/94kpugomb1ndy28/4%20LAPORAN%20AKHIR%20Database%20VB.docx?dl=0

CODING
CommandButton1
Private Sub Command1_Click()
Adodc1.Recordset.Update
Adodc1.Recordset!NPM = Text1.Text
Adodc1.Recordset!Nama = Text2.Text
Adodc1.Recordset!Jurusan = Text3.Text
Adodc1.Recordset.Update
DataGrid1.Refresh
Text1.Text = ""
Text2.Text = ""
Text3.Text = ""
End Sub
CommandButton2 
Private Sub Command2_Click()
Adodc1.Recordset.AddNew
Adodc1.Recordset!Nama = Text1.Text
Adodc1.Recordset!NPM = Text2.Text
Adodc1.Recordset!Jurusan = Text3.Text
Adodc1.Recordset.Update
DataGrid1.Refresh
Text1.Text = ""
Text2.Text = ""
Text3.Text = ""
End Sub
CommandButton3
Private Sub Command3_Click()
Adodc1.Recordset.Delete
DataGrid1.Refresh
Text1.Text = ""
Text2.Text = ""
Text3.Text = ""
End Sub
CommandButton4 
Private Sub Command4_Click()
End
End Sub

LOGIKA

Program ini merupakan progam yang di buat untuk menghubungkan Visual Basic dengan Database. Komponen – komponet utama yang digunakan untuk mehubungkan Visual Basic dengan Database, seperti:

• ADODC berfungsi untuk mengkoneksikan database .

• Data Grid berfungsu untuk menampilkan isi dari database yang telah kita buat.

Ada pula operasi – operasi yang dapat dilakukan dalam program ini, seperti menambahkan record, mengedit recorddan menghapus record, dengan menggunakan beberapa  Label, TextBox dan CommandButton, seperti:

Label :

• Label1 : Nama

• Label2 : NPM

• Label3 : Jurusan

• Label4 : Title

TexBox:

• Text1 : untuk memasukan Nama

• Text2 : untuk memasukan NPM

• Text3 : untuk memasukan Jurusan

CommandBox:

• CommanButton1 (EDIT), yang berfungsi untuk mengganti (update) record pada database.

• CommanButton2 (SIMPAN), yang berfungsi untuk menyimpan record kedalam database.

• CommanButton3(HAPUS), yang berfungsi untuk menghapus record pada database.

• CommanButton4(EXIT), yang berfungsi untuk keluar dari program.

Read More

LA : MDI VISUAL BASIC

Dapat didownload di https://www.dropbox.com/s/pk1ow02681a5f4h/3%20LAPORAN%20AKHI%20MDI%20VB.docx?dl=0

CODING
Listing code untuk Form 1
Private Sub Command1_Click()
Text3.Text = CInt(Text1.Text) * CInt(Text2.Text)
End Sub
Private Sub Command2_Click()
Text4.Text = 2 * (CInt(Text1.Text) + CInt(Text2.Text))
End Sub
Listing code untuk Form 2
Private Sub Command1_Click()
Text2.Text = CInt(Text1.Text) * CInt(Text1.Text)
End Sub
Private Sub Command2_Click()
Text3.Text = 4 * CInt(Text1.Text)
End Sub
Listing code untuk Form 3
Private Sub Command1_Click()
Text2.Text = 3.14 * CInt(Text1.Text) ^ 2
End Sub
Private Sub Command2_Click()
Text3.Text = 2 * 3.14 * CInt(Text1.Text)
End Sub
Listing code untuk Form 4
Private Sub Command1_Click()
Text3.Text = 0.5 * CInt(Text1.Text) * CInt(Text2.Text)
End Sub
Listing code untuk  MDI Form1
Private Sub exit_Click()
End
End Sub
Private Sub lingkaran_Click()
Form3.Show
End Sub
Private Sub persegi_Click()
Form2.Show
End Sub
Private Sub persegipanjang_Click()
Form1.Show
End Sub
Private Sub segitiga_Click()
Form4.Show
End Sub

LOGIKA
Logika program untuk listing code pada form1:

1. Listing code pada Command1 berfungsi untuk mengalikan text pada text1 dan text2 dengan terlebih dahulu mengubahnya ke dalam type integer, kemudian menaruh hasilnya ke dalam text3.
2. Listing code pada Command2 berfungsi untuk menjumlah text pada text1 dan text2, lalu mengalikanya dengan 2,  dengan terlebih dahulu mengubahnya ke dalam type integer, kemudian menaruh hasilnya ke dalam text4.

Logika program untuk listing code pada form2:

1. Listing code pada Command1 berfungsi untuk mengalikan text pada text1 dengan text 1 dengan terlebih dahulu mengubahnya ke dalam type integer, kemudian menaruh hasilnya ke dalam text2.
2. Listing code pada Command2 berfungsi untuk mengalikan text pada text1 dengan 4,  dengan terlebih dahulu mengubahnya ke dalam type integer, kemudian menaruh hasilnya ke dalam text3.

Logika program untuk listing code pada form3:

1. Listing code pada Command1 berfungsi untuk memangkatkankan text pada text1 dan mengalikanya dengan 3.14, dengan terlebih dahulu mengubahnya ke dalam type integer, kemudian menaruh hasilnya ke dalam text2.
2. Listing code pada Command2 berfungsi untuk mengalikan text pada text1 dengan 2 dan 3.14,  dengan terlebih dahulu mengubahnya ke dalam type integer, kemudian menaruh hasilnya ke dalam text.

Logika program untuk listing code pada form4:

1. Listing code pada Command1 berfungsi untuk mengalikan text pada text1 dan text2 dengan 0.5, dengan terlebih dahulu mengubahnya ke dalam type integer, kemudian menaruh hasilnya ke dalam text3

Logika program untuk listing code pada MDIform1:

1. Berfungsi untuk menampilkan form – form lainya yang telah dibuat, Persegi Panjang untuk form1, Persegi untuk form2, Lingkaran untuk form3, dan Segitiga untuk form4.

Read More

LA : PERCABANGAN VISUAL BASIC

Dapat didownload di : https://www.dropbox.com/s/77049vspeq3rz7i/2%20LAPORAN%20AKHI%20Percabangan%20VB.docx?dl=0

CODING 
Listing code untuk Form1
Private Sub Form_Load()
cmbMakanan.AddItem ("Nasi Goreng Nanas")
cmbMakanan.AddItem ("Ikan Goreng  Nanas")
cmbMakanan.AddItem ("Sate Sosis Nanas")
cmbMakanan.AddItem ("Soto Ayam Nanas")
cmbMakanan.AddItem ("Asinan Nanas")
cmbMinuman.AddItem ("Teh Nanas")
cmbMinuman.AddItem ("Jus Nanas")
cmbMinuman.AddItem ("Es Nanas Tropical")
cmbMinuman.AddItem ("Ice Cream Nanas")
cmbMinuman.AddItem ("Milk Shake Nanas")
End Sub
Listing code untuk ComboBox “cmbMakanan “: Jenis Makanan
Private Sub cmbMakanan_Change()
cmbMakanan.Text = "Nasi Goreng Nanas"
cmbMakanan.Text = "Ikan Goreng Nanas"
cmbMakanan.Text = "Sate Sosis Nanas"
cmbMakanan.Text = "Soto Ayam Nanas"
cmbMakanan.Text = "Asinan Nanas"
End Sub
Listing code untuk ComboBox “cmbMinuman” :  Jenis Minuman
Private Sub cmbMinuman_Change()
cmbMinuman.Text = "Teh Nanas"
cmbMinuman.Text = "Jus Nanas"
cmbMinuman.Text = "Es Nanas Tropical"
cmbMinuman.Text = "Ice Cream Nanas"
cmbMinuman.Text = "Milk Shake Nanas"
End Sub
Listing code untuk CommandButton : Command1 “Makan”
Private Sub Command1_Click()
If cmbMakanan.Text = "Nasi Goreng Nanas" Then
Text1 = 10000
Else
If cmbMakanan.Text = "Ikan Goreng Nanas" Then
Text1 = 25000
Else
If cmbMakanan.Text = "Sate Sosis Nanas" Then
Text1 = 12000
Else
If cmbMakanan.Text = "Soto Ayam Nanas" Then
Text1 = 8000
Else
If cmbMakanan.Text = "Asinan Nanas" Then
Text1 = 5000
Else
Text1 = 0
End If
End If
End If
End If
End If
End Sub
Listing code untuk CommandButton : Command2 “Minum”
Private Sub Command2_Click()
If cmbMinuman.Text = "Teh Nanas" Then
Text2 = 3000
Else
If cmbMinuman.Text = "Jus Nanas" Then
Text2 = 5000
Else
If cmbMinuman.Text = "Es Nanas Tropical" Then
Text2 = 8000
Else
If cmbMinuman.Text = "Ice Cream Nanas" Then
Text2 = 4000
Else
If cmbMinuman.Text = "Milk Shake Nanas" Then
Text2 = 6000
Else
Text2 = 0
End If
End If
End If
End If
End If
End Sub
Listing code untuk CommandButton : Command3 “Exit” 
Private Sub Command3_Click()
End
End Sub
Listing code untuk CommandButton : Command4 “Total Harga” 
Private Sub Command4_Click()
Text3.Text = CInt(Text1.Text) + CInt(Text2.Text)
End Sub
Listing code untuk CommandButton : Command5 “Pajak”
Private Sub Command5_Click()
Text4.Text = CInt(Text3.Text) * 0.1
End Sub
Listing code untuk CommandButton : Command6 “Bayar”
Private Sub Command6_Click()
Text5.Text = CInt(Text3.Text) + CInt(Text4.Text)
End Sub

LOGIKA

• Logika untuk listing code pada Form1, berfungsi untuk menambahkan item pada ComboBox “cmbMakanan”: Jenis makanan dan ComboBox “cmbMinuman”  : Jenis Minuman.
• Logika untuk listing code pada ComboBox “cmbMakanan”: Jenis makanan dan ComboBox “cmbMinuman”  : Jenis Minuman, berfungsi untuk memasukan jenis – jenis makanan yang ada di dalam ComboBox “cmbMakanan”: Jenis Makanan, yaitu : Nasi Goreng Nanas , Ikan Goreng Nanas, Sate Sosis Nanas, Soto Ayam Nanas, Asinan Nanas dan memasukan jenis – jenis minuman yang ada di dalam ComboBox “cmbMinuman”  : Jenis Minuman, yaitu : Teh Nanas, Jus Nanas, Es Nanas Tropical, Ice Cream Nanas, Milk Shake Nanas.
• Logika untuk listing code pada CommandButton : Makan, berfungsi untuk menentukan harga makanan untuk setiap jenis makanan dengan mengunakan beberapa kondisi, jika text pada cmbMakanan = Nasi Goreng Nanas maka  text1 = 10000, jika text pada cmb Makanan = Ikan Goreng Nanas maka text1 = 25000,jika text pada cmbMakanan = Sate Sosis Nanas maka text1 = 12000, jika text pada cmbMakanan = Soto Ayam Nanas maka text1 = 8000, jika text pada cmbMakanan = Asinan Nanas maka text1 = 5000, dan jika di isi selain itu maka text1=0
• Logika untuk listing code pada CommandButton : Minum, berfungsi untuk menentukan harga minuman untuk setiap jenis makanan dengan mengunakan beberapa kondisi, jika text pada cmbMinuman = Teh Nanas maka text2 = 3000, jika text pada cmbMinuman = Jus Nanas maka text2 = 5000, jika text pada cmbMinuman = Es Nanas Tropical maka text2 = 8000, jika text pada cmbMinuman = Ice Cream Nanas maka text2 = 4000, jika text pada cmbMinuman = Milk Shake Nanas maka text2 = 6000, dan jika di isi selain itu maka text2 = 0.
• Logika untuk listing code pada CommandButton : Exit, berfungsi untuk mengahkiri atau keliar dari program.
• Logika untuk listing code pada CommandButton : Total Harga yaitu menjumlahkan text pada text1 dan text2 dengan terlebih dahulu mengubahnya menjadi integer, dan menaruhnya pada text 3.
• Logika untuk listing code pada CommandButton : Pajak, berfungsi untuk mengalikan text pada text3 dengan 10%  dengan terlebih dahulu mengubahnya menjadi integer, dan menaruhnya pada text4.
• Logika untuk listing code pada CommandButton : Bayar, berfungsi untuk menjumlahkan text pada text3 dan text4,dengan terlebih dahulu mengubahnya menjadi integer, dan menaruhnya pada text5.

Read More

LA : PENGENALAN VISUAL BASIC

Dapat didownload di : https://www.dropbox.com/s/sq5guhkbrzz1cra/1%20LAPORAN%20AKHI%20Pengenalan%20%20VB.docx?dl=0

PROJECT 1

CODING

Private Sub Command1_Click()

If (Text1.Text) = "ekafiya" And (Text2.Text) = "2728" Then

MsgBox "Login", 1, "Kamu Telah Loggin"

Else

MsgBox "Error", 1, " Silahkan Masukan UserName dan Password kembali dengan benar"

End If

End Sub

Private Sub Command2_Click()

End

End Sub

Private Sub Form_Load()

Text1.Text = ""

Text2.Text = ""

End Sub

LOGIKA

• Pada CommandButton OK  ,di  isi dengan codingan seperti berikut : If (Text1.Text) = "ekafiya" And (Text2.Text) = "2728" Then MsgBox "Login", 1, "Kamu Telah Loggin" Else MsgBox "Error", 1, " Silahkan Masukan UserName dan Password kembali dengan benar" End If, yang berfungsi untuk menentukan sebuah kodisi  yaitu pada text1 haruslah berisikan “ekafiya” dan pada text2 harus berisi “2728”, jika kondisi tersebut  benar maka messages box akan memunculkan text  “Login” sedangkan jika kondisi tersebut salah maka messages box akan memunculkan text “Error”
• Pada CommandButton EXIT ,di  isi dengan codingan seperti berikut : End , yang berfungsi untuk mengentikan atau mengakhiri running program.
• Pada From1,  di isi dengan codingan seperti berikut : Text1.Text=””  Text2.Text=””, yang berfungsi untuk mengisi text1 dan text2 dengan spasi yang seolah olah akan terhapus.

PROJECT 2

CODING

Private Sub Check1_Click()

Label3.FontBold = Check1.Value

Label4.FontBold = Check1.Value

End Sub

Private Sub Check2_Click()

Label3.FontItalic = Check2.Value

Label4.FontItalic = Check2.Value

End Sub

Private Sub Check3_Click()

Label3.FontUnderline = Check3.Value

Label4.FontUnderline = Check3.Value

End Sub

Private Sub Command1_Click()

Label3.Caption = Text1.Text

Label4.Caption = Text2.Text

End Sub

Private Sub Command2_Click()

End

End Sub

Private Sub Form_Load()

Text1.Text = " "

Text2.Text = " "

End Sub

Private Sub Option1_Click()

Label3.ForeColor = vbRed

Label4.ForeColor = vbRed

End Sub

Private Sub Option2_Click()

Label3.ForeColor = vbBlue

Label4.ForeColor = vbBlue

End Sub

Private Sub Option3_Click()

Label3.ForeColor = vbGreen

Label4.ForeColor = vbGreen

End Sub

Private Sub Option4_Click()

Label3.ForeColor = vbYellow

Label4.ForeColor = vbYellow

End Sub

LOGIKA

• Pada CommandButton OK, di isi dengan codingan sebagai berikut : Label3.Caption = Text1.Text Label4.Caption = Text2.Text,  yang berisi untuk memindahkan atau mencopy isi pada text1 dan text2 kedalam label 3 dan label4.
• Pada CommandButton END di isi dengan codingan sebagai berikut: End, yang berfungsiu untuk mengentikan atau mengakhiri running program.
•  Pada From,  di isi dengan codingan seperti berikut : Text1.Text=””  Text2.Text=””, yang berfungsi untuk mengisi text1 dan text2 dengan spasi yang seolah olah akan terhapus.
• Pada Check1, di isi dengan codingan sebagai berikut : Label3.FontBold = Check1.Value Label4.FontBold = Check1.Value, yang berfungsi untuk merubah style text  pada label3 dan label4 begitu juga dengan Check2 dan Check3.
•  Pada Option1, di isi dengan codingan sebagai berikut: Label3.ForeColor = vbRed Label4.ForeColor = vbRed, yang berfungsi untuk merubah warna text pada label3 dan label4 begitu juga dengan Option2 dan Option3.

Read More

TOKO ONLINE

PENJUALAN ONLINE

Penjualan secara online merupakan salah  satu bentuk pengimplemetasian dari E-Commerce. E-Commerce atau perdagangan elektronik adalah penyebaran, pembelian, penjualan, pemasaran barang dan jasa melalui sistem elektronik seperti internet atau televisi, www, atau jaringan komputer lainnya. E-Commerce dapat melibatkan transfer dana elektronik, pertukaran data elektronik, sistem manajemen inventori otomatis, dan sistem pengumpulan data otomatis. Banyaknya konsumen yang melakukan pembelian secara online menyebabkan banyak produsen melihat peluang untuk membuka toko secara online.

TAHAP-TAHAP MELAKUKAN PENJUALAN SECARA ONLINE

Ada beberapa tahapan penjualan secara online yaitu :

• Tahapan pertama iyalah menentukan ide bisnis. Dalam menentukan atau menetapkan ide bisnis tentunya kita juga harus memikirkan bagaimana cara mewujudkan ide tersebut menjadi sebuah bisnis yang nyata dan dapat menghasilkan penghasilan maupun keuntungan yang cukup besar. Terkadang terdapat kendala untuk mewujudkan ide tersebut namun semua itu pasti ada jalan keluarnya, tetap optimis iyalah kuncinya, tentu saja jalan keluar tidak datang begitu saja terkadang kita perlu memperluas wawasan kita dalam mencari jalan keluar seperti melihat media masa, searching  di internet, mengikuti seminar maupun forum diskusi. Ide tersebut dapat terinsprasi dari diri sendiri seperti hobi, keahlian, ketertarikan maupun minat pada sesuatu. Tetapi ide tersebut juga bisa terinspirasi dari kebutuhan orang lain. Ide tersebut akan menentukan barang atau jasa apa yang akan kita jual nantinya.
• Tahap kedua iyalah melakukan riset pasar tentang peluang dan prospek bisnis yang akan kita buat. Riset ini berguna untuk mengetahui seberapa besar peluang produk atau jasa yang akan kita jual di pasaran.
• Tahap ketiga adalah menyiapkan materiat atau bahan-bahan pendukung untuk bisnis yang akan kita jalankan. Material yang  dimaksud iyalah artikel dan gambar yang  menjelaskan  website toko online tang akan kita buat. Jika kita akan menjual produk ataupun jasa sendiri maka produk dan jasa tersebutlah yang akan kita tampilkan di website. Sedangkan jika kita ingin menjual produk orang lain  seperti affiliate atau  reseller maka produk tersebut yang akan di tampilkan di website. Sebagai affiliate biasanya kita akan mendapatkan presentasi yang besar untuk setiap penjualan sekitar 50%-75% . Jika kita tidak ingin menjadi affiliate maka kita bisa memilih affiliate lainya yaitu Affiliate PPC atau Affiliate PTC. PPC  dan  PTC  adalah perusahaan oeriklanan yang menjadi perantara pemasangan iklan dari perusahaan pengiklan.  Jika diterima menjadi affiliate mereka maka kita akan dapat komisi bagi hasil.Pada PPC (Pay Per Click)  kita hanya membuat sebuah website atau blog menyangkut topik apa saja sesuai dengan ide yang telah kita tentukan. Lalu sediakan tempat di website agar iklan PPC bisa tampil di website kita. Kemudian undang pengunjung menjadi pembaca setia di website. Ketika ada pengunjung yg tertarik untuk meng-klik iklan PPC yg ada di website kita, maka kita dapat komisi per klik yg dilakukan oleh pengunjung. Kita sendiri tidak boleh nge-klik, karena dapat di  D.O jika ketahuan. Pada PTC (Paid To Click) kita akan dibayar jika melakukan sendiri klik iklan pada perusahaan PTC. Jika kita klik iklan pada website Perusahaan PTC, maka kita akan dapat komisi. Untuk dapat komisi yg lebih besar,maka kita harus mengajak orang lain juga nge-klik setiap hari seperti kita. Untuk setiap klik orang lain di bawah ajakan kita, maka kita dibayar 50% komisi. Perusahaan PTC akan tahu orang yg kita ajak karena kita diberi link khusus yg berbeda satu sama lain.
• Tahap keempat iyalah  membuat website sebagai identitas perusahaan dari bisnis yang akan kita buat. Untuk pemula pembuatan blog di perbolehkan. Tampilan dan semua isi yang terdapat di website kita harus dapat mencerminkan perusahaan dari bisnis yang kita buat. Dalam membuat website untuk perusahaan online kita tidak perlu mengurus NPWP, dan surat  ijin usaha seperti TDP dan SIUP. Sedangkan yang diperlukan iyalah nama website  dan sewa hosting
• Tahap terakhir iyalah melaukan promosi untuk menarik pengunjung. Promosi iyalah hal yang paling penting untuk mengundang pengunjung datang ke website. Dalam penjualan online pengunjung yang beli maupun tidak akan berdampak baik terhadap website yang telah kita buat. Baik dampak pada penjualan maupun pada pemasukan rating iklan untuk penjualan di kemudian hari.Mengundang pengunjung datang ke website kita bisa dilakukan dengan 2 cara yaitu Promosi Gratis dan Promosi Berbayar. Promosi Gratis SEO (Search Engine Optimation) adalah memanfaatkan fasilitas pencarian google supaya website kita tampil di halaman utama pencarian google. Supaya website kita tampil atau lebih banyak di indeks google, maka kita bisa lakukan cara pengoptimalan website di dalam dan di luar. Pengoptimalan website di dalam berarti anda membuat website anda familiar dibaca oleh pengunjung google. Supaya ramai dibaca pengunjung, maka website anda harus memiliki ide menarik . Untuk itulah anda perlu melakukan riset kecil berapa banyak orang yg mencari topik ide anda dalam sebulan . Pengoptimalan website di luar berarti kita menanamkan link url website kita ke berbagai website direktori dan website bookmarking/jejaring sosial yang ada di dunia. Promosi Berbayar dapat dilakukan jika kita punya sedikit dana promosi, maka promosi berbayar akan lebih cepat mendatangkan pengunjung. Promosi berbayar artinya kita pasang iklan di berbagai website iklan atau perusahaan perikanan baik secara offline maupun online

KEAMANAN PEMBAYARAN DALAM PENJUALAN ONLINE

Jika ingin melakukan pembayaran secara online, tentu tidak bisa seenaknya menentukan pilihan. Karena saat ini banyak sekali website serta info lainnya yang menawarkan fasilitas pembayaran online serta keuntungannya. Beberapa hal yang harus diperhatikan dalam memiih pembayaran online diantaranya :

• Pertama, perhatikan legalitasnya . Legalitas dari perusahaan penyedia jasa pembayaran online memang sangat penting. Karena itu menyangkut uang pembayaran.
• Kedua, perhatikan kemudahannya. Berbagai kemudahan memang banyak ditawarkan oleh perusahaan penyedia jasa pembayaran online mulai dari pendaftaran hingga proses pembayaran.Tapi kita juga kita harus berhati-hati, kemudahaan bukannya menurunkan standard dari keamanan dan mengurangi suatu prosedur standard. 
• Ketiga, perhatikan fleksibilitasnya. Fleksibilitas menjadi penting, karena layanan yang diberikan oleh penyedia jasa pembayaran online biasanya semuanya itu tertuang dalam ketentuan term of payment (TOP) yang dikeluarkan oleh perusahaan peyedia jasa pembayaran online. Untuk itu, perhatian dengan baik ketentuan dan fasilitas yang diberikan oleh perusahaan penyedia jasa tersebut agar tak tertipu.

SUMBER

http://www.bisnisdavit.com/tahapan-membangun-bisnis-online.htm

http://id.wikipedia.org/wiki/Perdagangan_elektronik

http://www1.kompas.com/suratpembaca/read/35295

http://www.neraca.co.id/harian/article/25945/Memilih.Layanan.Pembayaran.Online.yang.Aman

Read More