API tools faq
paste
Advertisement
rikokurniawan

Game Duer

rikokurniawan
Feb 4th, 2013
1,028
0
Never
Add comment
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
Delphi 10.10 KB | None | 0 0
raw download clone embed print report
  1. {
  2. Programmer  : Jean Riko Kurniawan Putra
  3. Fanpage     : http://www.facebook.com/jean.software
  4. Blog        : http://djeansoftware.blogspot.com/
  5. }
  6. unit Unit1;
  7.  
  8. interface
  9.  
  10. uses
  11.   Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  12.   Dialogs, StdCtrls, Buttons, XPMan, Menus, ActnMan, ActnColorMaps, jpeg,
  13.   ExtCtrls;
  14.  
  15. type
  16.   TForm1 = class(TForm)
  17.     GroupBox1: TGroupBox;
  18.     SB1: TSpeedButton;
  19.     SB2: TSpeedButton;
  20.     SB3: TSpeedButton;
  21.     SB4: TSpeedButton;
  22.     SB6: TSpeedButton;
  23.     SB7: TSpeedButton;
  24.     SB8: TSpeedButton;
  25.     SB9: TSpeedButton;
  26.     SB5: TSpeedButton;
  27.     Label1: TLabel;
  28.     XPManifest1: TXPManifest;
  29.     MainMenu1: TMainMenu;
  30.     File1: TMenuItem;
  31.     Mulai1: TMenuItem;
  32.     Keluar1: TMenuItem;
  33.     Help1: TMenuItem;
  34.     About1: TMenuItem;
  35.     SBMulai: TSpeedButton;
  36.     SBKeluar: TSpeedButton;
  37.     procedure SBKeluarClick(Sender: TObject);
  38.     procedure SBMulaiClick(Sender: TObject);
  39.     procedure SB1Click(Sender: TObject);
  40.     procedure FormCreate(Sender: TObject);
  41.     procedure SB2Click(Sender: TObject);
  42.     procedure SB3Click(Sender: TObject);
  43.     procedure SB4Click(Sender: TObject);
  44.     procedure SB5Click(Sender: TObject);
  45.     procedure SB6Click(Sender: TObject);
  46.     procedure SB7Click(Sender: TObject);
  47.     procedure SB8Click(Sender: TObject);
  48.     procedure SB9Click(Sender: TObject);
  49.     procedure About1Click(Sender: TObject);
  50.   private
  51.     { Private declarations }
  52.   public
  53.     { Public declarations }
  54.   end;
  55.  
  56. var
  57.   Form1: TForm1;
  58.   //Variabel Pencacah Tombol
  59.   tombol: Integer;
  60.   //Variabel Bom
  61.   Bom: Integer;
  62.  
  63. implementation
  64.  
  65. {$R *.dfm}
  66.  
  67. procedure TForm1.SBKeluarClick(Sender: TObject);
  68. begin
  69. close;
  70. end;
  71.  
  72. procedure TForm1.SBMulaiClick(Sender: TObject);
  73. begin
  74. Label1.Caption:='Result';
  75.  
  76. //Mengecek Bom
  77. Randomize;
  78. Bom := random(9) + 1;
  79.  
  80. //Mereset nilai tombol
  81. //Yang diklik user
  82. tombol := 0;
  83.  
  84. //Tampilan dan status tombol-tombol
  85. SB1.Enabled:=True;
  86. SB1.Caption:='Klik';
  87. SB2.Enabled:=True;
  88. SB2.Caption:='Klik';
  89. SB3.Enabled:=True;
  90. SB3.Caption:='Klik';
  91. SB4.Enabled:=True;
  92. SB4.Caption:='Klik';
  93. SB5.Enabled:=True;
  94. SB5.Caption:='Klik';
  95. SB6.Enabled:=True;
  96. SB6.Caption:='Klik';
  97. SB7.Enabled:=True;
  98. SB7.Caption:='Klik';
  99. SB8.Enabled:=True;
  100. SB8.Caption:='Klik';
  101. SB9.Enabled:=True;
  102. SB9.Caption:='Klik';
  103. end;
  104.  
  105. procedure TForm1.SB1Click(Sender: TObject);
  106. begin
  107. //Jika Mengklik tombol Bom
  108. if Bom=1 then
  109. begin
  110.  
  111.   SB1.Caption:='Duer!!!';
  112.   Label1.Caption:='Anda Kalah!';
  113.   SB2.Caption:='Gagal';
  114.   SB3.Caption:='Gagal';
  115.   SB4.Caption:='Gagal';
  116.   SB5.Caption:='Gagal';
  117.   SB6.Caption:='Gagal';
  118.   SB7.Caption:='Gagal';
  119.   SB8.Caption:='Gagal';
  120.   SB9.Caption:='Gagal';
  121.  
  122.   SB2.Enabled:=False;
  123.   SB3.Enabled:=False;
  124.   SB4.Enabled:=False;
  125.   SB5.Enabled:=False;
  126.   SB6.Enabled:=False;
  127.   SB7.Enabled:=False;
  128.   SB8.Enabled:=False;
  129.   SB9.Enabled:=False;
  130.  
  131. end
  132.  
  133. //Jika mengklik bukan tombol Bom
  134. else
  135. Begin
  136.  
  137.   tombol:=tombol+1;
  138.   SB1.Enabled:=False;
  139.   SB1.Caption:='Sukses';
  140.  
  141.   //Jika berhasil membuka 8 buah tombol
  142.   //bukan tombol Bom
  143.   if tombol=8 then
  144.     label1.Caption:='Anda Menang!!!';
  145.  
  146. End;
  147. end;
  148.  
  149. procedure TForm1.FormCreate(Sender: TObject);
  150. begin
  151. Label1.Caption:='Result';
  152.  
  153. //Nilai Awal Jumlah Tombol
  154. //yang diklik user
  155. tombol:=0;
  156.  
  157. //Tombol tidak Bisa diakses
  158. SB1.Enabled:=False;
  159. SB2.Enabled:=False;
  160. SB3.Enabled:=False;
  161. SB4.Enabled:=False;
  162. SB5.Enabled:=False;
  163. SB6.Enabled:=False;
  164. SB7.Enabled:=False;
  165. SB8.Enabled:=False;
  166. SB9.Enabled:=False;
  167. end;
  168.  
  169. procedure TForm1.SB2Click(Sender: TObject);
  170. begin
  171. //Jika Mengklik tombol Bom
  172. if Bom=2 then
  173. begin
  174.  
  175.   SB2.Caption:='Duer!!!';
  176.   Label1.Caption:='Anda Kalah!';
  177.   SB1.Caption:='Gagal';
  178.   SB3.Caption:='Gagal';
  179.   SB4.Caption:='Gagal';
  180.   SB5.Caption:='Gagal';
  181.   SB6.Caption:='Gagal';
  182.   SB7.Caption:='Gagal';
  183.   SB8.Caption:='Gagal';
  184.   SB9.Caption:='Gagal';
  185.  
  186.   SB1.Enabled:=False;
  187.   SB3.Enabled:=False;
  188.   SB4.Enabled:=False;
  189.   SB5.Enabled:=False;
  190.   SB6.Enabled:=False;
  191.   SB7.Enabled:=False;
  192.   SB8.Enabled:=False;
  193.   SB9.Enabled:=False;
  194. end
  195.  
  196. //Jika mengklik bukan tombol Bom
  197. else
  198. Begin
  199.  
  200.   tombol:=tombol+1;
  201.   SB2.Enabled:=False;
  202.   SB2.Caption:='Sukses';
  203.  
  204.   //Jika berhasil membuka 8 buah tombol
  205.   //bukan tombol Bom
  206.   if tombol=8 then
  207.     label1.Caption:='Anda Menang!!!';
  208.  
  209. End;
  210. end;
  211.  
  212. procedure TForm1.SB3Click(Sender: TObject);
  213. begin
  214. //Jika Mengklik tombol Bom
  215. if Bom=3 then
  216. begin
  217.  
  218.   SB3.Caption:='Duer!!!';
  219.   Label1.Caption:='Anda Kalah!';
  220.   SB1.Caption:='Gagal';
  221.   SB2.Caption:='Gagal';
  222.   SB4.Caption:='Gagal';
  223.   SB5.Caption:='Gagal';
  224.   SB6.Caption:='Gagal';
  225.   SB7.Caption:='Gagal';
  226.   SB8.Caption:='Gagal';
  227.   SB9.Caption:='Gagal';
  228.  
  229.   SB1.Enabled:=False;
  230.   SB2.Enabled:=False;
  231.   SB4.Enabled:=False;
  232.   SB5.Enabled:=False;
  233.   SB6.Enabled:=False;
  234.   SB7.Enabled:=False;
  235.   SB8.Enabled:=False;
  236.   SB9.Enabled:=False;
  237.  
  238. end
  239.  
  240. //Jika mengklik bukan tombol Bom
  241. else
  242. Begin
  243.  
  244.   tombol:=tombol+1;
  245.   SB3.Enabled:=False;
  246.   SB3.Caption:='Sukses';
  247.  
  248.   //Jika berhasil membuka 8 buah tombol
  249.   //bukan tombol Bom
  250.   if tombol=8 then
  251.     label1.Caption:='Anda Menang!!!';
  252.  
  253. End;
  254. end;
  255.  
  256. procedure TForm1.SB4Click(Sender: TObject);
  257. begin
  258. //Jika Mengklik tombol Bom
  259. if Bom=4 then
  260. begin
  261.  
  262.   SB4.Caption:='Duer!!!';
  263.   Label1.Caption:='Anda Kalah!';
  264.   SB1.Caption:='Gagal';
  265.   SB2.Caption:='Gagal';
  266.   SB3.Caption:='Gagal';
  267.   SB5.Caption:='Gagal';
  268.   SB6.Caption:='Gagal';
  269.   SB7.Caption:='Gagal';
  270.   SB8.Caption:='Gagal';
  271.   SB9.Caption:='Gagal';
  272.  
  273.   SB1.Enabled:=False;
  274.   SB2.Enabled:=False;
  275.   SB3.Enabled:=False;
  276.   SB5.Enabled:=False;
  277.   SB6.Enabled:=False;
  278.   SB7.Enabled:=False;
  279.   SB8.Enabled:=False;
  280.   SB9.Enabled:=False;
  281.  
  282. end
  283.  
  284. //Jika mengklik bukan tombol Bom
  285. else
  286. Begin
  287.  
  288.   tombol:=tombol+1;
  289.   SB4.Enabled:=False;
  290.   SB4.Caption:='Sukses';
  291.  
  292.   //Jika berhasil membuka 8 buah tombol
  293.   //bukan tombol Bom
  294.   if tombol=8 then
  295.     label1.Caption:='Anda Menang!!!';
  296.  
  297. End;
  298. end;
  299.  
  300. procedure TForm1.SB5Click(Sender: TObject);
  301. begin
  302. //Jika Mengklik tombol Bom
  303. if Bom=5 then
  304. begin
  305.  
  306.   SB5.Caption:='Duer!!!';
  307.   Label1.Caption:='Anda Kalah!';
  308.   SB1.Caption:='Gagal';
  309.   SB2.Caption:='Gagal';
  310.   SB3.Caption:='Gagal';
  311.   SB4.Caption:='Gagal';
  312.   SB6.Caption:='Gagal';
  313.   SB7.Caption:='Gagal';
  314.   SB8.Caption:='Gagal';
  315.   SB9.Caption:='Gagal';
  316.  
  317.   SB1.Enabled:=False;
  318.   SB2.Enabled:=False;
  319.   SB3.Enabled:=False;
  320.   SB4.Enabled:=False;
  321.   SB6.Enabled:=False;
  322.   SB7.Enabled:=False;
  323.   SB8.Enabled:=False;
  324.   SB9.Enabled:=False;
  325.  
  326. end
  327.  
  328. //Jika mengklik bukan tombol Bom
  329. else
  330. Begin
  331.  
  332.   tombol:=tombol+1;
  333.   SB5.Enabled:=False;
  334.   SB5.Caption:='Sukses';
  335.  
  336.   //Jika berhasil membuka 8 buah tombol
  337.   //bukan tombol Bom
  338.   if tombol=8 then
  339.     label1.Caption:='Anda Menang!!!';
  340.  
  341. End;
  342. end;
  343.  
  344. procedure TForm1.SB6Click(Sender: TObject);
  345. begin
  346. //Jika Mengklik tombol Bom
  347. if Bom=6 then
  348. begin
  349.  
  350.   SB6.Caption:='Duer!!!';
  351.   Label1.Caption:='Anda Kalah!';
  352.   SB1.Caption:='Gagal';
  353.   SB2.Caption:='Gagal';
  354.   SB3.Caption:='Gagal';
  355.   SB4.Caption:='Gagal';
  356.   SB5.Caption:='Gagal';
  357.   SB7.Caption:='Gagal';
  358.   SB8.Caption:='Gagal';
  359.   SB9.Caption:='Gagal';
  360.  
  361.   SB1.Enabled:=False;
  362.   SB2.Enabled:=False;
  363.   SB3.Enabled:=False;
  364.   SB4.Enabled:=False;
  365.   SB5.Enabled:=False;
  366.   SB7.Enabled:=False;
  367.   SB8.Enabled:=False;
  368.   SB9.Enabled:=False;
  369.  
  370. end
  371.  
  372. //Jika mengklik bukan tombol Bom
  373. else
  374. Begin
  375.  
  376.   tombol:=tombol+1;
  377.   SB6.Enabled:=False;
  378.   SB6.Caption:='Sukses';
  379.  
  380.   //Jika berhasil membuka 8 buah tombol
  381.   //bukan tombol Bom
  382.   if tombol=8 then
  383.     label1.Caption:='Anda Menang!!!';
  384.  
  385. End;
  386. end;
  387.  
  388. procedure TForm1.SB7Click(Sender: TObject);
  389. begin
  390. //Jika Mengklik tombol Bom
  391. if Bom=7 then
  392. begin
  393.  
  394.   SB7.Caption:='Duer!!!';
  395.   Label1.Caption:='Anda Kalah!';
  396.   SB1.Caption:='Gagal';
  397.   SB2.Caption:='Gagal';
  398.   SB3.Caption:='Gagal';
  399.   SB4.Caption:='Gagal';
  400.   SB5.Caption:='Gagal';
  401.   SB6.Caption:='Gagal';
  402.   SB8.Caption:='Gagal';
  403.   SB9.Caption:='Gagal';
  404.  
  405.   SB1.Enabled:=False;
  406.   SB2.Enabled:=False;
  407.   SB3.Enabled:=False;
  408.   SB4.Enabled:=False;
  409.   SB5.Enabled:=False;
  410.   SB6.Enabled:=False;
  411.   SB8.Enabled:=False;
  412.   SB9.Enabled:=False;
  413.  
  414. end
  415.  
  416. //Jika mengklik bukan tombol Bom
  417. else
  418. Begin
  419.  
  420.   tombol:=tombol+1;
  421.   SB7.Enabled:=False;
  422.   SB7.Caption:='Sukses';
  423.  
  424.   //Jika berhasil membuka 8 buah tombol
  425.   //bukan tombol Bom
  426.   if tombol=8 then
  427.     label1.Caption:='Anda Menang!!!';
  428.  
  429. End;
  430. end;
  431.  
  432. procedure TForm1.SB8Click(Sender: TObject);
  433. begin
  434. //Jika Mengklik tombol Bom
  435. if Bom=8 then
  436. begin
  437.  
  438.   SB8.Caption:='Duer!!!';
  439.   Label1.Caption:='Anda Kalah!';
  440.   SB1.Caption:='Gagal';
  441.   SB2.Caption:='Gagal';
  442.   SB3.Caption:='Gagal';
  443.   SB4.Caption:='Gagal';
  444.   SB5.Caption:='Gagal';
  445.   SB6.Caption:='Gagal';
  446.   SB7.Caption:='Gagal';
  447.   SB9.Caption:='Gagal';
  448.  
  449.   SB1.Enabled:=False;
  450.   SB2.Enabled:=False;
  451.   SB3.Enabled:=False;
  452.   SB4.Enabled:=False;
  453.   SB5.Enabled:=False;
  454.   SB6.Enabled:=False;
  455.   SB7.Enabled:=False;
  456.   SB9.Enabled:=False;
  457.  
  458. end
  459.  
  460. //Jika mengklik bukan tombol Bom
  461. else
  462. Begin
  463.  
  464.   tombol:=tombol+1;
  465.   SB8.Enabled:=False;
  466.   SB8.Caption:='Sukses';
  467.  
  468.   //Jika berhasil membuka 8 buah tombol
  469.   //bukan tombol Bom
  470.   if tombol=8 then
  471.     label1.Caption:='Anda Menang!!!';
  472.  
  473. End;
  474. end;
  475.  
  476. procedure TForm1.SB9Click(Sender: TObject);
  477. begin
  478. //Jika Mengklik tombol Bom
  479. if Bom=9 then
  480. begin
  481.  
  482.   SB9.Caption:='Duer!!!';
  483.   Label1.Caption:='Anda Kalah!';
  484.   SB1.Caption:='Gagal';
  485.   SB2.Caption:='Gagal';
  486.   SB3.Caption:='Gagal';
  487.   SB4.Caption:='Gagal';
  488.   SB5.Caption:='Gagal';
  489.   SB6.Caption:='Gagal';
  490.   SB7.Caption:='Gagal';
  491.   SB8.Caption:='Gagal';
  492.  
  493.   SB1.Enabled:=False;
  494.   SB2.Enabled:=False;
  495.   SB3.Enabled:=False;
  496.   SB4.Enabled:=False;
  497.   SB5.Enabled:=False;
  498.   SB6.Enabled:=False;
  499.   SB7.Enabled:=False;
  500.   SB8.Enabled:=False;
  501.  
  502. end
  503.  
  504. //Jika mengklik bukan tombol Bom
  505. else
  506. Begin
  507.  
  508.   tombol:=tombol+1;
  509.   SB9.Enabled:=False;
  510.   SB9.Caption:='Sukses';
  511.  
  512.   //Jika berhasil membuka 8 buah tombol
  513.   //bukan tombol Bom
  514.   if tombol=8 then
  515.     label1.Caption:='Anda Menang!!!';
  516.  
  517. End;
  518. end;
  519.  
  520. procedure TForm1.About1Click(Sender: TObject);
  521. begin
  522. Application.MessageBox('Klik Sebanyak 8 kali Maka Anda Menang' + #13 + 'Jika Ketemu Bom Anda Kalah' + #13 + 'Selamat Mencoba!!','Petunjuk Penggunaan',MB_ICONINFORMATION);
  523. end;
  524.  
  525. end.
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement
Public Pastes
Advertisement
We use cookies for various purposes including analytics. By continuing to use Pastebin, you agree to our use of cookies as described in the Cookies Policy.  OK, I Understand
Not a member of Pastebin yet?
Sign Up, it unlocks many cool features!