Cara Membuat Teks Berjalan (Unfull Version)

Untuk membuat teks berjalan pada program delphi, klik button timer yang ada pada menu system seperti gambar di bawah ini lalu simpan pada form yang dimaksud..

lal double klik pada button timer tersebut, dan masukkan koding ini:

   if Label3.Left=-1000 then label3.Left:=700;
   Label3.Left:=Label3.Left-10;

nama label disesuaikan yah..
catatan: untuk angka 1000 dan 700 itu saya belum paham , jadi teman-teman utak-atik sendiri, kalau sudah tahu, komen yah :) berbagi ilmu juga kan ya, terima kasih semoga bermanfaat :)

Gimana caranya bikin program untuk memasukkan username dan password?

Misal program yang akan kalian buat seperti gambar ini:

FormMasuk

Rencananya, kalau kita memasukkan username dan passwordnya benar, maka form tersebut akan close, sedangkan apabila salah, masuk ke FormSorry.

Catatan: Formnya bebas, mau pake form lainnya atau engga itu pilihan teman-teman, ini salah satu alternative saja. (punya saya)

Nah, pertanyaannya gimana caranya membuat lebih dari satu form dalam satu aplikasi?

Caranya:

1.       Klik menubar file -> New -> Form

2.       Beri nama form tersebut untuk memudahkan pemrogaman gabungan

Kemudian, psedo code untuk form utama gimana yah?

Berdasarkan contoh tugas besar prokom, form selanjutnya akan terbuka ketika username sama dengan passwordnya, maka:

procedure TFormMasuk.Button1Click(Sender: TObject);

var a,b:string;

begin

    a:=edit1.text;

    b:=edit2.text;

    if a=b then FormMasuk.close

    else FormSorry.Show;

end;

Perhatikan:

Untuk membuka form baru ketika kita mengklik button, rumusnya adalah FormXXX.Show serta ketika kita ingin mengclose form tsb, rumusnya FormXXX.Close

Nah biasanya setelah kita memasukkan rumus tersebut lalu mengklik RUN, ada pesan jendela yg muncul mengenai ‘using unit’ yg terkait, klik ok saja ya.

Kemudian, gimana nih biar input ke passwordnya jadi hiden gitu, alias jadi symbol bintang gitu yah?

Caranya:

1.       Klik 1x saja pada item edit yg dijadikan input password

2.       Masuk ke menu properties yang ada di sebelah kiri layar anda

3.       Cari PasswordChar lalu isi dengan tanda bintang ‘*’

Cara untuk insert gambar ke form kita:

1.       Buat canvas di form kita

2.       Lalu masuk ke menu properties yang ada di sebelah kiri layar anda

3.       Cari picture , klik, lalu load gambar yg ada inginkan, lalu klik ok

Semoga bermanfaat.

Kalo kurang jelas komen aja yaaaah J

Cara Membuat Grafik Trigonometri

Sharing bikin grafik trigonometri: sin x dan cos x

Yang jadi amsalah kan yaaa gimana caranya bikin grafik yang besar.. kalo skalanya sama kaya ukuran pixel canvasnya pasti grafiknya bakalan mini banget, nah ini caranya.. kalian bisa utak atik sendiri:

Yang pertama adalah menyesuaikan titik pusat (0,0) jadi di tengah, dengan cara:

Function Absis(LojikX:Double):Integer;

begin

      result:=Round(LojikX + 300);

end;

Function Ordinat(LojikY:Double):Integer;

begin

      result:=Round(200 - LojikY);

end;

untuk kata absis dan ordinat di atas, bisa disesuaikan dengan kainginan kalian J

untuk angka 200 dan 300, kenapa harus segitu yaaaa?

Nah karena ukuran canvas saya adalah 600x400, maka untuk mencapai tengah-tengahnya kan x nya 300, dan y nya 200.. ini berarti disesuaikan ukuran canvas kalian yah.

nah, selanjutnya adalah membuat sumbu koordinat cartesius..

Diskusi PROKOM - Animasi !

Kebetulan tadi sempet copas materi yang didiskusikan di lab ke blog ini, tapi maaf ga semuanya ada. Perhatikan cara penulisannya yaaa, karna ini belum tentu benar, tapi secara garis besar rumus yang dikasih ibu itu seperti ini..

Ini tugas pertama yang bikin persegi panjang warna biru dari himpunan-garis-garis:

begin
with Image1.Canvas do
begin
Pen.Width:=10;
Pen.Color:=clBlack;
Brush.Color:=ClBlack;
Rectangle(0,0,500,250);
Pen.Color:=ClBlue;
for i:=1 to 240 do
begin
MoveTo(250-i,10);
LineTo(250-i,250);
MoveTo(250+i,10);
LineTo(250+i,250);
Tunda(0,10);
end;
end;

Teman-teman, ini adalah cara menyetting agar pusat koordinatnya menjadi di tengah:

PROGRAM STATISTIKA MENGGUNAKAN DELPHI (ARRAY)

procedure TForm1.Button1Click(Sender: TObject);
begin
  ListBox1.Items.Add(Edit1.Text);
  Edit1.Text:='';
end;

procedure TForm1.Button2Click(Sender: TObject);
var n,i:integer; a:array[1..10]of integer;
begin
  i:=1;
  for i:=1 to ListBox1.Items.Count do
  begin
    a[i]:=strtoint(ListBox1.Items[i-1]);
  end;
  n:=strtoint(Edit2.Text);
  Edit3.Text:=inttostr(a[n]);
end;

PROGRAM KOMBINASI MENGGUNAKAN SUBPROGRAM (DELPHI)

procedure TForm1.Button1Click(Sender: TObject);
var a,b,c,d,e,f:integer;
    g:real;
  procedure faktorisasi (x:integer; var y:integer);
  var i:integer;
  begin
    y:=1;
    for i:=1 to x do
    y:=y*i;
  end;
begin
  a:=strtoint(Edit1.Text);
  b:=strtoint(Edit2.Text);
  c:=a-b;
  faktorisasi(a,d);
  faktorisasi(b,e);
  faktorisasi(c,f);
  g:=d/(e*f);
  Edit3.Text:=floattostr(g);
end;

HAK ASASI MANUSIA DAN HAK & KEWAJIBAN WARGA NEGARA

A.   PENDAHULUAN

Makalah ini membahas tentang materi dan pembelajaran Hak Asasi Manusia (HAM) serta Hak dan Kewajiban Warga Negara dalam mata pelajaran PKn sebagai salah satu Mata Kuliah Dasar Umum yang perlu dikenalkan kepada semua mahasiswa.

Dalam bab ini pembaca khususnya mahasiswa diajak mengenal, memahami dan menganalisis pengertian, karakteristik serta berbagai permasalahan yang berkaitan dengan konsep serta pelaksanaan Hak Asasi Manusia (HAM) serta Hak dan Kewajiban Warga Negara Indonesia. Sehingga dengan mempelajari materi dalam bab ini mahasiswa diharapkan memiliki kemampuan sebagai berikut:

1.      Dapat memahami materi tentang HAM.

2.      Dapat memahamai materi Hak dan Kewajiban Warga Negara.

3.      Dapat memahami dan menjelaskan pelaksanaan HAM di Indonesia.

Sebagai makhluk bermartabat, manusia memiliki sejumlah hak dasar yang wajib dilindungi, seperti hak hidup, hak beropini, hak berkumpul, serta hak beragama dan hak berkepercayaan. Nilai-nilai HAM mengajarkan agar hak-hak dasar yang asasi tersebut dilindungi dan dimuliakan. HAM mengajarkan prinsip persamaan dan kebebasan manusia sehingga tidak boleh ada diskriminasi, eksploitasi dan kekerasan terhadap manusia dalam bentuk apapun dan juga tidak ada pembatasan dan pengekangan apa pun terhadap kebebasan dasar manusia. Oleh karena masalah Hak Asasi Manusia telah merambah di dalam kehidupan masyarakat dan merupakan persoalan bersama, maka masyarakat atau siswa, seyogyanya dikenalkan pada masalah HAM, agar mereka mengetahui dan menyadari akan hak dan kewajiban asasi dirinya dan hak asasi orang lain sehingga mereka akan terbiasa untuk menghormati diri dan hak-hak asasi orang lain.

PSEDO CODE GAMBAR (DELPHI)

PSEDO CODE GAMBAR IKHWAN
begin
  with image1.canvas do
  begin
    pen.Width:=2;
    arc(100,30,300,330,100,130,300,130); {kepala}
    arc(280,180,305,230,295,230,305,180); {telinga}
    arc(95,180,120,230,100,180,105,230);
    moveto(140,145); lineto(175,160); {alis}
    moveto(220,160); lineto(255,145);
    arc(150,220,250,290,150,260,250,260); {bibir}
    moveto(150,260); lineto(250,260);
    moveto(160,275); lineto(240,275);   {gigi}
    arc(190,230,210,250,200,250,200,150); {hidung}
    brush.color:=clblack; {peci}
    polygon([point(100,130),point(300,130),point(290,40),point(110,40)]);
    brush.color:=clwhite;   {mata}
    ellipse(140,160,170,210); ellipse(220,160,250,210);
    brush.color:=clblack;
    ellipse(150,170,168,210); ellipse(230,170,248,210);
    moveto(155,315); lineto(150,360); {leher}
    moveto(245,315); lineto(250,360);
    arc(115,310,285,405,115,355,285,355); {kerah}
    arc(105,300,295,415,118,360,282,360);
    moveto(150,350); lineto(50,365); {pundak}
    moveto(250,350); lineto(350,365);
    moveto(50,365); lineto(20,480); {lengan}
    moveto(350,365); lineto(380,480);
    moveto(200,415); lineto(200,480); {baju}
    ellipse(190,425,210,445);
  end;
end;

PSEDO CODE GAMBAR AKKHWAT

begin

  with image1.canvas do
  begin
    pen.Width:=2;
    arc(500,30,700,330,500,130,700,130); {kepala}
    moveto(540,160); lineto(575,145); {alis}
    moveto(620,145); lineto(655,160);
    moveto(500,130); lineto(700,130); {garis atas kepala}
    arc(470,30,720,150,720,90,470,90); {kerudungatas}
    moveto(470,90); lineto(420,390);
    moveto(720,90); lineto(770,390);
    arc(420,350,770,430,470,390,720,390); {kerudungbawah}
    arc(420,340,770,420,470,380,720,380);
    arc(590,230,610,250,600,150,600,250); {hidung}
    arc(550,220,650,290,550,260,650,260); {garisbibirbawah}
    moveto(550,260); lineto(650,260);
    moveto(560,275); lineto(640,275); {gigi}
    brush.color:=clwhite;   {mata}
    ellipse(540,160,570,210); ellipse(620,160,650,210);
    brush.color:=clblack;
    ellipse(542,170,560,210); ellipse(622,170,640,210);
    moveto(430,405); lineto(420,480); {badan}
    moveto(760,405); lineto(770,480);
    moveto(590,430); lineto(590,480); {baju}
    ellipse(580,440,600,460);
  end;
end;

Pengaruh Lingkungan Terhadap Perilaku Remaja

Dalam buku Sosiologi Keluarga: Tentang Ikhwal Keluarga, Remaja dan Anak, Soerjono Soekanto (2004:70), menjelaskan beberapa jenis lingkungan yang dapat mempengaruhi perilaku remaja:

a. Orang tua, saudara-saudara dan kerabat, yang ini merupakan lingkungan pertama yang memberikan pengaruh dalam diri remaja. Melalui lingkungan ini, remaja mengenal lingkungan dan jenis pergaulan-pergaulan berikutnya yang akan menambah banyak pengaruh yang lain. Usia remaja merupakan usia pancaroba di mana masih dalam rangka mencari indentitas tertentu, di mana pencarian identitas ini pertama tertuju pada sosok dalam diri orang tua, kerabat atau saudaranya. Jika tidak diperoleh dari orang tua, kerabat atau saudara ini, maka pelarian pencarian indentitas tersebut akan beralih ke lingkungan berikutnya, bisa teman sepermainan atau teman di sekolah.

Beberapa hal yang merusak atau mengganggu proses asimilasi remaja dengan keluarganya sehingga remaja mencari kenyamanan bergaul di luar keluarga adalah :

1) Tidak ada saling pengertian mengenal dasar-dasar kehidupan bersama

2) Terjadinya konflik mengenai otonomi, di mana satu pihak orang tua ingin agar anaknya dapat mandiri, di lain pihak keluarga mengekangnya

3) Terjadinya konflik nilai-nilai yang tidak diserasikan

4) Pengendalian dan pengawasan orang tua yang berlebihan

5) Ketiadaan rasa saling menolong dan kebersamaam dalam keluarga

6) Adanya masalah dalam hubungan antara ayah dan ibu

7) Jumlah anak yang banyak yang kurang mendapatkan kasih saying orang tua

8) Campur tangan pihak luar keluarga

9) Kedudukan social ekonomi yang berada di bawah standard

10) Pekerjaan orang tua yang tidak seimbang, seperti jabatan ibu yang lebih tinggi dari ayah.

11) Aspirasi orang tua yang tidak disesuaikan dengan kenyataan yang terjadi

12) Konsepsi peranan keluarga yang menyimpang dari kenyataan

13) Timbulnya favoritisme di kalangan anggota keluarga, yang ini akan menimbulkan perhatian yang kurang adil merata dan seimbang di antara anggota keluarga

14) Pecahnya keluarga yang disebabkan konflik ayah, ibu dan anak-anaknya

15) Persaingan tajam di antara anak-anak yang menyolok

Kesemua kondisi tidak kondusif bagi pembentukan kepribadian remaja di atas, apabila terjadi, maka yang pertama menjadi korban adalah anak-anaknya terutama dalam usia remaja, di mana sosok figur panutan masih dibutuhkan dalam kerangka pembentukan identitasnya.

b. Kelompok sepermainan, merupakan teman-teman bermain di luar rumah dan luar sekolah, bisa mempengaruhi remaja baik positif maupun negatif.

c. Kelompok pendidikan, yaitu pergaulan di sekolah, yang melibatkan pergaulan siswa dengan guru, dan siswa dengan siswa. Adanya pembiasaan dalam perbuatan baik dan mulia di sekolah, diharapkan bisa memberikan pengaruh positif dalam pembentukan karakter dan kebiasaan baik bagi remaja, sebab lingkungan sekolah juga berperan dalam mempengaruhi perilaku remajanya.

 

Resume Evaluasi Kurikulum

Evaluasi Kurikulum

RESUME

diajukan untuk memenuhi salah satu tugas terstruktur Mata Kuliah Kurikulum dan Pembelajaran dari dosen pengampu Drs. Asep Herry Hernawan, M.Pd / R. Nadia Hanoum, M.Pd.

oleh

Intan Cahyaningrum (1102329)

Jurusan Pendidikan Matematika UPI

Pengertian evaluasi adalah proses penentuan nilai sesuatu berdasarkan criteria tertentu. Sedangkan pengertian evaluasi kurikulum adalah evaluasi program pendidikan bagi peserta didik dalam ruang lingkup luas atau terbatas, dilakukan terhadap kurikulum potensial maupun kurikulum actual.

Tujuan diadakannya evaluasi kurikulum ialah untuk pengambilan keputusan terhadap langkah yang harus dilakukan selanjutnya dalam pelaksanaan, pembinaan, dan pengembangan kurikulum. Adapun tujuan evaluasi kurikulum ada tujuan jangka pendek dan tujuan jangka panjang. Tujuan jangka pendek diantaranya meningkatkan efektivitas kurikulum dan meningkatkan pengelolaan kegiatan kurikuler. Sedangkan tujuan dalam jangka penjang antara lain: melihat hasil yang dicapai kurikulum dan dampaknya terhadap performance kelulusan; dasar bagi pembinaan mekanisme balikan, perbaikan, dan penyempurnaan pelaksanaan kurikulum.

FAKTA : Jumlah Ayat AlQuran BUKAN 6666

Tugas Pendidikan Agama Islam

Jumlah Ayat dalam Alquran

No Surat	Nama Surat	Jmlh Ayat
1	Al-Fatihah	7
2	Al-Baqarah	286
3	Ali Imran	200
4	An-Nisa	176
5	Al-Mai'dah	120
6	Al-An'am	165
7	Al-A'raf	206
8	Al-Anfal	75
9	At-Taubah	129
10	Yunus	109
11	Hud	123
12	Yusuf	111
13	Ar-Ra'd	43
14	Ibrahim	52
15	Al-Hijr	99
16	An-Nahl	128
17	Al-isra	111
18	Al-Kahf	110
19	Maryam	98
20	Taha	135
21	Al-Anbiya	112
22	Al-Hajj	78
23	Al-Mu'minun	118
24	An-Nur	64
25	Al-Furqan	77
26	Asy-Syu'ara	227
27	An-Naml	93
28	Al-Qasas	88
29	Al-'Ankabut	69
30	Ar-Rum	60
31	Luqman	34
32	As-Sajdah	30
33	Al-Ahzab	73
34	Saba'	54
35	Fatir	45
36	Yasin	83
37	As-Saffat	182
38	Sad	88
39	Az-Zumar	75
40	Gafir	85
41	Fussilat	54
42	Asy-Syura	53
43	Az-Zukhruf	89
44	Ad-Dukhan	59
45	Al-Jasiyah	37
46	Al-Ahqaf	35
47	Muhammad	38
48	Al-Fath	29
49	Al-Hujurat	18
50	Qaf	45
51	Az-Zariyat	60
52	At-Tur	49
53	An-Najm	62
54	Al-Qamar	55
55	Ar-Rahman	78
56	Al-Waqi'ah	96
57	Al-Hadid	29
58	Al-Mujadalah	22
59	Al-Hasyr	24
60	Al-Mumtahanah	13
61	As-Saff	14
62	Al-Jumu'ah	11
63	Al-Munafiqun	11
64	At-Tagabun	18
65	At-Talaq	12
66	At-Tahrim	12
67	Al-Mulk	30
68	Al-Qalam	52
69	Al-Haqqah	52
70	Al-Ma'arij	44
71	Nuh	28
72	Al-Jin	28
73	Al-Muzzammil	20
74	Al-Muddassir	56
75	Al-Qiyamah	40
76	Al-Insan	31
77	Al-Mursalat	50
78	An-Naba	40
79	An-Nazi'at	46
80	Abasa	42
81	At-Takwir	29
82	Al-Infitar	19
83	Al-Mutaffifin	36
84	Al-Insyiqaq	25
85	Al-Buruj	22
86	At-Tariq	17
87	Al-A'la	19
88	al-Gasyiyah	26
89	Al-Fajr	30
90	Al-Balad	20
91	Asy-Syams	15
92	Al-Lail	21
93	Ad-Duha	11
94	Al-Insyirah	8
95	At-Tin	8
96	Al-'Alaq	19
97	Al-Qadar	5
98	Al-Bayyinah	8
99	Az-Zalzalah	8
100	Al-'Adiyat	11
101	Al-Qari'ah	11
102	At-Takasur	8
103	Al-'Asr	3
104	Al-Humazah	9
105	Al-Fil	5
106	Quraisy	4
107	Al-Ma'un	7
108	Al-Kausar	3
109	Al-Kafirun	6
110	An-Nasr	3
111	Al-Lahab	5
112	Al-Ikhlas	4
113	Al-Falaq	5
114	An-Nas	6
TOTAL		6236