[Tutorial] Membuat game pertanyaan dengan delphi 7

[Tutorial] Membuat game pert anyaan dengan delphi 7

by : rumahtips.net

Game sudah banyak digemari oleh anak-anak jaman sekarang, tetapi karena terlalu banyak pilihan game menjadi bingung untuk memainkannya. Untuk teman-teman yang ingin membuat game sendiri, Rumahtips.net berikan solusi untuk membuat game sederhana seperti game pertanyaan ini. Yuk simak tutorialnya ?

  • Pertama buat tampilan menu awal seperti gambar dibawah ini, siapkan 2 button untuk masuk dan keluar

screenshot_7

  • Kemudian masukkan Source Code ini sesuai dengan button yang dibuat
<blockquote><span style="font-size: 10pt; color: #0000ff;">procedure TForm1.Button2Click(Sender: TObject);</span>
<span style="font-size: 10pt; color: #0000ff;"> begin</span>
<span style="font-size: 10pt; color: #0000ff;"> Form1.Close;</span>
<span style="font-size: 10pt; color: #0000ff;"> Form2.Close;</span>
<span style="font-size: 10pt; color: #0000ff;"> Form3.Close;</span>
<span style="font-size: 10pt; color: #0000ff;"> Form4.Close;</span>
<span style="font-size: 10pt; color: #0000ff;"> Form5.Close;</span>
<span style="font-size: 10pt; color: #0000ff;"> Form6.Close;</span>
<span style="font-size: 10pt; color: #0000ff;"> end;</span>

<span style="font-size: 10pt; color: #0000ff;">procedure TForm1.Button1Click(Sender: TObject);</span>
<span style="font-size: 10pt; color: #0000ff;"> begin</span>
<span style="font-size: 10pt; color: #0000ff;"> Form1.Hide;</span>
<span style="font-size: 10pt; color: #0000ff;"> Form2.Show;</span>
<span style="font-size: 10pt; color: #0000ff;"> end;</span>

<span style="font-size: 10pt; color: #0000ff;">end.</span></blockquote>
  • Kedua siapkan menu buat level 1. Buat pertanyaan dengan memasukkan label dan 1 EditText untuk memasukkan jawaban dan 2 button untuk jawab dan keluar, jangan lupa masukkan gambar untuk petunjuk pertanyaan

screenshot_1

  •  Masukkan Source Code dibawah ini
<blockquote><em> <span style="font-size: 10pt; color: #0000ff;">procedure TForm2.Button2Click(Sender: TObject);</span></em>

<span style="font-size: 10pt; color: #0000ff;"><em>begin</em></span>

<span style="font-size: 10pt; color: #0000ff;"><em>Form1.Close;</em></span>

<span style="font-size: 10pt; color: #0000ff;"><em>Form2.Close;</em></span>

<span style="font-size: 10pt; color: #0000ff;"><em>Form3.Close;</em></span>

<span style="font-size: 10pt; color: #0000ff;"><em>Form4.Close;</em></span>

<span style="font-size: 10pt; color: #0000ff;"><em>Form5.Close;</em></span>

<span style="font-size: 10pt; color: #0000ff;"><em>Form6.Close;</em></span>

<span style="font-size: 10pt; color: #0000ff;"><em>end;</em></span>

<span style="font-size: 10pt; color: #0000ff;"><em> </em></span>

<span style="font-size: 10pt; color: #0000ff;"><em>procedure TForm2.Button1Click(Sender: TObject);</em></span>

<span style="font-size: 10pt; color: #0000ff;"><em>begin</em></span>

<span style="font-size: 10pt; color: #0000ff;"><em>if Jawaban.Text=’suckseed’ then</em></span>

<span style="font-size: 10pt; color: #0000ff;"><em>begin</em></span>

<span style="font-size: 10pt; color: #0000ff;"><em>messageDlg(‘Jawabanmu Benar Vrohh..!!’,mtInformation,[mbOK],0);</em></span>

<span style="font-size: 10pt; color: #0000ff;"><em>Form2.Hide;</em></span>

<span style="font-size: 10pt; color: #0000ff;"><em>Form3.Show;</em></span>

<span style="font-size: 10pt; color: #0000ff;"><em>end</em></span>

<span style="font-size: 10pt; color: #0000ff;"><em>else if Jawaban.Text=’SuckSeed’ then</em></span>

<span style="font-size: 10pt; color: #0000ff;"><em>begin</em></span>

<span style="font-size: 10pt; color: #0000ff;"><em>messageDlg(‘Jawabanmu Benar Vrohh..!!’,mtInformation,[mbOK],0);</em></span>

<span style="font-size: 10pt; color: #0000ff;"><em>Form2.Hide;</em></span>

<span style="font-size: 10pt; color: #0000ff;"><em>Form3.Show;</em></span>

<span style="font-size: 10pt; color: #0000ff;"><em>end</em></span>

<span style="font-size: 10pt; color: #0000ff;"><em>else</em></span>

<span style="font-size: 10pt; color: #0000ff;"><em>messageDlg(‘Jawabanmu Salah Vrohh..!!’,mtError,[mbNo],0);</em></span>

<span style="font-size: 10pt; color: #0000ff;"><em>Form2.Color :=clRed;</em></span>

<span style="font-size: 10pt; color: #0000ff;"><em>end;</em></span>

<span style="font-size: 10pt; color: #0000ff;"><em>end.</em></span></blockquote>
  • Untuk yang ketiga siapkan TextBox untuk pilihan jawaban dan beberapa gambar untuk pilihan pertanyaan serta jangan lupa pertanyaan, seperti biasa siapkan 2 button

screenshot_2

  •  Masukkan Source Code dibawah ini

procedure TForm3.Button1Click(Sender: TObject);

begin

if CheckBox1.Checked and CheckBox2.Checked and CheckBox3.Checked and CheckBox4.Checked and CheckBox6.Checked then

begin

MessageDlg(‘Jawabanmu Salah Vrohh..!’,mtError,[mbAbort],0);

end

else if CheckBox1.Checked and CheckBox2.Checked and CheckBox4.Checked and CheckBox5.Checked and CheckBox6.Checked then

begin

MessageDlg(‘Jawabanmu Salah Vrohh..!’,mtError,[mbAbort],0);

end

else if CheckBox1.Checked and CheckBox2.Checked and CheckBox3.Checked and CheckBox5.Checked then

begin

MessageDlg(‘Jawabanmu Salah Vrohh..!’,mtError,[mbAbort],0);

end

else if CheckBox1.Checked and CheckBox3.Checked and CheckBox4.Checked and CheckBox5.Checked then

begin

MessageDlg(‘Jawabanmu Salah Vrohh..!’,mtError,[mbAbort],0);

end

else if CheckBox1.Checked and CheckBox3.Checked and CheckBox5.Checked and CheckBox6.Checked then

begin

MessageDlg(‘Jawabanmu Salah Vrohh..!’,mtError,[mbAbort],0);

end

else if CheckBox1.Checked and CheckBox3.Checked and CheckBox5.Checked then

begin

MessageDlg(‘Jawabanmu Benar Vrohh..!’,mtInformation,[mbOK],0);

Form4.Show;

Form3.Hide;

end

else

MessageDlg(‘Jawabanmu Salah Vrohh..!’,mtError,[mbAbort],0);

end;

 

procedure TForm3.Button2Click(Sender: TObject);

begin

Form1.Close;

Form2.Close;

Form3.Close;

Form4.Close;

Form5.Close;

Form6.Close;

end;

  • Keempat buat gambar sebagai jawaban dan 1 button untuk keluar

screenshot_3

  •  Masukkan Source Code dibawah ini

procedure TForm4.Button1Click(Sender: TObject);

begin

Form1.Close;

Form2.Close;

Form3.Close;

Form4.Close;

Form5.Close;

Form6.Close;

end;

 

procedure TForm4.Image2Click(Sender: TObject);

begin

MediaPlayer1.FileName:=’betul.wav’;

MediaPlayer1.Open;

MediaPlayer1.Play;

Form4.Hide;

Form5.Show;

end;

procedure TForm4.Image1Click(Sender: TObject);

begin

MediaPlayer1.FileName:=’salah.wav’;

MediaPlayer1.Open;

MediaPlayer1.Play;

ShowMessage(‘Jawabanmu Salah Vrohh..!’);

end;

 

procedure TForm4.Image3Click(Sender: TObject);

begin

MediaPlayer1.FileName:=’salah.wav’;

MediaPlayer1.Open;

MediaPlayer1.Play;

ShowMessage(‘Jawabanmu Salah Vrohh..!’);

end;

 

procedure TForm4.Image4Click(Sender: TObject);

begin

MediaPlayer1.FileName:=’salah.wav’;

MediaPlayer1.Open;

MediaPlayer1.Play;

ShowMessage(‘Jawabanmu Salah Vrohh..!’);

end;

 

procedure TForm4.Image5Click(Sender: TObject);

begin

MediaPlayer1.FileName:=’salah.wav’;

MediaPlayer1.Open;

MediaPlayer1.Play;

ShowMessage(‘Jawabanmu Salah Vrohh..!’);

end;

end.

  • Berikutnya siapkan 4 button untuk pilihan jawaban dan 1 button untuk keluar

screenshot_4

  • Masukkan Source Code dibawah ini

procedure TForm5.Button2Click(Sender: TObject);

begin

Application.Terminate;

end;

 

procedure TForm5.Button4Click(Sender: TObject);

begin

Application.Terminate;

end;

 

procedure TForm5.Button3Click(Sender: TObject);

begin

Application.Terminate;

end;

 

procedure TForm5.Button1Click(Sender: TObject);

begin

ShowMessage(‘Lanjut Vrohh..!’);

Form5.Hide;

Form6.Show;

MediaPlayer1.Stop;

end;

procedure TForm5.FormShow(Sender: TObject);

begin

MediaPlayer1.FileName :=’1.mp3′;

MediaPlayer1.Open;

MediaPlayer1.Play;

end;

 

end.

  • Terakhir siapkan RadioButton untuk pilihan jawaban dan 2 button untuk menjawab dan keluar sertakan gambar untuk petunjuk.

screenshot_5

  • Masukkan Source Code dibawah ini

procedure TForm6.Button2Click(Sender: TObject);

begin

Form1.Close;

Form2.Close;

Form3.Close;

Form4.Close;

Form5.Close;

Form6.Close;

end;

procedure TForm6.Button1Click(Sender: TObject);

begin

if RadioButton3.Checked then

begin

messageDlg(‘Jawabanmu Benar Vrohh..!’,mtInformation,[mbOK],0);

Form1.Close;

Form2.Close;

Form3.Close;

Form4.Close;

Form5.Close;

Form6.Close;

end

else

messageDlg(‘Jawabanmu Salah Vrohh..!’,mtError,[mbNo],0);

Form6.Color:=clRed;

end;

 

end.

 

Gimana teman-teman gak sulit kan buatnya, teman-teman bisa praktekin dirumah. Sekian tips  tutorial cara membuat game pertanyaan dengan delphi 7 dari rumahtips.net selamat mencoba.

 

 

 

hargai usaha kami dengan komen, like atau share dan cantumkan sumber jika ingin mengcopy

2 Comments

Leave a Reply

Your email address will not be published. Required fields are marked *

This site uses Akismet to reduce spam. Learn how your comment data is processed.