Tugas IV Sessi IX Mata Kuliah PB1
Membuat Program dengan menggunakan CLASS dgn Visual Studio 2008
Assalamualaikum Wr Wb
saya akan menjelaskan bagaimana membuat program aplikasi sederhana dengan Membuat Pemesanan Tiket pesawat Terbang.
langkah pertama :
klik Open program Microsoft Visual Studio 2008 dengan cara
Start > All Programs > Microsoft Visual Studio 2008
Setelah masuk dalam MIcrosoft Visual Studio 2008
klik Create Project > Windows Form Application > Ok
Langkah ke dua :
klik Project>Add Class
Seperti gambar dibawah ini
Seperti gambar dibawah ini
Langkah ke 3 :
Setelah mengklik Add Class, ganti nama Class tersebut menjadiClassTSI atau ClassPenerbangan seperti gambar dibawah ini:
Langkah Selanjutnya membuat terlebih dahulu sourcec code classnya seperti ini :
Public Class ClassTSI
Dim Passengenameanda As String
Dim TglpemesantiketPesawat As String
Dim IssuingAirline As String
Dim eTicketNumber As String
Public Function konversi(ByVal karakter)
konversi = StrConv(karakter, VbStrConv.Uppercase)
End Function
Property passengerNameAnda() As String
Get
Passengenameanda = passengerNameAnda
End Get
Set(ByVal value As String)
Passengenameanda = value
End Set
End Property
Property Tglpemesantiket() As String
Get
Tglpemesantiket = TglpemesantiketPesawat
End Get
Set(ByVal value As String)
TglpemesantiketPesawat = value
End Set
End Property
Property IssuingAir() As String
Get
IssuingAir = IssuingAirline
End Get
Set(ByVal value As String)
IssuingAirline = value
End Set
End Property
Property eTicket() As String
Get
eTicket = eTicketNumber
End Get
Set(ByVal value As String)
eTicketNumber = value
End Set
End Property
End Class
Langkah berikutnya desain Form menjadi seperti gambar di bawah ini yang terdiri dari : 5 button dan 1 textbox
Selanjutnya membuat sourcecode atau coding yang ke dua seperti di bawah ini :
Public Class Form1
Dim klasnya As New ClassTSI
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim kata As String
kata = InputBox("Masukan kata/kalimat yang akan di ORDER TICKET FLY PESAWAT")
TextBox1.Text = klasnya.konversi(kata)
End Sub
Private Sub Form1_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
klasnya.passengerNameAnda = TextBox1.Text
MsgBox(klasnya.passengerNameAnda + " " + klasnya.Tglpemesantiket + " " + klasnya.IssuingAir + " " + klasnya.eTicket)
End Sub
Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
Dim Tgptring
Tgptring = InputBox("Masukan Issued Date atau Tgl pemesanan Tiket Pesewat Anda")
klasnya.Tglpemesantiket = Tgptring
End Sub
Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
Dim IssuingAirlinetring
IssuingAirlinetring = InputBox("Masukan Issuing Airline atau Jenis Pesawat Anda")
klasnya.IssuingAir = IssuingAirlinetring
End Sub
Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button5.Click
Dim eTicketNumbertring
eTicketNumbertring = InputBox("Masukan eTicket Number atau nomer ticket pesawat anda")
klasnya.eTicket = eTicketNumbertring
End Sub
End Class
Setelah membuat sourcecode yang ke dua hasilnya akan jadi seperti di gambar di bawah ini :
gambar dia atas adalah akhir dari program aplikasi vb 2008 pemesanan penerbangan tiket pesawat yang saya buat ,sekian dan terima kasiih ,
Gambar di atas adalah akhir pembuatan program visual basic 2008 dengan membuat program menggunakan class ,sekian dan terima kasiih ,semoga bermanfaat untuk semuanya
Wassalamualaikum Wr. Wb . . .
