IPRODUK
Private Sub Command1_Click()
Data1.Recordset.Index = "KDP"
Data1.Recordset.Seek "=", kp.Text
If Data1.Recordset.NoMatch Then
np.SetFocus
Command2.Enabled = True
Else
np.Text = Data1.Recordset!NAMA_PRODUK
np.Enabled = False
jp.Text = Data1.Recordset!SATUAN
jp.Enabled = False
hp.Text = Data1.Recordset!HARGA
hp.Enabled = False
Command3.Enabled = True
Command4.SetFocus
End If
End Sub
Private Sub Command2_Click()
Command2.Enabled = False
Data1.Recordset.Index = "KDP"
Data1.Recordset.Seek "=", kp.Text
If Data1.Recordset.NoMatch Then
Data1.Recordset.AddNew
Data1.Recordset!KD_PRODUK = kp.Text
Data1.Recordset!NAMA_PRODUK = np.Text
Data1.Recordset!SATUAN = Val(jml.Text)
Data1.Recordset!HARGA = hp.Text
Data1.Recordset.Update
Else
Data1.Recordset.Edit
Data1.Recordset!KD_PRODUK = kp.Text
Data1.Recordset!NAMA_PRODUK = np.Text
Data1.Recordset!SATUAN = Val(jml.Text)
Data1.Recordset!HARGA = hp.Text
Data1.Recordset.Update
End If
bersih
End Sub
Private Sub Command3_Click()
MsgBox "PENGHAPUSAN DATA PRODUK", vbInformation, "PROSES"
Data1.Recordset.Delete
Command3.Enabled = False
bersih
End Sub
Private Sub Command4_Click()
bersih
End Sub
Private Sub bersih()
kp = ""
kp.Enabled = True
np = ""
jml = ""
np.Enabled = True
jp = ""
jp.Enabled = True
hp = ""
hp.Enabled = True
kp.SetFocus
Command2.Enabled = False
Command3.Enabled = False
End Sub
Private Sub Command5_Click()
Unload Me
End Sub
Private Sub hp_Change()
ttl.Text = Val(jml.Text) * Val(hp.Text)
End Sub
Private Sub kp_keypress(keyascii As Integer)
If keyascii = 13 Then
Data1.Recordset.Index = "KDP"
Data1.Recordset.Seek "=", kp.Text
If Data1.Recordset.NoMatch Then
np.SetFocus
Command2.Enabled = True
Else
MsgBox "DATA PRODUK SUDAH DIKENAL! MAU LIHAT?", vbInformation, "PERINGATAN"
np.Text = Data1.Recordset!NAMA_PRODUK
np.Enabled = False
jp.Text = Data1.Recordset!SATUAN
jp.Enabled = False
hp.Text = Data1.Recordset!HARGA
hp.Enabled = False
jml.Enabled = False
Command3.Enabled = True
Command4.SetFocus
End If
End If
End Sub
IPEMASOK
Private Sub Command1_Click()
Data1.Recordset.Index = "KDPM"
Data1.Recordset.Seek "=", kpm.Text
If Data1.Recordset.NoMatch Then
npm.SetFocus
Command2.Enabled = True
Else
npm.Text = Data1.Recordset!NAMA_PEMASOK
npm.Enabled = False
almt.Text = Data1.Recordset!ALAMAT_PEMASOK
almt.Enabled = False
kt.Text = Data1.Recordset!KOTA
kt.Enabled = False
tlp.Text = Data1.Recordset!TELEPON
tlp.Enabled = False
Command3.Enabled = True
Command4.SetFocus
End If
End Sub
Private Sub Command2_Click()
Command2.Enabled = False
Data1.Recordset.Index = "KDPM"
Data1.Recordset.Seek "=", kpm.Text
If Data1.Recordset.NoMatch Then
Data1.Recordset.AddNew
Data1.Recordset!KD_PEMASOK = kpm.Text
Data1.Recordset!NAMA_PEMASOK = npm.Text
Data1.Recordset!ALAMAT_PEMASOK = almt.Text
Data1.Recordset!KOTA = kt.Text
Data1.Recordset!TELEPON = tlp.Text
Data1.Recordset.Update
Else
Data1.Recordset.Edit
Data1.Recordset!KD_PEMASOK = kpm.Text
Data1.Recordset!NAMA_PEMASOK = npm.Text
Data1.Recordset!ALAMAT_PEMASOK = almt.Text
Data1.Recordset!KOTA = kt.Text
Data1.Recordset!TELEPON = tlp.Text
Data1.Recordset.Update
End If
bersih
End Sub
Private Sub Command3_Click()
MsgBox "PENGHAPUSAN DATA PEMASOK", vbInformation, "PROSES"
Data1.Recordset.Delete
Command3.Enabled = False
bersih
End Sub
Private Sub Command4_Click()
bersih
End Sub
Private Sub bersih()
kpm = ""
kpm.Enabled = True
npm = ""
npm.Enabled = True
almt = ""
almt.Enabled = True
kt = ""
kt.Enabled = True
tlp = ""
tlp.Enabled = True
kpm.SetFocus
Command2.Enabled = False
Command3.Enabled = False
End Sub
Private Sub Command5_Click()
Unload Me
End Sub
Private Sub kpm_keypress(keyascii As Integer)
If keyascii = 13 Then
Data1.Recordset.Index = "KDPM"
Data1.Recordset.Seek "=", kpm.Text
If Data1.Recordset.NoMatch Then
npm.SetFocus
Command2.Enabled = True
Else
MsgBox "DATA PEMASOK SUDAH DIKENAL! MAU LIHAT?", vbInformation, "PERINGATAN"
npm.Text = Data1.Recordset!NAMA_PEMASOK
npm.Enabled = False
almt.Text = Data1.Recordset!ALAMAT_PEMASOK
almt.Enabled = False
kt.Text = Data1.Recordset!KOTA
kt.Enabled = False
tlp.Text = Data1.Recordset!TELEPON
tlp.Enabled = False
Command3.Enabled = True
Command4.SetFocus
End If
End If
End Sub
IPELANGGAN
Private Sub Command1_Click()
Data2.Recordset.Index = "KDPL"
Data2.Recordset.Seek "=", kpl.Text
If Data2.Recordset.NoMatch Then
npl.SetFocus
Command2.Enabled = True
Else
npl.Text = Data2.Recordset!NAMA_PELANGGAN
npl.Enabled = False
almt.Text = Data2.Recordset!ALAMAT_PELANGGAN
almt.Enabled = False
tlp.Text = Data2.Recordset!TELEPON
tlp.Enabled = False
Command3.Enabled = True
Command4.SetFocus
End If
End Sub
Private Sub Command2_Click()
Command2.Enabled = False
Data2.Recordset.Index = "KDPL"
Data2.Recordset.Seek "=", kpl.Text
If Data2.Recordset.NoMatch Then
Data2.Recordset.AddNew
Data2.Recordset!KD_PELANGGAN = kpl.Text
Data2.Recordset!NAMA_PELANGGAN = npl.Text
Data2.Recordset!ALAMAT_PELANGGAN = almt.Text
Data2.Recordset!TELEPON = tlp.Text
Data2.Recordset.Update
Else
Data2.Recordset.Edit
Data2.Recordset!KD_PELANGGAN = kpl.Text
Data2.Recordset!NAMA_PELANGGAN = npl.Text
Data2.Recordset!ALAMAT_PELANGGAN = almt.Text
Data2.Recordset!TELEPON = tlp.Text
Data2.Recordset.Update
End If
bersih
End Sub
Private Sub Command3_Click()
MsgBox "PENGHAPUSAN DATA PELANGGAN", vbInformation, "PROSES"
Data2.Recordset.Delete
Command3.Enabled = False
bersih
End Sub
Private Sub Command4_Click()
bersih
End Sub
Private Sub bersih()
kpl = ""
kpl.Enabled = True
npl = ""
npl.Enabled = True
almt = ""
almt.Enabled = True
tlp = ""
tlp.Enabled = True
kpl.SetFocus
Command2.Enabled = False
Command3.Enabled = False
End Sub
Private Sub Command5_Click()
Unload Me
End Sub
Private Sub kpl_keypress(keyascii As Integer)
If keyascii = 13 Then
Data2.Recordset.Index = "KDPL"
Data2.Recordset.Seek "=", kpl.Text
If Data2.Recordset.NoMatch Then
npl.SetFocus
Command2.Enabled = True
Else
MsgBox "DATA PELANGGAN SUDAH DIKENAL! MAU LIHAT?", vbInformation, "PERINGATAN"
npl.Text = Data2.Recordset!NAMA_PELANGGAN
npl.Enabled = False
almt.Text = Data2.Recordset!ALAMAT_PELANGGAN
almt.Enabled = False
tlp.Text = Data2.Recordset!TELEPON
tlp.Enabled = False
Command3.Enabled = True
Command4.SetFocus
End If
End If
End Sub
IJUAL
Private Sub Command1_Click()
Data2.Recordset.Index = "KDP"
Data2.Recordset.Seek "=", kp.Text
If Data2.Recordset.NoMatch Then
MsgBox "DATA PRODUK TIDAK DIKENAL", vbInformation, "PERINGATAN"
kp.SetFocus
kp = ""
Else
jj.SetFocus
hj.Text = Data2.Recordset!HARGA + Data2.Recordset!HARGA * 0.5
jp.Text = Data2.Recordset!SATUAN
End If
End Sub
Private Sub Command2_Click()
Command2.Enabled = False
Data3.Recordset.Index = "NFJ"
Data3.Recordset.Seek "=", nf.Text
If Data3.Recordset.NoMatch Then
Data3.Recordset.AddNew
Data3.Recordset!NOFAK_JUAL = nf.Text
Data3.Recordset!KD_PRODUK = kp.Text
Data3.Recordset!KD_PELANGGAN = kpl.Text
Data3.Recordset!BANYAK = Val(jj.Text)
Data3.Recordset!HARGA = Val(hj.Text)
Data3.Recordset!TANGGAL = tgl.Text
Data3.Recordset.Update
Else
Data3.Recordset.Edit
Data3.Recordset!NOFAK_JUAL = nf.Text
Data3.Recordset!KD_PRODUK = kp.Text
Data3.Recordset!KD_PELANGGAN = kpl.Text
Data3.Recordset!BANYAK = Val(jj.Text)
Data3.Recordset!HARGA = Val(hj.Text)
Data3.Recordset!TANGGAL = tgl.Text
Data3.Recordset.Update
End If
Data2.Recordset.Edit
Data2.Recordset!SATUAN = Val(jp.Text) - Val(jj.Text)
Data2.Recordset.Update
bersih
End Sub
Private Sub Command3_Click()
MsgBox "PENGHAPUSAN FAKTUR DATA PENJUALAN", vbInformation, "PROSES"
Data3.Recordset.Delete
Command3.Enabled = False
bersih
End Sub
Private Sub Command4_Click()
Command2.Enabled = False
Command3.Enabled = False
Command6.Enabled = True
Command1.Enabled = True
bersih
End Sub
Private Sub bersih()
kp = ""
kp.Enabled = True
kpl = ""
kpl.Enabled = True
nf = ""
nf.Enabled = True
jp = ""
tgl.Mask = ""
tgl.Enabled = True
jj = ""
jj.Enabled = True
hj = ""
hj.Enabled = True
nf.SetFocus
End Sub
Private Sub Command5_Click()
Unload Me
End Sub
Private Sub Command6_Click()
Data1.Recordset.Index = "KDPL"
Data1.Recordset.Seek "=", kpl.Text
If Data1.Recordset.NoMatch Then
kpm.SetFocus
MsgBox "DATA PELANGGAN TIDAK DIKENAL", vbInformation, "PERINGATAN"
kpl.SetFocus
kpl = ""
Else
kp.SetFocus
End If
End Sub
Private Sub Command7_Click()
Data3.Recordset.Index = "NFJ"
Data3.Recordset.Seek "=", nf.Text
If Data3.Recordset.NoMatch Then
kpl.SetFocus
Command2.Enabled = True
Else
MsgBox "FAKTUR SUDAH DIKENAL! MAU LIHAT?", vbInformation, "PERINGATAN"
kp.Text = Data3.Recordset!KD_PRODUK
kp.Enabled = False
kpl.Text = Data3.Recordset!KD_PELANGGAN
kpl.Enabled = False
hj.Text = Data3.Recordset!HARGA
hj.Enabled = False
jj.Text = Data3.Recordset!BANYAK
jj.Enabled = False
jp.Text = Data2.Recordset!SATUAN
jp.Enabled = False
tgl.Text = Data3.Recordset!TANGGAL
hj.Enabled = False
Command2.Enabled = False
Command6.Enabled = False
Command1.Enabled = False
Command3.Enabled = True
Command4.SetFocus
End If
End Sub
Private Sub jj_Change()
Command2.Enabled = True
tot.Text = Val(jj.Text) * Val(hj.Text)
End Sub
Private Sub kp_keypress(keyascii As Integer)
If keyascii = 13 Then
Data2.Recordset.Index = "KDP"
Data2.Recordset.Seek "=", kp.Text
If Data2.Recordset.NoMatch Then
MsgBox "DATA PRODUK TIDAK DIKENAL", vbInformation, "PERINGATAN"
kp.SetFocus
kp = ""
Else
jj.SetFocus
hj.Text = Data2.Recordset!HARGA + Data2.Recordset!HARGA * 0.5
jp.Text = Data2.Recordset!SATUAN
End If
End If
End Sub
Private Sub kpl_keypress(keyascii As Integer)
If keyascii = 13 Then
Data1.Recordset.Index = "KDPL"
Data1.Recordset.Seek "=", kpl.Text
If Data1.Recordset.NoMatch Then
MsgBox "DATA PELANGGAN TIDAK DIKENAL", vbInformation, "PERINGATAN"
kpl.SetFocus
kpl = ""
Else
kp.SetFocus
End If
End If
End Sub
Private Sub nf_keypress(keyascii As Integer)
If keyascii = 13 Then
Data3.Recordset.Index = "NFJ"
Data3.Recordset.Seek "=", nf.Text
If Data3.Recordset.NoMatch Then
kpl.SetFocus
Command2.Enabled = True
Else
MsgBox "FAKTUR SUDAH DIKENAL! MAU LIHAT?", vbInformation, "PERINGATAN"
kp.Text = Data3.Recordset!KD_PRODUK
kp.Enabled = False
kpl.Text = Data3.Recordset!KD_PELANGGAN
kpl.Enabled = False
hj.Text = Data3.Recordset!HARGA
hj.Enabled = False
jj.Text = Data3.Recordset!BANYAK
jj.Enabled = False
jp.Text = Data2.Recordset!SATUAN
jp.Enabled = False
tgl.Text = Data3.Recordset!TANGGAL
hj.Enabled = False
tgl.Enabled = False
Command2.Enabled = False
Command6.Enabled = False
Command1.Enabled = False
Command3.Enabled = True
Command4.SetFocus
End If
End If
End Sub
EPRODUK
Private Sub Command1_Click()
Data1.Recordset.Index = "KDP"
Data1.Recordset.Seek "=", kp.Text
If Data1.Recordset.NoMatch Then
MsgBox "DATA TIDAK DIKENAL", vbInformation, "PERINGATAN"
bersih
Else
MsgBox "PENCARIAN DATA PRODUK SUDAH KETEMU! MAU LIHAT?", vbInformation, "PERINGATAN"
np.Text = Data1.Recordset!NAMA_PRODUK
np.Enabled = False
jp.Text = Data1.Recordset!SATUAN
jp.Enabled = False
hp.Text = Data1.Recordset!HARGA
hp.Enabled = False
Command3.Enabled = True
End If
End Sub
Private Sub Command2_Click()
Command2.Enabled = False
Data1.Recordset.Index = "KDP"
Data1.Recordset.Seek "=", kp.Text
If Data1.Recordset.NoMatch Then
Data1.Recordset.AddNew
Data1.Recordset!KD_PRODUK = kp.Text
Data1.Recordset!NAMA_PRODUK = np.Text
Data1.Recordset!SATUAN = Val(jp.Text) + Val(jml.Text)
Data1.Recordset!HARGA = hp.Text
Data1.Recordset.Update
Else
Data1.Recordset.Edit
Data1.Recordset!KD_PRODUK = kp.Text
Data1.Recordset!NAMA_PRODUK = np.Text
Data1.Recordset!SATUAN = Val(jp.Text) + Val(jml.Text)
Data1.Recordset!HARGA = hp.Text
Data1.Recordset.Update
End If
bersih
End Sub
Private Sub Command3_Click()
np.Enabled = True
hp.Enabled = True
Command3.Enabled = False
Command2.Enabled = True
np.SetFocus
End Sub
Private Sub Command4_Click()
bersih
End Sub
Private Sub bersih()
kp = ""
np = ""
np.Enabled = False
jp = ""
jp.Enabled = False
jml = ""
hp = ""
hp.Enabled = False
kp.SetFocus
Command2.Enabled = False
Command3.Enabled = False
End Sub
Private Sub Command5_Click()
Unload Me
End Sub
Private Sub jml_Change()
Command2.Enabled = True
TOT.Text = Val(jp.Text) * Val(hp.Text)
End Sub
Private Sub kp_keypress(keyascii As Integer)
If keyascii = 13 Then
Data1.Recordset.Index = "KDP"
Data1.Recordset.Seek "=", kp.Text
If Data1.Recordset.NoMatch Then
MsgBox "DATA TIDAK DIKENAL", vbInformation, "PERINGATAN"
bersih
Else
MsgBox "PENCARIAN DATA PRODUK SUDAH KETEMU! MAU LIHAT?", vbInformation, "PERINGATAN"
np.Text = Data1.Recordset!NAMA_PRODUK
np.Enabled = False
jp.Text = Data1.Recordset!SATUAN
jp.Enabled = False
hp.Text = Data1.Recordset!HARGA
hp.Enabled = False
Command3.Enabled = True
End If
End If
End Sub
EPEMASOK
Private Sub Command1_Click()
Data1.Recordset.Index = "KDPM"
Data1.Recordset.Seek "=", kpm.Text
If Data1.Recordset.NoMatch Then
MsgBox "KODE PEMASOK TIDAK DIKENAL", vbInformation, "PERINGATAN"
bersih
Else
MsgBox "PENCARIAN DATA PEMASOK SUDAH KETEMU! MAU LIHAT?", vbInformation, "PERINGATAN"
npm.Text = Data1.Recordset!NAMA_PEMASOK
npm.Enabled = False
almt.Text = Data1.Recordset!ALAMAT_PEMASOK
almt.Enabled = False
kt.Text = Data1.Recordset!KOTA
kt.Enabled = False
tlp.Text = Data1.Recordset!TELEPON
tlp.Enabled = False
Command3.Enabled = True
End If
End Sub
Private Sub Command2_Click()
Command2.Enabled = False
Data1.Recordset.Index = "KDPM"
Data1.Recordset.Seek "=", kpm.Text
If Data1.Recordset.NoMatch Then
Data1.Recordset.AddNew
Data1.Recordset!KD_PEMASOK = kpm.Text
Data1.Recordset!NAMA_PEMASOK = npm.Text
Data1.Recordset!ALAMAT_PEMASOK = almt.Text
Data1.Recordset!KOTA = kt.Text
Data1.Recordset!TELEPON = tlp.Text
Data1.Recordset.Update
Else
Data1.Recordset.Edit
Data1.Recordset!KD_PEMASOK = kpm.Text
Data1.Recordset!NAMA_PEMASOK = npm.Text
Data1.Recordset!ALAMAT_PEMASOK = almt.Text
Data1.Recordset!KOTA = kt.Text
Data1.Recordset!TELEPON = tlp.Text
Data1.Recordset.Update
End If
bersih
End Sub
Private Sub Command3_Click()
npm.Enabled = True
almt.Enabled = True
kt.Enabled = True
tlp.Enabled = True
Command3.Enabled = False
Command2.Enabled = True
npm.SetFocus
End Sub
Private Sub Command4_Click()
bersih
End Sub
Private Sub bersih()
kpm = ""
npm = ""
npm.Enabled = False
almt = ""
almt.Enabled = False
kt = ""
kt.Enabled = False
tlp = ""
tlp.Enabled = False
kpm.SetFocus
Command2.Enabled = False
Command3.Enabled = False
End Sub
Private Sub Command5_Click()
Unload Me
End Sub
Private Sub kpm_keypress(keyascii As Integer)
If keyascii = 13 Then
Data1.Recordset.Index = "KDPM"
Data1.Recordset.Seek "=", kpm.Text
If Data1.Recordset.NoMatch Then
MsgBox "DATA PEMASOK TIDAK DIKENAL", vbInformation, "PERINGATAN"
bersih
Else
MsgBox "PENCARIAN DATA PEMASOK SUDAH KETEMU! MAU LIHAT?", vbInformation, "PERINGATAN"
npm.Text = Data1.Recordset!NAMA_PEMASOK
npm.Enabled = False
almt.Text = Data1.Recordset!ALAMAT_PEMASOK
almt.Enabled = False
kt.Text = Data1.Recordset!KOTA
kt.Enabled = False
tlp.Text = Data1.Recordset!TELEPON
tlp.Enabled = False
Command3.Enabled = True
End If
End If
End Sub
EPELANGGAN
Private Sub Command1_Click()
Data1.Recordset.Index = "KDPL"
Data1.Recordset.Seek "=", kpl.Text
If Data1.Recordset.NoMatch Then
MsgBox "KODE PELANGGAN TIDAK DIKENAL", vbInformation, "PERINGATAN"
bersih
Else
MsgBox "PENCARIAN DATA PELANGGAN SUDAH KETEMU! MAU LIHAT?", vbInformation, "PERINGATAN"
npl.Text = Data1.Recordset!NAMA_PELANGGAN
npl.Enabled = False
almt.Text = Data1.Recordset!ALAMAT_PELANGGAN
almt.Enabled = False
tlp.Text = Data1.Recordset!TELEPON
tlp.Enabled = False
Command3.Enabled = True
End If
End Sub
Private Sub Command2_Click()
Command2.Enabled = False
Data1.Recordset.Index = "KDPL"
Data1.Recordset.Seek "=", kpl.Text
If Data1.Recordset.NoMatch Then
Data1.Recordset.AddNew
Data1.Recordset!KD_PELANGGAN = kpl.Text
Data1.Recordset!NAMA_PELANGGAN = npl.Text
Data1.Recordset!ALAMAT_PELANGGAN = almt.Text
Data1.Recordset!TELEPON = tlp.Text
Data1.Recordset.Update
Else
Data1.Recordset.Edit
Data1.Recordset!KD_PELANGGAN = kpl.Text
Data1.Recordset!NAMA_PELANGGAN = npl.Text
Data1.Recordset!ALAMAT_PELANGGAN = almt.Text
Data1.Recordset!TELEPON = tlp.Text
Data1.Recordset.Update
End If
bersih
End Sub
Private Sub Command3_Click()
npl.Enabled = True
almt.Enabled = True
tlp.Enabled = True
Command3.Enabled = False
Command2.Enabled = True
npl.SetFocus
End Sub
Private Sub Command4_Click()
bersih
End Sub
Private Sub bersih()
kpl = ""
npl = ""
npl.Enabled = False
almt = ""
almt.Enabled = False
tlp = ""
tlp.Enabled = False
kpl.SetFocus
Command2.Enabled = False
Command3.Enabled = False
End Sub
Private Sub Command5_Click()
Unload Me
End Sub
Private Sub kpl_keypress(keyascii As Integer)
If keyascii = 13 Then
Data1.Recordset.Index = "KDPL"
Data1.Recordset.Seek "=", kpl.Text
If Data1.Recordset.NoMatch Then
MsgBox "DATA PELANGGAN TIDAK DIKENAL", vbInformation, "PERINGATAN"
bersih
Else
MsgBox "PENCARIAN DATA PELANGGAN SUDAH KETEMU! MAU LIHAT?", vbInformation, "PERINGATAN"
npl.Text = Data1.Recordset!NAMA_PELANGGAN
npl.Enabled = False
almt.Text = Data1.Recordset!ALAMAT_PELANGGAN
almt.Enabled = False
tlp.Text = Data1.Recordset!TELEPON
tlp.Enabled = False
Command3.Enabled = True
End If
End If
End Sub
EJAUAL
Option Explicit
Private Sub Command3_Click()
Command1.Enabled = True
HIDUP
Command6.Enabled = True
Command3.Enabled = False
End Sub
Private Sub HIDUP()
kp.Enabled = True
kpl.Enabled = True
nf.Enabled = True
tgl.Enabled = True
jj.Enabled = True
hj.Enabled = True
jj.SetFocus
End Sub
Private Sub Command1_Click()
Data2.Recordset.Index = "KDP"
Data2.Recordset.Seek "=", kp.Text
If Data2.Recordset.NoMatch Then
MsgBox "DATA PRODUK TIDAK DIKENAL", vbInformation, "PERINGATAN"
kp.SetFocus
kp = ""
Else
jj.SetFocus
hj.Text = Data2.Recordset!HARGA + Data2.Recordset!HARGA * 0.5
jp.Text = Data2.Recordset!SATUAN
End If
End Sub
Private Sub Command2_Click()
Data3.Recordset.Index = "NFJ"
Data3.Recordset.Seek "=", nf.Text
If Data3.Recordset.NoMatch Then
Data3.Recordset.AddNew
Data3.Recordset!NOFAK_JUAL = nf.Text
Data3.Recordset!KD_PRODUK = kp.Text
Data3.Recordset!KD_PELANGGAN = kpl.Text
Data3.Recordset!BANYAK = Val(jj.Text)
Data3.Recordset!HARGA = Val(hj.Text)
Data3.Recordset!TANGGAL = tgl.Text
Data3.Recordset.Update
Else
Data3.Recordset.Edit
Data3.Recordset!NOFAK_JUAL = nf.Text
Data3.Recordset!KD_PRODUK = kp.Text
Data3.Recordset!KD_PELANGGAN = kpl.Text
Data3.Recordset!BANYAK = Val(jj.Text)
Data3.Recordset!HARGA = Val(hj.Text)
Data3.Recordset!TANGGAL = tgl.Text
Data3.Recordset.Update
End If
Data2.Recordset.Edit
Data2.Recordset!SATUAN = Val(jp.Text) - Val(jj.Text)
Data2.Recordset.Update
bersih
Command2.Enabled = False
End Sub
Private Sub Command4_Click()
bersih
Command2.Enabled = False
Command3.Enabled = False
Command6.Enabled = False
Command1.Enabled = False
End Sub
Private Sub bersih()
kp = ""
kp.Enabled = True
kpl = ""
kpl.Enabled = True
nf = ""
nf.Enabled = True
jp = ""
tgl.Mask = ""
tgl.Enabled = False
jj = ""
jj.Enabled = True
hj = ""
hj.Enabled = True
nf.SetFocus
End Sub
Private Sub Command5_Click()
Unload Me
End Sub
Private Sub Command6_Click()
Data1.Recordset.Index = "KDPL"
Data1.Recordset.Seek "=", kpl.Text
If Data1.Recordset.NoMatch Then
MsgBox "DATA PELANGGAN TIDAK DIKENAL", vbInformation, "PERINGATAN"
kpl.SetFocus
kpl = ""
End If
End Sub
Private Sub Command7_Click()
Data3.Recordset.Index = "NFJ"
Data3.Recordset.Seek "=", nf.Text
If Data3.Recordset.NoMatch Then
nf.SetFocus
Else
MsgBox "FAKTUR SUDAH DIKENAL! MAU LIHAT?", vbInformation, "PERINGATAN"
kp.Text = Data3.Recordset!KD_PRODUK
kp.Enabled = False
kpl.Text = Data3.Recordset!KD_PELANGGAN
kpl.Enabled = False
hj.Text = Data3.Recordset!HARGA
hj.Enabled = False
jj.Text = Data3.Recordset!BANYAK
jj.Enabled = False
jp.Text = Data2.Recordset!SATUAN
jp.Enabled = False
tgl.Text = Data3.Recordset!TANGGAL
tgl.Enabled = False
hj.Enabled = False
Command2.Enabled = False
Command6.Enabled = False
Command1.Enabled = False
Command3.Enabled = True
Command4.SetFocus
End If
End Sub
Private Sub jj_Change()
Command2.Enabled = True
tot.Text = Val(jj.Text) * Val(hj.Text)
End Sub
Private Sub kp_keypress(keyascii As Integer)
If keyascii = 13 Then
Data2.Recordset.Index = "KDP"
Data2.Recordset.Seek "=", kp.Text
If Data2.Recordset.NoMatch Then
MsgBox "DATA PRODUK TIDAK DIKENAL", vbInformation, "PERINGATAN"
kp.SetFocus
kp = ""
Else
jj.SetFocus
hj.Text = Data2.Recordset!HARGA + Data2.Recordset!HARGA * 0.5
jp.Text = Data2.Recordset!SATUAN
End If
End If
End Sub
Private Sub kpl_keypress(keyascii As Integer)
If keyascii = 13 Then
Data1.Recordset.Index = "KDPL"
Data1.Recordset.Seek "=", kpl.Text
If Data1.Recordset.NoMatch Then
MsgBox "DATA PELANGGAN TIDAK DIKENAL", vbInformation, "PERINGATAN"
kpl.SetFocus
kpl = ""
End If
End If
End Sub
Private Sub nf_keypress(keyascii As Integer)
If keyascii = 13 Then
Data3.Recordset.Index = "NFJ"
Data3.Recordset.Seek "=", nf.Text
If Data3.Recordset.NoMatch Then
MsgBox "FAKTUR PENJUALAN TIDAK DIKENAL", vbInformation, "PERINGATAN"
nf = ""
nf.SetFocus
Else
MsgBox "FAKTUR SUDAH DIKENAL! MAU LIHAT?", vbInformation, "PERINGATAN"
kp.Text = Data3.Recordset!KD_PRODUK
kp.Enabled = False
kpl.Text = Data3.Recordset!KD_PELANGGAN
kpl.Enabled = False
hj.Text = Data3.Recordset!HARGA
hj.Enabled = False
jj.Text = Data3.Recordset!BANYAK
jj.Enabled = False
jp.Text = Data2.Recordset!SATUAN
jp.Enabled = False
tgl.Text = Data3.Recordset!TANGGAL
hj.Enabled = False
tgl.Enabled = False
Command2.Enabled = False
Command6.Enabled = False
Command1.Enabled = False
Command3.Enabled = True
Command4.SetFocus
End If
End If
End Sub
EBELI
Private Sub Command1_Click()
Data2.Recordset.Index = "KDP"
Data2.Recordset.Seek "=", kp.Text
If Data2.Recordset.NoMatch Then
MsgBox "DATA PRODUK TIDAK DIKENAL", vbInformation, "PERINGATAN"
kp.SetFocus
kp = ""
Else
jb.SetFocus
hB.Text = Data2.Recordset!HARGA
jp.Text = Data2.Recordset!SATUAN
End If
End Sub
Private Sub Command2_Click()
Command2.Enabled = False
Data3.Recordset.Index = "NF"
Data3.Recordset.Seek "=", nf.Text
If Data3.Recordset.NoMatch Then
Data3.Recordset.AddNew
Data3.Recordset!NOFAK_BELI = nf.Text
Data3.Recordset!KD_PRODUK = kp.Text
Data3.Recordset!KD_PEMASOK = kpm.Text
Data3.Recordset!BANYAK = Val(jb.Text)
Data3.Recordset!HARGA = hB.Text
Data3.Recordset!TANGGAL = tgl.Text
Data3.Recordset.Update
Else
Data3.Recordset.Edit
Data3.Recordset!NOFAK_BELI = nf.Text
Data3.Recordset!KD_PRODUK = kp.Text
Data3.Recordset!KD_PEMASOK = kpm.Text
Data3.Recordset!BANYAK = Val(jb.Text)
Data3.Recordset!HARGA = hB.Text
Data3.Recordset!TANGGAL = tgl.Text
Data3.Recordset.Update
End If
Data2.Recordset.Edit
Data2.Recordset!SATUAN = Val(jp.Text) + Val(jb.Text)
Data2.Recordset.Update
bersih
mati
End Sub
Private Sub Command3_Click()
Command2.Enabled = True
kp.Enabled = True
kpm.Enabled = True
tgl.Enabled = True
jb.Enabled = True
Command6.Enabled = True
Command1.Enabled = True
Command3.Enabled = False
kp.SetFocus
End Sub
Private Sub Command4_Click()
bersih
mati
End Sub
Private Sub mati()
Command1.Enabled = False
Command6.Enabled = False
kp.Enabled = False
kpm.Enabled = False
jp.Enabled = False
jb.Enabled = False
tgl.Enabled = False
End Sub
Private Sub bersih()
kp = ""
kp.Enabled = True
kpm = ""
kpm.Enabled = True
nf = ""
nf.Enabled = True
jp = ""
tgl.Mask = ""
tgl.Enabled = True
jb = ""
jb.Enabled = True
hB = ""
hB.Enabled = True
nf.SetFocus
Command2.Enabled = False
Command3.Enabled = False
End Sub
Private Sub Command5_Click()
Unload Me
End Sub
Private Sub Command6_Click()
Data1.Recordset.Index = "KDPM"
Data1.Recordset.Seek "=", kpm.Text
If Data1.Recordset.NoMatch Then
MsgBox "DATA PEMASOK TIDAK DIKENAL", vbInformation, "PERINGATAN"
kpm.SetFocus
kpm = ""
End If
End Sub
Private Sub Command7_Click()
Data3.Recordset.Index = "NF"
Data3.Recordset.Seek "=", nf.Text
If Data3.Recordset.NoMatch Then
MsgBox "FAKTUR TIDAK DIKENAL", vbInformation, "PERINGATAN"
nf = ""
nf.SetFocus
Else
MsgBox "PENCARIAN FAKTUR SUDAH KETEMU! MAU LIHAT?", vbInformation, "PERINGATAN"
kp.Text = Data3.Recordset!KD_PRODUK
kp.Enabled = False
kpm.Text = Data3.Recordset!KD_PEMASOK
kpm.Enabled = False
hB.Text = Data3.Recordset!HARGA
hB.Enabled = False
jb.Text = Data3.Recordset!BANYAK
jb.Enabled = False
jp.Text = Data2.Recordset!SATUAN
jp.Enabled = False
tgl.Text = Data3.Recordset!TANGGAL
tgl.Enabled = False
Command2.Enabled = False
Command3.Enabled = True
Command4.SetFocus
End If
End Sub
Private Sub jb_Change()
Command2.Enabled = True
tot.Text = Val(jb.Text) * Val(hB.Text)
End Sub
Private Sub kp_keypress(keyascii As Integer)
If keyascii = 13 Then
Data2.Recordset.Index = "KDP"
Data2.Recordset.Seek "=", kp.Text
If Data2.Recordset.NoMatch Then
MsgBox "DATA PRODUK TIDAK DIKENAL", vbInformation, "PERINGATAN"
kp.SetFocus
kp = ""
Else
jb.SetFocus
hB.Text = Data2.Recordset!HARGA
jp.Text = Data2.Recordset!SATUAN
End If
End If
End Sub
Private Sub kpm_keypress(keyascii As Integer)
If keyascii = 13 Then
Data1.Recordset.Index = "KDPM"
Data1.Recordset.Seek "=", kpm.Text
If Data1.Recordset.NoMatch Then
MsgBox "DATA PEMASOK TIDAK DIKENAL", vbInformation, "PERINGATAN"
kpm.SetFocus
kpm = ""
End If
End If
End Sub
Private Sub nf_keypress(keyascii As Integer)
If keyascii = 13 Then
Data3.Recordset.Index = "NF"
Data3.Recordset.Seek "=", nf.Text
If Data3.Recordset.NoMatch Then
MsgBox "FAKTUR TIDAK DIKENAL", vbInformation, "PERINGATAN"
nf = ""
nf.SetFocus
Else
MsgBox "PENCARIAN FAKTUR SUDAH KETEMU! MAU LIHAT?", vbInformation, "PERINGATAN"
kp.Text = Data3.Recordset!KD_PRODUK
kp.Enabled = False
kpm.Text = Data3.Recordset!KD_PEMASOK
kpm.Enabled = False
hB.Text = Data3.Recordset!HARGA
hB.Enabled = False
jb.Text = Data3.Recordset!BANYAK
jb.Enabled = False
jp.Text = Data2.Recordset!SATUAN
jp.Enabled = False
tgl.Text = Data3.Recordset!TANGGAL
hB.Enabled = False
Command2.Enabled = False
Command3.Enabled = True
Command4.SetFocus
End If
End If
End Sub
CPRODUK
Option Explicit
Private Sub Command1_Click()
Command1.Enabled = False
kp2.Enabled = True
kp2.SetFocus
End Sub
Private Sub Command5_Click()
Unload Me
End Sub
Private Sub kp_Change()
Command1.Enabled = True
End Sub
Private Sub Check1_Click()
If Check1.Value = vbChecked Then
Command1.Enabled = False
Command2.Enabled = True
Command3.Enabled = False
kp.Enabled = True
kp.SetFocus
Else
Command1.Enabled = False
Command2.Enabled = False
Command3.Enabled = True
kp.Enabled = False
kp = ""
kp2.Enabled = False
kp2 = ""
End If
End Sub
Private Sub Command2_Click()
Check1.Value = vbUnchecked
Command1.Enabled = False
End Sub
CPEMAOSK
Option Explicit
Private Sub Command1_Click()
Command1.Enabled = False
kp2.Enabled = True
kp2.SetFocus
End Sub
Private Sub Command5_Click()
Unload Me
End Sub
Private Sub kp_Change()
Command1.Enabled = True
End Sub
Private Sub Check1_Click()
If Check1.Value = vbChecked Then
Command2.Enabled = True
Command3.Enabled = False
Command1.Enabled = False
kp.Enabled = True
kp.SetFocus
Else
Command2.Enabled = False
Command1.Enabled = False
Command3.Enabled = True
kp.Enabled = False
kp = ""
kp2.Enabled = False
kp2 = ""
End If
End Sub
Private Sub Command2_Click()
Check1.Value = vbUnchecked
Command1.Enabled = False
End Sub
CPELANGGAAN
Option Explicit
Private Sub Command1_Click()
Command1.Enabled = False
kp2.Enabled = True
kp2.SetFocus
End Sub
Private Sub Command5_Click()
Unload Me
End Sub
Private Sub kp_Change()
Command1.Enabled = True
End Sub
Private Sub Check1_Click()
If Check1.Value = vbChecked Then
Command2.Enabled = True
Command3.Enabled = False
Command1.Enabled = False
kp.Enabled = True
kp.SetFocus
Else
Command2.Enabled = False
Command1.Enabled = False
Command3.Enabled = True
kp.Enabled = False
kp = ""
kp2.Enabled = False
kp2 = ""
End If
End Sub
Private Sub Command2_Click()
Check1.Value = vbUnchecked
Command1.Enabled = False
End Sub
CJUAL
Option Explicit
Private Sub Command1_Click()
Command1.Enabled = False
kp2.Enabled = True
kp2.SetFocus
End Sub
Private Sub Command5_Click()
Unload Me
End Sub
Private Sub kp0_Change()
Command1.Enabled = True
End Sub
Private Sub Check1_Click()
If Check1.Value = vbChecked Then
Command1.Enabled = False
Command2.Enabled = True
Command3.Enabled = False
kp0.Enabled = True
kp0.SetFocus
Else
Command1.Enabled = False
Command2.Enabled = False
Command3.Enabled = True
kp0.Enabled = False
kp0 = ""
kp2.Enabled = False
kp2 = ""
End If
End Sub
Private Sub Command2_Click()
Check1.Value = vbUnchecked
Command1.Enabled = False
End Sub
CBELI
Option Explicit
Private Sub Check1_Click()
If Check1.Value = vbChecked Then
Command2.Enabled = True
Command3.Enabled = False
Command1.Enabled = False
kp.Enabled = True
kp.SetFocus
Else
Command2.Enabled = False
Command1.Enabled = False
Command3.Enabled = True
kp.Enabled = False
kp = ""
kp2.Enabled = False
kp2 = ""
End If
End Sub
Private Sub Command1_Click()
Command1.Enabled = False
kp2.Enabled = True
kp2.SetFocus
End Sub
Private Sub Command2_Click()
Check1.Value = vbUnchecked
Command1.Enabled = False
End Sub
Private Sub Command5_Click()
Unload Me
End Sub
Private Sub kp_Change()
Command1.Enabled = True
End Sub
Minggu, 18 April 2010
spk ibnu
Sistem Informasi dan Pengambilan Keputusan
Definisi dan Pokok-pokok Sistem Manajemen
Sistem Informasi Manajemen (SIM), adalah sistem pengolahan data untuk menjadi informasi dengan menggunakan manusia dan komputer. Informasi itu sangat dibutuhkan untuk fungsi manajemen, artinya sebagai bahan pijakan para pengambil keputusan (sesuai dengan tahapan managerialnya), dalam mengambil keputusannya. Penggunaan komputer dalam SIM karena komputer dalam beberapa hal memiliki kemampuan yang melebihi kemampuan manusia, misalnya: dapat menyimpan sejumlah data yang banyak, pengolahan data yang cepat dan akurat, dan dapat memunculkan informasi kapan saja. Keadaan data sebagai bahan informasi jumlahnya sangat banyak dan bervariasi, hal ini sesuai dengan keadaan data dari berbagai bagian organisasi yang mendukung organisasi tersebut. Data yang bervariasi dan banyak itu agar terpadu dalam pengolahannya ditampung secara sistematis dalam data base. Untuk meningkatkan efisiensi dan produktivitas dari Sistem Informasi Manajemen, prosedur kerjanya dilaksanakan dengan on-line, yaitu beberapa komputer dan bagian-bagian organisasi dan subbagian organisasi dikembang-kan dengan “pusat komputer” sebagai terminal; manfaatnya agar setiap yang membutuh-kan dapat dengan cepat memperoleh informasi.
Berbagai jenis informasi akan dibutuhkan oleh setiap tingkatan managerial sesuai dengan keperluannya. Tingkatan-tingkatan managerial itu ialah: top management, midle management, low management, dan operation personal.
Salah satu bagian untuk memahami SIM adalah adanya pokok-pokok SIM, yaitu elemen-elemen yang terlibat dalam sistem informasi manajemen. Pada garis besarnya elemen-elemen yang terlibat dalam SIM terdiri dari 3 bagian, yaitu:
1. perangkat keras (hard ware),
2. perangkat lunak (software) yang terbagi dalam: data base, sistem umum, dan prosedur, dan
3. faktor manusia yang dimaksud dalam bagian ini adalah petugas pengoperasian komputer, yang menjamin benar dan lancarnya informasi.
Sistem umum terdiri dari subsistem kegiatan dan subsistem fungsi organisasi. Subsistem kegiatan yaitu: perencanaan strategis, pengendalian manajemen, pengendalian operasional, dan pengolahan transaksi.
Sedangkan subsistem fungsi organisasi adalah yang bersangkutan dengan bagian-bagian dari organisasi bisnis, seperti: pemasaran, produksi, logistik, personalia dan sebagainya. Yang terdiri dari komputer dengan berbagai fungsi dan modelnya
Evaluasi Perkembangan Konsep dan Profesional SIM
Dalam “kegiatan belajar 2″ yang bertemakan Evolusi Perkembangaan Konsep SIM, maksudnya adalah secara pelan (tidak serentak) tetapi pasti sistem informasi manajemen mengalami perkembangan. Perkembangan tersebut terjadi pada prosedurnya, dan pengolahan komputer; sehingga hal ini dapat meningkatkan kemampuan organisasi. Perkembangan prosedural yaitu semakin meningkatnya penggunaan konsep-konsep manajemen dalam SIM; seperi: teori manajemen, ilmu manajemen, dan perakunan manajerial. Tentu saja penggunaan istilah-istilah tersebut lebih cenderung khas penggunaannya dalam SIM. Penggunaan teori manajemen dalam SIM bertujuan untuk peningkatan perilaku manusia, baik yang terlibat dalam proses (sistem manusia dan mesin) maupun yang terlibat dalam pengambilan keputusan; sehingga kualitas organisasi meningkat. Ilmu manajemen cenderung memakai kriteria ekonomis dan teknis dari pada kriteria perilaku; misalnya: sistematis dalam pemecahan masalah, pemakaian prosedur matematis dan statistis dalam analisis keputusannya.
Perakunan manajerial digunakan dalam perhitungan keuangan secara keseluruhan; disamping perhitungan biaya dan penganggaran, Pengolahan komputer berkembang sejajar dengan berkembangnya teknologi komputer, baik dalam perangkat kerasnya maupun perangkat lunaknya, sehingga benar-benar mendukung ketepatan dan kecepatan informasi yang dibutuhkan. Pada sistem informasi manajemen, seperti pada bidang-bidang pekerjaan lainnya, terjadi usaha peningkatan profesional, yaitu usaha peningkatan mutu sumber daya manusia. Usaha tersebut dilaksanakan melalui program akademis formal. Pada prinsipnya program akademis formal dibagi dalam dua bagian, sesuai dengan kebutuhan sistem informasi itu sendiri, yaitu bidang analisis sistem keorganisasian dan bidang perancang sistem.
Analisis sistem keorganisasian adalah berhubungan dengan struktur organisasi dan perilaku manusia yang terlibat dalam SIM. Perancang sistem berhubungan dengan sistem teknologi komputer, baik perangkat keras maupun perangkat lunaknya, serta prosedur pelaksanaanya sehingga benar-benar dapat menunjang lancarnya SIM. Tentu saja kedua bidang pendidikan itu dilaksanakan dengan materi kurikulum yang berbeda, karena memang tujuannya berbeda. Disamping maju pesatnya proses SIM, terdapat pula hambatan-hambatan yang mengganggu, yaitu masih terdapatnya beberapa kontroversi. Beberapa hal yang sifatnya kontroversial itu adalah: sistem total dengan gabungan subsistem, sumber sistem informasi terpusat dengan pengolahan terpencar, sebuah terminal di setiap kantor eksekutif dengan terminal-terminal yang dioperasikan oleh staf; kesiapan fungsi manajerial untuk menerima teknologi sistem informasi. Selain itu sistem total dianggap terlalu sulit untuk dilaksanakan, maka masih banyak yang menggunakan gabungan subsistem-subsistem.
Definisi Informasi
Terdapat perbedaan tentang pengertian informasi dalam percakapan sehari-hari dengan yang digunakan pada sistem informasi manajemen. Pada sistem informasi, istilah informasi mempunyai karakter tersendiri, diantaranya memiliki nilai dalam prosses pengambilan keputusan. Sehubungan dengan itu informasi dapat diartikan sebagai data mentah, data tersusun, atau kapasitas sebuah saluran komunikasi. Selain itu informasi dapat memperkaya penyajian, atau mempunyai nilai kejutan, yaitu mengungkapkan sesuatu yang penerimanya tidak tahu atau tidak menyangka sebelumnya. Informasi dapat mengurangi ketidakpastian, karena informasi dapat mengubah kemungkinan-kemungkinan hasil yang diharapkan melalui sebuah keputusan. Berdasar-kan pada hal-hal tersebut di atas, maka informasi dalam SIM dapat didefinisikan sebagai berikut: Informasi adalah data yang telah diolah menjadi sebuah bentuk yang berarti bagi penerimanya, dan bermanfaat dalam mengambil keputusan saat ini atau yang akan datang. Suatu informasi bisa merupakan bahan jadi bagi pengambil keputusan tahapan tertentu, tetapi bisa pula merupakan bahan mentah bagi pengambil keputusan untuk tahapan berikutnya.
Informasi dalam SIM memiliki ciri-ciri: benar, baru, memiliki nilai tambah, korektif dan penegas
Informasi dalam Teori Matematis Komunikasi
Sistem matematis komunikasi adalah tingkatan teknis pada sistem informasi yaitu untuk mencapai keakuratan informasi, dengan mengusahakan keterukuran dan kecermatan di dalam prosesnya. Sistem matematis komunikasi dikembangkan dari sistem komunikasi telepon dan sistem komunikasi teletype. Segala macam hambatan dan gangguan dihindarkan, atau minimal dikurangi; diantara gangguan itu adalah bising dan distorsi yaitu kegaduhan yang tidak diketahui sumbernya dan yang diketahui sumbernya. Mengingat keterbatasan manusia dalam pengolahan data yang sangat banyak jumlahnya serta sangat bervariasi, maka diusahakan penyederhanaan dengan beberapa metode.
Di antaranya klasifikasi dan kompresi yaitu mengadakan penggolongan dan pemampatan (pemadatan); peringkasan dan penyaringan keorganisasian yaitu mengelompokan data ke dalam satu periode atau satu lingkungan geografis, serta mengadakan tertib organisasi agar tidak terjadi pengambilan keputusan oleh yang bukan haknya. Hal-hal lain yang berhubungan dengan sistem matematis komunikasi yaitu adanya entropi dan redundansi. Informasi adalah fungsi entropi karena mengurangi keraguan dan ketidakpastian. Dan dalam saluran informasi biasa terjadi redundansi atau kelebihan kelebihan yang dapat digunakan untuk pengendalian kesalahan akibat adanya bising dan distorsi.
Peningkatan kualitas dan kuantitas dari informasi berpengaruh positif terhadap prestasi kerja tetapi yang lebih penting lagi adalah peningkatan kualitasnya atau peningkatan mutunya. Yang mengganggu mutu informasi adalah adanya bias atau kesalahan, sepanjang bias itu tidak seberapa menyimpang, penerima atau pemakai informasi bisa menyesuaikannya. Tapi yang lebih sulit lagi adalah mendeteksi adanya bias tadi dan seberapa menyimpang biasnya. Bias atau kesalahan informasi diantaranya disebabkan oleh kesalahan dalam: metode pengukuran, tidak mengikuti prosedur, data yang hilang, penggunaan file, dan lain-lain. Penanggulangan kesalahan ditanggulangi dengan cara pengendalian intern, petunjuk-petunjuk bagi penerima supaya dapat melakukan penyesuaian. Hal lain yang mengganggu mutu informasi adalah usia informasi. Oleh karena itu perlu dipelajari tentang usia informasi dalam hal, usia informasi minimal, usia informasi rata-rata, usia informasi maksimal, baik untuk informasi kondisi, maupun untuk informasi operasi.
Konsep Informasi yang diterapkan pada Sistem Informasi
Berbagai konsep informasi atau teori-teori informasi telah kita pelajari bersama, seperti: teori matematis informasi, reduksi data, mutu informasi, dan usia informasi. Pada bagian ini dikemukakan bagaimana peristiwanya (bermanfaat atau tidak) bila konsep-konsep informasi tersebut diterapkan pada rancangan sistem informasi. Teori matematis informasi akan relatif lebih mudah apabila diterapkan kepada sistem informasi yang hanya menggunakan komputer, tetapi menjadi rumit apabila telah melibatkan manusia, karena karakter manusia yang tak dapat diukur dengan pasti dan selalu berubah-ubah. Setiap sistem informasi akan selalu melibatkan manusia, disamping mesin. Teori matematis informasi hanya bermanfaat bila digunakan dalam pengambilan yang banyak pilihan; jadi kalau tak ada pilihan, adalah sia-sia untuk menggunakan teori matematika informasi agar penemuan informasi dapat memanfaatkannya dengan sebaik-baiknya, maka ia harus memahami nilai-nilai yang dimiliki informasi. Sehingga dengan demikian selain si penerima dapat memilih informasi yang sesuai dengan kebutuhannya, juga dapat menambah wawasan si penerima itu sendiri, sehingga tidak ada keragu-raguan terhadap pilihan keputusannya.
Model dasar
Fungsi dan peranan manusia dalam sistem informasi manajemen tidak kalah pentingnya dengan peranan sistem komputer, bahkan sangat menentukan dalam keakuratan dan kecepatan informasi. Namun demikian manusia akan terikat oleh keterbatasan kemampuannya, baik kemampuan alat inderanya sebagai penerima rangsangan informasi, kemampuan syaraf penyampai sebagai saluran, maupun otaknya sebagai pengolah dan penyimpan informasi. Oleh karena keterbatasan ini, maka timbul fungsi penyaringan di dalam saluran informasinya yang mengadakan seleksi dan penyederhanaan terhadap berbagai rangsangan informasi yang diterimanya, sehingga kelebihan beban yang terlalu berat dapat dihindari. Hasil eksperimen menunjukkan bahwa fungsi pengolah dan penyimpan informasi memiliki kemampuan sebatas beban maksimal, dan jumlah keluaran tanggapannya pun sebatas beban maksimal itu pula atau lebih sedikit. Disamping manfaatnya, penyaringan pun mempunyai kelemahan-kelemahan, karena akan dipengaruhi oleh kondisi dan situasi yang ada di lingkungannya, seperti: latar belakang pengalaman, dan situasi dengan tekanan-tekanan tertentu. Seringnya mengguna-kan fungsi penyaringan yang kurang tepat, lama kelamaan akan menjadi pola tertentu dalam pengolahan informasi. Pola tersebut akan memungkinkan kesalahan persepsi terhadap suatu informasi, yang akhirnya informasi yang biasanya menghilangkan keragu-raguan, justru jadi menambah keragu-raguan.
Model Newel-Simon tentang manusia sebagai Pengolah Informasi
Allen Newell dan Herbert. A. Simon membuat. model pengolahan sistem informasi manusia yang dianalogikan dengan sistem informasi komputer, model tersebut dikenal dengan “model Newell-Simon”. Di dalam model tersebut sistem pengolahan pada manusia yang terdiri dari: ingatan jangka pendek, pengolahan dasar, dan penafsir dibantu oleh ingatan jangka panjang dan ingatan luar. Ingatan jangka panjang dapat menangkap rangsangan yang cepat dan banyak, serta cepat dalam menampilkannya kembali. Ingatan jangka pendek hanya sedikit dapat menangkap rangsangannya, dan kurang tahan lama dalam menyimpan ingatannya. Ingatan luar adalah alat-alat bantu yang di luar pengolah, untuk membantu sistem pengolahan; alat-alat ini berupa kertas, papan tulis atau tabung gambar. Berdasarkan kemampuannya, ingatan jangka panjang dapat disamakan dengan sistem penyimpanan pada komputer, ingatan jangka pendek dapat disamakan dengan sistem pencatatan atau penyimpanan sementara (register pad). Sistem pengolahan informasi manusia bekerja secara serial, sedangkan sistem pengolahan informasi komputer bisa serial dan bisa paralel, oleh karenanya komputer dianggap lebih mampu daripada manusia. Dalam menghadapi persoalan, untuk pemecahannya manusia biasa merumuskannya (identifikasi masalah). Persoalan yang dihadapi menurut istilah Newell-Simon disebut lingkungan tugas (task environment) dan identifikasi persoalan disebut ruang persoalan (problem space)
Ruang persoalan atau cara manusia mengidentifikasi persoalannya akan dipengaruhi oleh kebiasaan, dugaan, dan sikap mental.
Keterbatasan kemampuan Manusia sebagai Pengolah Informasi
Mengingat jumlah data yang banyak dan sangat bervariasi serta keterbatasan kemampuan manusia, maka sering dilakukan pemampatan atau peringkasan data. Meskipun ada peningkatan terhadap prestasi keputusan, tetapi para pengambil keputusan merasa kurang yakin terhadap apa yang diputuskannya. Banyak peristiwa yang merugikan pada sistem informasi manajemen yang disebabkan oleh kekurangyakinan petugas pengolah data terhadap pelaksanaan tugasnya. Mereka meragukan apakah pekerjaannya telah dilaksanakan atau belum. Peristiwa tersebut terjadi karena tidak adanya mekanisme umpan batik yang memberi isyarat bahwa pekerjaanya telah dilaksanakan. Oleh karena itu mekanisme umpan batik perlu diadakan seperti yang telah dilakukan pada sistem komputer. Secara tidak disadari mekanisme sehari-hari antar manusia, seperti: anggukan kepala, ucapannya atau tangan yang diangkat untuk mengisyaratkan bahwa pesan telah diterima. Para pengambil keputusan kadang-kadang mengumpulkan data yang sebanyak-banyaknya, padahal data yang benar-benar diperhatikan untuk pengambilan keputusan itu hanya sebagian. Hal ini cenderung rnerupakan tanggapan psikologis dari pada ekonomis, oleh karenanya dilihat dari keorganisasian hal ini merugikan, sebab adanya penyimpanan dan pengolahan yang sia-sia.
Pengertian Sistem, Jenis-jenis Sistem dan Sistem Manusia/ mesin
Sistem informasi dengan pendekatan sistem manusia/mesin akan memadukan dua unsur, yaitu unsur manusia dengan unsur mesin. Sistem manusia merupakan sistem terbuka dan probabilistik, sedangkan sistem mesin atau komputer merupakan sistem relatif tertutup dan deterministik.
Dengan memadukan dua sistem dengan karakter yang berbeda; maka akan terjadi saling mengisi dan saling melengkapi, sehingga bila salah satu sistem tidak ada, sistem informasi tidak akan jalan; meskipun dalam pelaksanaannya terdapat berbagai jenis kombinasi dari kedua unsur tersebut. Untuk lebih memahami karakteristik sistem dengan segala seluk-beluk yang terdapat di dalamnya, dilakukan dengan pengunsuran (factoring), dengan demikian akan dapat diketahui sampai bagian-bagian yang sekecil-kecilnya. Dalam menganalisis sistem yang besar dengan jumlah subsistem dan interface yang sangat banyak, akan sangat rumit dilakukan, Untuk menyederhanakan sistem yang besar itu biasa dilaksanakan dengan simplifikasi dan pemisahan
Pengendalian dalam sistem
Keluaran dari sebuah sistem kadang-kadang tidak sesuai dengan keluaran yang semestinya (standar), hal ini membutuhkan pengendalian melalui sistem umpan balik untuk mencari gangguan-gangguan yang menghambat, sehingga terjadi hal seperti itu. Agar sistem umpan balik itu dapat berjalan baik maka sistem harus memiliki standar keterukuran keluaran, sensor yang dapat menangkap kondisi setiap keluaran, alat yang dapat membandingkan keluaran yang terjadi dengan keluaran standar, serta alat yang bergerak mengoreksi masukan. Oleh karena sistem keorganisasian mempunyai sifat terbuka, berbagai kemungkinan gangguan bisa terjadi dan tidak terduga. Mengingat hal itu manajer harus mampu dan siap menghadapi segala kemungkinan gangguan dalam hal inilah berlaku “hukum variasi kebutuhan pengendalian”. Tentu saja tidak seluruh tanggapan korektif dari sistem umpan balik harus diterima, hal ini akan tergantung kepada kepentingan organisasi, karena itu berlaku fungsi penyaringan. Artinya hal-hal yang tidak prinsipil dan tidak terlalu mengganggu jalannya organisasi tanggapan korektif bisa diabaikan.
Konsep sistem diterapkan pada sistem Informasi Manajemen
Dalam sistem informasi manajemen, selain terdapat subsistem masukan, subsistem pengolahan, dan subsistem keluaran, terdapat pula subsistem penyimpanan data yang biasa disebut data file storage atau data base. Hal ini disebabkan dalam sistem informasi manajeman data yang terkumpul sekarang diolah sekarang, tidak selamanya digunakan sekarang, tetapi akan digunakan sesuai dengan kebutuhannya dan pada waktu yang berlainan. Meskipun sebuah sistem merupakan kerjasama terpadu, sehingga menampakkan diri dalam bentuk tunggal, tetapi dalam kenyataannya merupakan sesuatu yang rumit yang terdiri dari berbagai subsistem yang masing-masing mempunyai rincian fungsi tertentu dan jalinan hubungan tertentu. Dengan adanya pembagian sistem menjadi beberapa subsistem serta masing-masing subsistem memiliki fungsi tertentu, maka hal yang demikian akan merupakan unit-unit kerja yang mudah ditangani. Setiap subsistem akan berhubungan secara tepat, saling mengisi dan bekerja sama secara utuh. Dalam merencanakan sebuah sistem, fungsi subsistem, letak subsistem, jalinan hubungannya harus jelas. Kadang-kadang untuk sementara waktu ada subsistem yang tidak terinci fungsinya, hal itu biasa disebut “kotak hitam” atau “black box’. Pada pengembangan sistem selanjutnya hal itu akan diselesaikan atau diperincian fungsinya oleh pinganalisis sistem, ia akan bekerja sama dengan departemen lain yang ada hubungannya.
Struktur Organisasi dan Teori Manajemen
Organisasi merupakan alat yang digunakan manusia untuk mencapai suatu tujuan tertentu. Keberhasilan organisasi merupakan gabungan antara kemahiran manajerial dan keterampilan teknis para pelaksana kegiatan operasional. Mahajemen selalu berkaitan dengan kehidupan organisasi. Tujuan mempelajari organisasi pada umumnya untuk memperbaiki antar hubungan manusia, perilaku organisasi berusaha menoong manusia dan organisasi agar dapat saling berhubungan secara lebih efektif. Manajemen merupakan suatu ilmu dan seni menggerakan orang lain untuk mencapai tujuan tertentu. Manajemen diibaratkan darah yang mengalir pada tubuh manusia, yang penerapannya sangat situasional tergantung dari situasi dan kondisi serta kekhasan dari organisasi yang memakainya. Manajemen terdiri dari fungsi-fungsi berupa perencanaan, pengorganisasian, penyusunan staf, pengkoordinasian, pengarahan dan pengendalian adalah menyangkut kegiatan pembentukan struktur, pengambilan keputusan dan interaksi manusia.
Model Pengolahan Informasi untuk menjelaskan Struktur Organisasi
Proses pengorganisasian harus ditata dari berbagai segi yang menyangkut jaringan informasi yang diperlukan oleh organisasi. Jaringan informasi itu hanya berguna bila dimanfaatkan secara tepat oleh semua pihak yang berhak memanfaatkannya.Kegiatan pembentukan struktur meliputi perumusan persoalan yang akan dipecahkan, menyusun prioritas atas berbagai kegiatan, mendefinisikan batas-batas bagi penecahan yang akan dikerjakan dan seterusnya.Kebutuhan sebuah informasi untuk mengolah informasi (banyaknya informasi) adalah sebuah fungsi dari faktor-faktor ketidakpastian tugas, banyaknya unsur relevan untuk pengambilan keputusan dan saling ketergantungan unit keorganisasian.
Beberapa hal yang diidentifikasi merupakan tanggapan keorganisasian atas kebutuhan pengolahan informasi adalah prosedure pengoperasian dan aturan keputusan, hirarki wewenang, sub-sistem mandiri, sumberdaya lentur, struktur mandiri, sistem informasi vertikal dan bentuk keorganisasian lateral.
Interaksi Manusia dalam Organisasi
Interaksi manusia sangat dirasakan penting didalam suatu organisasi. Pengaruh berbagai pola kehidupan manusia yang berbeda atas produktivitas tergantung pada beberapa faktor. Kepuasan bekerja akan lebih terlihat atau dirasakan lebih tinggi bila manajemen yang supportif partisipatif.Penetapan tujuan merupakan unsur terpenting dalam manajemen. Tujuan-tujuan tersebut harus merupakan hasil musyawarah antar individu dalam kelompok yang masing-masing anggota yang memiliki tujuan sendiri. Perencanaan harus dijalankan pada semua tinggat organisasi. Perencanaan tersebut dapat diklasifikasikan dalam tiga jenis yaitu: strategis, taktis dan operasional. Pengendalian dilaksanakan melalui suatu mekanisme umpan balik. Loop umpan balik pengendalian merupakan dasar bagi perencanaan sistem informasi. Pengendalian manusia akan cenderung menjadikan sistem yang tertutup. Sedangkan sistem manusia dan mesin merupakan suatu upaya untuk memanfaatkan sifat yang terbaik dari kedua unsusr tesebut
Nilai Informasi yang Tepat
Untuk pengambilan keputusan sering dibutuhkan proses yang cepat dan kadang-kadang hanya berdasarkan pada dugaan-dugaan serta informasi apa adanya. Keputusan seperti itu biasanya hasilnya kurang menguntungkan seperti apa yang dibarapkan, dan kita akan mencari informasi yang lebih lengkap atau informasi tambahan untuk memperbaiki keputusan yang lalu, sehingga keputusan yang sekarang akan lebih baik dan lebih menguntungkan. Informasi tambahan yang menyebabkan perilaku keputusan menjadi lebih baik itu disebut informasi tepat. Informasi ini memiliki nilai karena menyebabkan perilaku keputusan menjadi lebih menguntungkan, oleh karena itu disebut nilai informasi tepat. Besar nilai informasi tepat adalah perbedaan hasil keputusan baru dengan hasil keputusan lama dikurangi biaya untuk mendapatkan informasi itu. Dalam pengambilan keputusan, biasa dilakukan pemilihan dari beberapa strategi yang dihadapkan kepada satu jenis kondisi atau beberapa kondisi yang harus diperhitungkan.
Cara menghitung nilai informasi tepat dari pengambilan keputusan yang berdasar kepada pemilihan beberapa strategi dengan satu jenis kondisi berbeda dengan menghitung nilai informasi tapi dari pengambilan keputusan yang berdasar kepada pemilihan beberapa strategi dengan beberapa jenis kondisi. Perhitungan atas nilai informasi tepat sangat bermanfaat untuk menghilangkan pemborosan biaya yang dikeluarkan untuk mendapatkan informasi bagi pengambilan keputusan.
Informasi sampel dan analisis Baysian
Setiap organisasi baik badan usaha maupun bentuk-bentuk badan lainnya akan dikelilingi oleh berbagai macam kondisi. Kondisi-kondisi itu memiliki karakter yang sangat rumit dan mengandung hal-hal yang tidak pasti.
Dalam kondisi seperti itu para pengambil keputusan akan mengalami kesulitan dalam menentukan angka probabilitas secara tepat, sedangkan pengambilan keputusan harus segera dilaksanakan. Untuk mengatasi hal ini pengambil keputusan akan menggunakan angka sementara yang diduga mendekati ketepatan, angka seperti ini disebut angka praprobabilitas dan harus diperbaiki untuk keputusan-keputusan selanjutnya. Untuk memperbaiki angka praprobabilitas menjadi angka probabilitas yang sebenarnya akan membutuhkan informasi tambahan yang jumlahnya mungkin sangat banyak. Untuk menghemat waktu dan biaya maka informasi tambahan tidak harus melalui populasi keseluruhannya, tetapi cukup dengan melalui sampel dari populasi tersebut, asalkan populasinya berdistribusi normal.Populasi yang berdistribusi normal adalah peningkatan peristiwa berurutan dengan simpangan baku yang relatif tetap.
Nilai Informasi dalam data yang berdistribusi normal
Dalam dunia usaha, keputusan-keputusan yang didasarkan kepada taksiran sudah biasa dilakukan, misalnya taksiran tentang besarnya penjualan titik impas; yaitu berapa jumlah barang yang harus dijual agar perusahaan tidak merugi, tetapi belum mendatangkan keuntungan. Setelah titik impas diketahui, perusahaan akan mencari informasi tepat untuk pengambilan keputusan tentang berapa jumlah barang yang harus dijual agar perusahaan mendapat keuntungan seperti yang diharapkan.
Manfaat lainnya dari penjualan titik impas, adalah sementara perusahaan tidak mengharapkan keuntungan. Yang diharapkan adalah agar barang itu laku sebagai perkenalan kepada masyarakat. Informasi tepat tentu saja memiliki nilai, sebab dengan keputusan yang didasarkan kepada informasi tersebut, perusahaan akan mendapat keuntungan.
Untuk menghitung berapa nilai informasi tepat harus digunakan rumus : D =B-X /óxserta dengan menggunakan tabel khusus, yang disebut tabel : Unit Normal Loss Integral
Evaluasi Rancangan Keputusan untuk nilai informasi
Sebagian orang beranggapan bahwa pengambilan keputusan yang baik harus didukung oleh informasi yang sangat banyak. Padahal tidak demikian halnya; pengambil keputusan yang berpengalaman dan berpengetahuan yang luas akan menggunakan informasi yang memadai untuk keputusannya. Artinya hanya akan mencari informasi yang benar-benar sesuai dengan keputusannya, dan informasi yang kurang diperlukan tidak akan diambilnya. Dengan demikian pengambil keputusan tidak melakukan pemborosan pembiayaan dalam mendapatkan informasi atau biaya untuk informasi dilaksanakan secara rasional dan terarah. Dengan kata lain pengambil keputusan tadi telah melaksanakan “rancangan keputusan yang tepat terhadap nilai informasi”. Untuk menyederhanakan pekerjaan dan analisis biaya yang tepat, sebaiknya informasi itu dibuat dalam bentuk matriks, setelah lebih dulu ditentukan topik-topik informasi itu serta kondisi yang menyertainya.
Cara lain yang dapat menyederhanakan pekerjaan dan sekaligus dapat menghemat biaya adalah pengambilan informasi melalui sampel, asal benar-benar sampel itu mewakili populasi
Konsep Pengambilan Keputusan
Pengambilan keputusan dalam manajemen memegang peranan penting, karena keputusan yang diambil oleh seorang manajer merupakan hasil akhir yang harus dilaksanakan oleh mereka yang tersangkut dalam organisasi. Pengambilan keputusan diperlukan disemua tingkat administrastor dalam organisasi.
Pengambilan keputusan pada hakikatnya adalah pemilihan alternatif yang paling kecil resikonya, untuk dilaksanakan dalam rangka pencapaian organisasi. Dalam prosesnya terdapat tiga kekuatan yang selalu mempengaruhinya yaitu, dinamika individu, dinamika kelompok dan dinamika lingkungan. Untuk mempermudah dalam pengambilan keputusan alangkah baiknya kita mengetahui terlebih dahulu jenis-jenis keputusan tersebut. Hal ini akan mempermudah kita dalam memperkirakan informasi yang bagaimana yang diperlukan, dari mana sumbernya, bagaimana memperolehnya, sehingga keputusan yang diambil benar-benar merupakan yang terbaik demi lancarnya roda organisasi.
Konsep Pengambilan Keputusan berdasarkan Sistem Informasi
Proses pengambilan keputusan dapat diuraikan menjadi tiga tahap pokok: penyelidikan untuk mencari persoalan, perancangan untuk menganalisa persoalan dan menciptakan pemecahan yang layak dan pemilihan untuk memilih antara alternatif dan melaksanakan pilihan tersebut.Langkah-langkah proses pengambilan keputusan dengan mempergunakan teknik ilmiah terdiri dari: identifikasi masalah, pengumpulan data, analisa data, penentuan alternatif, pelaksanaan alternatif dan penilaian, yang semuanya itu untuk membantu manajer dalam pengambilan keputusan.Perbedaan dalam pengambilan keputusan untuk keputusan keputusan dalam keadaan kepastian, risiko dan ketidakpastian menunjukkan perlunya beberapa model keputusan bagi SIM.
Model-model Pengambilan Keputusan
Adalah suatu kenyataan dimana pengambilan keputusan sering kali tidak sesuai dengan yang diharapkan oleh organisasi. Dalam hal ini diperlukan pendekatan yang seimbang dan cara penilaian yang profesional. Penilaian itu penting untuk mengetahui apakah keputusan yang diambil itu sudah baik dengan kata lain sesuai dengan yang diharapkan oleh organisasi. Terdapat dua cara dalam melakukan penilaian yaitu penilaian yang menggunakan pendekatan yang sifatnya pragmatis dan penilaian yang menggunakan pendekatan yang sifatnya prosedural. Terdapat berbagai model dan teknik pengambilan keputusan yang telah dikembangkan oleh para ahli. Diantaranya adalah model optimasi, model satisficing, model mixed scanning dan model heuristic, yang kesemuanya akan membantu para pengambil keputusan untuk menentukan keputusan yang paling sesuai dengan situasi dan kondisi serta keadaan organisai yang mereka pimpin. Dengan disajikannya berbagai model dan teknik pengambilan keputusan tersebut, itu menunjukkan bahwa memang beraneka ragam pilihan yang tersedia. Namun yang harus diperhatikan tidak ada satu pun model yang cocok digunakan untuk mengatasi semua jenis situasi problematika yang dihadapi oleh organisasi. Disinilah dituntut kemahiran yang perlu dikembangkan oleh para pengambil keputusan yaitu memilih secara tepat satu atau gabungan beberapa model dan menyesuaikan dengan tuntutan situasi yang dihadapi.
Teknik-teknik Pengambilan Keputusan
Salah satu tolok ukur utama yang biasa digunakan untuk mengukur efektivitas kepemimpinan seseorang yang menduduki jabatan pimpinan dalam suatu organisasi ialah kemampuan dan kemahirannya dalam mengambil keputusan. Selain itu efektivitas kepemimpinan seseorang diukur dari kecekatan dan kemampuan mengambil keputusan yang rasional, logis berdasarkan daya pikir yang kreatif dan inovatif, digabung dengan pendekatan yang intuitif dengan memanfaatkan berbagai pelajaran yang diperolah dari pengalaman Oleh karena itu berbagai model, metode dan teknik pengambilan keputusan harus dikuasai oleh orang-orang yang menduduki jabatan pimpinan apa pun bentuk, jenis, dan ukuran organisasi yang dipimpinnya. Model dan teknik pengambilan keputusan yang telah dikembangkan oleh para ahli dan sering dipergunakan dalam bentuk, jenis, dan ukuran organisasi dewasa ini adalah model optimasi, satisficing, mixed scaning dan heu-ristic. Berdasarkan penelitian tentang teknik-teknik pengambilan keputusan nenunjukkan bahwa pada dasarnya ada dua kelompok teknik yang biasa digunakan yang pertama adalah teknik-teknik pengambilan keputusan yang bersifat kuantitatif dan yang kedua adalah kelompok teknik pengambilan keputusan yang tidak bersifat kuantitatif. Beberapa teknik yang termasuk dalam kelompok kedua ini adalah brainstorming, synetics, consensus thinking, delphi, fish bowling, didactic interaction, dan collective bargaining
Pada mulanya baik perorangan maupun organisasi dalam pengambilan keputusan dilaksanakan dengan secara coba-coba tanpa perhitungan yang matang, atau hanya mengandalkan kreativitas dan intuisi pihak-pihak yang bersangkutan.Tetapi semakin lama masalahnya semakin rumit, dan semakin banyak mengandung ketidakpastian, maka para pengambil keputusan tidak main coba-coba lagi. Mereka tidak mau menghadapi risiko kerugian, apalagi kerugian yang menimpa organisasi, berarti kerugian yang melibatkan banyak orang. Dalam situasi seperti itu timbul para ahli yang menciptakan model untuk membantu para manajer dalam mengambil keputusannya. Dengan menggunakan model, peng-ambilan keputusan dilakukan dengan penuh perhitungan, sehingga segala sesuatunya ter-ukur secara cermat, dengan demikian semua kendala yang mungkin menghambat bisa diduga dan kemungkinan penanggulangannya dapat diciptakan pula. Diantara model-model dan teknik pengambilan keputusan itu adalah model matematikal, model kualitatif, teknik keputusan statistikal, gime theory; dan keputusan kriteria ganda. Semua model dan teknik pengambilan keputusan tersebut disamping banyak manfaatnva, terdapat pula kelemahan-kelemahannya, oleh karenanya para peng-ambil keputusanlah yang harus mempertimbangkannya dan mampu menggunakannya pada situasi yang sesuai. Selain itu model-model dan teknik-tentik keputusan hanya merupakan alat bantu, dan bukan merupakan obat mujarab sehingga penggunaannya harus digabung dengan kreativitas dan inovasi dari para pengambil keputusan.
Analisis Sistem dan analisis Keputusan
Untuk keputusan-keputusan besar yang masalahnya sangat rumit dan penuh ketidakpastian, perlu dilaksanakan usaha perincian atau penjabaran masalah, sehingga kondisi dan situasi dapat terstruktur dengan jelas. Usaha tersebut dapat dilakukan melalui analisis sistem dan analisis keputusan. Keuntungan dari analisis sistem adalah interaksi dari berbagai komponen atau bagian-bagian dari masalah dapat tampak dengan jelas. Analisis keputusan merupakan gabungan dari pendekatan sistem dengan pendekatan matematis, keuntungannya selain masalah dapat terstruktur, juga dapat terukur secara kuantitatif; dengan demikian masalah menjadi lebih jelas, sehingga pengambilan keputusan dapat dilakukan dengan baik.
Pihak-pihak yang terlibat dalam analisis keputusan adalah: pengambil keputusan itu sendiri, tenaga ahli, dan tenaga analisis dengan keahlian dan perannya masing-masing. Salah satu bentuk dari analisis keputusan yang sering digunakan adalah “pohon keputusan”, yang merupakan visualisasi alternatif pemecahan masalah, berupa gambaran pohon dengan cabang-cabangnya. Dengan “pohon keputusan” akan tampak pilihan keputusan yang diambil, dan diikuti oleh konsekuensinya.
Kelebihan dan kekurangan dari analisis Keputusan
Segala alat bantu untuk pengambilan keputusan, tidak seluruhnya mengandung kebaikan, artinya banyak kelebihannya tetapi ada pula kekurangannya: begitu pula dengan analisis keputusan. Beberapa kelebihan dari analisis keputusan, antara lain dapat mendefinisikan masalah dengan jelas dan eksplisit, sistematis, logis, dan pandangan dari pihak-pihak lain dapat ditampung. Sedangkan kekurangan-kekurangannya antara lain memerlukan waktu yang memadai, sehingga tidak mungkin untuk keputusan yang segera, mengabaikan data kualitataif dan menuntut pengintegrasian dari berbagai pihak Beberapa persyaratan yang harus dipenuhi bila menginginkan pekerjaan analis berhasil; yaitu : analis harus memperoleh kepercayaan sepenuhnya dari manajer, harus bersedia menyesuaikan model dengan keputusan pengambil keputusan, manajer harus memberikan semua informasi yang dimiliki, dan kehadirannya harus benar-benar dikehendaki oleh organisasi. Menggunakan atau tidaknya analisis keputusan akan bergantung kepada karakteristik masalahnya; apakah masalahnya besar dan rumit, atau kecil dan sederhana. Tentu saja masalah yang sederhana tak usah menggunakan analisis keputusan
Pemanfaatan Teknologi dalam Pengambilan Keputusan
Kemampuan manusia sangat terbatas tentang pengetahuannya atas masa depan, karena kehidupan yang akan datang penuh ketidakpastian. Oleh karena itu apapun pengambilan keputusan, selalu ada saja risikonya. Untungnya berkat kemajuan di bidang teknologi, sehingga dapat terciptanya alat canggih, terutama dalam hal komputer, yang dapat meminimalkan resiko yang mungkin terjadi. Pendekatan heuristik adalah usaha penggabungan antara kemampuan komputer dengan keterampilan manusia dalam memecahkan masalah-masalah yang tidak berstruktur. Pada mulanya komputer diprogram untuk meniru manusia dalam mengambil keputusan; kemudian dicobakan kepada pemecahan suatu masalah, apabila mengalami kegagalan, programnya diperbaharui dan ditambah dengan hal-hal yang baru. Begitulah seterusnya, gagal perbaiki, gagal perbaiki, sehingga akhirnya ditemukan program yang hampir memadai. Disebut hampir memadai, karena memang tidak bisa benar-benar. memadai, kemampuan mesin pun terbatas ada hal-hal yang tidak dapat dikerjakannya, dan hal itu harus dikerjakan oleh manusia. Jadi kedudukan manusia sebagai pengambil keputusan tetap ia memiliki peranan yang menentukan, komputer dan perlengkapan lainnya hanya sebagai alat bantu saja. Penemuan terakhir adalah Decission Support Sistem (DSS) yaitu Sistem Pendukung Keputusan yang fungsinya melengkapi SIM. Dengan adanya DSS lebih jelas lagi bahwa mesin harus menyesuaikan dengan kebutuhan manajer, dan bukan manajer yang harus beradaptasi kepada mesin
binbin
MAT 1113
Tutorial 6
1. Suppose that we choose p = 23, q = 31, and n = 29, encrypt 572 using the public keys z and n.
2. Consider the (2, 7) encoding function e:
e(00) = 0000000
e(01) = 1001001
e(10) = 1100111
e(11) = 1000110
(i) Find the minimum distance of e.
(ii) How many errors will e detect?
3. Find the minimum distance of the (3, 8) encoding function e:
E(000) = 00000000 e(100) = 01100101 e(001) = 01110010
E(101) = 10110000 e(010) = 10011100 e(110) = 11110000
E(011) = 01110001 e(111) = 00001111
4. Consider the (2, 6) encoding function e:
e(00) = 000000
e(01) = 011110
e(10) = 101010
e(11) = 111000
(a) Find the minimum distance of e.
(b) How many errors will be detected?
5. Consider the (3, 9) encoding function e:
e(000) = 000000000 e(100) = 010011010
e(001) = 011100101 e(101) = 111101011
e(010) = 010101000 e(110) = 001011000
e(011) = 110010001 e(111) = 110000111
(a ) Find the minimum distance of e.
(b) How many errors will e detected?
6. Consider the (3, 7) encoding function e:
e(000) = 0000000 e(100) = 0101110
e(001) = 1001001 e(101) = 1110001
e(010) = 0011001 e(110) = 0101110
e(011) = 0011010 e(111) = 1100110
(a ) Find the minimum distance of e.
(b) How many errors will e detected?
7. Consider the (2, 6) encoding function e:
e(00) = 000000
e(01) = 010110
e(10) = 101101
e(11) = 111001
(a) Find the minimum distance of e.
(b) How many errors will e detect?
8. Find the weight of each of the following words in B5:
(a) x = 01000 (b) x = 11100 (c) x = 00000 (d) x = 11111
9. Consider the (6, 7) parity check code. For each of the received words, determine whether an error will be detected.
(a) 1010011 (b) 1011101
10. A word is encoded using the parity check code and it is transmitted. For the following received word, decode the word using a single-error correcting code procedure.
0101111
11. Consider the following encoding function e: B3 B5.
e(000) = 00000 e(001) = 11101 e(010) = 01110 e(100) = 10101
e(101) = 11010 e(110) = 00001 e(011) = 10110 e(111) = 11111
(a) Determine the minimum distance of the encoding function.
(b) Determine how many errors the encoding function can detect.
12. Consider the (7, 8) parity check code. For each of the received words, determine whether an error will be detected.
(i) 10101101.
(ii) 01111000.
13. In the RSA public-key cryptosystem, to encrypt a, compute c = an mod z and send c to the holder of the public keys z and n, where z is chosen as the product of two primes p and q. Assume that we choose our primes to be p = 17 and q = 29, and n = 13, encrypt 398 using the public keys z and n.
14. Find the weight of the word 110110001.
15. Consider the (7, 8) parity check code. For each of the received words, determine whether an error will be detected.
(i) 11100100.
(ii) 01010111.
16. Decode the received word using single-error correcting code procedure.
(a) 1110011
(b) 0110010
(c) 0001101
17. In the RSA public-key cryptosystem, to encrypt a, compute c = an mod z and send c to the holder of public keys z and n, where z is chosen as the product of two primes p and q. Assume that we choose our primes to be p = 13 and q = 17, and n = 5, encrypt 144 using the public keys z and n.
18. Find the minimum distance of the (2, 4) encoding function e:
e(00) = 0000
e(10) = 0110
e(01) = 1011
e(11) = 1111
Hence, determine how many errors the encoding function can detect.
19. Consider (6, 7) parity check code. For each of the received words, determine whether an error will be detected.
(a) 1101010
(b) 0011111
20. A word is encoded using the parity check code and it is transmitted. For each of the following received words, decode the words using single-error correcting code procedure.
(i) 0101001.
(ii) 1011011.
21. In the RSA public-key cryptosystem, to encrypt a, compute c = an mod z and send c to the holder of public keys z and n, where z is chosen as the product of two primes p and q. Assume that we choose our primes to be p = 11 and q = 19, and n = 7, encrypt 124 using the public keys z and n.
22. Consider the (2, 6) encoding function e:
e(00) = 000000
e(01) = 010010
e(10) = 101001
e(11) = 110110
(i) Find the minimum distance of e.
(ii) How many errors will e detect?
23. Find the weight of each of the following words in B6:
(i) 110010.
(ii) 011011.
24. Find the weight of each of the following words in B6:
(i) 011010.
(ii) 100111
25. Consider the (6, 7) parity check code. For each of the received words, determine whether an error will be detected.
(i) 1001010.
(ii) 0001111.
26. A word is encoded using the parity check code and it is transmitted. For each of the following received words, decode the words using single-error correcting code procedure.
(i) 0110110.
(ii) 1110110.
27. Consider the (2, 5) encoding function e:
e(00) = 00000
e(01) = 01101
e(10) = 00110
e(11) = 11011
(i) Find the minimum distance of e.
(ii) How many errors will e detect?
28. A word is encoded using the parity check code and it is transmitted. For each of the following received words, decode the words using single-error correcting code procedure.
(i) 1101011.
(ii) 0110011.
29. In the RSA public-key cryptosystem, to encrypt a, compute c = an mod z and send c to the holder of the public keys z and n, where z is chosen as the product of two primes p and q. Assume that we choose our primes to be p = 13 and q = 23, and n = 10, encrypt 238 using the public keys z and n.
30. Consider the (2, 6) encoding function e:
e(00) = 000000
e(01) = 011101
e(10) = 110011
e(11) = 111000
(i) Find the minimum distance of e.
(ii) How many errors will e detect?
ANSWER:
1. c = 113
2. (i) minimum distance = 2 (ii) k 1
4. (a) minimum distance = 2 (b) k 1
7. (a) minimum distance = 2 (b) k 1
8. (a) 1 (b) 3 (c) 0 (d) 5
9. (a) error will not be detected (b) error will be detected
10. 0100
11. (a) minimum distance = 1 (b) k 0
12. (i) error will be detected (ii) error will not be detected
13. c = 40
14. 5
15. (i) error will not be detected (ii) error will be detected
16. (a) 1010 (b) 0111 (c) 0011
17. c = 196
18. minimum distance = 1 , k 0
19. (a) error will not be detected (ii) error will be detected
20. (i) 1101 (ii) 1010
21. c = 53
22. (i) minimum distance = 2 (ii) k 1
23. (i) |x| = 3 (ii) |x| = 4
30. (i) minimum distance = 3 (ii) k 2
Tutorial 6
1. Suppose that we choose p = 23, q = 31, and n = 29, encrypt 572 using the public keys z and n.
2. Consider the (2, 7) encoding function e:
e(00) = 0000000
e(01) = 1001001
e(10) = 1100111
e(11) = 1000110
(i) Find the minimum distance of e.
(ii) How many errors will e detect?
3. Find the minimum distance of the (3, 8) encoding function e:
E(000) = 00000000 e(100) = 01100101 e(001) = 01110010
E(101) = 10110000 e(010) = 10011100 e(110) = 11110000
E(011) = 01110001 e(111) = 00001111
4. Consider the (2, 6) encoding function e:
e(00) = 000000
e(01) = 011110
e(10) = 101010
e(11) = 111000
(a) Find the minimum distance of e.
(b) How many errors will be detected?
5. Consider the (3, 9) encoding function e:
e(000) = 000000000 e(100) = 010011010
e(001) = 011100101 e(101) = 111101011
e(010) = 010101000 e(110) = 001011000
e(011) = 110010001 e(111) = 110000111
(a ) Find the minimum distance of e.
(b) How many errors will e detected?
6. Consider the (3, 7) encoding function e:
e(000) = 0000000 e(100) = 0101110
e(001) = 1001001 e(101) = 1110001
e(010) = 0011001 e(110) = 0101110
e(011) = 0011010 e(111) = 1100110
(a ) Find the minimum distance of e.
(b) How many errors will e detected?
7. Consider the (2, 6) encoding function e:
e(00) = 000000
e(01) = 010110
e(10) = 101101
e(11) = 111001
(a) Find the minimum distance of e.
(b) How many errors will e detect?
8. Find the weight of each of the following words in B5:
(a) x = 01000 (b) x = 11100 (c) x = 00000 (d) x = 11111
9. Consider the (6, 7) parity check code. For each of the received words, determine whether an error will be detected.
(a) 1010011 (b) 1011101
10. A word is encoded using the parity check code and it is transmitted. For the following received word, decode the word using a single-error correcting code procedure.
0101111
11. Consider the following encoding function e: B3 B5.
e(000) = 00000 e(001) = 11101 e(010) = 01110 e(100) = 10101
e(101) = 11010 e(110) = 00001 e(011) = 10110 e(111) = 11111
(a) Determine the minimum distance of the encoding function.
(b) Determine how many errors the encoding function can detect.
12. Consider the (7, 8) parity check code. For each of the received words, determine whether an error will be detected.
(i) 10101101.
(ii) 01111000.
13. In the RSA public-key cryptosystem, to encrypt a, compute c = an mod z and send c to the holder of the public keys z and n, where z is chosen as the product of two primes p and q. Assume that we choose our primes to be p = 17 and q = 29, and n = 13, encrypt 398 using the public keys z and n.
14. Find the weight of the word 110110001.
15. Consider the (7, 8) parity check code. For each of the received words, determine whether an error will be detected.
(i) 11100100.
(ii) 01010111.
16. Decode the received word using single-error correcting code procedure.
(a) 1110011
(b) 0110010
(c) 0001101
17. In the RSA public-key cryptosystem, to encrypt a, compute c = an mod z and send c to the holder of public keys z and n, where z is chosen as the product of two primes p and q. Assume that we choose our primes to be p = 13 and q = 17, and n = 5, encrypt 144 using the public keys z and n.
18. Find the minimum distance of the (2, 4) encoding function e:
e(00) = 0000
e(10) = 0110
e(01) = 1011
e(11) = 1111
Hence, determine how many errors the encoding function can detect.
19. Consider (6, 7) parity check code. For each of the received words, determine whether an error will be detected.
(a) 1101010
(b) 0011111
20. A word is encoded using the parity check code and it is transmitted. For each of the following received words, decode the words using single-error correcting code procedure.
(i) 0101001.
(ii) 1011011.
21. In the RSA public-key cryptosystem, to encrypt a, compute c = an mod z and send c to the holder of public keys z and n, where z is chosen as the product of two primes p and q. Assume that we choose our primes to be p = 11 and q = 19, and n = 7, encrypt 124 using the public keys z and n.
22. Consider the (2, 6) encoding function e:
e(00) = 000000
e(01) = 010010
e(10) = 101001
e(11) = 110110
(i) Find the minimum distance of e.
(ii) How many errors will e detect?
23. Find the weight of each of the following words in B6:
(i) 110010.
(ii) 011011.
24. Find the weight of each of the following words in B6:
(i) 011010.
(ii) 100111
25. Consider the (6, 7) parity check code. For each of the received words, determine whether an error will be detected.
(i) 1001010.
(ii) 0001111.
26. A word is encoded using the parity check code and it is transmitted. For each of the following received words, decode the words using single-error correcting code procedure.
(i) 0110110.
(ii) 1110110.
27. Consider the (2, 5) encoding function e:
e(00) = 00000
e(01) = 01101
e(10) = 00110
e(11) = 11011
(i) Find the minimum distance of e.
(ii) How many errors will e detect?
28. A word is encoded using the parity check code and it is transmitted. For each of the following received words, decode the words using single-error correcting code procedure.
(i) 1101011.
(ii) 0110011.
29. In the RSA public-key cryptosystem, to encrypt a, compute c = an mod z and send c to the holder of the public keys z and n, where z is chosen as the product of two primes p and q. Assume that we choose our primes to be p = 13 and q = 23, and n = 10, encrypt 238 using the public keys z and n.
30. Consider the (2, 6) encoding function e:
e(00) = 000000
e(01) = 011101
e(10) = 110011
e(11) = 111000
(i) Find the minimum distance of e.
(ii) How many errors will e detect?
ANSWER:
1. c = 113
2. (i) minimum distance = 2 (ii) k 1
4. (a) minimum distance = 2 (b) k 1
7. (a) minimum distance = 2 (b) k 1
8. (a) 1 (b) 3 (c) 0 (d) 5
9. (a) error will not be detected (b) error will be detected
10. 0100
11. (a) minimum distance = 1 (b) k 0
12. (i) error will be detected (ii) error will not be detected
13. c = 40
14. 5
15. (i) error will not be detected (ii) error will be detected
16. (a) 1010 (b) 0111 (c) 0011
17. c = 196
18. minimum distance = 1 , k 0
19. (a) error will not be detected (ii) error will be detected
20. (i) 1101 (ii) 1010
21. c = 53
22. (i) minimum distance = 2 (ii) k 1
23. (i) |x| = 3 (ii) |x| = 4
30. (i) minimum distance = 3 (ii) k 2
bin juml
CHAPTER 2 : COMPUTER REPRESENTATION AND
ARITHMETIC
2.1 : Representing Numbers In a Computer
2.2 : Representing Integers
2.3 : Arithmetic With Integers
2.4 : Representing Real Numbers
2.5 : Arithmetic With Real Numbers
2.6 : Binary Coded Decimal Representation
2.1 : REPRESENTING NUMBERS IN A COMPUTER
In this chapter , we shall use the techniques we developed in Chapter 1 to investigate the ways in which numbers are represented and manipulated in binary form in a computer .
Numbers are usually represented in a digital computer as sequences of bits of a fixed length .
Integers and real numbers are handled in different ways . So we need to deal with the two cases separately .
2.2 : REPRESENTING INTEGERS
2’s Complement
We use sign ‘ + ‘ and sign ‘ – ‘ to denote positive and negative numbers but the computer can process data only in term of bit .
Computers store negative numbers in terms of their two’s complement .
Ones Complement
Ones complement of a binary number A is obtained by interchange digit 0 with 1 and 1 with 0 .
Examples :
Binary number : 11110011 110110011
Ones complement : 00001100 001001100
Two’s Complement
Two’s complement of a binary number A is its ones complement PLUS 1 .
Examples :
Binary number : 11110011 110110011
Ones complement : 00001100 001001100
+ 1 + 1
Two’s complement : 00001101 001001101
A negative number will be store in its two complement in the computer .
( Example : -63 is store as 11000001 in 8-bits word computer system .)
-6310 = - ( 1111112 )
6310 in 8-bits word = 00111111
Ones complement = 11000000
+ 1
Two’s complement = 11000001
-63 = 11000012
The range of number that can be stored in n – bit computer word in 2’s complement format is –(2n-1) to (2n-1-1) .
Example 1 :
Find the 16-bit computer representations of the following integers in 2’s complement :
( a ) - 205 ( b ) –15728 ( c ) –4961
Solution :
Example 2 :
Find out the denary value for storage number 1100010110112 that using 2’s complement method in 12-bit system .
Solution :
2.3 : ARITHMETIC WITH INTEGERS
Computer can only perform additions , so the performing of subtractions can be done by complement additions .
2’s Complement Subtraction
To evaluate Y = B – A , we actually find Y = B + ( - A ) .
Thus , in computer storage , to find B – A , we add B with the
2’s complement of A .
Steps In 2’s Complement Subtraction
1. Find the two’s complement of the second number , A .
2. add the 2’s complement of A to the first number B .
3. If the sum is more than the defined digit for A and B with the first digit equal to 1 , the final answer is the sum without the first digit 1 .
4. If the sum is the same digit as A and B , the final answer is the 2’s complement of the sum with a negative sign .
Example 1 :
Show how 165 – 89 can be evaluated in a 10-bit register using 2’s complement method. Justify your answer.
Solution :
Example 2:
If numbers are held in 8-bit register in two’s complement, show how 75 – 110 is evaluated. Justify your answer.
Solution:
Example 3:
Using two’s complement, base 10 integers are to be stored in 10–bits register.
(i) What range of integers (expressed in denary form), can be stored?
(ii) Show how 17110 is represented.
(iii) Show how – 18310 is represented.
(iv) Show how 17110 – 18310 would be evaluated.
Solution:
Example 4:
A ten bits register is used to store integers using twos complement format.
(i) What range of integers (expressed in denary form), can be stored?
(ii) Show how (– 156 – 249) can be evaluated in this form.
Solution:
2.4 : REPRESENTING REAL NUMBERS
Before the computer representation of a real number can be found , the number must first be converted to binary form and then be expressed in normalized binary exponential form .
A real number is expressed in normalized binary exponential form if it is expressed in the form :
+ m x 2e
where the significand m is written in its binary representation and lies in the range
0.12 m < 12 , and the exponent e is an integer written in its decimal representation .
Example 1 :
Express the following numbers in normalized binary exponential form :
( a ) 11001.1012 ( b ) 0.0001101112
Solution :
A real number is typically stored in a computer as 4 bytes ( 32 bits ) or 8 bytes (64 bits). The first bit is the sign bit , and the remaining bits are divided between the exponent and the significand .
A common format in modern computers is 8 bits for the exponent and 23 bits for the significand .
It is usually not the binary representation of the exponent itself that is stored , but a number called the characteristic .
characteristic = exponent + exponent bias
= exponent + 2n – 1 –1 ( where n is the number of bits
available to store the characteristic )
The first bit of the significand is not stored .
Putting together what we have established , the process for finding the computer representation of a real number can be described as follows :
1 ) Convert the number to binary form , working to the precision required by the number
of bits used for the significand .
2 ) Express the binary number in normalized binary exponential form .
3 ) Calculate the characteristic .
4 ) Write down the computer representation .
Example 2:
Find the 24-bit computer representation of 25.828125, where 8 bits are used for the characteristic, and the exponent bias is 27 – 1.
Solution:
Example 3:
Find the 32-bit computer representation of -1583.42, where 8 bits are used for the characteristic, and the exponent bias is .
Solution:
Example 4:
Find the 32-bit computer representation of -2187.0625, where 8 bits are used for the characteristic, and the exponent bias is .
Solution:
2.5 : ARITHMETIC WITH REAL NUMBERS
We will not look at how a computer does arithmetic with real numbers using their computer representation .
However , we can gain a general idea of what the process involves by looking at how arithmetic is done with decimal numbers in normalized exponential form .
The rules for arithmetic in normalized exponential form are as follows .
To add or subtract :
1 ) Write the numbers in ( non-normalised ) exponential form with the same
exponent , using significands less than 1 .
2 ) Add or subtract the significands to obtain the significand of the answer. The
common exponent is the exponent of the answer .
3 ) Normalised the answer if necessary .
To multiply or divide :
1 ) Multiply or divide the significands to obtain the significand of the answer .
2 ) Add or subtract the exponents to obtain the exponent of the answer .
3 ) Normalised the answer if necessary .
Example 4 :
Perform the following computations with the aid of a calculator , assuming a precision of four decimal places in the significand :
(a) 0.4932 x 103 + 0.2881 x 104 – 0.3096 x 104
(b) 0.8463 x 107 + 0.7012 x 108 – 0.3315 x 106
(c) (0.2174 x 10-5) x (0.1482 x 107) (0.9497 x 104)
(d) (0.9637 x 104) x (0.4576 x 103) + (0.7123 x 107)
Solution :
2.6 : BINARY CODED DECIMAL REPRESENTATION ( BCD )
The BCD representation of non-negative integer is obtained by replacing each decimal digit by its BCD code which require 4 bits for each decimal digit .
Decimal Digits BCD code
0 0000
1 0001
2 0010
3 0011
4 0100
5 0101
6 0110
7 0111
8 1000
9 1001
Example 1 :
Encode the decimal number 469 using the BCD code .
Solution :
Example 2 :
Encode 83019 in BCD.
Solution :
Example 3 :
Decode each numeric, expressed in the BCD code :
( a ) 0111 0011 0000 1001 ( b ) 0101 1000 0010
Solution :
Any two BCD codes can be added using the rules of binary addition to give the BCD code of the result , provided that result is less than 10 .
If the result is 10 or more , add six ( 01102 ) and disregard the leftmost 1 .
( applying the rule is equivalent to subtracting ten , because disregarding the leftmost 1 is equivalent to subtracting sixteen ( 100002 )) .
Example 4:
Calculate 5498 + 5419 in BCD.
Solution:
Example 5:
Calculate 2039 + 978 in BCD arithmetic.
Solution:
Example 6:
Calculate 73613 + 437 in BCD.
Solution:
ARITHMETIC
2.1 : Representing Numbers In a Computer
2.2 : Representing Integers
2.3 : Arithmetic With Integers
2.4 : Representing Real Numbers
2.5 : Arithmetic With Real Numbers
2.6 : Binary Coded Decimal Representation
2.1 : REPRESENTING NUMBERS IN A COMPUTER
In this chapter , we shall use the techniques we developed in Chapter 1 to investigate the ways in which numbers are represented and manipulated in binary form in a computer .
Numbers are usually represented in a digital computer as sequences of bits of a fixed length .
Integers and real numbers are handled in different ways . So we need to deal with the two cases separately .
2.2 : REPRESENTING INTEGERS
2’s Complement
We use sign ‘ + ‘ and sign ‘ – ‘ to denote positive and negative numbers but the computer can process data only in term of bit .
Computers store negative numbers in terms of their two’s complement .
Ones Complement
Ones complement of a binary number A is obtained by interchange digit 0 with 1 and 1 with 0 .
Examples :
Binary number : 11110011 110110011
Ones complement : 00001100 001001100
Two’s Complement
Two’s complement of a binary number A is its ones complement PLUS 1 .
Examples :
Binary number : 11110011 110110011
Ones complement : 00001100 001001100
+ 1 + 1
Two’s complement : 00001101 001001101
A negative number will be store in its two complement in the computer .
( Example : -63 is store as 11000001 in 8-bits word computer system .)
-6310 = - ( 1111112 )
6310 in 8-bits word = 00111111
Ones complement = 11000000
+ 1
Two’s complement = 11000001
-63 = 11000012
The range of number that can be stored in n – bit computer word in 2’s complement format is –(2n-1) to (2n-1-1) .
Example 1 :
Find the 16-bit computer representations of the following integers in 2’s complement :
( a ) - 205 ( b ) –15728 ( c ) –4961
Solution :
Example 2 :
Find out the denary value for storage number 1100010110112 that using 2’s complement method in 12-bit system .
Solution :
2.3 : ARITHMETIC WITH INTEGERS
Computer can only perform additions , so the performing of subtractions can be done by complement additions .
2’s Complement Subtraction
To evaluate Y = B – A , we actually find Y = B + ( - A ) .
Thus , in computer storage , to find B – A , we add B with the
2’s complement of A .
Steps In 2’s Complement Subtraction
1. Find the two’s complement of the second number , A .
2. add the 2’s complement of A to the first number B .
3. If the sum is more than the defined digit for A and B with the first digit equal to 1 , the final answer is the sum without the first digit 1 .
4. If the sum is the same digit as A and B , the final answer is the 2’s complement of the sum with a negative sign .
Example 1 :
Show how 165 – 89 can be evaluated in a 10-bit register using 2’s complement method. Justify your answer.
Solution :
Example 2:
If numbers are held in 8-bit register in two’s complement, show how 75 – 110 is evaluated. Justify your answer.
Solution:
Example 3:
Using two’s complement, base 10 integers are to be stored in 10–bits register.
(i) What range of integers (expressed in denary form), can be stored?
(ii) Show how 17110 is represented.
(iii) Show how – 18310 is represented.
(iv) Show how 17110 – 18310 would be evaluated.
Solution:
Example 4:
A ten bits register is used to store integers using twos complement format.
(i) What range of integers (expressed in denary form), can be stored?
(ii) Show how (– 156 – 249) can be evaluated in this form.
Solution:
2.4 : REPRESENTING REAL NUMBERS
Before the computer representation of a real number can be found , the number must first be converted to binary form and then be expressed in normalized binary exponential form .
A real number is expressed in normalized binary exponential form if it is expressed in the form :
+ m x 2e
where the significand m is written in its binary representation and lies in the range
0.12 m < 12 , and the exponent e is an integer written in its decimal representation .
Example 1 :
Express the following numbers in normalized binary exponential form :
( a ) 11001.1012 ( b ) 0.0001101112
Solution :
A real number is typically stored in a computer as 4 bytes ( 32 bits ) or 8 bytes (64 bits). The first bit is the sign bit , and the remaining bits are divided between the exponent and the significand .
A common format in modern computers is 8 bits for the exponent and 23 bits for the significand .
It is usually not the binary representation of the exponent itself that is stored , but a number called the characteristic .
characteristic = exponent + exponent bias
= exponent + 2n – 1 –1 ( where n is the number of bits
available to store the characteristic )
The first bit of the significand is not stored .
Putting together what we have established , the process for finding the computer representation of a real number can be described as follows :
1 ) Convert the number to binary form , working to the precision required by the number
of bits used for the significand .
2 ) Express the binary number in normalized binary exponential form .
3 ) Calculate the characteristic .
4 ) Write down the computer representation .
Example 2:
Find the 24-bit computer representation of 25.828125, where 8 bits are used for the characteristic, and the exponent bias is 27 – 1.
Solution:
Example 3:
Find the 32-bit computer representation of -1583.42, where 8 bits are used for the characteristic, and the exponent bias is .
Solution:
Example 4:
Find the 32-bit computer representation of -2187.0625, where 8 bits are used for the characteristic, and the exponent bias is .
Solution:
2.5 : ARITHMETIC WITH REAL NUMBERS
We will not look at how a computer does arithmetic with real numbers using their computer representation .
However , we can gain a general idea of what the process involves by looking at how arithmetic is done with decimal numbers in normalized exponential form .
The rules for arithmetic in normalized exponential form are as follows .
To add or subtract :
1 ) Write the numbers in ( non-normalised ) exponential form with the same
exponent , using significands less than 1 .
2 ) Add or subtract the significands to obtain the significand of the answer. The
common exponent is the exponent of the answer .
3 ) Normalised the answer if necessary .
To multiply or divide :
1 ) Multiply or divide the significands to obtain the significand of the answer .
2 ) Add or subtract the exponents to obtain the exponent of the answer .
3 ) Normalised the answer if necessary .
Example 4 :
Perform the following computations with the aid of a calculator , assuming a precision of four decimal places in the significand :
(a) 0.4932 x 103 + 0.2881 x 104 – 0.3096 x 104
(b) 0.8463 x 107 + 0.7012 x 108 – 0.3315 x 106
(c) (0.2174 x 10-5) x (0.1482 x 107) (0.9497 x 104)
(d) (0.9637 x 104) x (0.4576 x 103) + (0.7123 x 107)
Solution :
2.6 : BINARY CODED DECIMAL REPRESENTATION ( BCD )
The BCD representation of non-negative integer is obtained by replacing each decimal digit by its BCD code which require 4 bits for each decimal digit .
Decimal Digits BCD code
0 0000
1 0001
2 0010
3 0011
4 0100
5 0101
6 0110
7 0111
8 1000
9 1001
Example 1 :
Encode the decimal number 469 using the BCD code .
Solution :
Example 2 :
Encode 83019 in BCD.
Solution :
Example 3 :
Decode each numeric, expressed in the BCD code :
( a ) 0111 0011 0000 1001 ( b ) 0101 1000 0010
Solution :
Any two BCD codes can be added using the rules of binary addition to give the BCD code of the result , provided that result is less than 10 .
If the result is 10 or more , add six ( 01102 ) and disregard the leftmost 1 .
( applying the rule is equivalent to subtracting ten , because disregarding the leftmost 1 is equivalent to subtracting sixteen ( 100002 )) .
Example 4:
Calculate 5498 + 5419 in BCD.
Solution:
Example 5:
Calculate 2039 + 978 in BCD arithmetic.
Solution:
Example 6:
Calculate 73613 + 437 in BCD.
Solution:
Langganan:
Postingan (Atom)