Bahaya Nya Narkoba Bagi Remaja

Apa yang disebut NARKOBA

Narkoba (singkatan dari Narkotika, Psikotropika dan Bahan Adiktif berbahaya lainnya) adalah

bahan/zat yang jika dimasukan dalam tubuh manusia, baik secara oral/diminum, dihirup, maupun disuntikan, dapat mengubah pikiran, suasana hati atau perasaan, dan perilaku seseorang. Narkoba dapat menimbulkan ketergantungan (adiksi) fisik dan psikologis.

Narkotika adalah zat atau obat yang berasal dari tanaman atau bukan tanaman, baik sintetis maupun semi sintetis yang dapat menyebabkan penurunan atau perubahan kesadaran, hilangnya rasa nyeri dan dapat menimbulkan ketergantungan (Undang-Undang No. 22 tahun 1997). Yang termasuk jenis Narkotika adalah :

• Tanaman papaver, opium mentah, opium masak (candu, jicing, jicingko), opium obat, morfina, kokaina, ekgonina, tanaman ganja, dan damar ganja.

• Garam-garam dan turunan-turunan dari morfina dan kokaina, serta campuran-campuran dan sediaan-sediaan yang mengandung bahan tersebut di atas.

Psikotropika adalah zat atau obat, baik alamiah maupun sintetis bukan narkotika, yang berkhasiat psikoaktif melalui pengaruh selektif pada susunan saraf pusat yang menyebabkan perubahan pada aktivitas mental dan perilaku (Undang-Undang No. 5/1997). Zat yang termasuk psikotropika antara lain:

• Sedatin (Pil BK), Rohypnol, Magadon, Valium, Mandarax, Amfetamine, Fensiklidin, Metakualon, Metifenidat, Fenobarbital, Flunitrazepam, Ekstasi, Shabu-shabu, LSD (Lycergic Alis Diethylamide), dsb.

Bahan Adiktif berbahaya lainnya adalah bahan-bahan alamiah, semi sintetis maupun sintetis yang dapat dipakai sebagai pengganti morfina atau kokaina yang dapat mengganggu sistim syaraf pusat, seperti:

• Alkohol yang mengandung ethyl etanol, inhalen/sniffing (bahan pelarut) berupa zat organik (karbon) yang menghasilkan efek yang sama dengan yang dihasilkan oleh minuman yang beralkohol atau obat anaestetik jika aromanya dihisap. Contoh: lem/perekat, aceton, ether, dsb.

Jenis Narkoba menurut efeknya

Dari efeknya, narkoba bisa dibedakan menjadi tiga:

1. Depresan, yaitu menekan sistem sistem syaraf pusat dan mengurangi aktifitas fungsional tubuh sehingga pemakai merasa tenang, bahkan bisa membuat pemakai tidur dan tak sadarkan diri. Bila kelebihan dosis bisa mengakibatkan kematian. Jenis narkoba depresan antara lain opioda, dan berbagai turunannya seperti morphin dan heroin. Contoh yang populer sekarang adalah Putaw.

2. Stimulan, merangsang fungsi tubuh dan meningkatkan kegairahan serta kesadaran. Jenis stimulan: Kafein, Kokain, Amphetamin. Contoh yang sekarang sering dipakai adalah Shabu-shabu dan Ekstasi.

3. Halusinogen, efek utamanya adalah mengubah daya persepsi atau mengakibatkan halusinasi. Halusinogen kebanyakan berasal dari tanaman seperti mescaline dari kaktus dan psilocybin dari jamur-jamuran. Selain itu ada jugayang diramu di laboratorium seperti LSD. Yang paling banyak dipakai adalah marijuana atau ganja.

Penyalahgunaan Narkoba

Kebanyakan zat dalam narkoba sebenarnya digunakan untuk pengobatan dan penefitian. Tetapi karena berbagai alasan - mulai dari keinginan untuk coba-coba, ikut trend/gaya, lambang status sosial, ingin melupakan persoalan, dll. - maka narkoba kemudian disalahgunakan. Penggunaan terus menerus dan berianjut akan menyebabkan ketergantungan atau dependensi, disebut juga kecanduan.

Tingkatan penyalahgunaan biasanya sebagai berikut:

1. coba-coba
2. senang-senang
3. menggunakan pada saat atau keadaan tertentu
4. penyalahgunaan
5. ketergantungan

Dampak penyalahgunaan Narkoba

Bila narkoba digunakan secara terus menerus atau melebihi takaran yang telah ditentukan akan mengakibatkan ketergantungan. Kecanduan inilah yang akan mengakibatkan gangguan fisik dan psikologis, karena terjadinya kerusakan pada sistem syaraf pusat (SSP) dan organ-organ tubuh seperti jantung, paru-paru, hati dan ginjal.

Dampak penyalahgunaan narkoba pada seseorang sangat tergantung pada jenis narkoba yang dipakai, kepribadian pemakai dan situasi atau kondisi pemakai. Secara umum, dampak kecanduan narkoba dapat terlihat pada fisik, psikis maupun sosial seseorang.

Dampak Fisik:

1. Gangguan pada system syaraf (neurologis) seperti: kejang-kejang, halusinasi, gangguan kesadaran, kerusakan syaraf tepi

2. Gangguan pada jantung dan pembuluh darah (kardiovaskuler) seperti: infeksi akut otot jantung, gangguan peredaran darah

3. Gangguan pada kulit (dermatologis) seperti: penanahan (abses), alergi, eksim

4. Gangguan pada paru-paru (pulmoner) seperti: penekanan fungsi pernapasan, kesukaran bernafas, pengerasan jaringan paru-paru

5. Sering sakit kepala, mual-mual dan muntah, murus-murus, suhu tubuh meningkat, pengecilan hati dan sulit tidur

6. Dampak terhadap kesehatan reproduksi adalah gangguan padaendokrin, seperti: penurunan fungsi hormon reproduksi (estrogen, progesteron, testosteron), serta gangguan fungsi seksual

7. Dampak terhadap kesehatan reproduksi pada remaja perempuan antara lain perubahan periode menstruasi, ketidakteraturan menstruasi, dan amenorhoe (tidak haid)

8. Bagi pengguna narkoba melalui jarum suntik, khususnya pemakaian jarum suntik secara bergantian, risikonya adalah tertular penyakit seperti hepatitis B, C, dan HIV yang hingga saat ini belum ada obatnya

9. Penyalahgunaan narkoba bisa berakibat fatal ketika terjadi Over Dosis yaitu konsumsi narkoba melebihi kemampuan tubuh untuk menerimanya. Over dosis bisa menyebabkan kematian

Dampak Psikis:

1. Lamban kerja, ceroboh kerja, sering tegang dan gelisah

2. Hilang kepercayaan diri, apatis, pengkhayal, penuh curiga

3. Agitatif, menjadi ganas dan tingkah laku yang brutal

4. Sulit berkonsentrasi, perasaan kesal dan tertekan

5. Cenderung menyakiti diri, perasaan tidak aman, bahkan bunuh diri

Dampak Sosial:

1. Gangguan mental, anti-sosial dan asusila, dikucilkan oleh lingkungan

2. Merepotkan dan menjadi beban keluarga

3. Pendidikan menjadi terganggu, masa depan suram

Dampak fisik, psikis dan sosial berhubungan erat. Ketergantungan fisik akan mengakibatkan rasa sakit yang luar biasa (sakaw) bila terjadi putus obat (tidak mengkonsumsi obat pada waktunya) dan dorongan psikologis berupa keinginan sangat kuat untuk mengkonsumsi (bahasa gaulnya sugest). Gejata fisik dan psikologis ini juga berkaitan dengan gejala sosial seperti dorongan untuk membohongi orang tua, mencuri, pemarah, manipulatif, dll.

Bahaya bagi Remaja

Masa remaja merupakan suatu fase perkembangan antara masa anak-anak dan masa dewasa. Perkembangan seseorang dalam masa anak-anak dan remaja akan membentuk perkembangan diri orang tersebut di masa dewasa. Karena itulah bila masa anak-anak dan remaja rusak karena narkoba, maka suram atau bahkan hancurlah masa depannya.

Pada masa remaja, justru keinginan untuk mencoba-coba, mengikuti trend dan gaya hidup, serta bersenang-senang besar sekali. Walaupun semua kecenderungan itu wajar-wajar saja, tetapi hal itu bisa juga memudahkan remaja untuk terdorong menyalahgunakan narkoba. Data menunjukkan bahwa jumlah pengguna narkoba yang paling banyak adalah kelompok usia remaja.

Masalah menjadi lebih gawat lagi bila karena penggunaan narkoba, para remaja tertular dan menularkan HIV/AIDS di kalangan remaja. Hal ini telah terbukti dari pemakaian narkoba melalui jarum suntik secara bergantian. Bangsa ini akan kehilangan remaja yang sangat banyak akibat penyalahgunaan narkoba dan merebaknya HIV/AIDS. Kehilangan remaja sama dengan kehilangan sumber daya manusia bagi bangsa.

Apa yang masih bisa dilakukan?

Banyak yang masih bisa dilakukan untuk mencegah remaja menyalahgunakan narkoba dan membantu remaja yang sudah terjerumus penyalahgunaan narkoba. Ada tiga tingkat intervensi, yaitu

1. Primer, sebelum penyalahgunaan terjadi, biasanya dalam bentuk pendidikan, penyebaran informasi mengenai bahaya narkoba, pendekatan melalui keluarga, dll. Instansi pemerintah, seperti halnya BKKBN, lebih banyak berperan pada tahap intervensi ini. kegiatan dilakukan seputar pemberian informasi melalui berbagai bentuk materi KIE yang ditujukan kepada remaja langsung dan keluarga.

2. Sekunder, pada saat penggunaan sudah terjadi dan diperlukan upaya penyembuhan (treatment). Fase ini meliputi: Fase penerimaan awal (initialintake)antara 1 - 3 hari dengan melakukan pemeriksaan fisik dan mental, dan Fase detoksifikasi dan terapi komplikasi medik, antara 1 - 3 minggu untuk melakukan pengurangan ketergantungan bahan-bahan adiktif secara bertahap.

3. Tertier, yaitu upaya untuk merehabilitasi merekayang sudah memakai dan dalam proses penyembuhan. Tahap ini biasanya terdiri atas Fase stabilisasi, antara 3-12 bulan, untuk mempersiapkan pengguna kembali ke masyarakat, dan Fase sosialiasi dalam masyarakat, agar mantan penyalahguna narkoba mampu mengembangkan kehidupan yang bermakna di masyarakat. Tahap ini biasanya berupa kegiatan konseling, membuat kelompok-kelompok dukungan, mengembangkan kegiatan alternatif, dll.

READ MORE - Bahaya Nya Narkoba Bagi Remaja

My Friends

READ MORE - My Friends

Perahu Nabi Nuh Ditemukan di Turki?

Peneliti China dan Turki tengah meneliti perahu Nuh di Ararat (nationalturk.com)

Ilustrasi perahu Nabi Nuh (www.maritimequest.com)

Dikisahkan, sekitar 4.800 tahun lalu, banjir bandang menerjang Bumi. Sebelum bencana mahadahsyat itu terjadi, Nabi Nuh -- nabi tiga agama, Islam, Kristen, dan Yahudi, diberi wahyu untuk membuat kapal besar -- demi menyelamatkan umat manusia dan mahluk Bumi lainnya.

Cerita tentang bahtera Nabi Nuh dikisah dalam berbagai buku, sejumlah film dan lain-lain. Sejumlah ahli sejarah dari berbagai negara sudah lama penasaran dengan kebenaran kisah ini.

Untuk membuktikan kebenaran cerita itulah, kelompok peneliti dari China dan Turki yang tergabung dalam 'Noah's Ark Ministries International' selama bertahun-tahun mencari sisa-sisa perahu legendaris tersebut.

Kemarin, 26 April 2010 mereka mengumumkan mereka menemukan perahu Nabi Nuh di Turki. Mereka mengklaim menemukan sisa-sisa perahu Nabi Nuh berada di ketinggian 4.000 meter di Gunung Agri atau Gunung Ararat, di Turki Timur.

Mereka bahkan mengklaim berhasil masuk ke dalam perahu itu, mengambil foto dan beberapa specimen untuk membuktikan klaim mereka.

Menurut para peneliti, specimen yang mereka ambil memiliki usia karbon 4.800 tahun, cocok dengan apa yang digambarkan dalam sejarah.

Jika klaim mereka benar, para peneliti Evangelis itu telah menemukan perahu paling terkenal dalam sejarah.

"Kami belum yakin 100 persen bahwa ini benar perahu Nuh, tapi keyakinan kami sudah 99 persen," kata salah satu anggota tim yang bertugas membuat film dokumenter, Yeung Wing, seperti dimuat laman berita Turki, National Turk, 27 April 2010.

Grup yang beranggotakan 15 orang dari Hong Kong dan Turki hadir dalam konferensi pers yang diadakan Senin 26 April 2010 lalu.

Kepada media yang hadir saat itu, mereka juga memamerkan specimen fosil kapal yang diduga perahu Nuh, berupa tambang, paku, dan pecahan kayu.

Seperti yang dijelaskan para peneliti, tambang dan paku diduga digunakan untuk menyatukan kayu-kayu hingga menjadi kapal. Tambang juga digunakan untuk mengikat hewan-hewan yang diselamatkan dari terjangan bah -- begitu juga dengan potongan kayu yang dibuat bersekat untuk menjaga keamanan hewan-hewan.

Penemuan besar ini jadi amunisi untuk mendorong pemerintah Turki mendaftarkan situs ini ke UNESCO -- agar lembaga PBB itu ikut menjaga kelestarian perahu Nuh.

Awalnya, direncananya para arkeolog akan menggali perahu itu dan memisahkannya dari gunung. Namun, hal tersebut tak mungkin dilakukan, meski nilai sejarah penemuan ini sangat tinggi.

***

Diyakini, ketika air surut, perahu Nuh berada di atas Gunung. Meski tiga agama besar mengabarkan mukjizat Nabi Nuh, tak ada penjelasan sama sekali, di mana persisnya perahu itu menyelesaikan misinya.

Sejak lama penduduk lokal Turki yang tinggal di pegunungan maupun kota-kota lain percaya bahwa perahu Nabi Nuh berada di Gunung Ararat.

Apalagi, pilot pesawat temput Turki dalam sebuah misi pemetaan NATO, mengaku melihat benda besar seperti perahu di Dogubayazit, Turki.

Pada 2006, citra satelit secara detil menunjukan benda mirip kapal yang diduga perahu Nuh itu adalah gunung yang dilapisi salju.

Beberapa ahli lain berpendapat bahwa sisa-sisa perahu Nuh menjadi bagian dari pemukiman manusia -- yang selamat dari bencana banjir bah.

Namun, peneliti yang mengklaim penemu perahu Nuh membantahnya. "Kami tak pernah menemukan ada manusia yang bermukim di ketinggian 3.500 meter dalam sejarah umat manusia."

Cuaca sangat dingin di ketinggian 4.000 meter itu oleh para penemu diyakini menjaga kondisi perahu Nuh selama ribuan tahun.

Baca beritta lainnya di: http://vivanews.com/

READ MORE - Perahu Nabi Nuh Ditemukan di Turki?

Hack Taskbar Windows

Masih seputar Tips - Trik Visual Basic tentunya, kali ini saya coba membahas tentang Hack Taskbar Windows yaitu bagaimana caranya Menghilangkan Taskbar, Menghilangkan Button Start serta cara Menghilangkan Waktu / Tanggal yang ada pada Sistray Area tapi sobat tidak perlu kwatir pasti ada pengembalian atau reset kedefault semula. Mungkin sobat masih ngambang tentang penjelasan saya diatas, dengan gambar dibawah ini mudah-mudahan sobat bisa paham maksud dari Tips - Trik ini.


Okelah kalau begitu saya akan lanjutkan tentang coding nya bagi yang tertarik silakan ikuti langkah - langkah berikut ...

• Tambahkan tiga buah CommandButton diproject, masing-masing dengan nama : cmdTaskbar, cmdStartButton dan cmdSystemClock
• Tambahkan satu buah Module

Tempatkan Coding dibawah ini pada Module

Public Declare Function ShowWindow Lib "user32" (ByVal hwnd As Long, ByVal nCmdShow As Long) As Long
Public Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Public Declare Function GetDlgItem Lib "user32" (ByVal hDlg As Long, ByVal nIDDlgItem As Long) As Long
Public TaskBarStyle As Boolean, StartButtonStyle As Boolean, SystemClockStyle As Boolean
Public Const StartButtonID = &H130
Public Const SystemClockID = &H12F
Public Const SW_HIDE = 0
Public Const SW_SHOW = 5

Public Sub HideTaskBar()
Dim wClassName As String
Dim hwndTaskbar As Long
wClassName = "Shell_TrayWnd"
hwndTaskbar = FindWindow(wClassName, vbNullString)
If TaskBarStyle = False Then
Form1.cmdTaskbar.Caption = "Show Taskbar"
ShowWindow hwndTaskbar, SW_HIDE
TaskBarStyle = True
Else
Form1.cmdTaskbar.Caption = "Hide Taskbar"
ShowWindow hwndTaskbar, SW_SHOW
TaskBarStyle = False
End If
End Sub


Public Sub HideStartButton()
Dim wClassName As String
Dim hwndTaskbar As Long, hwndStartbutton As Long
wClassName = "Shell_TrayWnd"
hwndTaskbar = FindWindow(wClassName, vbNullString)
hwndStartbutton = GetDlgItem(hwndTaskbar, StartButtonID)
If StartButtonStyle = False Then
Form1.cmdStartButton.Caption = "Show Start Button"
ShowWindow hwndStartbutton, SW_HIDE
StartButtonStyle = True
Else
Form1.cmdStartButton.Caption = "Hide Start Button"
ShowWindow hwndStartbutton, SW_SHOW
StartButtonStyle = False
End If
End Sub

Public Sub HideSystemClock()
Dim wClassName As String
Dim hwndTaskbar As Long, hwndSystemClock As Long
wClassName = "Shell_TrayWnd"
hwndTaskbar = FindWindow(wClassName, vbNullString)
hwndSystemClock = GetDlgItem(GetDlgItem(hwndTaskbar, SystemClockID), SystemClockID)
If SystemClockStyle = False Then
Form1.cmdSystemClock.Caption = "Show System Colock"
ShowWindow hwndSystemClock, SW_HIDE
SystemClockStyle = True
Else
Form1.cmdSystemClock.Caption = "Hide System Clock"
ShowWindow hwndSystemClock, 5
SystemClockStyle = False
End If
End Sub

Public Sub SetToDefault()
TaskBarStyle = True
StartButtonStyle = True
SystemClockStyle = True
HideTaskBar
HideStartButton
HideSystemClock
End Sub

Tempatkan Coding dibawah ini pada Form Project

Private Sub cmdStartButton_Click()
HideStartButton
End Sub

Private Sub cmdSystemClock_Click()
HideSystemClock
End Sub

Private Sub cmdTaskbar_Click()
HideTaskBar
End Sub

Private Sub Form_Load()
cmdTaskbar.Caption = "Hide TaskBar"
cmdStartButton.Caption = "Hide Start Button"
cmdSystemClock.Caption = "Hide System Clock"
End Sub

Private Sub Form_Unload(Cancel As Integer)
SetToDefault
End Sub

Mudah - mudahan Tips ini ada mamfaat nya bagi kita semua dan VB Developer khususnya, semoga tidak digunakan untuk menjahili teman atau orang lain. Kalau ada kesempatan dan waktu kita akan ketemu dengan Tips - Trik berikutnya .. terima kasih.

READ MORE - Hack Taskbar Windows

Membuat Auto Complete pada Combo Box (Visual Basic)

Pada postingan kali ini saya akan membahas kembali mengenai Visual Basic yaitu Membuat Auto Complete pada Combo Box, maksud Auto Complete disini adalah Melengkapi Teks secara Otomatis pada saat sedang melakukan pengetikan ke data yang mendekati atau yang dinginkan, dengan catatan apabila data tersebut ada pada list data Combo Box tersebut.

Tip ini sangat berguna apabila menggunakan combobox yang di dalamnya terdiri atas ratusan bahkan ribuan data. User (pengguna/pemakai program) akan kesulitan jika harus memilih satu per satu menggunakan scroll combobox ke bawah hingga data yang diinginkan ketemu. Dengan adanya tip ini, user cukup hanya mengetikkan beberapa karakter awal, dan program akan otomatis melengkapinya, sehingga tidak perlu mengetik sampai akhir. Nah bagi yang berkenan untuk Tip ini silahkan ikuti langkah-lah berikut

• Buatlah Project Baru Standart Exe
• Tambahkan 1 buah ComboBox Style : Dropdown Combo
• Tambahkan 1 buah Module

Ketik Coding berikut pada Module:

Option Explicit

Const CB_FINDSTRING = &H14C

Public Declare Function SendMessage Lib "user32" _
Alias "SendMessageA" (ByVal hwnd As Long, _
ByVal wMsg As Long, ByVal wParam As Long, _
lParam As Any) As Long

Public Enum EnumKarakter
Asli = 0
Ubah = 1
End Enum

Public Function AutoComplete( _
cbCombo As ComboBox, _
sKeyAscii As Integer, _
Optional bUpperCase As Boolean = True, _
Optional cCharacter As EnumKarakter = Asli) _
As Integer
Dim lngFind As Long, intPos As Integer
Dim intLength As Integer, tStr As String
With cbCombo
If sKeyAscii = 8 Then
If .SelStart = 0 Then Exit Function
.SelStart = .SelStart - 1
.SelLength = 32000
.SelText = ""
Else
intPos = .SelStart
tStr = .Text
If bUpperCase = True Then
.SelText = UCase(Chr(sKeyAscii))
Else
.SelText = (Chr(sKeyAscii))
End If
End If

lngFind = SendMessage(.hwnd, CB_FINDSTRING, 0, _
ByVal .Text)
If lngFind = -1 Then
Exit Function
Else
intPos = .SelStart
intLength = Len(.List(lngFind)) - Len(.Text)
If cCharacter = Ubah Then
.SelText = .SelText & Right(.List(lngFind), _
intLength)
Else
.Text = .List(lngFind)
End If
.SelStart = intPos
.SelLength = intLength
End If
End With
End Function

' Ketik Coding diberikut pada Form

Option Explicit

Private Sub Combo1_KeyPress(KeyAscii As Integer)
KeyAscii = AutoComplete(Combo1, KeyAscii, False, Asli)
End Sub

Private Sub Form_Load()
Call AddData
End Sub

Private Sub AddData()
With Combo1
.Clear
.AddItem "Ana Lestari"
.AddItem "Budi Setiawan"
.AddItem "Eka Syahputra"
.AddItem "Wahyu Perdana"
.AddItem "Blog walking"
.AddItem "Terserah"
End With
End Sub

Kemudian Run (jalankan) Program atau tekan F5, lalu pada combobox coba ketik huruf a , maka secara Otomatis teks pada combobox akan menjadi Ana Lestari. Semoga Tip ini ada mamfaat nya bagi kita semua...

READ MORE - Membuat Auto Complete pada Combo Box (Visual Basic)

Mencari Selisih Tanggal (Visual Basic 6)

Persiapan yang dilakukan :

• Buatlah Project Baru (Standard exe)
• Tambahkan :
• 3 Label
• Label1 (Caption : Mencari Selisih Tanggal)
• Label2 (Caption : Lahir :)
• Label3 (Caption : Umur Anda)
• 1 Buah Frame ------> Caption : Masukan Tanggal Lahir
  
• 3 Buah ComboBox ----> Style : 2 - Dropdown List
• 1 Buah Command Button

yang kurang lebih penampakannya seperti gambar dibawah ini

kemudian ketik Coding dibawah ini pada Form

Option Explicit

Private Sub showTanggal()
Dim i As Byte
For i = 1 To 31
Combo1.AddItem Format(i, "00")
Next i
Combo1.ListIndex = 0
End Sub

Private Sub showBulan()
Dim i As Byte
For i = 1 To 12
Combo2.AddItem Format(i, "00")
Next i
Combo2.ListIndex = 0
End Sub

Private Sub showTahun()
Dim i As Integer
For i = 1950 To Year(Now)
Combo3.AddItem i
Next i
Combo3.ListIndex = 0
End Sub

Private Sub Command1_Click()
Dim sLahir As String
sLahir = Combo1 + "/" + Combo2 + "/" + Combo3
If IsDate(sLahir) = True Then
Label3.Caption = "Umur anda sekarang : " & SelisihTanggal(CDate(sLahir), Date)
Else
MsgBox "Tanggal nya salah coy", 48, "Info"
Combo1.SetFocus
End If
End Sub

Private Sub Form_Load()
showTanggal
showBulan
showTahun
End Sub

Private Function SelisihTanggal(ByVal TanggalAwal As _
Date, ByVal TanggalAkhir As Date) As String

Dim Tahun As Integer, Sisa As Integer
Dim SelisihBulan As Integer
On Error GoTo pesan
SelisihBulan = DateDiff("m", TanggalAwal, TanggalAkhir)
Tahun = SelisihBulan \ 12
Sisa = SelisihBulan Mod 12
SelisihTanggal = Tahun & " Tahun " & Sisa & " Bulan"
Exit Function
pesan:
MsgBox "Tipe Tanggal Salah!", vbCritical, "Error TAnggal"
End Function

Mudah2an ada manfaat nya bagi rekan2.

READ MORE - Mencari Selisih Tanggal (Visual Basic 6)

Membuat Caption Label Bergerak Dengan Visual Basic

Tips kali ini masih seputar Visual Basic yaitu Membuat Caption Label Bergerak , maksudnya bisa berjalan-jalan (smoga aja gak kesasar yah ^-^) kalau di Html istilah nya Marquee (kalo gak salah), mudah-mudahan yang saya maksud bisa ngerti yah, kalo gak ngerti di mengertiin aja deh , Nah bagi yang berminat silakan ikuti langkah-langkah dibawah ini, Persiapan :

- Buat Project baru Standart Exe
- Tambahkan 1 buah Control Timer (Timer1) Property yang diset :
Enable = True, Interval = 100
- Satu Buah Control Label (Label1)

Ketik Coding dibawah ini pada Form Project

Dim Pos As Integer, StartPos As Integer, Lengh As Integer, iTeks As Integer
Dim MyTeks As String

Private Sub Form_Load()
iTeks = 1
End Sub

Private Sub Timer1_Timer()
Pos = Pos + 1
If iTeks = 1 Then
MyTeks = "Ini adalah Contoh ..."
ElseIf iTeks = 2 Then
MyTeks = "Pembuatan Label Berjalan"
ElseIf iTeks = 3 Then
MyTeks = "Dengan Visual Basic"
End If
StartPos = Len(MyTeks)
Lengh = StartPos - Pos
If Lengh = 0 Then
If iTeks = 1 Then
iTeks = 2
ElseIf iTeks = 2 Then
iTeks = 3
ElseIf iTeks = 3 Then
iTeks = 1
End If
Pos = 0 - StartPos
End If
Label1 = Right(MyTeks, Lengh)
End Sub

Mudahkan gak ribet , Sekarang Coba sobat jalan kan Project nya (Tekan F5) Caption pada label1 akan berjalan-jalan dan tulisannya bergantian tapi hati-hati sob jangan sampai labelnya kesasar gak tau pulang ^-^

READ MORE - Membuat Caption Label Bergerak Dengan Visual Basic