Meletakan Gambar di Form VB 6 dengan PictureBox melalui settingan properti maupun settingan Code

Kotak Gambar(PictureBox) pada Visual Basic 6 adalah salah satu kontrol yang digunakan untuk menangani grafis. Anda dapat memuat gambar pada tahap desain dengan mengklik pada item gambar dalam jendela properti dan pilih gambar dari folder yang dipilih.  Anda juga dapat memuat gambar saat runtime dengan menggunakan metode LoadPicture. berikut contoh untuk kedua masalah tersebut, berikut contoh untuk kedua masalah tersebut :






A. Dengan setingan Properti
1. Buka project baru

2. Tambahkan "picture box" pada form, seperti berikut

3. Pada Picture1 properti di sebelah kanan,  klik picture lalu load dengan gambar yang di inginkan, pilih gambar lalu klik Open

maka akan muncul di pictureBox

B. Dengan settingan Code
1. Lakukan langkah 1 dan 2 diatas, lalu buka view code form
2. Letakan Project dan Gambar pada satu folder, dan saya asumsikan gambar tersebut bernama  "a.jpg"
3. Ketikan code berikut pada event form_Load(), tujuanya ketika form di panggil maka gambar akan di tampilkan pada PictureBox, pada kasus lain event yang di gunakan dapat berupa clik pada object, papan ketik di tekan atau event yang lain

'Code
Private Sub Form_Load()
Picture1.Picture = LoadPicture(App.Path & "\a.jpg")
End Sub
'Akhir code

code "LoadPicture" digunakan untuk mengambil foto dari direktori tertentu, sedangkan "app.path" merupakan alamat/lokasi tempat menyimpan project, sedangkan "a.jpg" merupakan nama file gambar tersebut

pada kasus lain alamat dapat dirujuk melalui database

Cara Membuat Database MySQL dengan CMD

Cara Membuat Database MySQL dengan CMD

Disini Saya Akan Membuat Database Penjualan dengan Menggunakan CMD, Okeh Langsung Saja !

1. Buka Control Panel Xampp (Start - All Program- Xampp)

2. Pastikan Apache dan MySQL Running

3. Masuk ke CMD dan Tuliskan Script berikut :

cd ..

cd ..   

cd xampp

cd mysql

cd bin

mysql -u root

4. Bila berhasil ada bacaan 'Welcome to MySQL monitor'. Okeh Kita Lanjutkan dengan databasenya

5. Create database penjualan;

6. Use penjualan;

7. Lalu kita membuat Tabel dari database tersebut :

8. Create table barang (

Kode Varchar (5) Not Null,

Nama Varchar (20) Not Null,

Harga Integer Not Null,

Primary key (Kode)

);

9. Kita akan membuat isi dari Tabelnya :

Insert into barang (Kode, Nama, Harga) Values ("001","Indomie Goreng","2000");

10. Bila ingin melihat Hasilnya : Select*From barang;

11. Bila ingin membuat isinya banyak, Ulangi langkan No.10 tetapi 001 diganti menjadi 002 karna tadi kita mengkasi Primary Key di Kode.

TAMBAHAN

*Disini saya sudah membuat 3 isi dari tabel tersebut*

1. Melihat Hasil : Select*From barang; 

2. Melihat Tabel : Show Tables;

3. Melihat Struktur Pembuatan : Desc barang;

4. Menambah Field : Alter table barang add Jumlah Integer Not Null; 

*Bila ingin mengisi datanya gunakan sama sepertinya No.8*

5. Merubah Nama Field : Alter table barang change Nama Nama_Barang varchar(20) not null;

6. Merubah Isi Field : Update barang set Nama_Barang="Shampo" where kode="001";

7. Menghapus Satu Barisan : Delete from barang where kode="001";

8. Menghapus Table : Drop barang;

9. Menghapus Database : Drop enjualan;

Sekian Tutorial Database dengan MySQL, Semoga bermanfaat ^_^

Membuat program Penjumlahan di Pascal,

Membuat program Penjumlahan di Pascal 

program penjumlahan adalah salah satu dari operasi aritmatika yang menggunakan tanda operator. Berikut langsung saja code untuk Membuat program Penjumlahan di Pascal 
program penjumlahan; 
uses wincrt; 
var 
a,b,h:integer; 
begin      
writeln('===PENJUMLAHAN===');      
writeln('=================');           
write('Masukan Angka Pertama = ');read(a);      
write('Masukan Angka Kedua = ');read(b);      
h:=a+b;                       
writeln('Angka Pertama + Angka Kedua = Hasil Penjumlahan');      
writeln(a, ' + ',b, ' = ' ,h);      
writeln('Hasil Operasi Penjumlahan Anda Adalah ',h); 
end. 

Membuat Perkalian di Pascal

Membuat Perkalian di Pascal 

salah satu contoh program perkalian di pascal yang bisa anda gunakan sebagai referensi anda dan bisa anda rubah sesuka hati anda sesuai keperluan  anda. Berikut codenya 
program perkalian; 
uses wincrt;
var 
a,b,h:integer;
 begin      
writeln('===PERKALIAN===');      
writeln('=================');           
write('Masukan Angka Pertama = ');read(a);      
write('Masukan Angka Kedua = ');read(b);      
h:=a*b;                       
writeln('Angka Pertama * Angka Kedua = Hasil Perkalian');      writeln(a, ' x ',b, ' = ' ,h);      writeln('Hasil Operasi Perkalian Anda Adalah ',h);
 end. 
Terima kasih atas kunjungan anda dan silahkan tinggalkankomentar anda. 

Program Hitung Pembagian Menggunakan Pascal

Program Hitung Pembagian Menggunakan Pascal

Sebelumnya saya telah share tentang Program Hitung Perkalian Menggunakan Pascal. Pada tersebut menampilkan hasil perkalian dari dua nilai. Nah kali ini tidak jauh berbeda dengan program hitung perkalian, saya akan share tentang program hitung pembagian. Berikut keterangan mengenai program hitung pembagian :
Keterangan :

• Program diatas adalah program hitung pembagian
• Buka program Pascal
• Lalu buat perintahnya seperti gambar diatas
• Clrscr untuk membersihkan layar ketika program dijalankan
• Writeln untuk mencetak baris setelah program dijalankan
• Readln untuk membaca baris
• “;” untuk mengakhiri statement atau satu perintah
• variable A dan B adalah integer. Variabel C diberi fungsi real
• End untuk mengakhiri program
• Kemudian tekan CTRL+F9 untuk menjalankan program

Keterangan :

• Setelah proses selesai akan menampilkan hasil output diatas
• Pertama, program akan meminta input “nilai a=”
• Lalu kita ketik “20”. tanpa tanda petik. Lalu tekan enter
• Kedua, komputer akan meminta kita input “NILAI B=” . tanpa tanda petik.
• Lalu kita ketik “5”. Lalu tekan enter
• Lalu akan menampilkan output “HASIL PEMBAGIAN = 4”. Nilai A dan B yang kita masukkan akan dibagi sesuai dengan kondisi yang diberikan yaitu C:=a/b;

Jika masih ada yang kurang jelas silahkan tanya di kolom komentar yaa.

MENGHITUNG LUAS SEGITIGA PADA PROGRAM PASCAL

Program segitiga;
Uses crt;
Var
luas,a,t:real;
begin
clrscr;
writeln(‘==PROGRAM MENGHITUNG LUAS SEGITIGA==’);
readln;
write(‘masukkan alas: ‘);
readln(a);
write(‘masukkan tinggi: ‘);
readln(t);
luas:=1/2*a*t;
writeln;
writeln(‘jadi luas segitiga adalah: ‘,luas:0:2);
readln;
end.

Perdebatan Dunia

WIKIPEDIA : Aku tau semuanya.
FACEBOOK : Aku kenal dengan semua orang.
GOOGLE : Aku punya semuanya.
MOZILA : Tanpa aku kalian tidak bisa di akses.
EXPLORER : Kan gue masih ada.
MOZILA : Apaan sih lo, ganggu acara orang aja!
EXPLORER : Lo sih, ngaku-ngaku cuma ada lo sendiri!
INTERNET : Udah-udah! Jangan banyak bacot lo semua, kalo gak ada gue kalian semua gak bakalan ada!
FACEBOOK : Huuu, yang paling sering dikunjungi kan gue, jadi gue yang terbaik.
YAHOO : Facebook, Inget, tanpa gue lo gak bisa buat Email!
GOOGLE : Yahoo, Gue juga bisa buat Email.
INTERNET : zzz... Udah tau gue yg paling hebat :p
KOMPUTER : Gua Paling dewa di sini.
PLN : Bacot lo semua! Gua matiin nih listriknya!
GENSET : tenang aja kan masih ada saya
PLN : diem lu
PERTAMINA : awas kalian semua, saya stop pasokan BBM baru tau rasa lo
SOLAR CELL : tenang kan selama masih ada saya semuanya aman
Matahari : Ettt Gk gw sinarin diem lo
Air, Batubara, Petir dll : MASIH ADA GUA !!!
Bumi : Lo klo gk ada gw pasti gk bakal ada
jagat raya: lo semua kalo gak ada gwe pasti kalian gak bakalan ada....
Tuhan: tanpa saya kalian semua tidak pernah ada.