Teknik Perantara Peripheral

Bagi yang sedang belajar Teknik perantara peripheral, semoga uraian dibawah ini bisa membantu. Posting dibawah ini membahas tentang MEMORI INTEFACING.

Aapabila suatu Unit Prosesor di intefacingkan dengan chip memory 256 x 4 bit yang beralamat FF00-FFFF heksadesimal. gambarkanlah diagramnya serta berapa memori yang digunakan apabila alamat harus memiliki ruang 1 Kb. berikut penjelasannya

 

Gambar ini merupakan sebuah prosesor yg d interfacingkan dengan chip memori berkapasitas 256 X 4 bit dan diberi alamat FF00 - FFFF heksadesimal, karena alamat harus memiliki ruang 1 Kb dimana 1 Kb memiliki 8 Bit ( 8 saluran data) maka diintefacingkan dengan 2 chip memori dimana chip memori pertama dihubungkan dengan saluran data D0-D3 & chip memori Ke2 dengan saluran data D4-D7. Kemudian untuk saluran Alamat, 8 saluran Alamat (A0-A7) dihubungkan ke kedua chip memori tersebut, sedangkan 8 saluran alamat yang tak digunakan (A8 - A15) dijadikan saluran kendali chip select (CS) yg didekodekan oleh sebuah gerbang NAND (dipilih NAND karena saluran alamat A8 - A15 bernilai 1 semua, sedangkan Chip Select akan aktif bila Bernilai 0). Untuk saluran Alamat A0 - A7 nilai diganti dengan simbol "X" yg berarti kemungkinan nilai antara 00 heksadesimal hingga FF heksadesimal.

Belajar Visual Basic 6. ( Contoh Program Kasir Swalayan )

Pertama belajar Visual Basic nampaknya sih bakal menguras otak, soalnya dari Namanya aja udah buat ngeri. Eh setelah di coba rupanya sungguh asyik bermain visual basic, nah berikut ini adalah program-program yang dibuat menggunakan Visual Basic 6.

   >>  Program Kasir Swalayan.

Gambar diatas merupakan Program Kasir Swalayan yang menggunakan Program Microsoft VB 6. Sedangkan dibawah ini adalah Scriptnya.


Private Sub Command1_Click()
Text1.Text = ""
Text2.Text = ""
Text3.Text = ""
Text4.Text = ""
Text5.Text = ""
Text6.Text = ""
End Sub

Private Sub Command2_Click()
pesan = MsgBox("Apakah Anda Yakin?", vbInformation + vbYesNo, "Perhatian")
If pesan = vbYes Then End
End Sub

Private Sub Text3_Change()
If Text2.Text = "" Then
Text2.SetFocus
Else
If Text3.Text = "" Then
Text3.SetFocus
Else
Text4.Text = Format(Text2.Text * Text3.Text, "####,###,###,#0")
End If
End Sub

Private Sub Text5_Change()
If Text5.Text = "" Then
Text5.SetFocus
Else
Text6.Text = Format(Text5.Text - Text4.Text, "###,###,###,#0")
End If
End Sub


Selamat Mencoba. Berjuanglah sampai anda menguasainya.
download script : Program Kasir Swalayan