Permainan Educatio "Sudoku"

postingan kali ini saya akan berbagi source code game yang saya buat. game ini saya buat sebagai tugas UTS Mata Kuliah Pemrograman Terstruktur I (pemrograman Visual Basic  6). mungkin agan-agan gak asing lagi dengan namanya Game Sudoku. Game yang lumayan membuat kepala kita pusing. tapi dengan bermain game ini kita belajar mengasah logika kita. mengapa demikian????
                jelasnya pada game ini, kita di perintahkan untuk memberi nilai 1 sampai 9 pada kotak-kotak (atau kalau di vb 6 Command Button) yang kosong , dan itupun tidak boleh sama dengan nilai satu baris disebelahnya dan satu baris kebawah atau secara horizontal maupun vertikal.

Struktur Bahasa Pemrograman Pascal

Struktur lengkap bahasa Pascal adalah sebagai berikut :

Program id_program;

Uses unit;

Label id_label;

Const id_konstanta : ekspresi;

Type id_tipe : tipe_bebas;

Var id_variabel : tipe_variabel;

Procedure id_procedure;

Begin

Statement_procedure;

End;

Function id_function;

Begin

Statement_function;

End;

Begin

...

...

Statement_program_utama;

End.

Secara sederhana, struktur program Pascal terdiri dari  program, uses, begin , statement dan end. Contoh sederhana yaitu menampilkan kalimat AKU BISA BAHASA PEMROGRAMAN PASCAL.

Script code:

program latihan1;

begin

write(‘AKU BISA BAHASA PEMROGRAMAN PASCAL’);

end.

Visual Basic 6 : menampilkan gambar pada komponen PictureBox

      Kali ini saya akan share cara menampilkan gambar pada komponen PictureBox dan CommonDialog.

langsung saja, pertama kita tambahkan komponen  PictureBox dan CommandButton. atur seperti gambar atau sesuka anda:

Membuat jajargenjang bintang for bersarang dengan bahasa pemrograman pascal

    Pada postingan yang lalu yaitu Membuat jajargenjang bintang for bersarang dengan 4 bahasa pemrograman    menggunakan bahas pemrograman C++, Java,VB6 dan VB.Net. Kali ini saya akan share program yang sama dengan bahasa pemrograman Pascal. 
script code :
uses crt;
var inp,i,j,z:integer;
begin
write('masukkan jumlah bintang :'); readln(inp);
for i:=1 to inp do
begin
    for j:=1 to i do write(' ');
    for z:=1 to inp do write('*');
    writeln;
    readln;
end;
end.

Hasilnya:

 

Membuat jajargenjang bintang for bersarang dengan 4 bahasa pemrograman

      Ok, sekarang saya ingin share sedikit ilmu saya. Mungkin bagi temen-temen yang sedang belajar Bahasa Pemrograman atau mahasiswa khususnya Jurusan TI,  kalau masuk bab for bersarang atau for Nested disuruh membuat segitiga bintang,bentuk kotak atau yang lain. Tapi kali ini saya akan Share cara membuat jajargenjar bintang pada 4 bahasa pemrograman yang berbeda yaitu Bahasa pemrograman C++, Java, VB 6 dan yang terakhir VB.NET.

Structures

structure adalah suatu himpunan dari berberapa type data yang berbeda
dikelompokan menjadi satu deklarasi yang unik. Bentuknya adalah sebagai berikut: 

typedef struct model_name {
  type1 element1;
  type2 element2;
  type3 element3;
  .
  .
} object_name;

dimana model_name adalah nama untuk model structure type dan object_name bersifat
optional sebagai variabel dengan structure object tersebut. Diantara curly brackets { }
adalah type dan sub-identifiers yang bersesuaian dengan elemen-elemen yang
membentuk structure tersebut. 
Contoh :

Trik Penggunaan For Eac...Next pada TextBox

           Diantara kita mungkin pernah terlintas, seumpama kita sedang membuat program dengan menggunakan banyak atau ratusan komponen TextBox, dan anda ingin sekali komponen CommandBottun di Clik semua isi TextBox kosong. Apakah kita harus mengetikkan script

Text1.text=""
Text2.text=""
Text3.text=""
Text4.text=""
Text5.text=""
Text6.text=""
Text7.text=""
Text8.text=""
Text9.text=""
Text10.text=""

        iya kalau TextBox yang ingin kita kosongkan itu 5 atau 10 TextBox, coba kalau harus mengosongkan 1000 TextBox. Apakah kita harus menulis satu-satu , text1.text="" sampai text1000.text="" . Apakah anda ingin seperti itu. OK, kali ini saya akan berbagi sedikit ilmu, gimana caranya mengosongkan banyak komponen TextBox sekali Clik tanpa menulis banyak script seperti diatas.