PROGRAM PERCABANGAN MENGGUNAKAN DELPHI 7

Pertama yang harus dikerjakan kita harus membuat Form baru kita beri nama FPercabangan lalu kita masukkan komponen 5 Label,3 edit,5 edit dan colordialog.Dari komponen berikut ini contohnya:


Selanjutnya jika sudah selesai membuat formnya kita langsung masukkan resourcenya satu persatu.Pertama kita click dua kali pada button Proses lalu kita masukkan codingnya seperti dibawah:
var
A:Integer;
begin
A := StrToInt (Ednilai.Text);
if (A>=0) and (A < 30) then
begin
Edpredikat.Text:=’E’;
Edket.Text:=’Gagal’;
end
else if (A>=30) and (A<50) then
begin
Edpredikat.text:=’D’;
Edket.Text:=’Gagal’;
end
else if (A>=50) and (A<70) then
begin
Edpredikat.text:=’C’;
Edket.Text:=’Lulus’;
end
else if (A>=70) and (A<85) then
begin
Edpredikat.Text:=’B’;
Edket.Text:=’Lulus’;
end
else if (A>=85) and (A<=100) then
begin
Edpredikat.Text:=’A’;
Edket.Text:=’Lulus’;
end
else
begin
Edpredikat.Text:=’Salah Input’;
Edket.Text:=’Ulangi Lagi’;
end;
end;
Kemudian selanjutnya click dua kali pada button Ubah Warna untuk mengganti warna Font yang sudah berjalan.Berikut codingnya:
procedure TFPercabangan.BtnubahClick(Sender: TObject);
begin
Ednilai.Font.Color:=clred;
Edpredikat.Font.Color:=clblue;
Edket.Font.Color:=clgreen;
end;
Berikutnya kita ingin menghapus font yang sudah ada untuk menulis dari awal kembali,caranya seprti dibawah:
procedure TFPercabangan.BtnclearClick(Sender: TObject);
begin
Ednilai.Text:=”;
Edpredikat.Text:=”;
Edket.Text:=”;
end;
 Yang terakhir kita buatkan tombol keluar untukk mengakhiri programnya,berikut codingnya:
procedure TFPercabangan.BtnexitClick(Sender: TObject);
begin
if(Application.MessageBox(‘Are You Sure To Exit The Program’,’Exit’,MB_YesNo)=ID_Yes)then
begin
Application.Terminate;
end;
end;
ini tambahan untuk membuat menu warna untuk mengganti warna formnya,berikut resource:
procedure TFPercabangan.BtngantiClick(Sender: TObject);
begin
if colordialog1.Execute then
FPercabangan.color := colordialog1.Color;
end;
end.
Hasil dari coding diatas adalah sebagai berikut:


Sukses ya teman teman. klik disini

Membuat Form Login Dengan Delphi

Pada kesempatan kaliini saya akan berbagi sedikit tentang cara membuat form login dengan delphi.

Berawal dari tugas kuliah yang mengharuskan ada form login sebelum masuk ke program,, dan kebetulan masi banyak temen temen yang masi bingung mengenai pembuatan form login mka dari itu dalam postingan kali ini saya mengajak anda belajar membuat form login sederhana dengan delphi.

Persiapan yang diperlukan untuk membuat form login ini diantaranya :

·         XAMPP (untuk membuat database MYSQL)

·         Delphi 7 (Untuk membuat form)

·         Tidak lupa juga Sebungkus rokok dan secangkir kopi Kesukaan anda ... hehe,,hp

Langsung saja

·         Buat sebuah database dengan nama database nya “latihan” (tanpa kutip).

·         Buat sebuah tabel dengan nama tabel nya “user”(tanpa kutip).

Langkah-langkah nya sbb:

Ø      Jalankan XAMPP anda dan masuk ke localhost.

Tampilan nya seperti dibawah ini.

Gambar1.

Ø      Klik pada SQL maka akan muncul kotak SQL seperti dibawah ini

Gambar2.

Ketikan kode dibawah ini pada kotak SQL.

Create database latihan

Kemudian klik ok...Jika berhasil maka nama database nya akan muncul di sisi sebelah kiri, kemidian klik pada database latihan > SQL dan ketikan kode dibawah ini pada kotak SQL

Create table user(kd_user varchar(6) primary key,Nama varchar(20),password varchar(10));

Insert into user values(‘user’,’Hedi hidayat’,’1234’);

Kemudian klik ok.

Nah sekarang kita suadah beres membuat database dan tabel beserta isinya. Sekarang kita tinggal membuat ODBC Nya.

Untuk membuat ODBC ikuti langkah-langkah di bawah ini :

Masuk ke control panel > administrative tool > ODBC maka akan muncul jendela seperti di bawah ini

Gambar3.

Klik add > MySQL ODBC Driver > finish. Akan muncul jendela seperti dibawah ini:

Gambar4.

Isi colom nya sbb:

Data Source Name = latihan (terserah anda)

Server = localhost

User = root

Yang lain nya kosongkan saja.

Kemudian pilih database latihan pada colom database, setelah itu klik ok.

Sekarang kita membuat form login, langkah-langkah nya sbb:

·         Jalankan delphi, Desain form seperti di bawah ini

Gambar5.

Komponen komponen yang di gunakan diantaranya:

komponen	Name	Caption
Edit1	Edit1
Edit2	Edit2
Edit3	Edit3
Label1	Label1	Kd_user
Label2	Label2	Nama
Label3	Label3	Password
Adoquery1	Adoquery1
Form1	Formlogin	Login
Image1	Image1

Setelah selesai desain form klik file > Save all, lalu simpan projek dalam satu folder.

Untuk pengisian gambar pada komponen image, klik pada image1 lalu pada property pilih picture > load pilih gambar yang akan anda gunakan kemudian klik ok. Lihat gambar di bawah ini:

Gambar6.

 Untuk mengganti karakter pada edit3, klik pada edit3 lalu pada property pilih password character dan ganti dengan “#” tanpa kutip. Lihat gambar dibawah ini

Gambar7.

Kemudian klik pada adoquery1, pada property pilih connection string klik pada (.....) lalu klik pada build mka akan muncul jendela seperti dibawah ini

Gambar8.

Klik pada tnda panah pada colom Use data source name dan pilih odbc latihan yang sudah kita buat tadi.

Setelah itu double klik pada form maka akan muncul kode editor dan ketikan kode dibawah ini pada jendela kode editor seperti dibawah ini:

Gambar9.

Ketikan kode program di bawah ini di bawah Begin.

Adoquery1.sql.clear;

Adoquery1.sql.add(‘select* from user’);

Adoquery1.active:=true;

Edit1.text:=adoquery1[‘Kd_user’];

Edit2.Text:=adoquery1[‘nama’];

Adoquery1.close;

Adoquery1.open;

Formlogin.activecontrol:=edit3;

Setelah itu klik pada edit3 pada event pilih onkey press,beri nama edit3press seperti pada gambar di bawah ini

Gambar10.

Setelah itu klik pada form maka akan muncul jendela kode editor dan ketikan kode dibawah ini

If  key=#13 then

Begin

Adoquery1.sql.clear;

Adoquery1.sql.add(‘select* from user where kd_user=”’+edit1.text+’”’);

Adoquery1.active:=true;

If  edit3.text=adoquery1[‘password’] then

Begin

Mainmenu.show;

Formlogin.close;

End

Else

Begin

Showmessage(‘Password yang anda masukan salah’);

Formlogin.activecontrol:=edit3;

End;

End;

Setelah selesai coba jalankan program nya dengan menekan tombol f9.

***catatan***

Sebelum program di jalankan pastikan anda sudah menyimpan projek dalam satu folder.

 Saya rasa cukup postingan kali ini,mohon maaf jika ada salah kata at penulisan yg kurang benar..

Selamat mencoba dan semoga bermanfaat.klik disini

Cara membuat Form Password di Borland Delphi 7

Ass. Apa kabar kembali sobat Blogger he

Disini saya akan membahas bagaimana sih membuat sebuah form password di Borland Delphi 7.

Tanpa basa-basi sob langsung saja kita praktekan ya biar g,k jenuh dech hehehe

Seprti biasa dibawah ini adalah desain form nya.

Catatan: klik edit2 pada form yang telah di desain klick edit2  untuk mengganti karaketer password menjadi symbol bintang. Untuk lebih jelas nya lihat gamabar dibawah ini.

Selanjutnya buat loh form baru dengan cara pilih file-new-form pada menu Delphi. Maka akan tampil seperti gambar di bawah ini.

 

nah setelah membuat form baru langsung kita atur properties controlnya yang ada di bawah ini.

Aturlah properties controlnya. 

 

Nama Control	Properties	Nilai Pengaturan
Form	Caption	Form Password
Label1	Caption	Nama User
Label2	Caption	Password
Button1	Caption	&OK
Buton2	Caption	&Close
Form	Caption	Selamat Datang di Form2
Label1	Caption	Anda Berhasil Login

 Selanjutnya ketikan listing program berikut ini:

procedure TForm1.BitBtn1Click(Sender: TObject);

begin

if edit2.text='nama pasword' then

begin

form2.show;

form1.Hide;

end

else

begin

  messagedlg('maaf password anda salah!!!!',mtinformation,[mbok],0);

edit1.Clear;

edit1.setfocus;

end;

end;

end.

jangan lupa save ya sob dengan nama unit dan project yang bebas …..asal tidak boleh pake spasi saja saat menyimpan nama file nya. Contoh U_Latihan1. P_Latihan1.

Nah sob,,,,,langsung saja sobat jalan kan programnya dengan cara menekan tombol F9 pada keyboard.

Kalau sukses maka tampilannya akan seperti gambar di bawah ini.

 

kalau password anda salah makan akan muncul pesan seperti gamabar di bawah ini

kalau password nya benar maka   akan langsung ke form 2 seperti gambar di bawah ini.

 

Horeeeeeeee,,,,,,,,,,,,,,pasword nya sudah jalan.....gimana sob cukup mudahkan......semoga artikel ini dapat bermafaat ya sob.....selamat mencoba.....Goodlockkkkkkkkkk!!!!!!!!!!!!

klik disini

Program Fisika Sederhana di Visual basic

Kalkukalor ini dibuat untuk memudahkan pelajar tingkat menengah dalam menggunakan rumus dasar kalor dikhususkan pada zat cair yaitu Q = m.c.ΔT. Dalam penggunaannya program ini didesain menggunakan satuan SI seperti

·         Joule untuk satuan kalor

·         Kilogram (Kg) untuk satuan massa

·         J/Kg ˚K untuk satuan kalor jenis zat

·         Kelvin untuk satuan suhu

Cara penggunaan

1.      Silahkan isi apa yang diketahui dalam soal di box yang sudah disediakan( isi harus sudah dalam bentuk satuan SI)

2.      Pilih apa yang ditanyakan dalam soal

3.      Klik tombol hitung

4.      Hasil akan keluar di box hasil dalam satuan SI

                                       gambar tampilan program
 

program ini bisa anda dapatkan di sini

Cara pembuatan :

            Bagi anda yang ingin mencoba membuat sendiri, program ini dibuat di Visual basic 2008. Cara pembuatannya cukup mudah:

1.      Buka program Visual Basic 2008

2.      Lalu  masukkan komponennya seperti gambar diatas antara lain label, textbox , combo box , button, dan richtextbox

3.      Setelah itu pada public class masukkan syntax berikut

Public Class Form1

    Function hitungq(ByVal m As Integer, ByVal c As Integer, ByVal t As Integer)

        Dim hasil As Decimal

        hasil = m * c * t

        Return hasil

    End Function

    Function hitungm(ByVal q As Integer, ByVal c As Integer, ByVal t As Integer)

        Dim hasil As Decimal

        hasil = q / (c * t)

        Return hasil

    End Function

    Function hitungc(ByVal q As Integer, ByVal m As Integer, ByVal t As Integer)

        Dim hasil As Decimal

        hasil = q / (m * t)

        Return hasil

    End Function

    Function hitungt(ByVal q As Integer, ByVal m As Integer, ByVal c As Integer)

        Dim hasil As Decimal

        hasil = q / (m * c)

        Return hasil

    End Function

4.      Sedangkan pada button hitung klik dua kali lalu masukkan syntax

Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click

        If ComboBox1.Text = "kalor" Then

            TextBox5.Text = hitungq(Val(TextBox2.Text), Val(TextBox3.Text), Val(TextBox4.Text))

        ElseIf ComboBox1.Text = "massa" Then

            TextBox5.Text = hitungm(Val(TextBox1.Text), Val(TextBox3.Text), Val(TextBox4.Text))

        ElseIf ComboBox1.Text = "kalor jenis" Then

            TextBox5.Text = hitungc(Val(TextBox1.Text), Val(TextBox2.Text), Val(TextBox4.Text))

        ElseIf ComboBox1.Text = "perubahan suhu" Then

            TextBox5.Text = hitungt(Val(TextBox1.Text), Val(TextBox2.Text), Val(TextBox3.Text))

        Else

            TextBox5.Text = "Anda belum memilih"

        End If

    End Sub

5.      Untuk button hapus masukkan syntax

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

        TextBox1.Text = ""

        TextBox2.Text = ""

        TextBox3.Text = ""

        TextBox4.Text = ""

        TextBox5.Text = ""

    End Sub

6.      Sedangkan untuk tombol keluar masukkan syntax

Me.Close()

7. Terakhir untuk tulisan bantuan pada pojok kiri atas, anda bisa mencari di toolbox dengan nama menustrip.

Setelah itu anda bisa menggunakannya seperti yang saya contohkan digunakan untuk memunculkan tulisan cara penggunaan yang sebelumnya telah saya hidden.

klik dua kali masukkan syntax dibawah untuk bisa digunakan seperti contoh program.

Private Sub MenuStrip1_ItemClicked(ByVal sender As System.Object, ByVal e As System.Windows.Forms.ToolStripItemClickedEventArgs) Handles MenuStrip1.ItemClicked

        RichTextBox1.Show()

        Label12.Show()

    End Sub

Untuk penamaan label dan komponen lainnya silahkan anda atur sendiri.

klik disini