Gudang Ilmu dan Pemikiran

Buat teman-teman yang membutuhkan materi Arsitektur dan Organisasi Komputer, silakan download link berikut :
Materi untuk UTS kali ini adalah : Bus System, Memori Internal, Memori Eksternal, Sistem I/O
Silakan pilih materi yang anda butuhkan :
Arsitektur dan Organisasi Komputer
Semoga bermanfaat....

Assalamu'alaikum Wr. Wb.
Silakan bagi rekan-rekan yang menginginkan materi Komputer Jaringan pertemuan 1 dan 2 download pada link berikut :
1. Jaringan Komputer Pertemuan 1
2. Jaringan Komputer Pertemuan 2
3.Tugas 1

Semoga bermanfaat...

Assalamu'alaikum Wr. Wb.
Menikmati materi komputer grafik via pemrograman Delphi lumayan asyik, buat rekan-rekan yang menginginkan materinya silakan donwload link berikut :
Materi Komputer Grafik
Berikut contoh listing program yang saya ambil dari modul latihan saat perkuliahan:

1. {Listing Program Latihan Komputer Grafik
2. Algoritma DDA, Bressenhem, dan Lingkaran
3. untuk menggunakan listing ini harus diedit
4. dan disesuaikan dengan penggunaan Form visualnya}
6. {Algoritma DDA}
7. unit Unit1;
8. interface
9. uses
10. Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
11. Dialogs, StdCtrls;
12. type
13. TForm1 = class(TForm)
14. Button1: TButton;
15. Label1: TLabel;
16. Label2: TLabel;
17. Label3: TLabel;
18. Label4: TLabel;
19. Edit1: TEdit;
20. Edit2: TEdit;
21. Edit3: TEdit;
22. Edit4: TEdit;
23. Button2: TButton;
24. procedure Button1Click(Sender: TObject);
25. procedure Button2Click(Sender: TObject);
26. private
27. { Private declarations }
28. public
29. { Public declarations }
30. end;
31. var
32. Form1: TForm1;
33. implementation
34. {$R *.dfm}
35. procedure TForm1.Button1Click(Sender: TObject);
36. begin
37. close
38. end;
39. procedure TForm1.Button2Click(Sender: TObject);
40. var
41. dx,dy,fstep,f,x1,x2,y1,y2:integer;
42. deltax,deltay,x,y:real;
43. begin
44. x1:=strtoint(edit1.Text);
45. y1:=strtoint(edit2.Text);
46. x2:=strtoint(edit3.Text);
47. y2:=strtoint(edit4.Text);
48. dx:=(x2-x1);
49. dy:=(y2-y1);
50. if (abs(dx)>abs(dy)) then fstep:=abs(dx)
51. else fstep:=abs(dy);
52. deltax:= dx/fstep;
53. deltay:= dy/fstep;
54. x:=x1;y:=y1;
55. canvas.Pixels[trunc(x),trunc(y)]:=clblue;
56. for f :=0 to fstep-1 do
57. begin
58. x:=x+deltax;
59. y:=y+deltay;
60. canvas.Pixels[trunc(x),trunc(y)]:=clblue;
61. end;
62. end;
63. end.
65. {Algoritma bresenham}
66. procedure TForm1.Button1Click(Sender: TObject);
67. var
68. p,dx,dy,xend,f,x,y,xa,xb,ya,yb:Integer;
69. begin
70. xa:=strtoint(edit1.Text);
71. xb:=strtoint(edit2.Text);
72. ya:=strtoint(edit3.Text);
73. yb:=strtoint(edit4.Text);
75.   dx:=Abs(xa-xb);
76.   dy:=Abs(ya-yb);
77.     p:=(2*dy)-dx;
78.     if(xa>xb)then
79.     begin
80.       x:=xb;
81.               y:=yb;
82.               xend:=xa;
83.       end
84.       else
85.       begin
87.       x:=xa;
88.               y:=ya;
89.               xend:=xb;
90.       end;
91.               Canvas.Pixels[x,y]:=clRed;
92.               for f:=x to xend do
93.                 begin
94.                   x:=x+1;
95.                   if(p<0)then p:=p+(2*dy)
96.                   else
97.                         begin y:=y+1;
98.                           p:= p+(2*(dy-dx));
99.     end;
100.                               Canvas.Pixels[x,y]:=clRed;
101. end;
102. end;
103. end.
105. {Algoritma Lingkaran}
106. procedure TForm1.Button1Click(Sender: TObject);
107. var x,y,p,xc,yc,radius:integer;
108. begin
109.    x:=0;xc:=100;yc:=200;radius:=45;
110.    y:=radius;
111.    p:=1-radius;
112.                   while(x<y)do
113.                     begin
114.                       canvas.pixels[xc+x,yc+y]:=clred;
115.                       canvas.pixels[xc+x,yc-y]:=clred;
116.                       canvas.pixels[xc-x,yc+y]:=clred;
117.                       canvas.pixels[xc-x,yc-y]:=clred;
118.                       canvas.pixels[xc+y,yc+x]:=clred;
119.                       canvas.pixels[xc+y,yc-x]:=clred;
120.                       canvas.pixels[xc-y,yc+x]:=clred;
121.                       canvas.pixels[xc-y,yc-x]:=clred;
123.                       if(p<0) then x:=x+1
124.                             else
125.           begin
126.                                   x:=x+1;
127.                                   y:=y-1;
128.                                   end;
129.           if(p<0)then p:=p+2*x+1
130.                       else   p:=p+2*(x-y)+1;
131.                     end;
132. end;
134. end.

Adapun tugasnya dalam pertemuan 2 ini adalah :
1. Buat sebuah garis yang menghubungkan dari titik (20,10) sampai dengan titik (30,18) dengan menggunakan algoritma DDA.
2. Buat sebuah garis yang menghubungkan dari titik (20,10) sampai dengan titik (30,18) dengan menggunakan algoritma Bressenham.
Listing program ditulis/dicetak.
Semoga bermanfaat.

Assalamu'alaikum,

Buat rekan-rekan yang mengikuti matakuliah bahasa rakitan dan komputer grafik, silakan ambil materi berikut :
1. Pendahuluan Bahasa Rakitan
2. Bahasa Rakitan Pertemuan 1
3. Sistem Bilangan
4. Pendahuluan Komputer Grafik

Semoga bermanfaat.