PEMROGRAMAN SISTEM APA ITU SISTEM SISTEM satu set

PEMROGRAMAN SISTEM

APA ITU SISTEM?

SISTEM • satu set entitas yang berinteraksi atau saling bergantung membentuk keseluruhan yang terpadu. • Suatu jaringan kerja dari prosedur-prosedur yang saling berhubungan, berkumpul bersama-sama untuk melakukan suatu kegiatan atau untuk menyelesaikan suatu sasaran tertentu

KOMPONEN-KOMPONEN DALAM SISTEM KOMPUTER � perangkat keras/hardware, � perangkat lunak/software, � prosedur-prosedur/procedure, � perangkat manusia/brainware, dan � informasi/information

FUNGSI-FUNGSI TEKNOLOGI � input, � proses/process, � output, � penyimpanan/storage dan � komunikasi/communication

APA ITU PEMROGRAMAN SISTEM? Merupakan kegiatan untuk membuat / memprogram perangkat lunak sistem (system software)

SYSTEM PROGRAMMING VS APPLICATION PROGRAMMING � 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,

TIPE - SYSTEM PROGRAM � Sistem operasi (sebagai contoh terkemuka Microsoft Windows, Mac OS X dan Linux), yang memungkinkan bagian dari sebuah komputer untuk bekerja bersama-sama melakukan tugas-tugas seperti mentransfer data antara memori dan disk atau output rendering ke monitor, menjalankan aplikasi. � program � � utility yang membantu untuk menganalisis, engkonfigurasi, mengoptimalkan, dan memelihara komputer. Komputer BIOS dan device firmware, yang menyediakan fungsionalitas dasar untuk mengoperasikan dan mengendalikan perangkat keras atau dibangun terhubung ke komputer. Membangun Software development Tool, seperti compiler, linkers, debugger.

SYSTEM PROGRAMMING SYSTEM SOFTWARE

SYSTEM SOFTWARE

BAHASA PEMROGRAMAN ? �Assembly �C � Window API

ASSEMBLY MOV AL, 61 h

C LANGUANGE �C adalah bahasa pemrograman yang dikembangkan di tahun 1972 oleh Dennis Ritchie di Bell Telephone Laboratories untuk digunakan di Unix operating system. [2] C dikembangkan untuk mengimplementasikan system software, [3] dan berkembang sampai pada pembuatan application software.

API ? 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.

WINDOW API merupakan kumpulan fungsi-fungsi eksternal yang disediakan library windows untuk mengatur kemampuan dan tingkah laku setiap element di Windows (dari tampilan di desktop hingga alokasi memory) sehingga dapat dimanfaatkan suatu program untuk meningkatkan kemampuan program. Contoh: untuk pengaksesan registry windows dengan fasilitas built in visual basic sangat sukar dilakukan, tetapi dengan adanya fasilitas API untuk registry dari library advapi 32. dll, pengaksesan tersebut menjadi lebih mudah.

PENGGUNAAN WINDOW API DI VB » 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) » Hot. Key (2) » Icon (9) » Image. List (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) » Scroll. Bar (11) » Sound (28) » Strings (10) » System (59) » Tape (6) » Text (6) » Timer (8) » Triangle (1) » Wait (3) » Window (39)

CONTOH PENGGUNAAN WINDOW API DI VB Private Const CF_TEXT = 1 Private Declare Function Get. Clipboard. Data Lib "user 32" (By. Val w. Format As Long) As Long Private Declare Function Close. Clipboard Lib "user 32" () As Long Private Declare Function Open. Clipboard Lib "user 32" (By. Val hwnd As Long) As Long Private Declare Function lstrlen Lib "kernel 32" Alias "lstrlen. A" (By. Val lp. String As Long) As Long Private Declare Sub Copy. Memory Lib "kernel 32" Alias "Rtl. Move. Memory" (p. Dst As Any, p. Src As _ Long, By. Val Byte. Len As Long) Private Sub Form_Load() Dim h. Str. Ptr As Long, l. Length As Long, s. Buffer As String Open. Clipboard Me. hwnd h. Str. Ptr = Get. Clipboard. Data(CF_TEXT) If h. Str. Ptr <> 0 Then l. Length = lstrlen(h. Str. Ptr) If l. Length > 0 Then s. Buffer = Space$(l. Length) Copy. Memory By. Val s. Buffer, By. Val h. Str. Ptr, l. Length Msg. Box s. Buffer, vb. Information End If Close. Clipboard End Sub

MEMBACA STATUS MEMORY Private Type MEMORYSTATUS dw. Length As Long dw. Memory. Load As Long dw. Total. Phys As Long dw. Avail. Phys As Long dw. Total. Page. File As Long dw. Avail. Page. File As Long dw. Total. Virtual As Long dw. Avail. Virtual As Long End Type Private Declare Sub Global. Memory. Status Lib "kernel 32" (lp. Buffer As MEMORYSTATUS) Private Sub Form_Load() Dim Mem. Stat As MEMORYSTATUS 'retrieve the memory status Global. Memory. Status Mem. Stat Msg. Box "You have" + Str$(Mem. Stat. dw. Total. Phys / 1024) + " Kb total memory and" +_ Str$(Mem. Stat. dw. Avail. Page. File / 1024) + " Kb available Page. File memory. " End Sub

MEMATIKAN PROSES YANG SEDANG BERJALAN Private Declare Sub Exit. Process Lib "kernel 32" (By. Val u. Exit. Code As Long) Private Declare Function Get. Exit. Code. Process Lib "kernel 32" (By. Val h. Process As Long, lp. Exit. Code As Long) As Long Private Declare Function Get. Current. Process Lib "kernel 32" () As Long Private Sub Form_Load() 'end this process Exit. Process Get. Exit. Code. Process(Get. Current. Process, 0) End Sub

MEMBUKA FILE Const MAX_FILENAME_LEN = 260 Private Declare Function Find. Executable Lib "shell 32. dll" Alias "Find. Executable. A" (By. Val lp. File As String, _ By. Val lp. Directory As String, By. Val lp. Result As String) As Long Private Sub Form_Load() Dim i As Integer, s 2 As String Const s. File = "C: \Windows\Readme. txt" 'Check if the file exists If Dir(s. File) = "" Or s. File = "" Then Msg. Box "File not found!", vb. Critical Exit Sub End If 'Create a buffer s 2 = String(MAX_FILENAME_LEN, 32) 'Retrieve the name and handle of the executable, associated with this file i = Find. Executable(s. File, vb. Null. String, s 2) If i > 32 Then Msg. Box Left$(s 2, In. Str(s 2, Chr$(0)) - 1) Else Msg. Box "No association found !" End If End Sub