Download Aplikasi Membuat Dx Diag Pada Vb 6.0

بِسْــــــــــــــــمِ اﷲِالرَّحْمَنِ اارَّحِيم

bismillaahirrahmaanirrahiim

السَّلاَمُ عَلَيْكُمْ وَرَحْمَةُ اللهِ وَبَرَكَاتُهُ

Assalamu'alaikum warahmatullahi wabarakatuh

Aplikasi Membuat Dx Diag Pada Vb 6.0 - Hey Kawan Relainc Andro. Kali ini ane mau ngasih tau gimana sih caranya buat DX DIAG make vb 6.0.

Mungkin teman teman tahu bahwa dxdiag itu adalah informasi mengenai tentang spesifikasi laptop atau personal computer milik anda.

DXDIAG Pada VB 6.0 -RELAINC ANDRO-

bagaimana cara membuatnya, oke sekarang ane kasih ini sourcecodenya ajah langsung deh..

Option Explicit

Dim objDx As DirectX7
Dim objDraw7 As DirectDraw7
Dim objEnumModes As DirectDrawEnumModes


Private Sub cmdExit_Click()
    CleanUp
End Sub

Private Sub cmdSetDisplay_Click()
SetNewDisplayMode
End Sub

Private Sub Form_Load()
On Error GoTo ErrHandler:

Dim ddsd As DDSURFACEDESC2
Dim I As Long, lgCount As Long

Set objDx = New DirectX7
''Create DirectDraw object
Set objDraw7 = objDx.DirectDrawCreate("")

''Get the modes in the enum modes object
Set objEnumModes = objDraw7.GetDisplayModesEnum(DDEDM_DEFAULT, ddsd)

''Put the data in the listbox
lgCount = objEnumModes.GetCount()

For I = 1 To lgCount

    objEnumModes.GetItem I, ddsd
   
    lstDisplayModes.AddItem CStr(ddsd.lWidth) & "x" & CStr(ddsd.lHeight) & "x" & CStr(ddsd.ddpfPixelFormat.lRGBBitCount)
Next I

ErrHandler:

    Select Case Err.Number
   
        Case 0 ''No Errors
       
        Case Else
            Err.Raise Err.Number, Err.Source, Err.Description, Err.HelpContext, Err.HelpContext
            Call CleanUp
           
    End Select

End Sub

Private Sub CleanUp()

    objDraw7.RestoreDisplayMode
    Unload Me
    Set Form1 = Nothing
End Sub

Private Sub mnuFileExit_Click()
    cmdExit_Click
End Sub

''Set the display mode based on the current index. The display modes are saved in the
''objEnumModes object.
Private Function SetNewDisplayMode()
On Error GoTo ErrHandler

Dim ddsd As DDSURFACEDESC2
Dim I As Long
    ''Get the selected item
    I = lstDisplayModes.ListIndex
    If I = -1 Then
        MsgBox "Please select item in Listbox", vbOKOnly, "Error"
        Exit Function
    End If
    
    objEnumModes.GetItem (I + 1), ddsd
       
    ''Set cooperative level
    objDraw7.SetCooperativeLevel Me.hWnd, DDSCL_FULLSCREEN Or DDSCL_ALLOWMODEX Or DDSCL_EXCLUSIVE
   
    ''Set the display mode
    objDraw7.SetDisplayMode ddsd.lWidth, ddsd.lHeight, ddsd.ddpfPixelFormat.lRGBBitCount, 0, DDSDM_DEFAULT
   
    ''Draw the form
    Me.Refresh
   
ErrHandler:

    Select Case Err.Number
       Case 0 ''No Errors
       Case Else
       Err.Raise Err.Number, Err.Source, Err.Description, Err.HelpContext, Err.HelpContext
      Call CleanUp
   End Select
End Function

 Dan Jika ingin mendownload Sourcecode Project Aplikasi Bisa Download Disini :

SOURCE CODE APLIKASI DXDIAG PADA VB 6.0

Semoga Bermanfaat, jika ingin mengeshare di blog anda tolong sumber artikel di tulis di blog/website anda. Terima Kasih Salam RELAINC ANDRO

Update Contact :
No Wa/Telepon (puat) : 085267792168
No Wa/Telepon (fajar) : 085369237896
Email : Fajarudinsidik@gmail.com NB :: Bila Sobat tertarik Ingin membuat software, membeli software, membeli source code, membeli hardware elektronika untuk kepentingan Perusahaan maupun Tugas Akhir (TA/SKRIPSI), Insyaallah Saya siap membantu, untuk Respon Cepat dapat menghubungi kami, melalui :

No Wa/Telepon (puat) : 085267792168
No Wa/Telepon (fajar) : 085369237896
Email: Fajarudinsidik@gmail.com

atau Kirimkan Private messanger melalui email dengan klik tombol order dibawah ini :

ٱلْحَمْدُ لِلَّهِ رَبِّ ٱلْعَٰلَمِين

Alhamdulilah hirobil alamin

وَ السَّلاَمُ عَلَيْكُمْ وَرَحْمَةُ اللهِ وَبَرَكَاتُهُ

wassalamualaikum warahmatullahi wabarakatuh

Artikel Download Aplikasi Membuat Dx Diag Pada Vb 6.0, Diterbitkan oleh scodeaplikasi pada Jumat, 24 April 2015. Semoga artikel ini dapat menambah wawasan Anda. Website ini dipost dari beberapa sumber, bisa cek disini sumber, Sobat diperbolehkan mengcopy paste / menyebar luaskan artikel ini, karena segala yang dipost di public adalah milik public. Bila Sobat tertarik Ingin membuat software, membeli software, membeli source code ,Dengan Cara menghubungi saya Ke Email: Fajarudinsidik@gmail.com, atau No Hp/WA : (fajar) : 085369237896, (puat) : 085267792168.