Perkembangan dan Inovasi Transportasi Darat Berbasis Rel

A. Sejarah Kereta Api

            1. Sejarah Kereta Api Dunia

Pada abad ke-18, setiap tambang di Inggris memiliki jaringan kereta api sederhana sendiri, dengan kuda sebagai tenaga penarik gerobak dari tambang ke pabrik. Pada tahun 1774 James Watt memperkenalkan penemuan mesin uap stasioner pertamanya ke seluruh dunia. Kemudian pada tahun 1800-an beberapa ahli mesin uap berhasil memodifikasi mesin uap rancangan Watt, dengan merancang ruang bertekanan tinggi non-kondensasi yang memungkinkan mesin untuk mengkonversi lebih banyak energi uap menjadi energi mekanik.

 

Mesin uap pertama mulai dioperasikan di sepanjang rel primitif pada tahun 1804.Saat itu Matthew Murray berhasil menampilkan lokomotif sederhana pertama, Namun perhatian publik justru lebih banyak tertuju pada Richard Trevithick yang berhasil menciptakan “Penydarren”, sebuah lokomotif yang menarik beban setara 25 ton dan 70 orang. Kereta api dipergunakan secara komersial pada akhir 1820-an, George Stephenson yang berkebangsaan Inggris saat itu memenangkan kompetisi dengan desain lokomotif uapnya. Sejak saat itu, lokomotif uap menyebar dengan cepat hingga ke Amerika.

Masa kejayaan kereta uap berakhir ketika seluruh armada kereta di London mulai menggunakan mesin listrik dan juga pengenalan mesin Diesel, yang membawa lokomotif uap untuk tutup usia setelah perang dunia ke-2. Mesin diesel yang dikombinasikan dengan yang listrik memungkinkan terciptanya kereta terbaik kedua dunia, setelah kereta listrik.

Setelah Perang Dunia II bearkhir, era KA Supercepat memulai babak baru saat negara maju di Asia yaitu Jepang mulai membuat dan mengoperasikan KA Supercepat mereka yang di namakan Shinkansen. Pada tahun 1963, saat uji eksperimental, Shinkansen Jepang mampu membuat rekor baru, yaitu melaju menembus kecepatan 256 Km/Jam. Shinkansen tipe 0 dibuat oleh Kawasaki Heavy Industries dan melayani perjalanan Tokyo - Osaka sejauh 515 Km dengan kecepatan operasional maksimum 210 Km/Jam. Langkah Jepang ini kemudian disusul oleh negara-negara besar dan maju di Eropa seperti Perancis dan Jerman.Perancis melalui perusahaan operator kereta api mereka yaitu SNCF terus berinovasi agar bisa memiliki kereta supercepat. SNCF kemudian melakukan berbagai proyek KA Supercepat.

Kereta Supercepat Shinkasen

Saat ini, beberapa negara maju sedang mengembangkan bahkan sudah mulai mengoperasikan kereta api berteknologi magnetic levitation (maglev) seperti Jepang, China, Jerman dll. Seperti namanya, prinsip dari kereta api ini adalah memanfaatkan gaya magnet untuk mengangkat kereta sehingga mengambang, tidak menyentuh rel sehingga gaya gesek dapat dikurangi. Kereta maglev juga memanfaatkan magnet sebagai pendorong. Dengan kecilnya gaya gesek dan besarnya gaya dorong, kereta ini mampu melaju dengan kecepatan sampai 600 km/jam, jauh lebih cepat dari kereta biasa.

2. Sejarah Kereta Api di Indonesia

Setelah Proklamasi Kemerdekaan Indonesia, karyawan perusahaan kereta api yang tergabung dalam Angkatan Moeda Kereta Api (AMKA) mengambil alih kekuasaan perkeretaapian dari Jepang. Dan pada 28 September 1945 ditetapkan menjadi Hari Kereta Api dan dibentuknya Djawatan Kereta Api Repoeblik Indonesia (DKARI).

Nama DKARI kemudian diubah menjadi Perusahaan Negara Kereta Api (PNKA). Nama itu diubah lagi menjadi Perusahaan Jawatan Kereta Api (PJKA) pada tanggal 15 September 1971. Pada tanggal 2 Januari 1991, nama PJKA secara resmi diubah menjadiPerusahaan Umum Kereta Api (Perumka) dan semenjak tanggal 1 Juni 1999 diubah menjadi PT Kereta Api Indonesia (Persero) sampai sekarang.

Pada akhir Maret 2007,DPR mengesahkan revisi UU No. 13/1992 yang menegaskan bahwa investor swasta maupun pemerintah daerah diberi kesempatan untuk mengelola jasa angkutan kereta api di Indonesia.Pemberlakuan UU Perkeretaapian No. 23/2007 secara hukum mengakhiri monopoli PT KAI dalam mengoperasikan kereta api di Indonesia. Pada tanggal 28 September 2011, bertepatan dengan peringatan ulang tahunnya yang ke-66, KAI meluncurkan logo baru.

Tahun 1976, PT. KAI mulai mendatangkan Kereta Rel Listrik (KRL) dari Jepang.KRL merupakan kereta rel yang bergerak dengan sistem propulsi motor listrik. Di Indonesia, kereta rel listrik terutama ditemukan di kawasan Jabodetabek, dan merupakan kereta yang melayani para komuter. Kereta rel listrik berbeda dengan lokomotif listrik.Panjang keseluruhan jalur kereta api di Indonesia adalah 7583 kilometer.

B. Daftar Kereta Tercepat di Dunia per 2017

5. Talgo 350, Spanyol

Kecepatan Kereta                   :350km/jam
Jalur                                         :Madrid-Barcelona dan Madrid-Valladolid

Jumlah Penumpang                 :365 orang

Tahun mulai beroperasi           : 2007

Negara                                     : Spanyol

Speed maksimumnya yang sampai 350 kmph mampu mempersingkat waktu tempuh antara Madrid dan Barcelona. Kereta api memiliki 14 gerbong, yang terdiri dari 2 gerbong pengemudi atau penggerak serta 12 lainnya merupakan gerbong penumpang.Fasilitas kereta api terpecah menjadi empat kelas; ada kelas Club, First, Bistro, dan Coach. Semua kelasnya menyajikan kursi berbaring, lengkap dengan tempat ganjal atau penunjang kakinya.Setiap bangkunya sudah bisa mengakses perangkat audio atau video.Panel informasi real time pun terpampang di dalam serta di luar gerbong.

4. Siemens Velaro E/AVS 103, Spanyol

Kecepatan Kereta                   : 350km/jam
Jalur                                         : Barcelona – Madrid

Jumlah Penumpang                 : 404 orang

Operator                                  : Spanish National Railways

Tahun mulai beroperasi           : 2007

Negara                                     : Spanyol

Yang satu ini merupakan versi lain dari Velaro E ala Siemen, perusahaan Jerman yang sudah mengembangkannya. Di Spanyol sendiri, kereta api ini lebih dikenal sebagai AVS 103. Daerah operasinya ada diantara Barcelona dan Madrid. Speed maksimalnya sebesar 350 kmph, sehingga memungkinkannya menempuh dua kota besar itu dalam waktu 2 jam 30 menit saja.Pada Juni tahun 2007, pelayanannya untuk umum dibuka.Total ada 8 gerbong, dengan kapasitas sebanyak 404 kursi.

3. AGV Italo, Italia

Kecepatan Kereta                   : 360km/jam
Jalur                                         : Roma – Naples

Jumlah Penumpang                 : 446 orang

Operator                                  : Nuovo Trasporto Viaggiatori (NTV)

Tahun mulai beroperasi           : 2007

Negara                                     : Italia

Ini dia kereta api tercepat yang dioperasikan di daratan Eropa, Italia lebih tepatnya.Kecepatan operasional maksimumnya menjangkau angka sebesar 360 kmph.Namun di tahun 2007, ketika dilakukan tes awal, kereta ini bahkan melesat sebesar 574 kmph.Pada April 2007, mereka mulai membuka jasanya.Daerah operasinya bergerak di antara Roma dan Naples.

Desainnya juga banyak mendapat pujian. Struktur yang diterapkan begitu ramah lingkungan, bahkan 98% diantaranya memang dari hasil dari proses daur ulang. AVG Italo ini memiliki 11 gerbong yang terbagi menjadi 3 kelas. Ada kelas Club, Prima dan Smart. Semuanya sama-sama menyediakan kursi dari bahan kulit, tayangan televisi serta Wi-Fi gratis.

2. Harmony CRH 380A, China

Kecepatan Kereta                   : 380km/jam
Jalur                                         : Shanghai – Nanjing

Jumlah Penumpang                 : 494 orang

Operator                                  : Chinese Ministry of Railways

Tahun mulai beroperasi           : 2010

Negara                                     : China

Untuk pelayanan secara komersil, kecepatan maksimum kereta ini sampai 380 kmph. Namun ketika proses testing, speed kereta yang ada di Tiongkok ini tercatat sebesar 416,6 kmph. Jasa rutin yang mulai dioperasikan pada Oktober 2010 ada di antara rute Shanghai-Nanjing.Perusahaan CSR Qingdao Sifang Locomotive serta Rolling Stuck menjadi pihak yang ada di balik produksi kereta ini. Material alumunium membuat kereta api ini mampu mengurangi berat. Tampilan depannya yang menyerupai ikan juga menjadi kekhasan tersendiri untuk kereta api ini. Desain unik ini sengaja dirancang agar kereta mampu mengurangi tekanan aerodinamik.

Kapasitasnya cukup banyak, sebanyak 494 kursi penumpang. Tiap penumpangnya akan difasilitasi lampu baca, tampilan elektronik serta power port. Semua unit gerbongnya juga mendapat pelayanan berupa makanan dan minuman.Mereka juga menyediakan bagian VIP khusus di area yang berdekatan dengan kabin masinis. Dengan begitu, kita bisa menikmati “pemandangan” kereta api yang tengah melesat

1. Shanghai Maglev, 431 kmph, China

Kecepatan Kereta                   : 431km/jam
Jalur                                         : Longyang Road – Pudong International Airport

Jumlah Penumpang                 : 574 orang

Operator                                  : Shanghai Maglev Transportation Development

  Co., Ltd.

Tahun mulai beroperasi           : 2004

Negara                                     : China

Kecepatan operasi puncaknya mencapai 431 kmph.Adalah Shanghai Maglev Transportation Development Co. yang menjadi operatornya. Jika diperhatikan secara seksama, kereta api ini tidak memiliki roda. Bisa kita lihat bagianbawahnya melayang di atas medan magnet, tepat diantara kereta dan track-nya. Kekuatan magnetnya yang luar biasa itu menciptakan tarikan elektromagnetik tersendiri, sehingga tak terjadi kontak langsung antara rel dengan keretanya.Untuk pelayanan publik, kereta ini sudah membukanya sejak tahun baru 2004.

Wilayah operasinya terbentang diantara jalanan Long Yang serta bandara Internasional Pudong.Untuk kapasitas penumpangnya sendiri, Shanghai Manglev sudah menyiapkan sebesar 574 bangku.Operasinya berlangsung setiap 15 menit.Untuk tiket biasa, kita bisa menukarnya dengan uang sebesar US$8.Sementara untuk kelas VIP, harganya dobel menjadi US$16.

           

C. Kereta Masa Depan

            Pesawat  terbang masih menjadi alat transportasi tercepat apabila ingin mengunjungi suatu tempat yang jaraknya ratusan kilometer dari tempat kita berada saat ini. Namun sebentar lagi posisi tersebut akan tergantikan dengan sebuah model transportasi baru bernama Hyperloop.

           

Hyperloop ini sebenarnya bukan teknologi yang baru.konsep dasarnya sudah ada sejak lama. Namun gambaran jelas mengenai teknologi ini baru terdengar tahun 2012 lalu setelah diutarakan oleh Elon Musk.Beliau adalah pemilik perusahaan antariksa SpaceX dan mobil listrik Tesla Motors. Teknologi Hyperloop ini dikembangkan secara open source yang berarti pihak lain dapat ikut serta dalam mengembangkan teknologi ini.

           

Kereta Hyperloop ini kecepatannya bisa mencapai 1200km/jam. Bandingkan dengan kecepatan pesawat terbang komersial (900 km/jam), atau kereta api Maglev (600 km/jam). Dengan kecepatannya tersebut, tidak mustahil apabila perjalanan dari Jakarta ke Yogyakarta dapat ditempuh dalam 25 menit saja.

           

Kereta Hyperloop berbentuk seperti sebuah kapsul, masing-masing kapsul dapat diisi oleh 28 orang penumpang. Kapsul ini meluncur pada rel yang berupa pipa tabung bertekanan rendah dan semivakum udara yang tahan gempa dan tidak terpengaruh akan perubahan cuaca. Bagian atas tabung lintasan Hyperloop sendiri dilengkapi panel surya yang membangkitkan energi hingga 57 MegaWatt per tahun.Jalur kereta Hyperloop sendiri merupakan jalan layang, dibangun di atas pilar beton.

           

Hyperloop ini tidak hanya menggunakan prinsip elektromagnetik tetapi juga mengadopsi prinsip termodinamika dan dinamika fluida. Kapsul Hyperloop memiliki 2 motor elektromagetik yang berfungsi menciptakan medan magnet. Kemudian ada kipas angin berukuran besar dan kompresor yang bertujuan untuk melampaui Kantrowitz Limit yang dirumuskan oleh fisikawan AS, Arthur Kantrowitz.

           

Dikutip dari Kompas.com, Katorwitz Limit menyatakan, saat sebuah benda bergerak dalam tabung semivakum, udara di bagian benda itu akan termapatkan. Pada akhirnya, udara itu yang justru menghambat kecepatan gerak benda.Ini persis seperti jarum suntuk.Kipas angin raksasa dan kompresor membantu mengalirkan udara ke dalam kapsul dan sekitarnya.

Selain itu dibutuhkan air bearing, yaitu bantalan sepanjang 1,5 meter yang menciptakan udara bertekanan rendah. Kapsul akan melayang, persisi dengan interaksi magnet dengan kutub yang sama pada kereta Shinkansen.

Bagaimana komponen-komponen tersebut dapat memengaruhi kecepatan kereta Hyperloop?Penjelasan sederhananya adalah, udara menghasilkan gesekan yang dapat menghambat sebuah benda untuk bergerak. Apabila kereta Hyperloop ini bergerak di ruang hampa, kecepatan yang dihasilkan akan maksimum. Namun menciptakan ruang hampa udara ratusan kilometer masih belum memungkinkan, maka Musk memilih untuk memakai ruang udara bertekanan rendah pada rel kereta Hyperloop ini.

Kipas angin berukuran besar dan kompresor akan mmengalirkan udara ke air bearing, yang membuatnya menjadi bertekanan rendah. Udara ini membantu kapsul tersebut untuk melayang, meminimalkan gesekan dengan tabung, dan yang paling penting adalah membantu memaksimalkan kecepatan kereta Hyperloop.

Dubai adalah kota pertama yang berkerja sama dengan perusahaan AS Hyperloop ini. Dilansir dari The Independent (10/11/2016), kereta berkecepatan tinggi sebagai transportasi baru antara Dubai dan Abu Dhabi akan memotong waktu perjalanan antara dua kota secara signifikan. Tanggal penyeselesaian proyek kereta Hyperloop di Uni Emirat Arab belum ditetapkan.Namun, jika evaluasi awal sukses, CEO Hyperloop One, Rob Llyod mengatakan proyek ini bisa berjalan. Maka dari perspektif teknologi, rangkaian kereta Hyperloop siap dioperasikan sekitar lima tahun ke depan. (duniatimteng.com)

Daftar Pustaka

http://bangsabelajar.blogspot.co.id/2017/02/sejarah-teknologi-keretaapi.html
http://ilmuteknologyindustri.blogspot.com/2017/01/sejarah-kereta-api-didunia-dan.html
http://hudalogawa.blogspot.co.id/2015/06/ilmu-kereta-sejarah-dan-perkembangan_20.html 

https://www.weforum.org/agenda/2017/09/these-are-the-world-s-fastest-trains/

Sumber Gambar

http://www.newworldencyclopedia.org/entry/Locomotive

https://fr.wikipedia.org/wiki/Matthew_Murray

https://www.osakastation.com/buying-shinkansen-tickets-at-shin-osaka-station/

http://inhabitat.com/first-passengers-ride-on-japans-311mph-floating-maglev-train/

https://en.wikipedia.org/wiki/TGV

https://en.wikipedia.org/wiki/Shanghai_Maglev_Train

https://en.wikipedia.org/wiki/Korea_Train_Express

https://en.wikipedia.org/wiki/AVE

http://www.krl.co.id/delapan-krl-jakarta-kota-bekasi-pp-akan-melalui-jalur-pasar-senen-mulai-1-april-2017/

KELOMPOK 5

2KA01

Ersa Alfathona

Muhammad raihan

Noviani Wiandari

Raihan Pramudya

OpenCobolIDE-4.7.6

Download | OpenCobolIDE-4.7.6 

Tutorial Visual Basic 6.0 Password dan Menu Barang

Assalamu’alaikum Warohmatullahi Wabarokatuh

Pada kesempatan kali ini kami kembali akan membagikan tutorial mengenai penggunaan Visual Basic 6.0. terdapat 2 tutorial mengenai:

1.      TUTORIAL 1 : Login Password dengan 3 kali kesempatan

Link Youtube : https://www.youtube.com/watch?v=m2IKniA7amA&feature=youtu.be

2.      TUTORIAL 2 : Menu  Barang

Link Youtube :

https://www.youtube.com/watch?v=5hMB8fe7g-o&feature=youtu.be

Kelompok kami terdiri dari Amanda Pusparini (Amanda), Felisia Handayani (Feli), Muhammad Rakha .F (Rakha), Noviani Wiandari (Novi), Randy Muwardani (Randy).

TUTORIAL 1 : Login Password dengan 3 kali kesempatan

1.      Pastikan User telah memiliki aplikasi Visual Basic 6.0.

2.      Buka Visual Basic 6.0. dan pilih Standard EXE lalu Open

3.      Berikut adalah tampilan Visual Basic 6.0, mulai mendesign dengan memanfaatkan Menu Bar dan Tools yang tersedia.

4.      Tools yang dibutuhkan untuk mendesign “Login Password dengan 3 kali kesempatan” adalah :

FORM 1         : Label, Text Box dan Command Button

FORM 2         : Picture Box

A.    Caption “LOGIN” didapat dari : pilih label dalam tool => drag and drop ke dalam form1 => lihat properties (kanan bawah) => ganti caption “Label1” menjadi “LOGIN” => untuk font, font style dan size dibuat dari properties => font => kreasikan sesuai selera.

B.     Caption “Nama” dan “Password” didapat dari : pilih label dalam tool => drag and drop ke dalam form1 => lihat properties (kanan bawah) => ganti caption “Label1” menjadi “Nama” dan “Password”.

C.     Text Box terdapat pada tool => TextBox => drag and drop ke dalam form1.

D.    Command Button terdapat pada tool => Command Button => drag and drop ke dalam form1 => ganti caption pada properties menjadi “Login” dan “Exit”

E.    Aktifkan dulu componen.

Tekan Ctrl + T, ceklis pada microsoft windows common controls 6.0 (SP6) => OK. Untuk memunculkan dialog componen bisa juga dengan cara klik kanan pada toolbox. 

F.      Untuk memasukan gambar => PictureBox pada tool => masukan gambar yang telah disediakan dalam picture pada properties => ganti Autosize dari “False” menjadi “True” agar gambar menjadi pas.

Note : Untuk tulisan pada textbox dan label agar berada di tengah maka menggunakan Alignment pada properties => 2-Center

5.      Proses coding:

Coding hanya pada Command Button “Login” dan “Exit”

Coding untuk “Login”:

Dim A As Integer

Private Sub Command1_Click()

ProgressBar1.Value = 100

If Text1 = "saya" And Text2 = "indonesia" Then

Form2.Show 'Perintah menampilkan form2

Form1.Visible = False 'Menyembunyikan Form1

Unload Me 'Menutup form1

Else

A = A + 1

If A = 1 Then

MsgBox "Try Again !!!(1/3)"

Beep

ElseIf A = 2 Then

MsgBox "Try Again !!! (2/3)"

Beep

ElseIf A = 3 Then

MsgBox "Error !!!(3/3)"

End

End If

Exit Sub

End If

End Sub

Coding untuk Exit:

Private Sub Command2_Click()

Unload Me

End Sub

6.      Program sudah bisa dijalankan “Run” 

7.      Selesai

Sekian untuk TUTORIAL 1 Terimakasih

Kali ini kami akan MELANJUTKAN  tutorial  Visual Basic 6.0 dengan membuat program Menu  Barang di Visual Basic 6.0. Mata uang asing yang akan kami buat adalah dari  Dolar, Ringgit, dan Yen ke mata uang Rupiah. Berikut tutorialnya :

TUTORIAL 2 : Menu  Barang

1.      Pastikan User telah memiliki aplikasi Visual Basic 6.0.

2.      Buka Visual Basic 6.0. dan pilih Standard EXE lalu Open

3.      Berikut adalah tampilan Visual Basic 6.0, mulai mendesign dengan memanfaatkan Menu Bar dan Tools yang tersedia.

4.      Tools yang dibutuhkan untuk mendesign “Menu Barang” adalah : Label, Text Box dan Command Button

A.    Caption “Pilih Barang” didapat dari : pilih label dalam tool => drag and drop ke dalam form1 => lihat properties (kanan bawah) => ganti caption “Label1” menjadi “Pilih Barang” => untuk font, font style dan size dibuat dari properties => font => kreasikan sesuai selera.

B.     Text Box terdapat pada tool => TextBox => drag and drop ke dalam form1 => lihat properties (kanan bawah) => ganti (Name) “Text1” menjadi “List1” => untuk font, font style dan size dibuat dari properties => font => kreasikan sesuai selera.

C.     Untuk Label1 : Pilih label dalam tool => drag and drop ke dalam form1 => lihat properties (kanan bawah) => kosongkan caption “Label1” => ganti (Name) “Label1” menjadi ” lblBarang” => ubah “BackColor” menjadi warna “Button Highlight” atau sesuai selera => untuk font, font style dan size dibuat dari properties => font => kreasikan sesuai selera.

Untuk Label2 : Pilih label dalam tool => drag and drop ke dalam form1 => lihat properties (kanan bawah) => kosongkan caption “Label2” => ganti (Name) “Label2” menjadi ” lblHarga” => ubah “BackColor” menjadi warna “Button Highlight” atau sesuai selera => untuk font, font style dan size dibuat dari properties => font => kreasikan sesuai selera.

Untuk Label3 : Pilih label dalam tool => drag and drop ke dalam form1 => lihat properties (kanan bawah) => kosongkan caption “Label3” => ganti (Name) “Label3” menjadi ” lblJumlah” => ubah “BackColor” menjadi warna “Button Highlight” atau sesuai selera => untuk font, font style dan size dibuat dari properties => font => kreasikan sesuai selera.

Untuk Label4 : Pilih label dalam tool => drag and drop ke dalam form1 => lihat properties (kanan bawah) => kosongkan caption “Label4” => ganti (Name) “Label4” menjadi ” lblDiskon” => ubah “BackColor” menjadi warna “Button Highlight” atau sesuai selera => untuk font, font style dan size dibuat dari properties => font => kreasikan sesuai selera.

Untuk Label5 : Pilih label dalam tool => drag and drop ke dalam form1 => lihat properties (kanan bawah) => kosongkan caption “Label5” => ganti (Name) “Label5” menjadi ” lblTotal” => ubah “BackColor” menjadi warna “Button Highlight” atau sesuai selera => untuk font, font style dan size dibuat dari properties => font => kreasikan sesuai selera.

D.    Caption “Jumlah” didapat dari : pilih label dalam tool => drag and drop ke dalam form1 => lihat properties (kanan bawah) => ganti caption “Label6” menjadi “Jumlah” => untuk font, font style dan size dibuat dari properties => font => kreasikan sesuai selera.

E.     Text Box terdapat pada tool => TextBox => drag and drop ke dalam form1.

F.      Command Button terdapat pada tool => Command Button => drag and drop ke dalam form1 => ganti caption pada properties menjadi “OK”.

Note : Untuk tulisan pada textbox, label, dan command button agar berada di tengah maka menggunakan Alignment pada properties => 2-Center

5.      Proses coding:

Coding hanya pada Command Button “OK” dan untuk list nama barang

Coding untuk “OK”:

Private Sub Command1_Click()

Dim harga As Currency

Dim total As Currency

Dim jumlah As Integer

Dim diskon As Single

Dim satuan As String

If List1.Text = "" Then

MsgBox "Anda belum memilih barang!"

List1.ListIndex = 0

Exit Sub

End If

If Text1.Text = "" Then

MsgBox "Anda belum mengisi jumlah barang!"

Text1.SetFocus

Exit Sub

End If

Select Case List1.Text

Case "Disket"

harga = 35000

satuan = "Box"

Case "Buku"

harga = 20000

satuan = "Lusin"

Case "Kertas"

harga = 25000

satuan = "Rim"

Case "Pulpen"

harga = 10000

satuan = "Pak"

End Select

lblBarang.Caption = "Barang : " & List1.Text

lblHarga.Caption = "Harga : " & Format(harga, "Currency") & "/" & satuan

lblHarga.Caption = Replace(lblHarga.Caption, "$", "Rp. ")

lblJumlah.Caption = "Jumlah : " & Text1.Text & " " & satuan

jumlah = Text1.Text

If Text1 < 3 Then

lblDiskon.Caption = "Diskon : 0%"

total = harga * jumlah

lblTotal.Caption = "Total : " & Format(total, "Currency")

lblTotal.Caption = Replace(lblTotal.Caption, "$", "Rp. ")

ElseIf Text1 >= 3 Then

lblDiskon.Caption = "Diskon : 10%"

diskon = (harga * jumlah) * 0.1

total = (harga * jumlah) - diskon

lblTotal.Caption = "Total : " & Format(total, "Currency")

lblTotal.Caption = Replace(lblTotal.Caption, "$", "Rp. ")

Exit Sub

End If

End Sub

Private Sub Form_Load()

List1.AddItem "Disket"

List1.AddItem "Buku"

List1.AddItem "Kertas"

List1.AddItem "Pulpen"

End Sub

Coding untuk list nama barang :

Langakah pertama dalam memasukan coding list nama barang adalah mengklik secara acak di form1. Berikut codingannya:

Private Sub Form_Load()

List1.AddItem "Disket"

List1.AddItem "Buku"

List1.AddItem "Kertas"

List1.AddItem "Pulpen"

End Sub

6.      Program sudah bisa dijalankan “Run” 

7.      Selesai

Sekian untuk TUTORIAL 2 Terimakasih