Pembuatan Aplikasi Pembelajaran

LANGKAH-LANGKAH PEMBUATAN APLIKASI “MEDIA PEMBELAJARAN”
Pada kesempatan kali ini, kelompok kami membuat aplikasi “Media Pembelajaran” untuk    membuat tugas ke-3 softskill. Di bagian ini kami menggunakan aplikasi DELPHI 7 dalam  pembuatan aplikasi “Media Pembelajaran”. Kami menggunakan DELPHI7 untuk pembuatan aplikasi dengan alasan mudah dalam pembuatan form dan mudah dipahami dalam membuat logika code nya.
Berikut langkah-langkah pembuatannya:

1.      Pembuatan Form utama ini dilakukan untuk membuat tombol login dan exit, jika kita menekan tombol login, maka akan diminta username dan passwordnya yang mana akunnya sudah ada di sistem


















2.      Langkah selanjutnya yaitu membuat form ke-2 untuk menampilkan dan memberikan pilihan apa yang ingin dibaca.










3.      Selanjutnya, kita membuat form ke-3 yang mana jika di form kedua kita memilih “pengertian new media” maka akan menampilkan form ke-3 yang berisi pengertian-pengertian new media.











4.      Lalu setelah form yang berisikan “pengertian new media” , kita membuat form yang berisikan manfaat new media, komponen new media, aplikasi new media berikut contoh-contohnya, yang akan dijelaskan pada form ke-4,5,6,7





                                                                                                                                                       

5.      Tahap selanjutnya, untuk menjelaskan macam-macam aplikasi new media yang ada di form ke-7, kita membuat 3 buah form lagi untuk menjelaskan macam-macam aplikasi new media yang tertera pada form ke-7

·         FORM 8 berisikan penjelasan “Wikipedia” berikut kelebihan dan kekurangannya

·         FORM 9 menjelaskan pengertian “Youtube” berikut kelebihan dan kekurangannya

·         Form 10 menjelaskan tentang pengertian “Facebook” berikut kelebihan dan kekurangannya

SOURCE CODE:
Dibagian ini kami menyertakan source code atau logika program yang ada pada form-form Delphi yang kami buat seperti berikut:
procedure TForm1.Button1Click(Sender: TObject);
begin
form1.Hide ;
form2.show;
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
form1.Destroy;
end;
end.
procedure TForm2.Button1Click(Sender: TObject);
begin
if (edit1.Text = 'admin') and (edit2.Text = 'admin') then
begin
form3.show;
form2.Hide;
end;
end;

procedure TForm2.Button2Click(Sender: TObject);
begin
edit1.clear;
edit2.Clear;
end;

end.
procedure TForm3.Button1Click(Sender: TObject);
begin
form2.show;
form3.Hide;

end;

procedure TForm3.Button2Click(Sender: TObject);
begin
form5.show;
form3.Hide;
end;

procedure TForm3.Button3Click(Sender: TObject);
begin
form4.show;
form3.Hide;
end;

end.
procedure TForm4.Button1Click(Sender: TObject);
begin
form3.Show;
form4.Hide;
end;

procedure TForm4.Button2Click(Sender: TObject);
begin
form10.show;
form4.Hide;
end;

procedure TForm4.Button3Click(Sender: TObject);
begin
form11.show;
form4.Hide ;
end;

procedure TForm4.Image2Click(Sender: TObject);
begin
form12.Show;
form4.Hide;
end;

procedure TForm4.Image3Click(Sender: TObject);
begin
form10.show;
form4.Hide;
end;

procedure TForm4.Image4Click(Sender: TObject);
begin
form11.show;
form4.Hide ;
end;

end.
procedure TForm5.Button1Click(Sender: TObject);
begin
form7.show;
form5.Hide;
end;

procedure TForm5.Button2Click(Sender: TObject);
begin
form8.show;
form5.Hide;
end;

procedure TForm5.Button3Click(Sender: TObject);
begin
form9.show;
form5.Hide;
end;

procedure TForm5.Button4Click(Sender: TObject);
begin
form5.Hide;
form3.show;
end;

procedure TForm5.Label2Click(Sender: TObject);
begin
ShellExecute(0,'Open', 'https://www.fajarrmd.blogspot.co.id','','', SW_SHOWNORMAL);
end;

end.
procedure TForm7.Button1Click(Sender: TObject);
begin
form7.Hide;
form5.show;
end;

end.
procedure TForm8.Button1Click(Sender: TObject);
begin
form8.Hide;
form5.show;
end;

end.
procedure TForm9.Button1Click(Sender: TObject);
begin
form9.Hide;
form5.show;
end;

end.
procedure TForm10.Button1Click(Sender: TObject);
begin
form4.show;
form10.Hide;
end;

procedure TForm10.Image1Click(Sender: TObject);
begin
ShellExecute(0,'Open', 'https://www.wikipedia.com','','', SW_SHOWNORMAL);
end;

end.
procedure TForm11.Button1Click(Sender: TObject);
begin
form4.show;
form11.Hide;
end;

procedure TForm11.Image1Click(Sender: TObject);
begin
ShellExecute(0,'Open', 'https://www.youtube.com','','', SW_SHOWNORMAL);
end;

end.
procedure TForm12.Button1Click(Sender: TObject);
begin
form4.show;
form12.Hide;
end;

procedure TForm12.Image1Click(Sender: TObject);
begin
ShellExecute(0,'Open', 'https://www.facebook.com','','', SW_SHOWNORMAL);
end;


end.

Komentar

Posting Komentar

Postingan populer dari blog ini

DAMPAK NEGATIF DAN POSITIF BAHASA INGGRIS Di INDONESIA

Pengaruh B ahasa Inggris T erhadap B ahasa Indonesia 11.      Latar Belakang Indonesia merupakan Negara kesatuan. Indonesia memiliki beraneka ragam bahasa dan  budaya. Meskipun begitu, Indonesia tetap memiliki satu bahasa yaitu bahasa Indonesia yang dipakai sebagai bahasa nasional yang dipaki untuk menyatukan berbagai macam bahasa daerah. Bahasa Indonesia sangat diperlukan dalam Negara kita. Karena, jika tidak ada bahasa Indonesia maka kita tidak dapat memproklamasikan kemerdekaan kita. Pada masa sekarang ini, bahasa inggris merupakan bahasa yang sangat diminati oleh masyarakat Indonesia. Bukan saja di Indonesia, tetapi juga di seluruh penjuru dunia. Karena saat ini merupakan zaman globalisasi dan bahasa internasional yang digunakan adalah bahasa inggris. Jadi tidak bisa dipungkiri jika masyarakat di seluruh dunia terutama Indonesia sangat berminat untuk belajar bahasa inggris. Di samping itu, Bahasa inggris juga dapat menghilangkan identitas  bahasa Indonesia sebagai bahas
Baca selengkapnya
Gambar
PEMBUATAN GAME SEDERHANA CATCHING RINGS Anggota Kelompok        :          - Andre Musbar                                                           - Ersya Dharmawan           - Rezky Maulana (55415859) Kelas                                       : 4IA16 “Pengulangan” Mata Kuliah                              : Pengantar Teknologi Game Tanggal                           : 16 Juli 2019 Judul                               : Game Sederhana Catching Rings     Jumlah lembar                : 8 Penjelasan Catching Rings merupakan game sederhana yang memiliki tujuan untuk mendapatkan poin sebanyak banyak-nya untuk memenuhi atau memenangkan game-nya. Catching Rings memiliki objek bola dan ring sebagai subjek dan objek pada game tersebut. Subjek bola berfungsi sebagai pemeran utama yang di arahkan oleh pemain dan Objek ring sebagai benda yang harus di tangkap/sentuh oleh bola agar mendapatkan poin sebanyak banyak nya. Catching Rings memiliki banyak s
Baca selengkapnya

Sejarah Logo Nike

Gambar
Analisa Logo PT NIKE 1.       Logo Asli 2.       Sejarah Produk sepatu dan pakaian olahraga Nike dengan mudah diidentifikasi oleh khas logo perusahaan, para "swoosh" tik, dan slogan "Just Do It". Berbasis dari nama dewi Yunani yang berarti kemenangan, Nike didirikan tahun 1964 ketika atlet sekaligus pengusaha Oregon bernama Phillip Knight, mengagas impor sepatu lari dari Jepang untuk bersaing dengan merek Jerman seperti Adidas dan Puma yang kemudian mendominasi pasar Amerika Serikat. Keuntungannya adalah bahwa sepatu Jepang lebih murah karena tenaga kerja lebih murah di Jepang. Dia mulai menjual sepatu keliling dengan tujuan di stadion atletik, dimana penjualan secara pelan tapi pasti meningkat secara dramatis. Pada 1970-an, Knight dan perusahaan yang berkembang nya melihat awal revolusi jogging dan mulai mmasaran produk untuk pelari non-profesional juga. Ia lantas segera membuka pasar yang lebih luas dan mengubah image sepatu lari menjadi sepatu
Baca selengkapnya