Windows XP Juga Pensiun Setelah Bill Gates
Microsoft Corp. dijadwalkan menghentikan penjualan sistem operasi Windows XP kepada para peritel dan produsen komputer besar sejak bulan Juli ini. Keputusan Microsoft itu bertentangan dengan keinginan sebagian pengguna PC yang tak ingin dipaksa beralih ke penerus XP, Windows Vista. Ketika komputer berisi OS Windows XP tak lagi ditemui di gudang-gudang produsen PC seperti Dell Inc. dan Hewlett-Packard Co., akan memaksa pengguna Windows untuk beralih ke Vista Ultimate atau Vista Business dan kemudian secara legal men-downgrade XP. Microsoft saat ini masih mengizinkan peritel kecil membeli XP untuk dijual kembali hingga akhir Januari. Versi XP juga masih akan tersedia untuk PC super murah seperti PC Asus Eee. Sekelompok pecinta XP yang tak menyukai Vista telah mengajukan petisi kepada Microsoft untuk tetap menjual XP sampai raksasa software itu meluncurkan OS terbaru, Windows 7. Sementara Microsoft mengatakan bahwa mereka kemungkinan meluncurkan Windows 7 pada 2009. Pekan lalu, Microsoft mengatakan pihaknya akan memberikan dukungan teknis bagi Windows XP hingga 2009, dan dukungan terbatas hingga 2014. (sumber: inilah)

'Buat 1 Command button
'Buat 1 label
'buat 1 textbox
'truss copy deh coding ini ke dalam form code....

Private Sub Command1_Click()
Label1 = ConversiDetik(Me.Text1)
End Sub

Public Function ConversiDetik(ByVal detik As Long) As String

Dim Pdetik As Long
Dim Ldetik As Long
Dim LJam As Long
Dim Lmenit As Long
Dim Tdetik As Long
Pdetik = detik
Ldetik = Pdetik \ 86400
Pdetik = Pdetik - (Ldetik * 86400)
LJam = Pdetik \ 3600
Pdetik = Pdetik - (LJam * 3600)
Lmenit = Pdetik \ 60
Pdetik = Pdetik - (Lmenit * 60)
Tdetik = Pdetik
ConversiDetik = IIf(detik >= 86400, Ldetik & " hari ", vbNullString) & _
IIf(detik >= 0, Format(LJam, "0#") & ":", vbNullString) & _
Format(Lmenit, "0#") & ":" & Format(Tdetik, "0#")


End Function

'selamat mencoba...

Dim jmlsalah As Single

Private Sub Command1_Click()

If Me.Text1 = "12345" Then
MsgBox "Selamat, password anda benar"
End
Else
MsgBox "Maaf, Anda salah memasukan Password"

If jmlsalah >= 4 Then
MsgBox "Maaf, Anda sudah 5 kali salah memasukan Password"
End
Else

jmlsalah = jmlsalah + 1

End If
End If
End Sub

Private Sub cmbFormat_Click()
On Error Resume Next
CommonDialog1.Flags = cdlCFScreenFonts Or cdlCFEffects
CommonDialog1.ShowFont
txtKata.FontName = CommonDialog1.FontName
txtKata.FontSize = CommonDialog1.FontSize
txtKata.FontBold = CommonDialog1.FontBold
txtKata.FontItalic = CommonDialog1.FontItalic
txtKata.ForeColor = CommonDialog1.Color
txtKata.FontStrikethru = CommonDialog1.FontStrikethru
txtKata.FontUnderline = CommonDialog1.FontUnderline
End Sub

Microsoft Rilis SQL Server 2008 Service Pack I

Microsoft Rilis SQL Server 2008 Service Pack I

Anda pengguna SQL Server 2008? Ada kabar baru menyambangi redaksi kami kali ini. Microsoft akhirnya mengeluarkan SQL Server Service Pack I, yang tidak banyak memiliki fitur baru ketika baru saja dirilis. Matthias Berndt, salah satu manajer dari Microsoft mengatakan ini adalah upaya dari Microsoft sendiri untuk mengembangkan fitur database yang lebih lengkap nantinya.

“Tidak ada cerita khusus di balik Service Pack I ini.” Kata Berndt, “Ketika kami menemui vendor yang mengerjakannya, mereka berbicara ‘Hei, Anda harus menunggu SP1 yang sedang dikerjakan Microsoft. Kami sedang membuatnya menjadi lebih kecil dan lebih berisi.”

SQL Server SP 1 terdapat peningkatan fitur yang termasuk di dalamnya Slipstream, Service Pack Uninstall dan Report Builder Click Once. Fitur Slipstream nantinya akan dapat memudahkan administrator untuk instalasi SQL Server 2008 dan Service Pack I secara sekaligus. Tentu saja ini akan mengurangi waktu instalasi, misalnya untuk reboot computer dan tentunya ini akan lebih meningkatkan produktivitas.

Report Builder 2.0 Click Once juga adalah salah satu fitur di dalamnya yang memungkinkan bagi administrator uninstall Service Pack secara terpisah dari databasenya, kata Microsoft secara resmi.

SP1 juga mencakup perbaikan-perbaikan yang ada untuk menyempurnakan SQL Server 2008. Sejak tahun lalu dirilis, SQL Server 2008 sudah diunduh sekitar 3 juta kali. Wuah, angka yang besar sekali yah!