Contoh Program Memilih Menu Makana dan Minuman Menggunakan Delphi7

Listing Program

unit Unit1;

interface

uses

  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

  Dialogs, StdCtrls;

type

  TForm1 = class(TForm)

    Label1: TLabel;

    Label2: TLabel;

    Label3: TLabel;

    Label4: TLabel;

    Label5: TLabel;

    Label6: TLabel;

    Label7: TLabel;

    Label8: TLabel;

    Label9: TLabel;

    Label10: TLabel;

    Label11: TLabel;

    Label12: TLabel;

    Label13: TLabel;

    Label14: TLabel;

    Edit1: TEdit;

    Edit2: TEdit;

    Button1: TButton;

    Label15: TLabel;

    Edit3: TEdit;

    procedure Edit1Change(Sender: TObject);

  private

    { Private declarations }

  public

    { Public declarations }

 end;

var

  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Edit1Change(Sender: TObject);

Var A,B:integer;

begin

A:=StrToInt(Edit1.Text);

B:=StrToInt(Edit2.Text);

  begin

  case A of

    1 : Edit3.Text:=Label3.Caption;

    2 : Edit3.Text:=Label4.Caption;

    3 : Edit3.Text:=Label6.Caption;

    4 : Edit3.Text:=Label7.Caption;

    5 : Edit3.Text:=Label8.Caption;

    else

    ShowMessage('Masukkan inputan yang benar!');

  end;

  end;

  case B of

    6 : Edit3.Text:=Edit3.Text+' '+'dan'+' '+Label10.Caption;

    7 : Edit3.Text:=Edit3.Text+' '+'dan'+' '+Label11.Caption;

    8 : Edit3.Text:=Edit3.Text+' '+'dan'+' '+Label12.Caption;

    9 : Edit3.Text:=Edit3.Text+' '+'dan'+' '+Label13.Caption;

    10 : Edit3.Text:=Edit3.Text+' '+'dan'+' '+Label14.Caption;

    else

    ShowMessage('Masukkan inputan yang benar!')

   end

   end;

   end.

Logika Program

Pada praktikum kali ini, kita akan membuat program pemesanan menu makanan dan menu minuman dengan menggunakan Delphi 7. Program kali ini menggunakan statement case of. Langsung saja kita bahas cara membuat programnya, pertama kita membuat form dan menyusunnya. Setelah itu klik 2x pada Button1 dan masukkan source code berikut ini :

 

procedure TForm1.Edit1Change(Sender: TObject);

Var A,B:integer;

begin

A:=StrToInt(Edit1.Text);

B:=StrToInt(Edit2.Text);

  begin

  case A of

    1 : Edit3.Text:=Label3.Caption;

    2 : Edit3.Text:=Label4.Caption;

    3 : Edit3.Text:=Label6.Caption;

    4 : Edit3.Text:=Label7.Caption;

    5 : Edit3.Text:=Label8.Caption;

    else

    ShowMessage('Masukkan inputan yang benar!');

  end;

  end;

  case B of

    6 : Edit3.Text:=Edit3.Text+' '+'dan'+' '+Label10.Caption;

    7 : Edit3.Text:=Edit3.Text+' '+'dan'+' '+Label11.Caption;

    8 : Edit3.Text:=Edit3.Text+' '+'dan'+' '+Label12.Caption;

    9 : Edit3.Text:=Edit3.Text+' '+'dan'+' '+Label13.Caption;

    10 : Edit3.Text:=Edit3.Text+' '+'dan'+' '+Label14.Caption;

    else

    ShowMessage('Masukkan inputan yang benar!')

  end

  end;

end.

Mari kita bahas satu persatu source code diatas :

1. Var A,B : integer ; digunakan untuk menentukan bahwa setiap inputan yang dimasukkan ke dalam Edit1 dan Edit2 harus bernilai integer, jika ada maka akan muncul pesan error yang berbunyi  “Masukkan inputan yang benar” sesuai dengan codingan berikutnya yang ada pada case of.

2.  A:=strtoint(edit1.text);

     B:=strtoint(edit2.text);

Kedua source code diatas digunakan untuk mengkonversi nilai string menjadi integer (strtoint) yang artinya data bertipe String di komponen edit1 dan edit2 akan dirubah menjadi data yang bertipe integer yang disimpan di variable nilai integer.

3. begin

  case A of

    1 : Edit3.Text:=Label3.Caption;

    2 : Edit3.Text:=Label4.Caption;

    3 : Edit3.Text:=Label6.Caption;

    4 : Edit3.Text:=Label7.Caption;

    5 : Edit3.Text:=Label8.Caption;

    else

    ShowMessage('Masukkan inputan yang benar!');

  end;

  end;

case B of

    6 : Edit3.Text:=Edit3.Text+' '+'dan'+' '+Label10.Caption;

    7 : Edit3.Text:=Edit3.Text+' '+'dan'+' '+Label11.Caption;

    8 : Edit3.Text:=Edit3.Text+' '+'dan'+' '+Label12.Caption;

    9 : Edit3.Text:=Edit3.Text+' '+'dan'+' '+Label13.Caption;

    10 : Edit3.Text:=Edit3.Text+' '+'dan'+' '+Label14.Caption;

    else

    ShowMessage('Masukkan inputan yang benar!')

  end

  end;

Source code diatas digunakan untuk memilih menu, seperti kita ketahui fungsi case of digunakan untuk penyeleksian banyak kasus, jadi fungsi source code diatas adalah untuk mempersingkat pemilihan jadi ketika kita akan memilih menu, kita cukup menginput satu digit angka yang mewakili menu tersebut maka menu yang kita pilih tersebut akan tampil dalam edit3, jika inputan yang dimasukkan tidak sesuai maka akan muncul pesan error “Masukkan inputan yang benar!” seperti yang kita pernah bahas sebelumnya.

OUTPUT PROGRAM :

OUTPUT PROGRAM SETELAH MEMESAN :

Perbedaan Query dengan Report

Query adalah semacam kemampuan untuk menampilkan suatu data dari database dimana mengambil dari table-tabel yang ada di database, namun tabel tersebut tidak semua ditampilkan sesuai dengan yang kita inginkan.sedangkan kalau,

Report adalah digunakan untuk menyajikan laporan/informasi dalam format yang lebih mudah dibaca atau lebih profesonal. Namun ukuran dan tampilan dalam report dapat dikontrol sesuai dengan apa yang kita inginkan, misalnya dalam membuat bentuk label surat, bentuk grafik dsb. Di samping itu dpat ditambahkan control-control khusus yang dapat memperindah ilustrasi tampilan data, misalnya control image.

MDI Form pada Visual Basic

A.     Tampilan Program

B.      Logika Program

Pada praktikum kali ini kita akan membuat menu dengan menggunakan MDI Form dengan Menu Editor yang ada pada Visual Basic. MDI Form adalah singkatan dari Multiple Document Interface  yaiutu mmerupakan sebuah aplikasi pada windows dimana dalam sekali eksekusi kita dapat menampilkan langsung beberapa tampilan dan kalau Menu Editor adalah Menu yang digunakan untuk membuat menu aplikasi, pada menu editor terdapat beberapa kotak isian maupun kotak pilihan yang sebenarnya merupakan property dari objek menu yang akan menampilkan tampilan dari menu tab. Cara ingin membuat menu dengan menggunnakan Menu Editor di VB maka perintahnya seperti gambar di bawah ini :

Disini pertama kita buka Menu Editornya yang di bulatkan dengan tanda merah, lalu disini kita buat Menu dan Exit, dan kita ingin membuat kalkulator,percabangan,perulangan di dalam menu yang telah kita buat,lalu kita buat menu kalkulator seperti gambar diatas ini, agar supaya ada titik-titiknya kita menggunakan tanda panah ke kanan yang ada di samping kiri next.setelah diisikan semuanya lalu kelik OK, maka program akan seperti ini bila di RUN :

C.      1.) Listing Program menggunakan kalkulator

Private Sub Command1_Click()

Text3.Text = Val(Text1.Text) + Val(Text2.Text)

End Sub

Private Sub Command2_Click()

Text3.Text = Val(Text1.Text) - Val(Text2.Text)

End Sub

Private Sub Command3_Click()

Text3.Text = Val(Text1.Text) * Val(Text2.Text)

End Sub

Private Sub Command4_Click()

Text3.Text = Val(Text1.Text) / Val(Text2.Text)

End Sub

Private Sub Command5_Click()

Text3.Text = Val(Text1.Text) ^ 2

End Sub

Private Sub Command6_Click()

Text1.SetFocus

Text1.Text = " "

Text2.Text = " "

Text3.Text = " "

End Sub

Private Sub Command7_Click()

End

End Sub

2.) Tampilan Program kalkulator saat di Run :

D.      1.) Listing Program menggunakan program percabangan

Private Sub Command1_Click()

Select Case Val(Text1.Text)

Case Is > 85

Text2.Text = "A"

Text3.Text = "LULUS"

Case Is > 65

Text2.Text = "B"

Text3.Text = "LULUS"

Case Is > 45

Text2.Text = "c"

Text3.Text = "LULUS"

Case Is > 0

Text2.Text = "D"

Text3.Text = "TIDAK LULUS"

End Select

End Sub

Private Sub Command2_Click()

End

End Sub

2.) Tampilan Program percabangan saat di Run :

E.      1.) Listing Program menggunaka progam perulangan

Private Sub Command1_Click()

x = Val(Text1.Text)

For i = 1 To x

For j = 1 To i

Print j;

Next j

Print

Next i

End Sub

Private Sub Command2_Click()

End

End Sub

2.) Tampilan program saat di Run :

F.       1.) Output program menu editor (Kalkulator)

Jika kita mengklik kalkulator yang ada pada menu maka sebelumnya di listing menu kalkulator kita  ketik (From2.Show) agar saat di run program tersebut muncul dan programnya seperti ini :

                2.) Output Program menu editor  (Percabangan)

Lalu jika kita mengklik pecabangan yang ada pada menu maka sebelumnya di listing menu percabangan kita  ketik (From3.Show) agar saat di run program tersebut muncul dan programnya seperti ini :

                3.)  Output program menu editor (Perulangan)

Dan yang terakhir jika kita mengklik perulangan yang ada pada menu maka sebelumnya di listing menu perulangan kita  ketik (Fro4.Show) agar saat di run program tersebut muncul dan programnya seperti ini :

Sejauh mana Pengaruh Teknologi Komunikasi Terhadap Kebudayaan di Indonesia

Dalam perkembangan teknologi di-era ini sudah banyak teknologi komunikasi yang berkembang dengan pesatnya, bahkan sekarang ini sudah banyak bermunculan merk-merk handphone yang canggih yang sangat jelas dapat membawa dampak secara global,khususnya di dalam kebudayaan yang ada didalam Indonesia ini.

Kemajuan teknologi informasi dan komunikasi pada saat ini telah banyak menimbulkan pengaruh terhadap perkembangan budaya bangsa Indonesia. Derasnya arus informasi dan telekomunikasi ternyata menimbulkan sebuah kecenderungan yang mengarah terhadap memudarnya nilai-nilai pelestarian budaya indonesia. Kebudayaan merupakan ciri khas bangsa indonesia, kebudayaan dapat dipandang sebagai cara-cara mengatasi masalah-masalah yang dapat dihadapi. Namun ada masalah yang universal seperti memenuhi kebutuhan biologis dan tiap masyarakat memilih cara yang dianggap paling sesuai sehingga tidak ada dua masyarakat yang sama kebudayaannya. Perkembangan teknologi informasi dan komunikasi mempunayi dampak positif dan negatif terhadap kebudayaan bangsa indonesia. Di pandang sebagai dampak positif sebab dapat menambah wawasan dan pengetahuan tentang pemanfaatan teknologi sebagai sarana pembelajaran kebudayaan secara cepat.

Budaya merupakan suatu cara hidup yang berkembang dan di miliki oleh sebuah kelompok orang dan di wariskan dari generasi ke generasi. Namun bangsa indonesia harus mempersiapkan diri untuk pengaruh teknologi komunikasi terhadap seluruh aspek kebudayaan kehidupan bangsa. Oleh karena itu perkembangan teknologi saat ini begitu luar biasa terutama yang berhubungan dengan telekomunikasi dan informasi. Teknologi yang ada pada saat ini di ciptakan dengan tujuan untuk membantu dan memberikan kemudahan dalam berbagai aspek kehidupan manusia, baik pada saat manusia bekerja, beraktifitas, bahkan berkomunikasi.

Oleh karena itu kita harus bijak dalam memanfaatkan perkembangan teknologi komunikasi yang ada pada saat ini. Dan kita juga tidak perlu takut akan dampak negatif yang akan di timbulkan, karena masih banyak juga manfaat yang dapat kita petik dari perkembangan teknologi komunikasi ini yang dapat membantu dan dapat mempermudah kita dalam menjalaninya.

Pengaruh teknologi informasi dan komunikasi dapat menimbulkan berbagai macam masalah terhadap eksistansi kebudayaan daerah, yaitu salah satunya ialah terjadinya penurunan rasa cinta terhadap kebudayaan yang merupakan jati diri suatu bangsa. Dan oleh karena itu marilah kita sebagai generasi muda bangsa indonesia yang akan menjadi penerus bangsa tidak ada salahnyakan untuk menjaga dan melestarikan kebudayaan bangsa indonesia ini yang sekarang semakin terkikis oleh perkembangan zaman saat ini akibat kemajuan teknologi informasi dan komunikasi. *_*

sumber :
http://qolilwicaksono12.wordpress.com/2013/06/13/pengaruh-teknologi-komunikasi-terhadap-kebudayaan-di-indonesia/

http://flameofrhecca.blogspot.com/2013/04/pengaruh-budaya-asing-terhadap-budaya.html