Program Tiket Pesawat Terbang menggunakan VB 6.0

MEMBUAT PROGRAM TIKET PENERBANGAN DENGAN VB.6

1.      Memasukkan data ke dalam combocode untuk kode penerbangan

Private Sub Form_Activate()

combocode.Text = ""

combocode.SetFocus

combocode.AddItem "GA219DC9"

combocode.AddItem "GA430DC9"

combocode.AddItem "GA660AB3"

combocode.AddItem "GA898747"

combocode.AddItem "GA958D10"

End Sub

2.      Memasukkan data secara otomatis ke dalam flight type (tflight.text) dan bonus (tbonus.text) ketika combocode selesai diklik

Private Sub combocode_Click()

KODE = combocode.Text

X = Right(KODE, 3)

If X = "DC9" Then

tflight = "DC 9"

ElseIf X = "AB3" Then

tflight = "AIRBUS-3"

ElseIf X = "747" Then

tflight = "BOEING-747"

ElseIf X = "D10" Then

tflight = "DC-10"

End If

Y = Left(KODE, 5)

If Y = "GA219" Then

tbonus.Text = "LUNCH"

ElseIf Y = "GA430" Then

tbonus.Text = "BREAKFAST"

ElseIf Y = "GA660" Then

tbonus.Text = "DINNERS"

ElseIf Y = "GA898" Then

tbonus.Text = "SNACK"

ElseIf Y = "GA958" Then

tbonus.Text = "BREAKFAST"

End If

'agar cursor ada di harga tiket setelah combobox diklik

ttiket.SetFocus

End Sub

3.      Agar harga tiket hanya bisa diisi oleh numeric dan bisa dihapus dengan backspace

Private Sub ttiket_KeyPress(KeyAscii As Integer, Shift As Integer)

If Not IsNumeric(Chr(KeyAscii)) And KeyAscii <> 8 Then

KeyAscii = 0

End If

End Sub

4.      Penghitungan total bayar (cmdhitung)

Private Sub CMDHITUNG_Click()

Dim HARGA As String

Dim total As Long

Dim PAJAK As String

HARGA = ttiket.Text

If HARGA < 100000 Then

tpajak.Text = "10%"

ElseIf HARGA >= 100000 And HARGA <= 500000 Then

tpajak.Text = "12%"

ElseIf HARGA > 500000 And HARGA < 1000000 Then

tpajak.Text = "14%"

ElseIf HARGA >= 1000000 Then

tpajak.Text = "15%"

End If

total = HARGA + (HARGA * (Val(Left(tpajak.Text, 2))) / 100)

ttotal.Text = total

End Sub

5.      Menambahkan message box apabila ada data yang belum diisi

Garis tebal adalah perintah untuk message box, berikut cmdhitung setelah divariasi :

Private Sub CMDHITUNG_Click()

'1 untuk message box "ada data yang belum terisi!"

On Error GoTo salah

Call balik      

'untuk message box apabila belum mengisi kode penerbangan

If combocode.Text = "" Then

MsgBox "Ada data yang belum terisi!" And tpajak.Text = ""

ElseIf combocode.Text = "" Then

ttiket.Text = ""

ElseIf combocode.Text = "" Then

tpajak.Text = ""

ElseIf combocode.Text = "" Then

ttotal.Text = ""

End If

…. CODING UNTUK PENGHITUNGAN TOTAL (CODING DIATAS)….

'lanjutan 1 message box apabila ada data yang belum terisi

combocode.SetFocus

Exit Sub

salah:

MsgBox "Ada data yang belum terisi!"

End Sub

Sub balik()

'lanjutan 1 message box apabila ada data yang belum terisi

combocode.SetFocus

End Sub

6.      Mengosongkan data (cmdlagi)

Private Sub CMDLAGI_Click()

combocode.Text = ""

tflight.Text = ""

ttiket.Text = ""

tbonus.Text = ""

tpajak.Text = ""

ttotal.Text = ""

End Sub

7.      Keluar dari program (cmdselesai)

Private Sub CMDSELESAI_Click()

Unload Me

End Sub

Moga bermanfaat ya... E-mail me or add my fb jika punya pertanyaan.  ^_^ by tama beruang kutub

­

Baca Selanjutnya »

Kode Ascii

Baca Selanjutnya »

Bahasa Inggris II

HULA - HULA

HALLO FRIENDS

English Task’s Group

Member:

Esti Yuliana SIR200938

Meyra Sofiana SIR200819

Erna Lutiningsih SIR200840

K. Suwardiman Budi P. SIR200711

Candra Pebri Lesmana SIR200811

TECHNOLOGY FOR OUR LIVES

Technology is the usage and knowledge of tools, techniques, crafts, systems or methods of organization. Technology nowadays constantly seems to seep its way into our daily routines. Everything we do is somehow connected with technology, whether it for working or studying and helping our life. Without technology, life would be more difficult than it already is, knowledge would be limited and more difficult to achieve. The task of technology is to create a better and easier living for ourselves and for the world.

Now I will take some example of technology today, such as Personal digital assistant (PDA) that lightweight, a hand-held computer designed for use as a personal organizer with communications capabilities; also called a handheld, Electric Cars With Plug In Technology, Laser (Light Amplification Stimulated Emission Of Radiation) Is a Mechanism of emitting of light within Electromagnetic Wave radiation based process of stimulated emission, hand phone, mp3 players and so on.

Looking back in time, we realize how much our lives have changed due to the fruits of technology. It has provided us with freedom and less consumption of time and resources. A nation's economic growth can be measured according to the level of technology. This is because a number of factors are responsible for affecting an individual's life style. The most important factor for deciding the working of a particular technology is the presence of competition. Technology has affected society and its surroundings in a number of ways. In many societies, technology has helped develop more advanced economies (including today's global economy) and has allowed the rise of a leisure class.

With the advent of technology, people are building bridges to decrease the distances in their mind. One basic drawback that has taken place is that people are becoming lethargic due to high trends in technology. It is shortening our ability to pay attention. Robotics, automation and computerization are on the go for changing our lives. Implementation of robotics will give higher efficiency and cheaper labor, thereby increasing unemployment rate.

Technology is so integrated with our lives today. Various influences, both positive and negative, of technology already we feel together.

POSITIVE:

The positive effect is that it accelerates what one person can do. With tech you can make one person do much job in same time and do things quickly and better. With tech, you can protect yourself by encrypting all your transmissions, however it makes it that much easier for someone to protect truly harmful transmissions like child porn or criminal activity. Overall, and in a modern sense, tech decentralizes the power and control over the media and distributes it to regular people creating a more democratic society. In the same way, it destabilizes society by challenging the authority of institutions within that society who need to centralize power to maintain that control that does provide stability. However, the emergence of tech will show that old institutions are no longer needed or have to modify.

NEGATIVE

The reality is that today’s society is so dependent on technology. for example almost every family has a television, there are even families who have more than one television. In addition, almost everyone has a mobile phone that can be used to access the internet and open facebook or twitter. as a result, people spent much time in front of the television and browse the internet for updating status on facebook and twitter, or play games on line through mobile phone, laptop. Without parent’s guide the children can be access the porn sites or bad ones that very unsuitable for them because they can not filter whether is true and false exactly.

In our opinion, now the community is very spoiled with technology and highly dependent on technology. For example to calculate ( sum, subtraction, division) we rarely use our brainpower, but rather use the calculator to solve them.

In other hand technology sometimes makes bigger unemployment because the job that was taken by 100 people now can do by a machine just a click. Unemployment is a serious problem for government because sometimes increase the criminal because they can’t have enough money for fill up the life budget.

Now the other side of technology is not so green. It is because of improvised technology only that we have seen nuclear and atomic wars. Many technological processes produce unwanted by-products, known as pollution, and deplete natural resources, to the detriment of the Earth and its environment.

Hence, one must know how to balance between manpower and automation. In the world of automation, cars have created freedom as well as concrete jungle. Technology is affecting our near future so it becomes our responsibility to streamline it in the right direction.

STMIK WIDYA UTAMA PURWOKERTO

Baca Selanjutnya »

Profesionalisme

Nama              :  Esti Yuliana

NIM                 :  SIR200938

Tugas             :  Etika Profesi

Dosen             : Sulistiyasni, S. Kom

Profesionalisme

Profesionalisme adalah komitmen para profesional terhadap profesinya. Komitmen tersebut ditunjukkan dengan kebanggaan dirinya sebagai tenaga profesional, usaha terus-menerus untuk mengembangkan kemampuan profesional.

Tuntutan atas profesionalisme, sebagai suatu faham dan konsep idealisme profesional, sering dijadikan tuntutan terhadap keberadaan pegawai di lingkungan birokrasi pemerintahan. Namun pemahaman akan profesionalisme itu sendiri masih belum jelas dan belum ada standar penilaiannya. Sebutan “Profesionalisme” itu sendiri berasal dari kata “profesi”. Jadi, berbicara tentang profesionalisme tentu mengacu pada pengertian profesi, sebagai suatu bidang pekerjaan.
Dalam hal profesi tiy, Mc Cully (1969) (dalam Rusyan, 1990 : 4) mengatakan sebagai  : Vocation an which professional knowledge of some department a learning science is used in its application to the other or in the practice of an art found it. Dari pengertian itu dapat disarikan bahwa dalam suatu pekerjaan yang bersifat professional dipergunakan teknik serta prosedur yang bertumpu pada landasan intelektual, yang secara sengaja harus dipelajari dan kemudian secara langsung dapat diabadikan bagi kemaslahatan orang lain. Faktor penting dalam hal ini adalah intelektualitas yang di dalamnya tercakup satu atau beberapa keahlian kerja yang dianggap mampu menjamin proses pekerjaan dan hasil kerja yang professional, atau tercapainya nilai-nilai tertentu yang dianggap ideal menurut pihak yang menikmatinya

Teknologi Informasi ( IT ) merupakan teknologi yagn selalu berkembang baik secara revolusioner ( seperti misalnya perkembangan dunia perangkat keras ) maupun yang lebih bersifat evolusioner ( seperti yang terjadi pada perkembangan perangkat lunak ).

Hal itu mengakibatkan bahwa pekerjaan di bidang Teknologi Informasi menjadi suatu pekerjaan di mana pelakunya harus terus mengembangkan ilmu yang dimilikinya untuk mengikuti perkembangan Teknologi Informasi tersebut. Artinya, seseorang yang sudah sampai pada level “ahli” di satu bidang pada saat ini, bisa ketinggalan pada bidang yang sama di masa depan jika tidak mengikuti perkembangan yang ada

Berdasarkan kedua pendapat diatas, terdapat sejumlah faktor dominan dalam mempersoalkan profesionalisme dikalangan pegawai. Pertama, kapasitas intelektual pegawai yang relevan dengan jenis dan sifat pekerjaannya. Kapasitas intelektual ini tentu berhubungan dengan jenis dan tingkat pendidikan yang menjadi karakteristik pengetahuan dan keahlian seseorang dalam bekerja. Kedua, standar kerja yang sekurang-kurangnya mencakup prosedur, tata cara dan hasil akhir pekerjaan. Ketiga, standar moral dan etika dalam melaksanakan pekerjaan tersebut. Hal ketiga inilah yang sulit dirumuskan dan dinyatakan secara utuh, karena proses aktualisasinya tidak hanya ditentukan oleh sifat dan watak seseorang, tetapi ditentukan juga oleh system nilai yang berlaku dalam suatu lingkungan kerja. Sebagai contoh, seseorang yang berwatak jujur dapat berubah menjadi pribadi yang korup, karena system nilai yang berlaku di lingkungan kerjanya memang system nilai yang korup.

Peningkatan Profesionalisme

Syarat profesionalisme yang harus dimiliki pekerja IT :

1) Dasar ilmu yang kuat dalam bidangnya sebagai bagian dari masyarakat teknologi dan masyarakat ilmu pengetahuan abad 21.

2) Penguasaan kiat-kiat profesi yang dilakukan berdasarkan riset dan praktis, bukan hanya merupakan teori atau konsep.

3) Pengembangan kemampuan profesional berkesinambungan.

Penyebab rendahnya profesionalisme pekerja IT :

1) Masih banyak pekerja IT yang tidak menekuni profesinya secara total.

2) Belum adanya konsep yang jelas dan terdefinisi tentang norma dan etika profesi pekerja dibidang IT.

3) Masih belum ada organisasi profesional yang menangani para profesional dibidang IT.

Menjadi Profesional dengan sertifikasi

Alasan pentingnya sertifikasi profesionalisme dibidang IT :

1) Bahwa untuk menuju pada level yang diharapkan, pekerjaan di bidang TI membutuhkan expertise.

2) Bahwa profesi dibidang TI, dapat dikatakan merupakan profesi menjual jasa dan bisnis jasa bersifat kepercayaan.

Manfaat adanya sertifikasi profesionalisme :

1) Ikut berperan dalam menciptakan lingkungan kerja yang lebih profesional

2) Pengakuan resmi pemerintah tentang tingkat keahlian individu terhadap sebuah profesi

3) Pengakuan dari organisasi profesi sejenis, baik tingkat regional maupun internasional

4) Membuka akses lapangan pekerjaan secara nasional, regional maupun internasional

5) Memperoleh peningkatan karier dan pendapatan sesuai perimbangan dengan pedoman skala yang diberlakukan

Baca Selanjutnya »