Cara Membuat Kalkulator dengan Delphi7

     Contoh program sederhana Membuat kalkulator dengan delphi7, ini adalah salah satu program sederhana yang saya dapatkan saat praktek industri atau PKL walau belajar secara otodidak hanya melihat buku yang di berikan oleh  salah satu pegawai  tempat saya PI tapi tetap bersyukur,
alhamdulillah saya dapat ilmu baru..hehehe ^_^ hehehe.. sedikit tau tentang delphi lah...hehehe..,

nah bagi yang ingin membuatnya silahkan lihat di bawah ini :

1.Buka Program Delphi7

2.Kemudian tambahkan pada Form andan 4 Label, 3 Edit, 6 Button lalu buat desain form seperti di bawah ini :

3. Kemudian masukkan kode atau listing program seperti di bawah ini :

procedure TForm1.Button1Click(Sender: TObject);
var
nil1,nil2:real;
Tambah:real;
begin
nil1 := strtofloat(Edit1.Text);
nil2 := strtofloat(edit2.Text);
tambah :=nil1 + nil2;
Edit3.Text := floattostr(tambah);
end;

procedure TForm1.Button2Click(Sender: TObject);
var
nil1,nil2:real;
Kurang:real;
begin
nil1 := strtofloat(Edit1.Text);
nil2 := strtofloat(edit2.Text);
Kurang :=nil1 - nil2;
Edit3.Text := floattostr(kurang);
end;

procedure TForm1.Button3Click(Sender: TObject);
 var
nil1,nil2:real;
Kali:real;
begin
nil1 := strtofloat(Edit1.Text);
nil2 := strtofloat(edit2.Text);
Kali :=nil1 * nil2;
Edit3.Text := floattostr(Kali);

end;

procedure TForm1.Button4Click(Sender: TObject);
var
nil1,nil2:real;
Bagi:real;
begin
nil1 := strtofloat(Edit1.Text);
nil2 := strtofloat(edit2.Text);
Bagi :=nil1 / nil2;
Edit3.Text := floattostr(Bagi);

end;



procedure TForm1.Button5Click(Sender: TObject);
begin
edit1.Clear;
edit2.Clear;
edit3.Clear;

end;

procedure TForm1.Button6Click(Sender: TObject);
begin
Close
end;

end.

4. save Program anda lalu jalankan program., Run pilih start atau tekan F9.., 

   Selamat mencoba.....^_^..,

membuat Kalkulator Sederhana dengan Visual Basic

         Program sederhana membuat kalkulator dengan visual basic., bagi anda yang ingin tau bagaimana membuatnya silahkan lihat di bawah ini :

1. Buka program visual basic., pilih new project kemudian pilh standart exe.

2. Tambah kan pada form anda 4 label, 3 textBox, 5 CammondButton., Kemudian desain form seperti di bawah ini :

3. Kemudian Aturlah Propetis masing-masing Kontrol seperti di bawah ini :

3.Kemudian Masukkan Kode atau listing Program seperti di bawah ini :

Private Sub cmdKali_Click()
TxtHasil.Text = Val(Text1.Text) * Val(Text2.Text)
End Sub

Private Sub cmdKurang_Click()
TxtHasil.Text = Val(Text1.Text) - Val(Text2.Text)
End Sub

Private Sub cmdTambah_Click()
TxtHasil.Text = Val(Text1.Text) + Val(Text2.Text)
End Sub

Private Sub cmdClear_Click()
Text1.Text = ""
Text2.Text = ""
TxtHasil.Text = ""
End Sub

Private Sub CmdExit_Click()
End
End Sub

4. Kemudian jalankan program., Run pilih Start Atau tekan F5

    Silahkan Mencoba.... ^_^

   


















































































                    






















































































   

Aplikasi Penjualan Tiket Kereta Api dengan visual basic

        Ini adalah program sederhana aplikasi penjualan tiket kereta api dengan visual basic 

langsung saja ya.......

1. Buka visual basic , new project  pilih setandart exe

2. kemudian tambah kan pada  form anda 7 label, 1 ComboBox, 1 frame , 5 Textbox, 3 CammondButton lalu buat desain form seperti di bawah ini:

3. Kemudian ketikan Kode program seperti di bawah ini :

Private Sub Combo1_click()
If Combo1.Text = "Mut2121" Then
Text2.Text = "23000"
Text3.Text = "Mutiara"
Text4.Text = "17.00"
End If
If Combo1.Text = "Bim2121" Then
Text2.Text = "50000"
Text3.Text = "Bima"
Text4.Text = "16.00"
End If
If Combo1.Text = "Eko2121" Then
Text2.Text = "35000"
Text3.Text = "Ekonomi"
Text4.Text = "19.00"
End If
If Combo1.Text = "Sen2121" Then
Text2.Text = "15000"
Text3.Text = "Senja"
Text4.Text = "20.00"
End If

End Sub

Private Sub Command1_Click()
Text6.Text = Text2.Text * Text5.Text
End Sub


Private Sub Command2_Click()
Combo1.Text = ""
Text2.Text = ""
Text3.Text = ""
Text4.Text = ""
Text5.Text = ""
Text6.Text = ""
End Sub

Private Sub Command3_Click()
End
End Sub

Private Sub Form_Load()
Combo1.AddItem "Mut2121"
Combo1.AddItem "Bim2121"
Combo1.AddItem "Sen2121"
Combo1.AddItem "Eko2121"
End Sub

 4. Save program anda kemudian Jalankan program Run, pilih start atau dengan  F5 ,,,,,

     Silahkan mencoba...... :-)

cara membuat aplikasi musik dengan visual basic

         Sekedar ingin berbagi ilmu.,, ini adalah program membuat aplikasi musik dengan visual basic kalau ada yang ingin membuat, ini contohnya :

1. Buka visual basic, pilih new project dan plih standart exe,,

2. Klik menu project pilih components ctrl+T kemudian pilih dan tandai Microsoft Cammond Dialog

    Control dan Microsoft Multimedia Control 6.0.

3. Lalu tambahkan di form anda 1 Label, 2 CammondButton, 1 Microsoft Cammand Dialog dan 1   Microsoft Multimedia Control 6.0, kemudian desain form seperti di bawah ini :

4.Aturlah propetis masing - masing control seperti di bawah ini :

 

5. Masukkan code program seperti di bawah ini :

     Private Sub Command1_Click()

     On Error GoTo loncat

     MMControl1.Command = "stop"

     CommonDialog1.ShowOpen

     MMControl1.FileName = CommonDialog1.FileName

     MMControl1.Command = "open"

     Label1.Caption = CommonDialog1.FileTitle

     loncat:

     Exit Sub

     End Sub

     Private Sub Command2_Click()

     End

     End Sub

     Private Sub Form_Unload(Cancel As Integer)

     MMControl1.Command = "stop"

     End Sub

6. Kemudian jalankan program dengan pilih run start atau tekan F5 lalu klik open.., pilih lagu yang
    diinginkan... dan hasilnya akan seperti di bawah ini......

    silahkan mencoba,,, ,,,  :-)