IBM PC

IBM PC adalah sebutan untuk keluarga komputer pribadi buatan IBM. IBM PC diperkenalkan pada 12 Agustus 1981, dan "dipensiunkan" pada tanggal 2 April 1987. Sejak diluncurkan oleh IBM, IBM PC memiliki beberapa keluarga, yakni

• IBM 4860 PCjr
• IBM 5140 Convertible Personal Computer (laptop)
• IBM 5150 Personal Computer (PC yang asli)
• IBM 5155 Portable PC (sebenarnya merupakan PC XT yang portabel)
• IBM 5160 Personal Computer/eXtended Technology
• IBM 5162 Personal Computer/eXtended Technology Model 286 (sebenarnya merupakan PC AT)
• IBM 5170 Personal Computer/Advanced Technology

1. IBM 5150 Personal Computer

IBM PC 5150 adalah komputer pribadi generasi pertama yang diluncurkan pada 12 Agustus 1981. Komputer pribadi tersebut diperkuat dengan menggunakan prosesor 16-bit Intel 8088 berkecepatan 4.77 MHz, power supply 63.5 Watt dan memori yang hanya 64 KB. Media penyimpanan yang digunakannya hanya floppy disk drive 5.25 inci 320 KB atau 360 KB (double-side floppy disk).

IBM PC datang dengan ROM yang dilengkapi dengan interpreter bahasa Microsoft Cassette BASIC, sehingga pengguna dapat melakukan pemrograman (jika tidak ada sistem operasi yang dimuat). ROM juga dilengkapi dengan fungsi diagnosa Power-on Self Test (POST) yang akan melakukan pengecekan terhadap perangkat keras sebelum dapat bekerja (meski proses pengecekan yang dilakukannya sangat lambat, lebih dari 10 detik).

gambar IBM 5150 PC

 Model

Sebelum Maret 1983, IBM memasarkan beberapa model dengan konfigurasi yang berbeda (meskipun hanya sedikit perbedaannya), tapi setelah Maret 1983, IBM PC 5150 datang dalam dua model, yakni:

• IBM PC 5150 Model 166 (Intel 8088, 256 KB RAM, 1 buah floppy-disk drive 360 KB)
• IBM PC 5150 Model 176 (Intel 8088, 256 KB RAM, 2 buah floppy-disk drive 360 KB)

Hingga dipensiunkan tanggal 2 April 1987 (enam tahun masa jabatan), IBM PC dapat mendunia. Tetapi, secara arsitektural, tidak ada perubahan yang signifikan di dalamnya

Versi BIOS

IBM PC datang dengan tiga versi BIOS, yang dibedakan dari tanggalnya, yakni sebagai berikut:

• 24 April 1981, merupakan versi BIOS pertama dalam IBM PC yang hanya mendukung memori fisik hingga 544 KB. Tidak dilengkapi dengan fitur pemindaian blok memori UMA (Upper Memory Address) untuk beberapa kartu ekspansi (seperti video, adapter hard disk, dan lainnya).
• 19 Oktober 1981, merupakan versi BIOS kedua dalam IBM PC yang hanya mendukung memori fisik hingga 544 KB. Sama seperti halnya versi pertama tapi ditambahi beberapa bugfix.
• 27 Oktober 1982, merupakan versi BIOS ketiga yang dapat mendukung memori fisik hingga 640 KB (conventional memory), ditambah dengan fitur pemindaian blok memori UMA. BIOS ini merupakan BIOS yang paling umum digunakan.

Upgrade BIOS hanya dapat dilakukan dengan mengganti chip BIOS yang lama dengan chip BIOS yang baru. IBM menjual kit upgrade BIOS dengan nomor spare part 1501005

2. IBM 5140 PC Convertible (laptop)

IBM memasarkan laptop pertama yang mereka sebut sebagai IBM 5140 PC Convertible pada tanggal 2 April 1986, yang merupakan pengganti dari IBM 5155 Portable PC yang dihentikan produksinya. Sistem IBM 5140 tidaklah sesukses IBM 5150 atau laptop-laptop lainnya, mengingat laptop pesaing menawarkan media penyimpanan yang lebih baik, penggunaan prosesor yang lebih cepat, layar yang lebih baik, ukuran yang lebih kompak, dan harga yang lebih murah. Meski IBM 5140 menawarkan layar yang lebih baik dibandingkan dengan laptop-laptop pesaing, IBM 5140 tidak begitu dilirik pasar.

IBM 5140 tersedia dalam dua model, yakni:

• Model 2, yang diperkuat dengan menggunakan mikroprosesor Intel 80C88 CMOS 4.77 MHz, 64 KB ROM, 256 KB SRAM, layar LCD dengan resolusi 80x25, dua buah 3½ inci floppy-disk drive, keyboard 78-tombol, adaptor AC, dan baterai. Program yang tersedia dalam model ini adalah Application Selector, SystemApps, Tools, Exploring the IBM PC Convertible, dan Diagnostics.
• Model 22, yang merupakan IBM 5140 Model 2 yang hanya dilengkapi dengan perangkat lunak diagnosa saja (Diagnostics). Model ini dijual dengan harga yang lebih murah dibandingkan dengan Model 2.

Dua model di atas dapat ditambahi RAM hingga 512 KB dengan menggunakan kartu ekspansi memori RAM sebesar 128 KB. Selain itu, dapat diperluas dengan menggunakan modem internal 1200 bit/detik.

Meski IBM 5140 menggunakan prosesor yang lambat (4.77 MHz, sama seperti IBM 5150), penggunaan SRAM sebagai memori fisik mampu meningkatkan kinerja jika dibandingkan dengan penggunaan DRAM, mengingat SRAM tidak membutuhkan sinyal refresh seperti halnya DRAM (yang mampu menambah waktu tunggu hingga 7% dari kecepatan CPU IBM PC atau IBM PC/XT). Ini berarti IBM 5140 memiliki kinerja yang lebih tinggi hingga 7% dibandingkan dengan IBM PC atau IBM PC/XT, meskipun memiliki prosesor dengan kecepatan yang sama, 4.77 MHz. Karena SRAM memang lebih andal jika dibandingkan DRAM, penggunaannya dalam 5140 tidak membutuhkan pengecekan paritas yang bahkan menambah waktu tunggu yang lebih tinggi lagi.

gambar IBM PC Convertible

 Sebuah unit IBM 5140 memiliki fitur-fitur standar berikut:

• Mikroprosesor yang dibuat berdasarkan teknologi Complimentary Metal-Oxide Semiconductor (CMOS), Intel 80C88 (variasi dari Intel 8088), dengan kecepatan 4.77 MHz.
• Dua buah ROM berukuran 32 Kilobyte yang berisi hal-hal berikut (untuk menghemat daya, digunakanlah teknologi CMOS):
• Power-On Selft Test yang mampu menjalankan diagnosa terhadap perangkat komputer saat melakukan proses booting, serta BIOS.
• interpreter bahasa BASIC.
• Memori fisik menggunakan Static Random Access Memory yang berukuran 256 KB. Dapat ditambahi hingga 512 KB. (untuk menghemat daya, maka digunakanlah teknologi CMOS).
• Dua buah floppy-disk drive 3½ inci 720 KB.
• Sebuah panel LCD dengan resolusi 80 kolom x25 baris (modus teks), atau 640x200 dan 320x200 pixel (modus grafik) yang dapat dilepas.
• Sebuah LCD controller
• Display buffer dengan ukuran RAM 16 KB, ditambah 8 KB RAM untuk menyimpan font LCD
• Keyboard 78-tombol
• Adaptor AC
• Baterai

3. IBM 5160 Personal Computer eXTended

IBM PC/XT adalah sebuah komputer mikro buatan IBM yang dirilis pada tanggal 8 Maret 1983. Komputer ini diperkuat dengan menggunakan hard disk berkapasitas 10 Megabyte, yang merupakan hard disk yang dianggap "spesial" pada saat itu. XT di sini merupakan singkatan dari eXTended, karena IBM PC XT memiliki fitur-fitur yang tidak dimiliki oleh IBM PC standar (5150). IBM PC XT memiliki delapan buah slot, sehingga meningkatkan kemampuan ekspansinya; kapasitas power-supply yang lebih besar; memori yang dapat dibongkar/pasang (karena semuanya berupa soket), dan dapat mendukung hingga 640 KB RAM tanpa slot ekspansi memori, selain tentunya sebuah hard disk. Karena memiliki fitur-fitur itulah, desain motherboard IBM PC/XT berbeda dengan desain motherboard IBM PC yang asli. IBM PC/XT ini menawarkan beberapa perangkat keras yang masih digunakan hingga saat ini, yakni keyboard 101 tombol (Enhanced Keyboard) yang menggantikan model keyboard IBM 83 tombol.

gambar IBM 5160 PC XT

Cara Membuat Kalkulator dengan Visual Basic 6.0

Program kalkulator adalah program standar yang sudah tersedia di Microsoft Windows. Tetapi, tak ada salahnya jika kita mencoba membuat kalkulator sendiri dengan Microsoft Visual Basic 6.0.
Pertama-tama, buatlah sebuah form sesuai selera Anda, yang bentuknya kurang lebih seperti
kalkulator standar Windows, seperti ini:




Untuk properties dari masing-masing objek, saya contohkan seperti dibawah ini, dengan letak
masing-masing objek disesuaikan dengan gambar diatas.
Textbox 1:
(Name) : txtDisplay
Alignment: 1-Right Justify
Text : (kosongkan)
Maxlength : 12

Command Button 1:
(Name) : cmdAngka
Index : 1
Caption : 1

Command Button 2:
(Name) : cmdAngka
Index : 2
Caption : 2

Command Button 3:
(Name) : cmdAngka
Index : 3
Caption : 3

Command Button 4:
(Name) : cmdAngka
Index : 4
Caption : 4

Command Button 5:
(Name) : cmdAngka
Index : 5
Caption : 5

Command Button 6:
(Name) : cmdAngka
Index : 6
Caption : 6

Command Button 7:
(Name) : cmdAngka
Index : 7
Caption : 7

Command Button 8:
(Name) : cmdAngka
Index : 8
Caption : 8

Command Button 9:
(Name) : cmdAngka
Index : 9
Caption : 9

Command Button 10:
(Name) : cmdAngka
Index : 0
Caption : 0

Command Button 11:
(Name) : cmdPlusMinus
Caption : +/-

Command Button 12:
(Name) : cmdKoma
Caption : .

Command Button 13:
(Name) : cmdOperator
Index : 1
Caption : +

Command Button 14:
(Name) : cmdOperator
Index : 2
Caption : -

Command Button 15:
(Name) : cmdOperator
Index : 3
Caption : x

Command Button 16:
(Name) : cmdOperator
Index : 4
Caption : /

Command Button 17:
(Name) : cmdClearEntry
Caption : CE

Command Button 18:
(Name) : cmdClear
Caption : C

Command Button 19:
(Name) : cmdSamaDengan
Caption : =

Berikutnya, Anda tinggal membuat coding dari kalkulator tersebut. Jika Anda mengikuti semua
setting properties seperti diatas, maka codingnya saya contohkan seperti ini:

Option Explicit
Private Hasil As Double
Private Const opNol = 0
Private Const opTambah = 1
Private Const opKurang = 2
Private Const opKali = 3
Private Const opBagi = 4
Private Operator As Integer
Private NilaiBaru As Boolean

' untuk menghapus karakter terakhir
Private Sub Hapus()
Dim txt As String
Dim min_len As Integer
txt = txtDisplay.Text
If Left$(txt, 1) = "-" Then
min_len = 2
Else
min_len = 1
End If
If Len(txt) > min_len Then
txtDisplay.Text = Left$(txt, Len(txt) - 1)
Else
txtDisplay.Text = "0"
End If
End Sub

' hapus angka, hasil terakhir dan operator
Private Sub cmdClear_Click()
cmdClearEntry_Click
Hasil = 0
Operator = opNol
End Sub
' hapus angka
Private Sub cmdClearEntry_Click()
txtDisplay.Text = ""
End Sub

' menambahkan koma (desimal)
Private Sub cmdKoma_Click()
If InStr(txtDisplay.Text, ".") Then
Beep
Else
If NilaiBaru Then
txtDisplay.Text = "."
NilaiBaru = False
Else
txtDisplay.Text = txtDisplay.Text & "."
End If
End If
End Sub

' Menghitung
Private Sub cmdSamaDengan_Click()
Dim HasilBaru As Double
If txtDisplay.Text = "" Then
HasilBaru = 0
Else
HasilBaru = CDbl(txtDisplay.Text)
End If
Select Case Operator
Case opNol
Hasil = HasilBaru
Case opTambah
Hasil = Hasil + HasilBaru
Case opKurang
Hasil = Hasil - HasilBaru
Case opKali
Hasil = Hasil * HasilBaru
Case opBagi
'Tidak bisa dibagi nol
If HasilBaru = 0 Then
MsgBox "Tidak bisa dibagi 0", vbOKOnly + vbCritical, "Kalku ERROR"
Call cmdClear_Click
Else
Hasil = Hasil / HasilBaru
End If
End Select
Operator = opNol
NilaiBaru = True
txtDisplay.Text = Format$(Hasil)
End Sub

' menuliskan angka
Private Sub cmdAngka_Click(Index As Integer)
If NilaiBaru Then
txtDisplay.Text = Format$(Index)
NilaiBaru = False
Else
txtDisplay.Text = _
txtDisplay.Text & Format$(Index)
End If
End Sub

' tombol tambah/kurang/bagi/kali
Private Sub cmdOperator_Click(Index As Integer)
cmdSamaDengan_Click
Operator = Index
NilaiBaru = True
End Sub

' merubah tanda +/-
Private Sub cmdPlusMinus_Click()
If NilaiBaru Then
txtDisplay.Text = "-"
ElseIf Left$(txtDisplay.Text, 1) = "-" Then
txtDisplay.Text = Right$(txtDisplay.Text, 2)
Else
txtDisplay.Text = "-" & txtDisplay.Text
End If
End Sub

' filter untuk angka saja yg dapat diketikkan
Private Sub Form_KeyPress(KeyAscii As Integer)
txtDisplay_KeyPress KeyAscii
End Sub
Private Sub Form_KeyUp(KeyCode As Integer, Shift As Integer)
txtDisplay_KeyUp KeyCode, Shift
End Sub
' supaya kursor tetap di kanan
Private Sub txtDisplay_Change()
txtDisplay.SelStart = Len(txtDisplay.Text)
End Sub
Private Sub txtDisplay_GotFocus()
txtDisplay_Change
End Sub

' untuk mengetikkan angka di keyboard
Private Sub txtDisplay_KeyPress(KeyAscii As Integer)
Dim ch As String
ch = Chr$(KeyAscii)
Select Case ch
Case "0"
cmdAngka_Click 0
Case "1"
cmdAngka_Click 1
Case "2"
cmdAngka_Click 2
Case "3"
cmdAngka_Click 3
Case "4"
cmdAngka_Click 4
Case "5"
cmdAngka_Click 5
Case "6"
cmdAngka_Click 6
Case "7"
cmdAngka_Click 7
Case "8"
cmdAngka_Click 8
Case "9"
cmdAngka_Click 9
Case "*", "x", "X"
cmdOperator_Click opKali
Case "+"
cmdOperator_Click opTambah
Case vbCrLf, vbCr, "="
cmdSamaDengan_Click
Case "-"
cmdOperator_Click opKurang
Case "."
cmdKoma_Click
Case "/"
cmdOperator_Click opBagi
Case "C", "c"
cmdClearEntry_Click
End Select
KeyAscii = 0
End Sub

' untuk ketikan angka di numpad
Private Sub txtDisplay_KeyUp(KeyCode As Integer, Shift As Integer)
Select Case KeyCode
Case vbKeyNumpad0
cmdAngka_Click 0
Case vbKeyNumpad1
cmdAngka_Click 1
Case vbKeyNumpad2
cmdAngka_Click 2
Case vbKeyNumpad3
cmdAngka_Click 3
Case vbKeyNumpad4
cmdAngka_Click 4
Case vbKeyNumpad5
cmdAngka_Click 5
Case vbKeyNumpad6
cmdAngka_Click 6
Case vbKeyNumpad7
cmdAngka_Click 7
Case vbKeyNumpad8
cmdAngka_Click 8
Case vbKeyNumpad9
cmdAngka_Click 9
Case vbKeyMultiply
cmdOperator_Click opKali
Case vbKeyAdd
cmdOperator_Click opTambah
Case vbKeySeparator
cmdSamaDengan_Click
Case vbKeySubtract
cmdOperator_Click opKurang
Case vbKeyDivide
cmdOperator_Click opBagi
Case vbKeyDecimal
cmdKoma_Click
Case vbKeyBack, vbKeyDelete
Hapus
End Select
KeyCode = 0
End Sub