Mencari Bilangan Prima

Untuk mencari bilangan prima di dalam range tertentu, buat form baru, tambahkan beberapa komponen yang diperlukan, kemudian ketik kode berikut :

Private Sub Command1_Click()
    Dim K, L, M As Integer
    List1.Clear
    For K = Val(Text1.Text) To Val(Text2.Text) Step 2
        L = K \ 2
        For M = 3 To L Step 2
            If K Mod M = 0 Then GoTo next_k
    Next M
    List1.AddItem K & " "
    next_k: Next K
    Label3.Caption = "Jumlah suku = " & List1.ListCount
End Sub

Selesai.

Project silahkan download disini http://www.4shared.com/archive/V7BIcaal/Prima1.html

Buka Tutup DVD Tray Dengan Visual basic 6

Ketik kode berikut di General Declaration

Option Explicit
Dim hasil

 Public   Declare   Function   mciSendString   Lib   "winmm.dll    Alias  & _
"mciSendStringA           (ByVal    lpstrCommand     As     String,     ByVal  & _
 lpstrReturnString   As   String,   ByVal   uReturnLength   As   Long,   ByVal  & _
hwndCallback As Long) As Long

ketik kode berikut di form load

hasil = mciSendString("close all", 0, 0, hWnd)
hasil = mciSendString("open  cdaudio alias  cd wait  shareable",  0,  0,  hWnd)

Buat tombol untuk buka dvd drive, ketik kode berikut :

 hasil = mciSendString("set cd door open", 0, 0, hWnd)

Buat tombol untuk tutup dvd drive, ketik kode berikut

 hasil = mciSendString("set cd door closed", 0, 0, hWnd)

Selesai.

Project silahkan download disini http://www.4shared.com/archive/R-aDsToF/cd-drive2.html