Teknik Informatika

program array dalam delphi , sebagai contoh nih scriptnya


procedure TForm1.Button1DoubleClick(Sender: TObject);
var a,b:integer;
    nama    :array [1..90]of string;
    kelas   :array [1..90]of string;
    jurusan :array [1..90]of string;

begin
if Edit1.Text<>'' then
begin
b:=StrToInt(Edit1.Text);
for a:=1 to b do
  begin
    nama[a]   :=InputBox('Nama','Nama','');
    kelas[a]  :=InputBox('Kelas','Kelas','');
    Jurusan[a]:=InputBox('Jurusan','Jurusan','');
  end;

StringGrid1.RowCount:=b+1;
for a:=1 to b do
  begin
    StringGrid1.Cells[1,a]:=nama[a];
    StringGrid1.Cells[2,a]:=kelas[a];
    StringGrid1.Cells[3,a]:=jurusan[a];
  end;


end
  else
    Application.MessageBox('Masukkan Data','Error');
    Edit1.SetFocus;
end;

procedure TForm1.FormShow(Sender: TObject);
begin
StringGrid1.cells[0,0]:= 'No'     ;
StringGrid1.cells[1,0]:= 'Nama'   ;
StringGrid1.cells[2,0]:= 'Kelas'  ;
StringGrid1.cells[3,0]:= 'Jurusan';

end;

end.


Nih ss design program nya

 












Silahkan mencoba semoga bermanfaat bagi bagi cendol juga ya jangan lupa :p

kali ini saya akan memberikan penerangan buat agan agan n sista yang mendapatkan tugas yang sama kek saya tentang menjumlah 2 buah matrik menggunakan pascal

langsung aja ke TKP ya gan nih scriptnya :

Uses Crt;
Var B,K,Br,Kl,C,L : Byte;
M1,M2,M3  : Array[1..10,1..10] of Byte;
Begin
Clrscr;
Gotoxy(10,5);Write(‘***** Menjumlahkan Dua Buah Matriks*****’);
Gotoxy(10,7);Write(‘Jumlah Ordo Matriksnya =   x   ‘);
Gotoxy(35,7);Readln(B);
Gotoxy(39,7);Readln(K);
Gotoxy(10,9);write(‘Masukkan Matriks Ke Satu’);
L:=10;
For br := 1 to b do
Begin
c := 15;
For kl :=1 to k do
Begin
gotoxy(c,l);readln(m1[br,kl]);
c := c + 2;
end;
l := l + 1;
end;
Gotoxy(10,14);write(‘Masukkan Matriks Ke Dua’);
l:=15;
For br := 1 to b do
Begin
C := 15;
For kl := 1 to k do
Begin
Gotoxy(c,l);readln(m2[br,kl]);
C := c + 2;
end;
L := L + 1;
end;
Gotoxy(10,18);write(‘Maka Hasil Penjumlahan Matriks’);
L:=20;
For br := 1 to b do
Begin
C:=15;
For kl := 1 to k do
Begin
M3[br,kl] := M1[br,kl] + M2[br,kl];
Gotoxy(c,l);Write(m3[br,kl]);
C := c + 2;
end;
L := L + 1;
end;
Readln;
End.


 nih ss nya gw kasih juga :




ok semoga artikel ini membantu kalian semua ya 
terima kasih
 

guys gw kali ini mau share tentang konversi bilangan
nah dulu kita di kenalkan berbagai macam bilangan kan
sekarang di TI kita di kenalkan bilangan baru nih namanya bilangan binner dimana bilangan tersebut hanya berisi bilangan '0' dan '1' yang berarti 'TRUE' or 'FALSE' nah konversi dari desimal ke binner cukup ribet makanya di sini gw mau share sedikit tentang pembuatan program konversi desimal ke binner
nih script nya ada di bawah ini :

Uses crt;

Var     Des     : Integer;
        ulang   : char;
        Bin     : String;

begin
ulang:='y';
while ulang='y' do
Begin
Write ('Masukan Bilangan Desimal : ');
ReadLn (Des);
Bin := ' ';
Repeat
Begin
{Menghitung Biner Dari Sisa Hasil Bagi}
If Des mod 2 = 0 Then Bin := '0' + Bin
Else Bin := '1' + Bin;
{Membagi Bulat Bil Desimal}
Des := Des div 2;
End;
Until Des = 0;
WriteLn ('Bilangan Biner : ',Bin);
write ('Ulang Lagi [y/n] =');
readln(ulang);
clrscr;
End;
End.

simple kan nih output nya gw kasih juga

 pict : output
 












Ok ini hasil dari  kerja iseng dari saya terimakasih
jangan lupa puja kerang ajaib LoL

agan agan sekalian sekarang ane mau post tentang cara menggunakan data time di delphi

ok langkah langkah nya adalah sbb:
    1.siapkan laptop/pc
    2.buka delphi 7
    3.kita lakukan work nya sekarang



1 BUAT PENGENAL DULU
















tools atau componen yang di gunakan ada di object Treeview bisa kalian lihat di gambar di atas

2 BUAT PEMASTIAN YES OR NO





















untuk yang 1 ini logika nya jika di tekan button yes maka akan lanjut ke program berikut nya jika di tekan button no maka akan menutup rogram dengan sendiri nya


3 BUAT TULISAN BERJALAN DAN MEMBUAT TANDA * BERTAMBAH TIAP DETIK NYA



















nih gan itu ada component timer(yang gambar jam) 1 2 3 nah itu timer 1 paling atas timer 2 tengah timer 3 aling bawah
nah isi itu scriptnya kek gini


procedure TForm3.Timer2Timer(Sender: TObject);
 var a,b,c : String;
begin
  a := Label1.Caption;
  b := copy(a,1,1);
  c := copy(a,2,length(a)); //KODE AGAR TEKS BERJALAN
  Label1.Caption := c+b;
end;

procedure TForm3.Timer3Timer(Sender: TObject);
 var a,b,c : String;
begin
a := Label2.Caption;
  b := copy(a,1,1);
  c := copy(a,2,length(a));  //kode agar teks berjalan
  Label2.Caption := c+b;
end;

procedure TForm3.FormCreate(Sender: TObject);
begin
Form3.Color:=clRed;
Form3.Caption:='Tugas Rena';
end;

procedure TForm3.Button1Click(Sender: TObject);
begin
Form4.Show;
Form3.Hide;
end;













nah untuk button exit isikan scriptnyaseperti ini


procedure TForm3.Button1Click(Sender: TObject);
begin
application.terminate;
end;


jadi deh program nya bro

semangat terus bro buat program nya kalau ada salah mohon maklum ane masi newbie gan
sekian dan terimakasih 
senangnya berbagi ilmu dengan teman
>,<
 

 ok sebelum kita masuk lebih dalam tentang hubungan statistik teknik dengan teknik informatika mari kita pelajari dahulu pengertian dari statistik teknik itu sendiri
statistika teknik adalah suatu cara alat atau trik untuk analisis data yang di tujukan untuk mengumpulkan data, mengurutkan data, memisahkan data, klasifikasi data, tabulasi data, interpretasi data dan pengambilan keputusan terhadap masalah-masalah yang di dasarkan penelitian dengan sampel, agar di ketahuai bagaimana sifat-sifatnya atau karakteristik dari populasi tersebut. Bila penelitian tidak menggunakan sampel maka di perlukan data sensus untuk menganalisa sifat-sifat tersebut.

                              Contoh: spss, minitab, sas, microstat.
 dan hubungan statistik dengan IT itu juga sangat kuat
karena secara tidak langsung IT membutuhkan aplikasi untuk mengumpulkan data dan data tersebut hanya berupa angka angka dan angka
nahhh loooo 
pasti puyeng dan pening kan ??
makanya di IT harus belajar statistik teknik juga untuk mempermudah kita mengumpulkan dan menganlisis data data tersebut 




ane share referensi untuk statistik teknik
referensi statistika 

sekian dan terima kasih senangnya berbagi cemunguth kakakssss >,<