220 likes | 366 Views
PEMROGRAMAN SISTEM. APA ITU SISTEM?. satu set entitas yang berinteraksi atau saling bergantung membentuk keseluruhan yang terpadu .
E N D
satu set entitas yang berinteraksiatausalingbergantungmembentukkeseluruhan yang terpadu. • Suatujaringankerjadariprosedur-prosedur yang salingberhubungan, berkumpulbersama-samauntukmelakukansuatukegiatanatauuntukmenyelesaikansuatusasarantertentu SISTEM
perangkat keras/hardware, perangkat lunak/software, prosedur-prosedur/procedure, perangkat manusia/brainware, dan informasi/information komponen-komponendalamsistem KOMPUTER
input, proses/process, output, penyimpanan/storage dan komunikasi/communication FUNGSI-FUNGSI TEKNOLOGI
Merupakan kegiatan untuk membuat / memprogram perangkat lunak sistem (system software) APA ITU PEMROGRAMAN SISTEM?
System PROGRAMMING menghasilkan perangkat lunak yang menyediakan layanan untuk perangkat keras, scandisk, defrag, Application PROGRAMMING menghasilkan perangkat lunak yang menyediakan layanan bagi pengguna, misalkan pengolah kata, word, excel, SIM, System PROGRAMMINGvs application PROGRAMMING
Sistemoperasi(sebagaicontohterkemuka Microsoft Windows, Mac OS X dan Linux), yang memungkinkanbagian-bagiandarisebuahkomputeruntukbekerjabersama-samamelakukantugas-tugassepertimentransfer data antaramemoridan disk atau output rendering ke monitor, menjalankanaplikasi. • program utilityyang membantuuntukmenganalisis, engkonfigurasi, mengoptimalkan, danmemeliharakomputer. • Komputer BIOS dan device firmware, yang menyediakanfungsionalitasdasaruntukmengoperasikandanmengendalikanperangkatkerasataudibangunterhubungkekomputer. • Membangun Software development Tool, seperticompiler, linkers, debugger. Tipe - SYSTEM PROGRAM
SYSTEM PROGRAMMING SYSTEM SOFTWARE
Assembly C Window API BAHASA PEMROGRAMAN?
aSSEMBLY MOV AL, 61h
C adalah bahasa pemrograman yang dikembangkan di tahun 1972 oleh Dennis Ritchie di Bell Telephone Laboratories untuk digunakan di Unixoperating system.[2] C dikembangkan untuk mengimplementasikan system software,[3] dan berkembang sampai pada pembuatan application software. C LANGUANGE
API (Application Programmers Interface) adalah satu set fungsi Windows sudah ditetapkan untuk mengendalikan tampilan dan perilaku setiap Windows elemen. fungsi-fungsi ini merangkum seluruh fungsi lingkungan Windows. API ?
merupakankumpulanfungsi-fungsieksternal yang disediakan library windows untukmengaturkemampuandantingkahlakusetiap element di Windows (daritampilandi desktop hinggaalokasi memory) sehinggadapatdimanfaatkansuatu program untukmeningkatkankemampuan program. Contoh: untukpengaksesan registry windows denganfasilitas built in visual basic sangatsukardilakukan, tetapidenganadanyafasilitas API untuk registry dari library advapi32.dll, pengaksesantersebutmenjadilebihmudah. WINDOW API
»Application(9)»Arc(5)»AVI(5)»Bitmap(16)»Brush(6)»Caret(3)»Character(8)»Clipboard(7)»Color(1)»Compress(4)»Console(11)»Cryptographic(15)»Currency(1)»Cursor(13)»Date/Time(11)»DDE(7)»Device(19)»Display(5)»DLL(7)»Drives(8)»Ellipse(4)»File(39)»Font(10)»FTP(10)»HotKey(2)»Icon(9)»ImageList(1)»Inet(0)»INI-Files(6)»Internet(27)»Joystick(5)»Keyboard(11)»Memory(7)»Menu(20)»MIDI(5)»Network(20)»Objects(8)»Pen(2)»Picture(1)»Polygon(9)»Ports(2)»Printer(17)»Process(9)»Rectangle(27)»Registry(15)»ScrollBar(11)»Sound(28)»Strings(10)»System(59)»Tape(6)»Text(6)»Timer(8)»Triangle(1)»Wait(3)»Window(39)»Application(9)»Arc(5)»AVI(5)»Bitmap(16)»Brush(6)»Caret(3)»Character(8)»Clipboard(7)»Color(1)»Compress(4)»Console(11)»Cryptographic(15)»Currency(1)»Cursor(13)»Date/Time(11)»DDE(7)»Device(19)»Display(5)»DLL(7)»Drives(8)»Ellipse(4)»File(39)»Font(10)»FTP(10)»HotKey(2)»Icon(9)»ImageList(1)»Inet(0)»INI-Files(6)»Internet(27)»Joystick(5)»Keyboard(11)»Memory(7)»Menu(20)»MIDI(5)»Network(20)»Objects(8)»Pen(2)»Picture(1)»Polygon(9)»Ports(2)»Printer(17)»Process(9)»Rectangle(27)»Registry(15)»ScrollBar(11)»Sound(28)»Strings(10)»System(59)»Tape(6)»Text(6)»Timer(8)»Triangle(1)»Wait(3)»Window(39) PENGGUNAAN WINDOW API DI vb
Private Const CF_TEXT = 1Private Declare Function GetClipboardData Lib "user32" (ByVal wFormat As Long) As LongPrivate Declare Function CloseClipboard Lib "user32" () As LongPrivate Declare Function OpenClipboard Lib "user32" (ByVal hwnd As Long) As LongPrivate Declare Function lstrlen Lib "kernel32" Alias "lstrlenA" (ByVal lpString As Long) As LongPrivate Declare Sub CopyMemory Lib "kernel32" Alias "RtlMoveMemory" (pDst As Any, pSrc As _ Long, ByVal ByteLen As Long)Private Sub Form_Load()Dim hStrPtr As Long, lLength As Long, sBuffer As StringOpenClipboard Me.hwndhStrPtr = GetClipboardData(CF_TEXT)If hStrPtr <> 0 ThenlLength = lstrlen(hStrPtr)If lLength > 0 ThensBuffer = Space$(lLength)CopyMemory ByVal sBuffer, ByVal hStrPtr, lLengthMsgBox sBuffer, vbInformationEnd IfEnd IfCloseClipboardEnd Sub CONTOH PENGGUNAAN WINDOW API DI vb
Private Type MEMORYSTATUSdwLength As LongdwMemoryLoad As LongdwTotalPhys As LongdwAvailPhys As LongdwTotalPageFile As LongdwAvailPageFile As LongdwTotalVirtual As LongdwAvailVirtual As LongEnd TypePrivate Declare Sub GlobalMemoryStatus Lib "kernel32" (lpBuffer As MEMORYSTATUS)Private Sub Form_Load()Dim MemStat As MEMORYSTATUS'retrieve the memory statusGlobalMemoryStatusMemStatMsgBox "You have" + Str$(MemStat.dwTotalPhys / 1024) + " Kb total memory and" + _ Str$(MemStat.dwAvailPageFile / 1024) + " Kb available PageFile memory."End Sub MEMBACA STATUS MEMORY
Private Declare Sub ExitProcess Lib "kernel32" (ByVal uExitCode As Long) Private Declare Function GetExitCodeProcess Lib "kernel32" (ByVal hProcess As Long, lpExitCode As Long) As Long Private Declare Function GetCurrentProcess Lib "kernel32" () As LongPrivate Sub Form_Load()'end this processExitProcess GetExitCodeProcess(GetCurrentProcess, 0)End Sub MEMATIKAN PROSES YANG SEDANG BERJALAN
Const MAX_FILENAME_LEN = 260Private Declare Function FindExecutable Lib "shell32.dll" Alias "FindExecutableA" (ByVallpFile As String, _ ByVallpDirectory As String, ByVallpResult As String) As LongPrivate Sub Form_Load()Dim i As Integer, s2 As StringConst sFile = "C:\\Windows\\Readme.txt"'Check if the file existsIf Dir(sFile) = "" Or sFile = "" ThenMsgBox "File not found!", vbCriticalExit SubEnd If'Create a buffers2 = String(MAX_FILENAME_LEN, 32)'Retrieve the name and handle of the executable, associated with this filei = FindExecutable(sFile, vbNullString, s2)If i > 32 ThenMsgBox Left$(s2, InStr(s2, Chr$(0)) - 1)ElseMsgBox "No association found !"End IfEnd Sub MEMBUKA FILE