ABSTRAK
Dewasa kini persewaan video bertambah
banyak seiring berjalannya waktu, namun cara pendaftaran keanggotaan yang ada
selama ini kurang efektif. Maka dari itu penulis membuat suatu program untuk
pendaftaran keanggotaan. Dengan terlebih dahulu mendesain program pendaftaran
keanggotaan berbasis Visual Basics 2010, pendaftaran keanggotaan akan lebih
mudah. Penggunaan form yang simple, sehingga customer tidak perlu dibingungkan
dengan formulir pengisian yang membingungkan.
Kata
Kunci: Visual Basics 2010, desain program
pendaftaran keanggotaan
PENDAHULUAN
Dewasa
kini persewaan video semakin banyak, yang dulunya masyarakat masih menonton
film di bioskop, kini mereka tak perlu pergi jauh-jauh karena sudah ada
persewaan video. Pendaftaran keanggotaan adalah salah satu proses yang sering
banyak orang lakukan sebelum menyewa sebuah atau lebih film.Pada umumnya
persewaan video menggunakan cara pendaftaran yang manual, yaitu dengan mencatat
data diri orang tersebut. Namun cara itu kurang efektif, untuk itulah perlu adanya
proses pendaftaran untuk lebih mengefektifkan serta lebih memudahkan, lebih
praktis dan lebih cepat. Maka atas dasar itulah, penulis merasa perlu untuk
membuat suatu program aplikasi yang memberikan kemudahan masyarakat yang akan
melakukan pendaftaran keanggotaan.
RUMUSAN MASALAH
Dari
uraian diatas dirumuskan hal sebagai berikut:
Bagaimana
membuat suatu program pendaftaran keanggotaan menggunakan Visual Basics 2010
sebagai alternative untuk melayani pendataran keanggotaan?
TUJUAN DAN MANFAAT
Tujuan
Tujuannya
adalah membuat suatu program pendaftaran keanggotaan sebagai alternative untuk
melayani pendaftaran keanggotaan yang berbasis Visual Basics 2010.
Manfaat
Adapun
manfaat dari pembuatan aplikasi ini adalah memberikan suatu solusi alternative
bagi konsumen untuk pendaftaran keanggotaan secara mudah.
KAJIAN TEORI
Pengertian dan Fungsi
Microsoft Visual Basics 2010
Visual
Basics adalah sebuah bahasa pemrogamaman yang berpusat pada object (Object
Oriented Progamming) digunakan dalam pembuatan aplikasi Windows yang berbasis
Integerated Development Environment, hal ini menjadikan Visual Basics menjadi
bahasa pemrogaman yang wajib diketahui dan dikuasai oleh setiap programmer.
Visual Basics yang merupakan bagian dari Visual Studio, Visual Studio terdapat
beberapa jenis pemrogamaman yaitu, Visual Basics, Visual C#, Visual F#.
Beberapa karakteristik obyek tidak dapat dilakukan oleh Visual Basics misalnya
seperti Inheritance tidak bisa Modul dan Polymorphism secara terbatas bisa
dilakukan dengan deklarasi class module yang mempunyai interface tertentu.
Sifat Visual Basic tidak case sensitive. Selain itu segudang fitur dan
fasilitas yang memudahkan dan mengembangkan suatu aplikasi.
METODE PENELITIAN
Komponen
|
Properties
|
Keterangan
|
Form1
|
Name
Text
BackgroundImage
BackgroundImageLayout
|
Form1
Form1
System.Drawing.Bitmap
Stretch
|
Label1
|
Name
Text
Font Size
|
Label1
No. KTP
12
|
Label2
|
Name
Text
Font Size
|
Label2
Nama
12
|
Label3
|
Name
Text
Font Size
|
Label3
Alamat
12
|
Label4
|
Name
Text
Font Size
|
Label4
Tanggal Lahir
12
|
Label5
|
Name
Text
Font Size
|
Label5
Tempat Lahir
12
|
Label6
|
Name
Text
Font Size
|
Label6
No. Telfon
12
|
Label7
|
Name
Text
Font Size
|
Label7
FDZ Membership
25
|
Label8
|
Name
Text
Font Size
|
Label8
Jenis Kelamin
12
|
Textbox1
|
Name
|
TextBox1
|
Textbox2
|
Name
|
TextBox2
|
Textbox3
|
Name
|
TextBox3
|
Textbox4
|
Name
|
TextBox4
|
Textbox5
|
Name
|
TextBox5
|
Textbox6
|
Name
|
TextBox6
|
Textbox7
|
Name
|
TextBox7
|
Combobox
|
Name
|
Combobox1
|
Button1
|
Name
Text
|
Button1
Daftar
|
Button2
|
Name
Text
|
Button2
Keluar
|
Komponen
|
Properties
|
Keterangan
|
Form2
|
Name
Text
BackgroundImage
BackgroundImageLayout
|
Form2
Form2
System.Drawing.Bitmap
Stretch
|
Label1
|
Name
Text
Font Size
BackColor
ForeColor
|
Label1
No. KTP
12
Transparent
White
|
Label2
|
Name
Text
Font Size
BackColor
ForeColor
|
Label2
Nama
12
Transparent
White
|
Label3
|
Name
Text
Font Size
BackColor
ForeColor
|
Label3
Alamat
12
Transparent
White
|
Label4
|
Name
Text
Font Size
BackColor
ForeColor
|
Label4
Tanggal Lahir
12
Transparent
White
|
Label5
|
Name
Text
Font Size
BackColor
ForeColor
|
Label5
Tempat Lahir
12
Transparent
White
|
Label6
|
Name
Text
Font Size
BackColor
ForeColor
|
Label6
No. Telfon
12
Transparent
White
|
Label7
|
Name
Text
Font Size
BackColor
ForeColor
|
Label7
FDZ Membership
25
Transparent
White
|
Labael8
|
Name
FontSize
BackColor
ForeColor
|
Label8
12
Transparent
White
|
Labael9
|
Name
FontSize
BackColor
ForeColor
|
Label9
12
Transparent
White
|
Labael10
|
Name
FontSize
BackColor
ForeColor
|
Label10
12
Transparent
White
|
Labael11
|
Name
FontSize
BackColor
ForeColor
|
Label11
12
Transparent
White
|
Labael12
|
Name
FontSize
BackColor
ForeColor
|
Label12
12
Transparent
White
|
Labael13
|
Name
FontSize
BackColor
ForeColor
|
Label13
12
Transparent
White
|
Labael14
|
Name
FontSize
BackColor
ForeColor
|
Label14
12
Transparent
White
|
Label15
|
Name
Text
Font Size
BackColor
ForeColor
|
Label15
Jenis Kelamin
12
Transparent
White
|
Button1
|
Name
Text
|
Button1
Keluar
|
Komponen
|
Properties
|
Keterangan
|
Form3
|
Name
Text
|
Form3
Form3
|
Label1
|
Name
Text
|
Label1
Apakah anda
yakin ingin mendaftar?
|
Button1
|
Name
Text
|
Button1
NO
|
Button2
|
Name
Text
|
Button2
YES
|
HASIL DAN PEMBAHASAN
Form
1
Listing:
Public Class Form1
Private
Sub Label4_Click(ByVal
sender As System.Object,
ByVal e As
System.EventArgs) Handles
Label4.Click
End
Sub
Private
Sub Button1_Click(ByVal
sender As System.Object,
ByVal e As
System.EventArgs) Handles
Button1.Click
Form3.Show()
Me.Hide()
End
Sub
Private
Sub Button2_Click(ByVal
sender As System.Object,
ByVal e As
System.EventArgs) Handles
Button2.Click
Me.Close()
End
Sub
Private
Sub Form1_Load(ByVal
sender As System.Object,
ByVal e As
System.EventArgs) Handles
MyBase.Load
Me.Text = "Program Pendaftaran
FDZ Rental Video"
ComboBox1.Text = "Pilih"
With ComboBox1
.Items.Add("Laki-laki")
.Items.Add("Perempuan")
End With
End
Sub
Private
Sub Label7_Click(ByVal
sender As System.Object,
ByVal e As
System.EventArgs) Handles
Label7.Click
End
Sub
Private
Sub TextBox6_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs)
Handles TextBox6.TextChanged
End
Sub
Private
Sub RadioButton2_CheckedChanged(ByVal sender As
System.Object, ByVal
e As System.EventArgs)
End
Sub
Private
Sub ComboBox1_SelectedIndexChanged(ByVal sender As
System.Object, ByVal
e As System.EventArgs)
Handles ComboBox1.SelectedIndexChanged
End
Sub
Private
Sub TextBox1_TextChanged(ByVal sender As
System.Object, ByVal
e As System.EventArgs)
Handles TextBox1.TextChanged
End
Sub
End Class
Form2
Listing:
Public Class Form2
Private
Sub Form2_Load(ByVal
sender As System.Object,
ByVal e As
System.EventArgs) Handles
MyBase.Load
Dim ktp As String
Dim nama As String
Dim alamat As String
Dim tgl As String
Dim tpt As String
Dim notelf As Integer
ktp =
Form1.TextBox1.Text
nama =
Form1.TextBox2.Text
alamat =
Form1.TextBox3.Text
tgl =
Form1.TextBox4.Text
tpt =
Form1.TextBox5.Text
notelf =
Form1.TextBox6.Text
Label8.Text = ktp
Label9.Text = nama
Label10.Text = alamat
Label11.Text = tgl
Label12.Text = tpt
Label13.Text = notelf
If Form1.ComboBox1.Text = ("Laki-laki")
Then Label14.Text = ("Laki-laki")
If Form1.ComboBox1.Text = ("Perempuan")
Then Label14.Text = ("Perempuan")
End
Sub
Private
Sub Button1_Click(ByVal
sender As System.Object,
ByVal e As
System.EventArgs) Handles
Button1.Click
Form1.Close()
End
Sub
Private
Sub Label1_Click(ByVal
sender As System.Object,
ByVal e As
System.EventArgs) Handles
Label1.Click
End
Sub
End Class
Form3
Listing:
Public Class Form3
Private
Sub Form3_Load(ByVal
sender As System.Object,
ByVal e As
System.EventArgs) Handles
MyBase.Load
End
Sub
Private
Sub Button2_Click(ByVal
sender As System.Object,
ByVal e As
System.EventArgs) Handles
Button2.Click
Form2.Show()
Me.Hide()
End
Sub
Private
Sub Button1_Click(ByVal
sender As System.Object,
ByVal e As
System.EventArgs) Handles
Button1.Click
Form1.Close()
End
Sub
Private
Sub Label1_Click(ByVal
sender As System.Object,
ByVal e As
System.EventArgs) Handles
Label1.Click
End
Sub
End Class
KESIMPULAN DAN SARAN
Kesimpulan
Pendaftaran
keanggotaan adalah salah satu solusi untuk meningkatkan persewaan video. Dengan
terlebih dahulu mendesain system pendaftaran keanggotaan berbasis Visual Basics
2010, pendaftaran akan lebih praktis. Serta penggunaan program yang tidak sulit
akan memudahkan konsumen.
SARAN
Desain
system pendaftaran keanggotaan berbasis Visual
Basics 2010 ini masih sebatas rancangan system oleh karena itu perlu
diimplementasikan. Untuk pengembangan system lebih lanjut dapat dikembangkan
system peemesanan dengan aplikasi lainnya, sehingga pelayanan konsumen dapat
lebih ditingkatkan.
Tidak ada komentar:
Posting Komentar