penjualan tiket kereta api 5


















Private Sub cmdkeluar_Click()
Unload Me
End Sub

Private Sub cmdlagi_Click()
txtkt.SetFocus
txtkt = ""
txtht = ""
txtjk = ""
txtjb = ""
txtjt = ""
txttotalp = ""

End Sub

Private Sub cmdproses_Click()
Dim C As String

C = Left(txtkode, 3)

If C = "BIM" Then

txtht = "50000"

txtjk = "BIMA"

txtjb = "16.00"

ElseIf C = "EKO" Then

txtht = "35000"

txtjk = "EKONOMI"

txtjb = "19.00"

ElseIf C = "MUT" Then

txtht = "23000"

txtjk = "MUTIARA"

txtjb = "17.00"

ElseIf C = "SEN" Then

txtht = "15000"

txtjk = "SENJA"

txtjb = "20.00"

End If


txtjt.SetFocus

End Sub


Private Sub txtjt_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
txttotalp = Val(txtht) * Val(txtjt)
End If
End Sub

Komentar

Posting Komentar

Postingan populer dari blog ini

PEMILIHAN MULI MEKHANAI

Gambar
PRINGSEWU  –  STMIK Pringsewu  mengirimkan 8 mahasiswa dalam ajang pemilihan muli mekhanai tahun 2016 yang diselenggarakan oleh Dinas Pendidikan Kebudayaan dan Pariwisata (Disdikbudpar) Pringsewu pada tanggal 16 s/d 19 Maret 2015. 8 Mahasisiwa STMIK Pringsewu yang akan mengikuti ajang pemilihan muli mekhanai tahun 2016 sebagai berikut : Sebanyak 12 pasang finalis berhasil lulus terpilih dalam mengikuti seleksi pemilihan muli mekhanai 2016 yang digelar Dinas Pendidikan, Kebudayaan dan Pariwisata (Disdikbudpar) Kabupaten Pringsewu di Aula Kampus STMIK Pringsewu, Rabu (16/3) kemarin. Dari 12 Pasang finali muli mekhanai 2016,  LING LING SAPUTRI – NPM. 15201048 Mahasiswi   STMIK Pringsewu  semester 2,  mohon do’a dan dukungannya, Insya’Allah berjalan lancar dan sukses untuk mengikuti babak selanjutnya. Amin yra Pemilihan muli mekhanai 2016 yang dibuka langsung oleh Kepala Disdikbudpar Kabupaten Pringsewu, Heri Iswayudi ditandai secara simbolis de...
Baca selengkapnya

cara membuat grafik 3D Plots Surf, Mesh, dan Contour menggunakan matlab

Gambar
Fungsi-fungsi dari visualisasi data 3D. SURF  atau grafik permukaan, digunakan untuk memvisualisaikaan data dalam bentuk permukaan 3D dengan pewarnaan berdaarkan bobot nilai gridnya. MESH , digunakan memvisualisasikan data dalam bentuk tiga dimensi. mesh sering disebut sebagai grafik jala yang memiliki empat titik data terdekat dalam ruang 3D. CONTOUR , digunakan untuk membuat gariskontur dibuat dengan teknik inperpolasi titik-titik terdekat. sebelum memulai sebaiknya membuat langkah awal seperti menampilkan axes,panel (pict typo, push button (surf,mesh,contour),stastic text, dan pop-up menu (peaks,membrane,sinc). 1. maka tampilan awal akan seperti gambar di bawah ini. kemudian masukan coding sebagai berikut : % --- Executes just before yana is made visible. function yana_OpeningFcn(hObject, eventdata, handles, varargin) handles.peaks = peaks (35); handles.membrane = membrane; [x, y] = meshgrid (-8:0.5:8); r = sqrt(x.^2 + y.^2) + eps; sinc = sin...
Baca selengkapnya

STMIK PRINGSEWU GELAR PRA PENDIDIKAN DASAR MILITER (PRADIKSARMIL)

Gambar
STMIK PRINGSEWU  – Jum’at, 30 Oktober 2015, Ketua Yayasan Lembaga Pendidikan Startech Pringsewu Lampung, H. Fauzi, S.E., M.Kom., Akt., CA., membuka Pra Pendidikan Dasar Militer (Pradiksarmil) Resimen Mahasiswa (Menwa) Batalyon 208 Pringsewu angkatan XXXVI di halaman kampus Sekolah Tinggi Manajemen Informatika dan Komputer (STMIK) Pringsewu. Dalam laporannya, Komandan Satuan Pendidikan Safrizal Ramadhan mengatakan, dasar pelaksanaan pembentukan Resimen Mahasiswa ini, Surat Keputusan Bersama (SKB) Empat Menteri. Empat kementerian yang mengeluarkan SKB itu, yakni Menteri Pertahanan, Menteri Dalam Negeri, Menteri Riset Teknologi dan Dikti, Menteri Pemuda dan Olah Raga nomor : KB/11/XII/2014, 421.73/6660A/SJ, 6/M/MoU/XII/2014, 1175 Tahun 2014 tanggal 19 Desember 2014 tentang Pembinaan dan Pemberdayaan Resimen Mahasiswa Indonesia dalam Bela Negara. Pra Pendidikan Dasar Militer (Pradiksarmil) Resimen Mahasiswa (Menwa) Batalyon 208 Pringsewu angkatan XXXVI ini akan berlangsung selam...
Baca selengkapnya