Hari: 4 Desember 2012

Membuat Database Gambar

Ms Visual Basic 6. 0.12.2012. Tek Sipil S1

Ada dua jenis data gambar, yang pertama gambar diletakkan pada database, dan yang kedua gambar diletakan di folder tertentu sementara database hanya berisi link dan nama filenya. Buat dengan Microsoft access yang berisi nama gambar. Untuk mempermudah, copy gambar yang berada di my pictures ke lokasi folder VB anda.

Simpan dengan nama tertentu, misalnya gambar1.mdb (format ke access 2002-2003). Setelah itu buka Microsoft VB 6. Buat GUI sebagai berikut, seperti biasa tambahkan component adodc.

Lihat tata cara mengkoneksikan adodc1 ke database gambar1.mdb lewat connection string dan record source. Jika sudah, pada property text1, arahkan data source ke adodc1 dan data filed = picture.

Pada tombol LIHAT, masukan listing berikut ini:

F = “D:\rahmadya\” & Text1.Text

Image1.Picture = LoadPicture(F)

Perhatikan, lokasi D:\rahmadya\ sesuaikan dengan letak gambar di komputer Anda. Jalankan hingga muncul tampilan sebagai berikut.

Jika tombol LIHAT ditekan, akan memunculkan gambar1.jpg, atau tekan tombol next pada Adodc1 untuk melihat gambar yang lainnya.

Iklan

Mencetak Kalimat dengan Turbo Assembler

Coba praktekan dengan Turbo Assembler program mencetak kalimat (servis 9ah)

.MODEL SMALL

.CODE

ORG 100h

Tdata : JMP Proses

Kal0 DB ‘PROSES PENCETAKAN STRING ‘,13,10,’$’

Kal1 DB ‘DIBELAKANG TANDA $ TIDAK BISA DICETAK ‘

Proses:

MOV AH,09h ; Servis ke 9

MOV DX,OFFSET Kal0 ; Ambil Alamat Offset Kal0

INT 21h ; Cetak perkarakter sampai tanda $

LEA DX,Kal0 ; Ambil Alamat Offset Kal0

INT 21h ; Cetak perkarakter sampai tanda $

LEA DX,Kal0+7 ; Ambil Alamat Offset KAl0+7

INT 21h ; Cetak perkarakter sampai tanda $

LEA DX,KAL1 ; Ambil Offset kal1

INT 21h ; Cetak perkarakter sampai ketemu $

INT 20h ; Selesai, kembali ke DOS

END Tdata

Simpan dengan nama tulisan.asm, Kompilasi dan link file tersebut dengan mengetik TASM tulisan dan jika tidak ada masalah ketik dengan TLINK/T tulisan.