never give up

Siang itu ntah mengapa matahari amat terik, panas nya benar benar menusuk kulit.

Rasanya aku benar benar tak mampu menatap kelangit, keringat tak mampu dibendung.

Setiap orang dari berbagai profesi lalu lalang di jalan raya,  semua orang sibuk dengan aktifitas nya masing-masing.

Dunia seakan bersemangat sekali hari ini, jalan raya padat pengunjung kalangan mobil pribadi yang menyalip kendaraan lain karna mengejar waktu, di tepi jalan terlihat seorang laik-laki paruh baya sedang mendorong gerobak es, tidak sedikit keringat yang mengalir dan selalu ia coba usap menggunangan lengan nya. Seorang pengemis buta yang mencoba untuk menyebrang jalan, seorang kernet bus yang berteriak siap mencari penumpang dengan mengalungkan handuk kecil di lehernya. Pedagang kaki lima yg tak kalah meramaikan tepi jalan siang itu. Suara klakson kendaraan dimana mana karna tidak sabar menunggu.

Banyak anak sekolah yang mencoba ngebut ngebutan di jalan menggunakan sepeda motor  dengan suara knalpot yang dapat merusak gendang telinga, amat menyebalkan ><

Tidak memakai helm bahkan berboncengan sekali tiga, aku tidak habis fikir mengapa anak sekolah zaman sekarang bertingkah seolah memiliki nyawa seribu. Tapi aku cukup mengerti bahwa masa sekolah memang sungguh mengesankan.

Setelah lulus lalu bekerja aku hampir tak dapat merasakan bermain sebagaimana remaja seusia ku. Tapi ya itulah hidup, hidup adalah pilihan tentang hari ini untuk esok dan kedepan nya, saat melihat anak sekolah seperti ini aku hanya dapat bergumam dalam hati “nikmati masa remaja kalian dik, pergunakan sebaik baik nya. Jangan mengotori nya dengan hal hal negatif, terus berkarya dan berkreatifitas, buat masa sekolah kalian berkensan nanti di masa akan datang, buat orang tua kalian bangga. Setelah kalian lulus nanti kalian kan mengerti bahwa hidup tidak melulu soal bermainJ” hihi berasa tuaaa

melihat mereka amat bersemangat aku merasa mendapatkan kembali  semangat yang hampir pupus, motifasi untuk tetap maju. Banyak yang hidup nya jauh di bawah kita tetapi mereka tak pernah mengeluh. Mereka mampu mereka memiliki semangat dan tekat

Hidup ini keras jangan pernah menyerah hanya karna satu keinginan tidak terwujud, tidak ada yang instan di dunia ini. Bahkan hal yang tidak mungkin bisa dapat terjadi di luar dugaan kita bila kita mau berusaha.

Yaaah setidak nya 2 dari 10 keinginan ku sudah terwujud walau tidak sepenuhnya.

Dan kita hidup harus memiliki tujuan. Apa tujuan hidup kita apa yg harus kita capai.

Mungkin tulisan ini sedikit terlihat drama, tetapi itulah yang aku alami :dd :v~~

kepada kamu yang senyumnya aku rindukan

Kepada kamu yang senyum nya aku rindukan.

Senyum yang tercipta karna aku,

senyum kebahagiaan yang selalu terukir indah di bibirmu.

Kepada kamu yang pelukan nya aku rindukan,

Dalam tangis ku bertanya,

mengapa aku bisa serindu ini

kepada orang yang bahkan sudah jauh melupakan dan meninggalkan ku?

Dalam gelap aku selalu berharap,
 ada cahaya datang dari ujung sana

yang kemari menghampiri ku,

menerangi setiap malam ku

Memberikan kehangatan.

Di tengah deras hujan,

dalam pandangan yang semu,

selalu yang aku lihat itu kamu.

Bahkan dalam bangun aku selalu memimpikan mu.

Apa mungkin kamu telah benar benar pergi jauh?

rumah yang sebelumnya pernah kita dirikan bersama

kini telah kosong,

penuh debu dan tak berpenghuni. Ya, hati ku.

Hati ini yang dulu selalu berusaha untuk kau raih,

hati ini yang dulu kau impikan untuk kau tempati,

Hati ini yang sekarang benar benar terisi penuh tentang mu,

 Kini dg mudah kau tinggalkan.

Apakah rumah yang kau tempati sekarang benar benar membuat mu nyaman

hingga kau lupa untuk pulang?

Aku disini, masih di tempat yang sama,

 hanya mampu mengucap doa.

Semoga rumah mu yang sekarang bnar benar membuat mu nyaman

 hingga kau benar benar tak ingin pindah lagi.

Makalah Visual Basic Project Rawat Inap

Kata Pengantar

Puji syukur kami panjatkan ke hadirat Allah SWT karena berkat rahmat dan hidayahnya kami dapat menyelesaikan tugas pemrograman visual basic ini dengan membuat makalah project tentang rawat Inap Rumah Sakit.

Penyelesaian makalah ini tidak lepas dari bantuan berbagai pihak. Oleh karena itu dengan kerendahan hati kami ucapkan terima kasih kepada:

1.       Ibu Novilia, S.Kom, selaku dosen pengampu mata kuliah Bahasa Pemrograman Visual Basic

2.      Teman teman kelas 14-TK-01-SM yang telah membantu dalam proses belajar selama didalam kelas, dan khususnya teman teman kelompok yang telah bekerjasama menyelesaikan tugas pemrograman visual basic ini.

Semoga makalah ini memenuhi persyaratan dan banyak manfaat bagi pemakai. Kepada semua pihak senantiasa diharapkan saran – saran dan petunjuk untuk penyempurnaan lebih lanjut.

                                                                                                                                                                                                                                                Kotabumi, 24 Januari 2015

                                                                                                            Penyusun

ii

Daftar Isi

Kata Pengantar ............................................................................................................... i

Daftar Isi......................................................................................................................... ii

 BAB I Pembahasan .............................................................................................. 1

 PENGENALAN VISUAL BASIC 6.0 ................................................................ 1

Codding “Rawat Inap Rumah Sakit”..................................................................... 3

Private Sub Combo1_Click() ................................................................................ 4

Private Sub Command1_Click() ........................................................................... 5

Private Sub Command5_Click() ........................................................................... 5

Private Sub Form_Load() ..................................................................................... 5

Private Sub Option1_Click() ................................................................................. 6

Private Sub Option2_Click() ................................................................................. 6

Private Sub Text1_KeyPress(KeyAscii As Integer) ............................................. 7

Private Sub Text2_KeyPress(KeyAscii As Integer) ............................................. 7

Private Sub Text5_KeyPress(KeyAscii As Integer) ............................................. 7

Form2 .................................................................................................................... 8

MDI FORM1 ......................................................................................................... 9

TAMPILAN FORM2 ............................................................................................ 10

ENVOROTMENT DATABASE .......................................................................... 10

LINK PROPERTISE PROVIDER DATABSE .................................................... 11

DATA LINK PROERTISE CONECTION DATABASE .................................... 11

DATA REPORT ................................................................................................... 12

Penutup ................................................................................................................. 13

 1

PENGENALAN VISUAL BASIC 6.0

1.      Mengenal Visual Basic
Visual Basic adalah bahasa pemrograman yang digunakan untuk membuat aplikasi Windows yang berbasis grafis (GUI – Graphical User Interface). Visual Basic merupakan event-driven programming (pemrograman terkendali kejadian) artinya program menunggu sampai adanya respon dari pemakai berupa event/ kejadian tertentu (tombol diklik, menu dipilih, dan lain-lain). Ketika event terdeteksi, kode yang berhubungan dengan event (prosedur event) akan dijalankan.
Berikut ini adalah point-point penting dalam sejarah perkembangan Visual Basic, sebagai berikut :
1) Visual Basic pertama kali diperkenalkan tahun 1991.
2) Berikutnya dirilis Visual Basic 3.0 tahun 1993.
3) Visual Basic 4.0 dirilis pada akhir tahun 1995 (tambahan dukungan untuk aplikasi 32 bit).
4) Visual Basic terbaru adalah versi 6.0 yang dirilis pada akhir tahun 1998. Microsoft umumnya membuat tiga edisi Visual Basic yaitu : Standard Edition merupakan produk dasar. Profesional Edition berisi tambahan Microsoft Jet Data Access Engine (database) dan pembuatan server OLE automation. Enterprise Edition adalah edisi client-server. Jenis File Pada Visual Basic Proyek merupakan cikal bakal dari aplikasi dan terdiri dari beberapa file yang saling terkait satu sama lain, file-file tersebut mempunyai ekstensi yang berbeda-beda sesuai dengan isi dan fungsinya. 

2

 

2. Memulai Visual Basic

Jika belum memiliki program Visual Basic Kita harus menginstalnya terlebih dahulu. Caranya adalah sebagai berikut :
1. Masukan CD-ROM installer , buka isinya kemudian klik ganda pada setup.exe sehingga akan muncul kotak dialog yang pertama kemudian klik next.
2. Kotak dialog yang kedua akan muncul, baca agreement jika setuju klik I accept the agreement dan klik next.
3. Kotak dialog yang ketiga akan muncul, isikan nomor produk yang tertera pada VB6 klik next.
4. Kotak dialog yang keempat akan muncul, klik install Visual Basic 6 klik next, program InstallShield akan bekerja dan muncul kotak dialog kelima yang isinya tentang aturan hukum pembajakan ada aturan main yang harus disepakati bersama yaitu EULA(End User Lisence Agreement) perjanjian antara Microsoft dengan user, klik continue.
5. Kotak dialog yang keenam akan muncul, secara default VB6 akan membuat folder yang terletak C:\Program files\DevStudio\VB. klik ok.
6. Kotak dialog yang ketujuh akan muncul, menyediakan pilihan setup Typical atau Custom lalu klik ok, nama program VB6 secara default adalah Microsoft Visual Basic 6 lalu klik continue proses penyalinan hardisk dimuali pada langkah ini .
7. Setelah proses mencapai 100% akan muncul tampilan yang memberi tahu bahwa proses instalasi akan komplet. Klik ok, VB6 akan meminta untuk merestart windows agar hasil proses instalasi sesuai dengan rencana.
8. Klik tombol restart windows, lengkaplah proses instalasi VB6. Untuk melihat hasilnya, dari menu Start arahkan pointer ke Microsoft Visual Basic 6, maka akan tampil kelompok dari program Visual Basic 6.

4

Visual Basic

Private Sub Combo1_Click()

If Combo1.Text = "001" Then

Text3.Text = "VVIP"

Text4.Text = "300000"

ElseIf Combo1.Text = "002" Then

Text3.Text = "VIP"

Text4.Text = "250000"

ElseIf Combo1.Text = "003" Then

Text3.Text = "Melati"

Text4.Text = "200000"

ElseIf Combo1.Text = "004" Then

Text3.Text = "Mawar"

Text4.Text = "150000"

ElseIf Combo1.Text = "005" Then

Text3.Text = "anggrek"

Text4.Text = "100000"

End If

End Sub

5

Visual Basic

Private Sub Command1_Click()

Text1.Text = ""

Text2.Text = ""

Text3.Text = ""

Text4.Text = ""

Text5.Text = ""

Text6.Text = ""

Text7.Text = ""

Text8.Text = ""

Text1.SetFocus

End Sub

Private Sub Command5_Click()

End

End Sub

Private Sub Form_Load()

Combo1.AddItem "001"

Combo1.AddItem "002"

Combo1.AddItem "003"

Combo1.AddItem "004"

Combo1.AddItem "005"

End Sub

 

6

Visual Basic

Private Sub Option1_Click()

Dim JB, Dis As Long

Dim TB As Long

JB = Val(Text6.Text)

Dis = Val(JB * 0.2)

TB = Val(JB - Dis)

Text7.Text = Dis

Text8.Text = TB

End Sub

Private Sub Option2_Click()

Dim JB, Dis As Long

Dim TB As Long

JB = Val(Text6.Text)

Dis = Val(JB * 0.1)

TB = Val(JB - Dis)

Text7.Text = Dis

Text8.Text = TB

End Sub

7

Visual Basic

Private Sub Text1_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

Text2.SetFocus

End If

End Sub

Private Sub Text2_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

Combo1.SetFocus

End If

End Sub

Private Sub Text5_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

Dim BK As Long

Dim LI As Long

Dim JB As Long

BK = Val(Text4.Text)

LI = Val(Text5.Text)

JB = Val(BK * LI)

Text6.Text = JB

Text6.SetFocus

End Sub

Form2

Private Sub Command1_Click()

Unload Me

End Sub

Private Sub Data1_Validate(Action As Integer, Save As Integer)

End Sub

Private Sub DBGrid1_Click()

End Sub

MDI Form1

Private Sub mnInput_Click()

Form1.Show

End Sub

Private Sub mnlaporan_Click()

DataReport1.Show

End Sub

Private Sub mnTampil_Click()

Form2.Show

End Sub

Private Sub mntutup_Click()

End

End Sub

 

 

13

Visual Basic

Penutup

1. Kesimpulan
Visual Basic adalah bahasa pemrograman yang digunakan untuk membuat aplikasi Windows yang berbasis grafis (GUI – Graphical User Interface). kemampuan Visual Basic untuk dapat berinteraksi dengan aplikasi lain di dalam sistem operasi Windows dengan komponen ActiveX Control.

2. Saran
Kemajuan Visual Basic di masa mendatang diharapkan dapat membantu semua jenis pekerjaan manusia sehingga mampu menyelesaikan pekerjaan dengan cepat karena di masa depan teknologi akan semakin canggih

sorry kalo engga lengkap dan gak sama kaya daftar isi, daftar isi cuma formalitas :))