Mengganti Resolusi Layar Monitor

Resolusi Layar atau mode tampilan televisi digital, layar monitor adalah jumlah pixel pada setiap dimensi layar. Istilah dapat menjadi ambigu terutama karena resolusi yang ditampilkan dipengaruhi oleh faktor-faktor yang berbeda.contohnya, cathode ray tube (CRT), monitor layar datar (termasuk LCD) tampilan proyeksi menggunakan gambar elemen susunan tetap (pixel). Hal ini biasanya dinyatakan dalam Lebar × Tinggi, dengan satuan pixel: misalnya, "1024×768" yang berarti lebarnya 1024 pixel dan tingginya 768 pixel.

Penggunaan istilah “resolusi Layar” berlaku untuk susunan yang menampilkan pixel tetap seperti plasma display panel (PDP), liquid crystal display (LCD), digital light processing (DLP). Istilah “Resolusi Layar” umumnya digunakan untuk menyebut dimensi pixel, jumlah pixel dalam masing-masing dimensi (misal, 1920×1080), yang tidak mencerminkan kerapatan pixel, yaitu jumlah piksel per satuan jarak atau luas area. Dalam pengukuran digital, kerapatan layar memiliki satuan pixel per inci. Sumber : wiki

Dalam pembahasan kali ini admin akan berbagi sourcode Visual basic 6.0 tentang merubah resolusi layar pada monitor. Buka Ms. Visual Basic 6.0 - StandartEXE dan buat sebuah form dan module dan pastekan syntac ini

Module

Public Const CCDEVICENAME = 32
Public Const CCFORMNAME = 32
Public Const DISP_CHANGE_SUCCESSFUL = 0
Public Const DISP_CHANGE_RESTART = 1
Public Const DISP_CHANGE_FAILED = -1
Public Const DISP_CHANGE_BADMODE = -2
Public Const DISP_CHANGE_NOTUPDATED = -3
Public Const DISP_CHANGE_BADFLAGS = -4
Public Const DISP_CHANGE_BADPARAM = -5
Public Const CDS_UPDATEREGISTRY = &H1
Public Const CDS_TEST = &H2
Public Const DM_BITSPERPEL = &H40000
Public Const DM_PELSWIDTH = &H80000
Public Const DM_PELSHEIGHT = &H100000
Public Type DEVMODE
dmDeviceName As String * CCDEVICENAME
dmSpecVersion As Integer
dmDriverVersion As Integer
dmSize As Integer
dmDriverExtra As Integer
dmFields As Long
dmOrientation As Integer
dmPaperSize As Integer
dmPaperLength As Integer
dmPaperWidth As Integer
dmScale As Integer
dmCopies As Integer
dmDefaultSource As Integer
dmPrintQuality As Integer
dmColor As Integer
dmDuplex As Integer
dmYResolution As Integer
dmTTOption As Integer
dmCollate As Integer
dmFormName As String * CCFORMNAME
dmUnusedPadding As Integer
dmBitsPerPel As Integer
dmPelsWidth As Long
dmPelsHeight As Long
dmDisplayFlags As Long
dmDisplayFrequency As Long
End Type

Declare Function EnumDisplaySettings Lib "user32" _
Alias "EnumDisplaySettingsA" (ByVal lpszDeviceName As _
Long, ByVal iModeNum As Long, lpDevMode As Any) As _
Boolean

Declare Function ChangeDisplaySettings Lib "user32" Alias "ChangeDisplaySettingsA" (lpDevMode As Any, ByVal dwFlags As Long) As Long

Kemudian double klik pada form dan pilih prosedur Form_Load, pastekan syntac dibawah ini

ChangeScreenSettings 800, 600, 16 - Bit

Jika telah selesai simpan kemudian Run/F5 untuk sourcodenya bisa di download di LINK INI