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.

Penggunaan ToolBars ProgressBar

Mewarnai Form, Frame dan Option

Penggunaan Operator