Hari Pendidikan Nasional 2011- "Raih Prestasi, Junjung Tinggi Budi Pekerti"

Hari Pendidikan Nasional (Hardiknas) yang diperingati setiap 2 Mei tidak semata-mata dimaksudkan untuk mengenang hari kelahiran Ki Hajar Dewantara, selaku Bapak Perintis Pendidikan Nasional, namun lebih merupakan sebuah momentum untuk makin memperkokoh kesadaran dan komitmen bangsa akan pentingnya pendidikan bermutu bagi masa depan bangsa.

"Tidak sekadar memperingati tokoh, itu sekadar pijakan awal, tetapi lebih penting upaya kita mengingatkan pentingnya pendidikan bermutu bagi bangsa," kata Sekretaris Jenderal Kementerian Pendidikan Nasional Dodi Nandika saat memberikan keterangan pers tentang di Kemdiknas, Jakarta, Jumat (29/4/2011).

Pelajaran dari Mereka

mBe:

- kalo nguap tu mulutnya ditutup, jangan sampe bersuara.. kata buguru itu suara seeee....

- sekali-kali sebelum tidur, kaki direndam pake air hangat, untuk meregangkan kembali syaraf yang seharian bekerja, soalnya semua syaraf di tubuh kita terhubung di telapak kaki..

- usahakan mengkonsumsi suplemen vitamin C,, untuk memenuhi kabutuhan kalsium tubuh, untuk menambah daya tahan dan metabolisme, biar gak gampang sakit..

- sekali-kali gak ada salahnya pergi medical chek-up..

Nia:

- Gosok gigi sebelum berwudhlu, pastikan dapatkan kesegaran dan sejuk yang berbeda

- kalo pake baju, cocoknya pake baju kemeja kotak-kotak lengan pendek atau 3/4.

- Penampilan memang perlu, tapi itu cuma sekedar pelengkap hidup.

- Kita harus berusaha bersabar dalam menjalani hidup, meskipun itu menyakitkan

Anie:

• Dengan waktu sedetik kita bisa membeli batangan emas, namun batangan emas tidak akan bisa untuk membeli waktu sedetik “.
• “ Walaupun nasib kita digariskan sebagai raja kalau kita tidak berusaha selamanya tetap tidak akan bisa menjadi raja. Sebaliknya walaupun nasib kita digariskan sebagai pengemis jika kita bekerja keras pasti tidak akan jadi pengemis “
• ” Masa Lalu adalah Lukisan Yang Telah Kusam, sedangkan Masa depan adalah Lukisan Yang Abstrak dan SAAT ini adalah Lukisan Yang Paling NYATA ”

Convert a character to and from its ASCII code

Private Sub Command2_Click()
     'Code the character
     Label3 = Asc(Text1)
     'clears text box
     Text1 = ""
     ' adds the coded character to textbox (label3)
     LABEL6 = LABEL6 + "," + Label3
     ' set focus to textbox
     Text1.SetFocus
     'decodes the coded character
     Text2 = Text2 + Chr(Label3)
End Sub

Private Sub Command3_Click()
     'this part decodes the coded number
     Label3 = Text3
     Text3 = ""
     LABEL6 = LABEL6 + "," + Label3
     Text2 = Text2 + Chr(Label3)
     Text3.SetFocus
End Sub

Sumber: www.vb-helper.com 

source code VB - konversi

1.KONVERSI BINER KE DESIMAL

'Deskripsi: Mengkonversi dari bilangan Binary ke bilangan Desimal.

'Pembuat : M YANTO (m_okrek86@yahoo.co.id)

'Persiapan: 1. Buat 1 Project baru dengan 1 Form 1 commamd dan 3 text box.

' 2. Copy-kan coding berikut ke dalam editor form Anda.

'----------------------------------------------------------------

Private Function BinaryToDecimal(ByVal BinValue As String) As Long

Dim lngValue As Long

Dim x As Long

Dim k As Long

k = Len(BinValue) ' will only work with 32 or fewer "bits"

For x = k To 1 Step -1 ' work backwards down string

If Mid$(BinValue, x, 1) = "1" Then

If k - x > 30 Then ' bit 31 is the sign bit

lngValue = lngValue Or -2147483648# ' avoid overflow error

Else