Heuheu.. VB6, sementara yang ini dulu deh. Kalau pake yang fungsi-fungsi built in, nanti ya kita otak-atik lagi vb na, dan cari beberapa referensi. Ada banyak cara yang bisa ditempuh, bisa dipilih salah satu disini. Intinya, kita ya harus ngerti dengan penggunaan SELECT CASE.

Private Sub cmbNumber_Click()
Select Case cmbNumber
Case 1
lblBulan.Caption = “Januari”
lblJmlHari.Caption = 31
Case 2
lblBulan.Caption = “Februari”
lblJmlHari.Caption = 28
Case 3
lblBulan.Caption = “Maret”
lblJmlHari.Caption = 31
Case 4
lblBulan.Caption = “April”
lblJmlHari.Caption = 30
Case 5
lblBulan.Caption = “Mei”
lblJmlHari.Caption = 31
Case 6
lblBulan.Caption = “Juni”
lblJmlHari.Caption = 30
Case 7
lblBulan.Caption = “Juli”
lblJmlHari.Caption = 31
Case 8
lblBulan.Caption = “Agustus”
lblJmlHari.Caption = 31
Case 9
lblBulan.Caption = “September”
lblJmlHari.Caption = 30
Case 10
lblBulan.Caption = “Oktober”
lblJmlHari.Caption = 31
Case 11
lblBulan.Caption = “Nopember”
lblJmlHari.Caption = 30
Case 12
lblBulan.Caption = “Desember”
lblJmlHari.Caption = 31
End Select
End Sub
Private Sub Form_Activate()
lblBulan.Caption = “Bulan”
lblJmlHari.Caption = “Hari”
For i = 1 To 12
cmbNumber.AddItem i
Next
End Sub

Metode kedua

Private Sub cmbNumber_Click()
Dim bulan As String
Dim hari As String
Select Case cmbNumber
Case 1
bulan = MonthName(cmbNumber)
hari = 31
Case 2
bulan = MonthName(cmbNumber)
hari = 28
Case 3
bulan = MonthName(cmbNumber)
hari = 31
Case 4
bulan = MonthName(cmbNumber)
hari = 30
Case 5
bulan = MonthName(cmbNumber)
hari = 31
Case 6
bulan = MonthName(cmbNumber)
hari = 30
Case 7
bulan = MonthName(cmbNumber)
hari = 31
Case 8
bulan = MonthName(cmbNumber)
hari = 31
Case 9
bulan = MonthName(cmbNumber)
hari = 30
Case 10
bulan = MonthName(cmbNumber)
hari = 31
Case 11
bulan = MonthName(cmbNumber)
hari = 30
Case 12
bulan = MonthName(cmbNumber)
hari = 31
End Select
lblBulan.Caption = bulan
lblJmlHari.Caption = hari
End Sub
Private Sub Form_Activate()
lblBulan.Caption = “Bulan”
lblJmlHari.Caption = “Hari”
cmbNumber.Text = “Pilih”
For i = 1 To 12
cmbNumber.AddItem i
Next
End Sub

Metode ketiga

Private Sub cmbNumber_Click()
Dim bulan As String
Dim hari As String
Select Case cmbNumber
Case 1
bulan = “Januari”
hari = 31
Case 2
bulan = “Februari”
hari = 28
Case 3
bulan = “Maret”
hari = 31
Case 4
bulan = “April”
hari = 30
Case 5
bulan = “Mei”
hari = 31
Case 6
bulan = “Juni”
hari = 30
Case 7
bulan = “Juli”
hari = 31
Case 8
bulan = “Agustus”
hari = 31
Case 9
bulan = “September”
hari = 30
Case 10
bulan = “Oktober”
hari = 31
Case 11
bulan = “Nopember”
hari = 30
Case 12
bulan = “Desember”
hari = 31
End Select
lblBulan.Caption = bulan
lblJmlHari.Caption = hari
End Sub
Private Sub Form_Activate()
lblBulan.Caption = “Bulan”
lblJmlHari.Caption = “Hari”
cmbNumber.Text = “Pilih”
For i = 1 To 12
cmbNumber.AddItem i
Next
End Sub

Musik : Dwiki Dharmawan
Lirik : Haydar yahya
Vokal : Sulis
Nama file : Sulis_-_Ibu.mp3

Ibu…ibu…ibu…ibu…
Ibu…ibu…ibu…ibu

Ibu senandung laguku
Kunyanyikan slalu untukmu
Engkau penyejuk hatiku
Tanpamu tiadalah aku

Ku selalu kumohon doamu
bahagia hidup matiku
ibu kaulah harapanku
tanpamu tiadalah aku

Sorga ditelapak kakimu
Ridho Allah dengan ridhomu
Begitulah sabda nabiku
Tanpamu tiadalah aku

Ibu perisai hidupku
Pertaruhkan nyawa bagiku
Cintamu terangi jalanku
Tanpamu tiadalah aku

Ibu…ibu…ibu…ibu…
Ibu…ibu…ibu…ibu

Aku yang tak pernah bisa lupakan dirinya
Yang kini hadir diantara kita
Namun ku juga takkan bisa menepis bayangmu
Yang slama ini temani hidupku

Maafkan aku menduakan cintamu
Berat rasa hatiku tinggalkan dirinya
Dan demi waktu yang bergulir di sampingmu
Maafkanlah diriku sepenuh hatimu
Seandainya bila ku bisa memilih

Kalau saja waktu itu ku tak jumpa dirinya
Mungkin semua tak kan seperti ini
Dirimu dan dirinya kini ada di hatiku
Membawa aku dalam kehancuran

Maafkan aku menduakan cintamu
Berat rasa hatiku tinggalkan dirinya
Dan demi waktu yang bergulir di sampingmu
Maafkanlah diriku sepenuh hatimu
Seandainya bila ku bisa memilih

Maafkan aku menduakan cintamu
Berat rasa hatiku tinggalkan dirinya
Dan demi waktu yang bergulir di sampingmu
Maafkanlah diriku sepenuh hatimu
Seandainya bila ku bisa memilih

Maafkan aku menduakan cintamu
Berat rasa hatiku tinggalkan dirinya
Dan demi waktu yang bergulir di sampingmu
Maafkanlah diriku sepenuh hatimu
Seandainya bila ku bisa memilih

Yang mau download lagunya, boleh melalui link berikut Demi waktu – Ungu.

Mungkin ini memang jalan takdirku
Mengagumi tanpa di cintai
Tak mengapa bagiku asal kau pun bahagia
Dengan hidupmu, dengan hidupmu

Telah lama kupendam perasaan itu
Menunggu hatimu menyambut diriku
Tak mengapa bagiku cintaimu pun adalah
Bahagia untukku, bahagia untukku

reff:
Ku ingin kau tahu diriku di sini menanti dirimu
Meski ku tunggu hingga ujung waktuku
Dan berharap rasa ini kan abadi untuk selamanya
Dan ijinkan aku memeluk dirimu kali ini saja
Tuk ucapkan selamat tinggal untuk selamanya
Dan biarkan rasa ini bahagia untuk sekejab saja

Ku ingin kau tahu diriku di sini menanti dirimu
Meski ku tunggu hingga ujung waktuku
Dan berharap rasa ini kan abadi untuk selamanya
Dan ijinkan aku memeluk dirimu kali ini saja
Tuk ucapkan selamat tinggal untuk selamanya
Dan biarkan rasa ini bahagia untuk sekejab saja

Yang mau download lagunya, boleh melalui link berikut Cinta dalam hati – Ungu

Proses Operasi di dalam Kilang Minyak

Minyak mentah yang baru dipompakan ke luar dari tanah dan belum diproses umumnya tidak begitu bermanfaat. Agar dapat dimanfaatkan secara optimal, minyak mentah tersebut harus diproses terlebih dahulu di dalam kilang minyak.

Minyak mentah merupakan campuran yang amat kompleks yang tersusun dari berbagai senyawa hidrokarbon. Di dalam kilang minyak tersebut, minyak mentah akan mengalami sejumlah proses yang akan memurnikan dan mengubah struktur dan komposisinya sehingga diperoleh produk yang bermanfaat. Secara garis besar, proses yang berlangsung di dalam kilang minyak dapat digolongkan menjadi 5 bagian, yaitu:

• Proses Distilasi, yaitu proses penyulingan berdasarkan perbedaan titik didih; Proses ini berlangsung di Kolom Distilasi Atmosferik dan Kolom Destilasi Vakum.

Gambar Proses Distilasi

• Proses Konversi, yaitu proses untuk mengubah ukuran dan struktur senyawa hidrokarbon. Termasuk dalam proses ini adalah:

Dekomposisi dengan cara perengkahan termal dan katalis (thermal and catalytic cracking)

· Unifikasi melalui proses alkilasi dan polimerisasi

· Alterasi melalui proses isomerisasi dan catalytic reforming

• Proses Pengolahan (treatment). Proses ini dimaksudkan untuk menyiapkan fraksi-fraksi hidrokarbon untuk diolah lebih lanjut, juga untuk diolah menjadi produk akhir.
• Formulasi dan Pencampuran (Blending), yaitu proses pencampuran fraksi-fraksi hidrokarbon dan penambahan bahan aditif untuk mendapatkan produk akhir dengan spesikasi tertentu.
• Proses-proses lainnya, antara lain meliputi: pengolahan limbah, proses penghilangan air asin (sour-water stripping), proses pemerolehan kembali sulfur (sulphur recovery), proses pemanasan, proses pendinginan, proses pembuatan hidrogen, dan proses-proses pendukung lainnya.