Contoh Program dengan Vb

Contoh Program dengan Visual Basic ini saya sengaja bikin rapih supaya bisa mempermudah. beberapa contoh program dengan visual basic adalah hasil dari beberapa tutorial yang sudah di buat dengan menggunakan database maupun tanpa database

Beberapa keuntungan mempelajari sebuah contoh program visual basic itu di antaranya yaitu : mempelajari struktur koding program, alur kerja sebuah program, mempelajari desain banyak program, mengetahui kelebihan dan kekurangan sebuah program dan masih banyak lagi yang akan bermanfaat sengaja di sadari dan tidak di sadari.

Beberapa contoh program visual basic sebagai berikut :

1. Menggerakan Label dengan Visual Basic

Contoh Program menggerakan label dengan Visual basic 6.0

Lihat tutorial Menggerakan Label dengan Visual Basic

2. Shutdown menggunakan API dengan Visual Basic

Lihat tutorial : Shutdown menggunakan API dengan Visual Basic

3. Cara membuat Form User atau pengguna dengan Visual Basic

Lihat tutorial : Cara membuat Form User atau pengguna dengan Visual Basic

4. Membuat Grafik menggunakan MS Chart database dengan Visual Basic

Lihat tutorial : Membuat Grafik menggunakan MS Chart database dengan Visual Basic

5. Membuat Chatting dengan Vb 6 (Visual basic 6)

Desain Form Chating VB 6

Kalkulator Sederhana dengan Visual Basic 6.0

Cara Membuat Kalkulator Sederhana dengan Visual Basic 6.0 - Pada tutorial Visual Basic kali ini kita akan membuat kalkulator dengan VB 6.0 yang terdiri dari penjumlahan pengurangan dan pembagian. Tentunya konsep pembuatan atau logika program yang akan kita buat ini bisa diterapkan pada rumus matematika atau fisika, yang pada intinya kita harus mengetahui alur kerja secara manual dari sebuah rumus tersebut sehingga bisa diterjemahkan kedalam bahasa pemograman visual basic. Baca juga tentang cara membuat program menghitung umur dengan VB 6.0

Desain sebuah form kalkulator sederhana yang akan kita buat seperti gambar beikut :

Untuk pengosongan text box ikuti instruksi seperti gambar berikut

Jika langkah diatas telah selesai. Silahkan Copy paste mantra berikut :

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()
End
End Sub

Private Sub Command6_Click()
Text1.Text = ""
Text2.Text = ""
Text3.Text = ""
End Sub

Hasil kalkulator sederhana yang kita buat :

Demikian tutorial visual basic khusus untuk pemula kali ini tentang cara membuat kalkulator dengan visual basic (VB) 6.0 moga bermanfaat.

Pengenalan Dasar - Dasar Delphi 7 dan Contoh Programnya

Pasti sebagian besar orang sudah tau apa itu Deplhi? Untuk yang belum tau saya bahas disini semampu saya saja ya..... Apa Anda tau kalau belajar program itu sangat mengasyikan? Kita bisa mengasah logika kita disini. Delphi merupakan salah satu software pembuat program basic. Seperti apa itu Delphi? Untuk tampilan icon luarnya seperti ini.

Kali ini saya akan memperkenalkan seperti apa itu delphi bagian-bagiannya dan selanjutnya saya akan membuat sebuah contoh program dasar menggunakan Delphi.

Cara masuk ke program Delphi sangat mudah pertama apabila kita sudah memiliki software nya kita langsung double klik saja iconnya, kemudian Delphi akan memunculkan gambar seperti ini

Gambar diatas saat loading membuka program Delphi. Disini saya memakai contoh Borland Delphi 7.
Delphi sudah terbuka tampilannya seperti ini

Ini adalah baris Menu

Ini adalah Toolbar

Ini adalah Componen Palette

Ini adalah Jendela Object Tree View

Ini adalah Jendela Object inspector

Ini adalah Jendela Form

Untuk mulai membuat program dasar kita bisa langsung ke Menu File - New - Other

Klik sekali akan memunculkan jendela New Item seperti ini

Kita pilih yang Console Application, double klik atau pilih lalu tekan OK

Akan memunculkan Project untuk menuliskan program seperti ini. Disini tempat kita menuliskan perintah-perintah yang selanjutnya akan dijalankaan oleh komputer atau kita sebut sebagai program. Di dalamnya terdapat program, uses, begin, dan end. Untuk pembuatan program yang lebih rinci akan ada tambahan lain seperti var, type, procedure, function. Namun sebagai dasar kita memahami cara kerja suatu program dulu.

Untuk di sebelah tulisan program itu adalah nama program yang akan kita buat misalnya sebagai contoh kita tulis coba, jadi namanya adalah program coba.

Suatu program itu terdiri dari Input, Proses, dan Output. Programer yang baik akan menuliskan programnya berdasarkan Input, Proses, dan output secara berurutan tidak acak-acakan.
Di dalam program Delphi ada perintah-perintah dasar seperti write, readln, writeln, juga perintah-perintah lain yang akan saya bahas dalam postingan selanjutnya. write adalah perintah untuk menuliskan input readln adalah perintah untuk membaca input writeln adalah perintah untuk mencetak hasil atau disebut juga keluaran
Contoh program sangat sederhana seperti ini

setiap perintah diakhiri dengan tanda ; atau (titik koma*)

cara menjalankan program dengan menekan F9 pada keyboard, lalu akan tampil seperti ini apabila tidak ada kesalahan dalam menuliskan program

terlihat ada perintah untuk memasukkan nama disitu. Inilah kiranya pengenalan dasar mengenai Delphi. Untuk pembahasan mengenai Delphi selanjutnya akan dibahas dalam postingan saya yang akan datang.

Contoh Program Sederhana Delphi

Yang perlu kalian persiapkan hanya software Borland delphi 7, bisa di download disini.
1. Buka Program Borland Delphi 7 anda Start > Programs > Borland Delphi > Delphi
2. Buatlah agar tampak seperti gambar berikut:


Hanya mengguanakan component "BitBtn"
Additional >> BitBtn

3. Klik pada Fo rm1 lalu ubahlah properti Capt ionnyapada jendela Obj ect Inspector menjadi  ‘First Program’
4. Pada Komponen Palette pilih tab Additional cari nama komponennya BitBtn , kemudian klik ganda,Objek BitBtn yang dihasilkan akan langsung terpilih yang ditandai dengan titik-titik kecil mengelilingi komponen tersebut. Kemudian atur posisinya seperti pada gambar. Perhatikan jika suatu objek terpilih, maka jendela Objek Inspector akan menyesuaikan dengan objek tersebut.
5. Ubahlah properti Caption-nya pada jendela Object Inspector menjadi ‘Message’.
6. Lakukan cara yang sama untuk membuat tombol yang kedua dengan Caption-nya menjadi ‘Tutup’.
7. Klik ganda pada tombol yang pertama anda buat tadi, maka anda akan masuk kebagian Code Editor. Kemudian ketikkan perintah berikut :
Showmessage ('This is my first Program');
8. untuk kembali ke Fo rm tekan F1 2 pada keyboard anda
9. Lakukan hal yang sama pada tombol yang kedua, kemudian isikan perintah berikut :
Application.terminate;
10. Untuk menjalankannya tekan F9 pada keyboard anda, atau pilih menu Run > pada menu bar.

Jika anda melakukannya dengan benar maka program anda dapatdicompile dan diru n. Hasil dari program tersebut adalah : akan menampilkan kotak pesan yang berisi ‘This is my first Program’ saat mengklik tombol Pesan dan program akan ditutup saat tombol Tu t u p diklik.
Program lengkapnya adalah :
unit Unit1;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, Buttons;

type
TForm1 = class(TForm)
BitBtn1: TBitBtn;
BitBtn2: TBitBtn;
procedure BitBtn1Click(Sender: TObject);
procedure BitBtn2Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.BitBtn1Click(Sender: TObject);
begin
Showmessage ('This is my first Program');
end;

procedure TForm1.BitBtn2Click(Sender: TObject);
begin
Application.terminate;
end;

end.

Aplikasi Kalkulator sederhana dengan Delphi7

Saya akan membahas tentang cara Membuat Aplikasi Kalkulator sederhana dengan Delphi7.
1. Jalankan terlebih dahulu program Delphi7
2.Tambahkan Edit 2buah, Label 3buah, Button 4buah
3. Bentuk Menjadi sedemikian rupa
 
4. Tambahkan Kode
Kode untuk button1(Tambah) :

procedure TForm1.Button1Click(Sender: TObject);
var angka1,angka2,hasil:single;
begin
angka1 := strtofloat(edit1.Text);
angka2 := strtofloat(edit2.Text);
hasil := angka1+angka2;
label3.caption := floattostr(hasil);
end;

Kode untuk button2(Kurang) :

procedure TForm1.Button2Click(Sender: TObject);
var angka1,angka2,hasil:single;
begin
angka1 := strtofloat(edit1.Text);
angka2 := strtofloat(edit2.Text);
hasil := angka1-angka2;
label3.caption := floattostr(hasil);
end;

Kode untuk button3 (Kali) :

procedure TForm1.Button3Click(Sender: TObject);
var angka1,angka2,hasil:single;
begin
angka1 := strtofloat(edit1.Text);
angka2 := strtofloat(edit2.Text);
hasil := angka1*angka2;
label3.caption := floattostr(hasil);
end;

Kode untuk button4(Bagi) :

procedure TForm1.Button4Click(Sender: TObject);
var angka1,angka2,hasil:single;
begin
angka1 := strtofloat(edit1.Text);
angka2 := strtofloat(edit2.Text);
hasil := angka1/angka2;
label3.caption := floattostr(hasil);
end;

5. Jalankan program