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

Penggunaan Data dan Variabel

Penggunaan ToolBars ListBox

contoh program C++

Source Code:

#include<conio.h>
#include<iostream.h>
#include<stdlib.h>

Bermain Logika For dengan C++

Source Code:
#include<iostream.h>
#include<conio.h>

main()
{
int i,j,z,k;
for(i=1;i<=10;i++)
{
    for(j=10;j>i;j--)
   {
       cout<<" ";
    }
   for(z=i;z>=1;z--)
   {
       cout<<"*";
   }
   for(k=i;k>1;k--)
   {
       cout<<"*";
   }
cout<<"\n";
}
for(i=1;i<=10;i++)
{
    for(j=1;j<=19;j++)
   {
       cout<<"*";
   }
cout<<endl;
}
getch();
}

Tugas VB 6 bag.2

Source Code :


Dim list As ListItem
Private Sub cmd_clear_Click()
If ListView1.ListItems.Count > 0 Then
    ListView1.ListItems.Clear
End If
End Sub

Private Sub cmd_remove_Click()
ListView1.ListItems.Remove (Me.ListView1.SelectedItem.Index)
End Sub

Tugas VB 6 Bag. 1

Source Code:

Private Sub Command1_Click()

a = MsgBox("Nama Saya : " & Text1.Text & vbCrLf & "Alamat Saya : " & Text2.Text & vbCrLf & "Nomer Telpon saya : " & Text3.Text & vbCrLf & "Hobby saya :" & Text4.Text, vbInformation + vbOKCancel, "Biodata")
Me.Caption = "Biodata " & Text1.Text
If a = vbOK Then
Text1.Text = ""
Text2.Text = ""
Text3.Text = ""
Text4.Text = ""
Text1.SetFocus
Else
    b = MsgBox("Apakah Anda Ingin Keluar ", vbQuestion + vbYesNo, "Konfirmasi")
    If b = vbYes Then
    End
    Else
    Text1.Text = ""
    Text2.Text = ""
    Text3.Text = ""
    Text4.Text = ""
    Text1.SetFocus
    End If
End If

End Sub

Private Sub Command2_Click()
c = MsgBox("Apakah Anda Ingin Keluar ", vbQuestion + vbYesNo, "Konfirmasi")
    If c = vbOK Then
    End
    Else
    Text1.SetFocus
    End If
End Sub

Beberapa fungsi Manipulasi String pada VB6

Sekilas Tentang Bahasa Pemrograman C++

         Berbicara tentang C++ dan C sebagai bahasa pendahulunya, C merupakan termasuk bahasa pemrograman tingkat menengah. Pencipta C adalah Brian W. Kernighan dan Dennis M. Ritchie pada tahun 1972. C merupakan bahasa pemrograman terstruktur yang membagi program ke dalam sejumlah blok (sub program). Tujuannya adalah untuk memudahkan dalam pembuatan dan pengembangan program. Program yang ditulis dengan C mudah sekali dipindahkan dari satu jenis mesin ke mesin lain. Hal ini karena adanya standarisasi C yaitu ANSI (American National Standards Institute) Yang menjadi acuan para pembuat compiler C.