Berikut link Download
Blog Soeryatama Group merupakan halaman untuk berbagi ilmu yang saya dapatkan. Teman-teman dapat mengunjungin website kami soeryatamagroup.esy.es Untuk mendapatkan beberapa Ebook yang saya buat dan beberapa tutorial.
Tutorial Laravel Untuk Pemula
Pada posting kali ini admin akan memberikan link untuk teman-teman donwload tutorial bagaimana menggunakan laravel untuk pemula.
berikut linknya Download
Mengubah Router menjadi Switch
Pada pagi ini kami akan memberikan sedikit ilmu yang kami miliki untuk para sahabat Soeryatama Group ^_^. Ilmu kali ini mengenai penggunaan Router yang akan di ubah sebagai switch . Pada ilmu jaringan kali ini kami hanya menggunakan secara simulasi saja dan kami menggunakan aplikasi Cisco Packet Tracer.
Berikut hasil capturenya.
Berikut hasil capturenya.
Bagi sahabat Soeryatama Group yang ingin belajar kami akan memberikan file simulasinya dimana dapat di gunakan sebagai bahan untuk sahabat-sahabat gunakan.
- Link Download -
- Link Download -
:: DropBox ::
The Sun in Soeryatama Group.
Tutorial Membuat Tab Dengan Event Tombol Dalam JAVA
Pada posring kali ini kami akan memberikan tutorial mengenai membuat sebuah tab dengan menggunakan suatu event klik sebuah tombol . Dalam tutorial ini , kami menggunakan IDE Netbeans .
Ikutin tutorial ini secara step by step agar pembaca dapat mengerti bagaimana mengerti pada tutorial ini.
Berikut tutorialnya :
1.Buka IDE Netbeans dan drag JTabbedPane ke dalam Form dan JButton, seperti gambar di bawah ini .
2. Sebagai berikut kode programnya
- kode program untuk di JButton -
private void jButton1ActionPerformed(java.awt.event.ActionEvent evt) {
tab = new javax.swing.JPanel();
tab.setBorder(javax.swing.BorderFactory.createEtchedBorder());
nama = "Tab" + n;
tabpanel.addTab(nama, tab);
n +=1;
// TODO add your handling code here: }
- Buat variabel -
int n = 0; //membuat n sebagai tipe integer dengan nilai 0
String nama; //membuat nama sebagai tipe string
private javax.swing.JPanel tab ; // membuat objek JPanel dimana tab sebagai objek tersebut
3. Jika pembaca telah membuat script codenya , save lalu jalankan projectnya . Jika tidak ada yang salah maka programnya akan tampil seperti gambar di bawah ini
The Sun in Soeryatama Group
Ikutin tutorial ini secara step by step agar pembaca dapat mengerti bagaimana mengerti pada tutorial ini.
Berikut tutorialnya :
1.Buka IDE Netbeans dan drag JTabbedPane ke dalam Form dan JButton, seperti gambar di bawah ini .
2. Sebagai berikut kode programnya
- kode program untuk di JButton -
private void jButton1ActionPerformed(java.awt.event.ActionEvent evt) {
tab = new javax.swing.JPanel();
tab.setBorder(javax.swing.BorderFactory.createEtchedBorder());
nama = "Tab" + n;
tabpanel.addTab(nama, tab);
n +=1;
// TODO add your handling code here: }
- Buat variabel -
int n = 0; //membuat n sebagai tipe integer dengan nilai 0
String nama; //membuat nama sebagai tipe string
private javax.swing.JPanel tab ; // membuat objek JPanel dimana tab sebagai objek tersebut
3. Jika pembaca telah membuat script codenya , save lalu jalankan projectnya . Jika tidak ada yang salah maka programnya akan tampil seperti gambar di bawah ini
The Sun in Soeryatama Group
Tutorial Menampilkan JFrame Lain
Pada postingan kali ini kami akan memberikan contoh bagaimana menampilkan JFrame lainnya dengan sebuah event JButton di klik . Pada tutorial ini kami menggunakan Netbeans . Berikut contohnya :
1. Buka Netbeans dan tambahkan 2 JFrame . Pada JFrame 1 drag dan drop sebuah JButton dan Edit dengan text Tampil JFrame2 .seperti gambar di bawah ini :
2. Klik 2 kali pada JButton tersebut dan masukkan kode program berikut ini
jframe2 a = new jframe2(); // membuat variabel a menjadi jframe2
a.setVisible(true); // untuk menampilkan jfram2
dispose(); // berfungsi saat JButton di klik maka Jfram1 tidak akan tampil
3. Jika selesai jalankan programnya dan Selesai
The Sun in Soeryatama Group
1. Buka Netbeans dan tambahkan 2 JFrame . Pada JFrame 1 drag dan drop sebuah JButton dan Edit dengan text Tampil JFrame2 .seperti gambar di bawah ini :
2. Klik 2 kali pada JButton tersebut dan masukkan kode program berikut ini
jframe2 a = new jframe2(); // membuat variabel a menjadi jframe2
a.setVisible(true); // untuk menampilkan jfram2
dispose(); // berfungsi saat JButton di klik maka Jfram1 tidak akan tampil
3. Jika selesai jalankan programnya dan Selesai
The Sun in Soeryatama Group
Tutorial Membuat Form Transparan dengan VB.Net
Pada posting kali ini kami akan memberikan sebuah tutorial mengenai bagaimana membuat sebuah form dapat menjadi transparan dengan menggunakan bahasa pemrograman VB.Net . Pada tutorial ini kami menggunakan framework 4 dan menggunakan IDE Visual Studio 2012 . Pembaca dapat menggunakan framework yang di bawah / atas dari kami dan IDE Visual Studio versi berapa pun karena pada tutorial kali ini tidak di batasin penggunaan framework tingkat berapa dan IDE Visual Studio versi berapa.
Berikut Tutorialnya :
1. Buka IDE Visual Studio pembaca , seperti terlihat pada gambar di bawah ini :
2. Klik 2 kali pada Form1 untuk membuka tab source code dan berikut source code pada aplikasi tersebut
Imports System.Runtime.InteropServices
Public Class Form1
<StructLayout(LayoutKind.Sequential)> _
Public Structure margins
Public cxleftwidth As Integer
Public cxrightwitdh As Integer
Public cytopheight As Integer
Public cybuttomheight As Integer
End Structure
<DllImport("dwmapi.dll")> _
Private Shared Function DwmExtendFrameIntoClientArea(ByVal hwnd As IntPtr, ByRef margin As margins) As Integer
End Function
Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
Me.BackColor = Color.Black
Dim mg As margins = New margins
mg.cxleftwidth = -1
mg.cxrightwitdh = -1
mg.cytopheight = -1
mg.cybuttomheight = -1
Try
DwmExtendFrameIntoClientArea(Me.Handle, mg)
Catch ex As Exception
End Try
End Sub
End Class
3. Klik run untuk menguji apakah program yag di buat telah berhasil dengan baik .Jika benar maka akan sama seperti pada gambar di bawah ini
Berikut Tutorialnya :
1. Buka IDE Visual Studio pembaca , seperti terlihat pada gambar di bawah ini :
2. Klik 2 kali pada Form1 untuk membuka tab source code dan berikut source code pada aplikasi tersebut
Imports System.Runtime.InteropServices
Public Class Form1
<StructLayout(LayoutKind.Sequential)> _
Public Structure margins
Public cxleftwidth As Integer
Public cxrightwitdh As Integer
Public cytopheight As Integer
Public cybuttomheight As Integer
End Structure
<DllImport("dwmapi.dll")> _
Private Shared Function DwmExtendFrameIntoClientArea(ByVal hwnd As IntPtr, ByRef margin As margins) As Integer
End Function
Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
Me.BackColor = Color.Black
Dim mg As margins = New margins
mg.cxleftwidth = -1
mg.cxrightwitdh = -1
mg.cytopheight = -1
mg.cybuttomheight = -1
Try
DwmExtendFrameIntoClientArea(Me.Handle, mg)
Catch ex As Exception
End Try
End Sub
End Class
3. Klik run untuk menguji apakah program yag di buat telah berhasil dengan baik .Jika benar maka akan sama seperti pada gambar di bawah ini
Untuk mendapatkan contoh dari program yang di pelajarin pembaca pada mendowloadnya melalui link di bawah ini
- DropBox -
The Sun in Soeryatama Group
Tutorial IF Borlan Delphi 7
Pada postingan kali ini , kami akan memberika beberapa contoh penggunaan IF untuk melakukan pengecekan terhadap suatu kondisi yang dimana akan menampilkan nilai tertentu . Berikut contohnya :
1. Buka Brolan Delphi 7 dan Design seperti pada gambar di bawah ini
2. Berikut script codenya :
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls;
type
TForm1 = class(TForm)
lblMenu: TLabel;
grpBox1: TGroupBox;
rbMerah: TRadioButton;
rbHijau: TRadioButton;
rbKuning: TRadioButton;
Label1: TLabel;
GroupBox1: TGroupBox;
ComboBox1: TComboBox;
Label2: TLabel;
GroupBox2: TGroupBox;
cb1: TCheckBox;
cb2: TCheckBox;
cb3: TCheckBox;
cb4: TCheckBox;
cb5: TCheckBox;
Label3: TLabel;
lblnilai: TLabel; // label untuk menampilkan hasil tambah dari event clik CheckBox
procedure PilihClick(Sender: TObject); //Membuat prosedur secara manual untuk event radio button
procedure ComboBox1Change(Sender: TObject);
procedure cb1Click(Sender: TObject);
procedure cb2Click(Sender: TObject);
procedure cb3Click(Sender: TObject);
procedure cb4Click(Sender: TObject);
procedure cb5Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
nilai : integer; // membuat sebuah variabel nilai sebagai type integer
implementation
{$R *.dfm}
procedure TForm1.PilihClick(Sender:TObject);
{ Note : ganti event di 3 Radio Button dengan prosedur PilihClick }
begin
if rbHijau.Checked=true then
Label1.Caption:='Jalan'
else if rbMerah.Checked=true then
Label1.Caption:='Berhenti'
else if rbKuning.Checked =true then
Label1.Caption:='Bersiap';
end;
procedure TForm1.ComboBox1Change(Sender: TObject);
begin
if ComboBox1.Text = 'Merah' then
Label2.Color:= clRed
else if ComboBox1.Text = 'Hijau' then
Label2.Color:= clGreen
else if ComboBox1.Text = 'Kuning' then
Label2.Color:= clYellow;
end;
procedure TForm1.cb1Click(Sender: TObject);
begin
if cb1.Checked = true then
begin
nilai := nilai + 10000 ;
lblnilai.Caption := inttostr(nilai) ;
end
else
begin
nilai := nilai - 10000 ;
lblnilai.Caption := inttostr(nilai) ;
end;
end;
procedure TForm1.cb2Click(Sender: TObject);
begin
if cb2.Checked = true then
begin
nilai := nilai + 30000;
lblnilai.Caption := inttostr(nilai);
end
else
begin
nilai := nilai - 30000;
lblnilai.Caption := inttostr(nilai);
end
end;
procedure TForm1.cb3Click(Sender: TObject);
begin
if cb3.Checked = true then
begin
nilai := nilai + 40000;
lblnilai.Caption := inttostr(nilai);
end
else
begin
nilai := nilai - 40000;
lblnilai.Caption := inttostr(nilai);
end
end;
procedure TForm1.cb4Click(Sender: TObject);
begin
if cb4.Checked = true then
begin
nilai := nilai + 60000;
lblnilai.Caption := inttostr(nilai);
end
else
begin
nilai := nilai - 60000;
lblnilai.Caption := inttostr(nilai);
end
end;
procedure TForm1.cb5Click(Sender: TObject);
begin
if cb5.Checked = true then
begin
nilai := nilai + 100000;
lblnilai.Caption := inttostr(nilai);
end
else
begin
nilai := nilai - 100000;
lblnilai.Caption := inttostr(nilai);
end
end;
end.
4. Uji program yang pembaca buat jika benar maka akan sama seperti ini dan tanpa adanya error.
Pembaca juga dapat mendowload contoh dari program yang di buat . Untuk mendowloadnya silakan klik link di bawah ini
- Drop Box -
https://www.dropbox.com/s/2086nv8p3ufd8qf/Latihan%20IF.rar
THE SUN IN SOERYATAMA GROUP
1. Buka Brolan Delphi 7 dan Design seperti pada gambar di bawah ini
2. Berikut script codenya :
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls;
type
TForm1 = class(TForm)
lblMenu: TLabel;
grpBox1: TGroupBox;
rbMerah: TRadioButton;
rbHijau: TRadioButton;
rbKuning: TRadioButton;
Label1: TLabel;
GroupBox1: TGroupBox;
ComboBox1: TComboBox;
Label2: TLabel;
GroupBox2: TGroupBox;
cb1: TCheckBox;
cb2: TCheckBox;
cb3: TCheckBox;
cb4: TCheckBox;
cb5: TCheckBox;
Label3: TLabel;
lblnilai: TLabel; // label untuk menampilkan hasil tambah dari event clik CheckBox
procedure PilihClick(Sender: TObject); //Membuat prosedur secara manual untuk event radio button
procedure ComboBox1Change(Sender: TObject);
procedure cb1Click(Sender: TObject);
procedure cb2Click(Sender: TObject);
procedure cb3Click(Sender: TObject);
procedure cb4Click(Sender: TObject);
procedure cb5Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
nilai : integer; // membuat sebuah variabel nilai sebagai type integer
implementation
{$R *.dfm}
procedure TForm1.PilihClick(Sender:TObject);
{ Note : ganti event di 3 Radio Button dengan prosedur PilihClick }
begin
if rbHijau.Checked=true then
Label1.Caption:='Jalan'
else if rbMerah.Checked=true then
Label1.Caption:='Berhenti'
else if rbKuning.Checked =true then
Label1.Caption:='Bersiap';
end;
procedure TForm1.ComboBox1Change(Sender: TObject);
begin
if ComboBox1.Text = 'Merah' then
Label2.Color:= clRed
else if ComboBox1.Text = 'Hijau' then
Label2.Color:= clGreen
else if ComboBox1.Text = 'Kuning' then
Label2.Color:= clYellow;
end;
procedure TForm1.cb1Click(Sender: TObject);
begin
if cb1.Checked = true then
begin
nilai := nilai + 10000 ;
lblnilai.Caption := inttostr(nilai) ;
end
else
begin
nilai := nilai - 10000 ;
lblnilai.Caption := inttostr(nilai) ;
end;
end;
procedure TForm1.cb2Click(Sender: TObject);
begin
if cb2.Checked = true then
begin
nilai := nilai + 30000;
lblnilai.Caption := inttostr(nilai);
end
else
begin
nilai := nilai - 30000;
lblnilai.Caption := inttostr(nilai);
end
end;
procedure TForm1.cb3Click(Sender: TObject);
begin
if cb3.Checked = true then
begin
nilai := nilai + 40000;
lblnilai.Caption := inttostr(nilai);
end
else
begin
nilai := nilai - 40000;
lblnilai.Caption := inttostr(nilai);
end
end;
procedure TForm1.cb4Click(Sender: TObject);
begin
if cb4.Checked = true then
begin
nilai := nilai + 60000;
lblnilai.Caption := inttostr(nilai);
end
else
begin
nilai := nilai - 60000;
lblnilai.Caption := inttostr(nilai);
end
end;
procedure TForm1.cb5Click(Sender: TObject);
begin
if cb5.Checked = true then
begin
nilai := nilai + 100000;
lblnilai.Caption := inttostr(nilai);
end
else
begin
nilai := nilai - 100000;
lblnilai.Caption := inttostr(nilai);
end
end;
end.
4. Uji program yang pembaca buat jika benar maka akan sama seperti ini dan tanpa adanya error.
Pembaca juga dapat mendowload contoh dari program yang di buat . Untuk mendowloadnya silakan klik link di bawah ini
- Drop Box -
https://www.dropbox.com/s/2086nv8p3ufd8qf/Latihan%20IF.rar
THE SUN IN SOERYATAMA GROUP
Tutorial Kalkulator Dengan Delphi
1. Buka IDE Brolan Delphi 7 kalian seperti pada gambar di bawah ini .
2. Gunakan beberapa object agar sama seperti gambar di bawah ini :
Property :
Form : Caption : Latihan Kalkulator , BorderStyle : bsDialog
Button : Caption : Isi dengan angka seperti gambar di atas , Name : tmbl(no)
Label : Caption : Dapat seperti pada gambar / nama pembaca
GroupBox : Caption : Kosongkan
Edit : Text : Kosongkan , Name : txtangka
3. Jika pada tahap ke 2 pembaca telah selesai maka untuk selanjuta kita mulai dengan penulisan
script code pada setiap button untuk menampilakan angka , operator yang di gunakan , dan hasil.
Sebelum kita mengetikan script codenya lebih baik kita save Project yang di buat . Jika pembaca sangat pemula kami menyarankan untuk tidak mengubah nama untuk di save agar pembaca tidak mengalami kesulitan dalam menyamakan script code kami.
Berikut script code :
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls;
type
TForm1 = class(TForm)
txtangka: TEdit;
GroupBox1: TGroupBox;
tmbl1: TButton;
tmbl2: TButton;
tmbl3: TButton;
tmbl4: TButton;
tmbl5: TButton;
tmbl6: TButton;
tmbl7: TButton;
tmbl8: TButton;
tmbl9: TButton;
tmbl0: TButton;
tambah: TButton;
kurang: TButton;
Label1: TLabel;
bagi: TButton;
kali: TButton;
samadengan: TButton;
c: TButton;
procedure tmbl1Click(Sender: TObject);
procedure tmbl2Click(Sender: TObject);
procedure tmbl3Click(Sender: TObject);
procedure tmbl4Click(Sender: TObject);
procedure tmbl5Click(Sender: TObject);
procedure tmbl6Click(Sender: TObject);
procedure tmbl7Click(Sender: TObject);
procedure tmbl8Click(Sender: TObject);
procedure tmbl9Click(Sender: TObject);
procedure tmbl0Click(Sender: TObject);
procedure tambahClick(Sender: TObject);
procedure kurangClick(Sender: TObject);
procedure bagiClick(Sender: TObject);
procedure kaliClick(Sender: TObject);
procedure samadenganClick(Sender: TObject);
procedure FormCreate(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
tampung_nilai : String;
tampung_nilai1 : Integer;
nilai : Integer ;
nilai1 : Integer;
hitung : Integer;
hitung1 : Double;
implementation
uses StrUtils;
{$R *.dfm}
procedure TForm1.tmbl1Click(Sender: TObject);
begin
tampung_nilai:= tampung_nilai + '1';
txtangka.Text:= tampung_nilai
end;
procedure TForm1.tmbl2Click(Sender: TObject);
begin
tampung_nilai:= tampung_nilai + '2';
txtangka.Text:= tampung_nilai
end;
procedure TForm1.tmbl3Click(Sender: TObject);
begin
tampung_nilai:= tampung_nilai + '3';
txtangka.Text:= tampung_nilai
end;
procedure TForm1.tmbl4Click(Sender: TObject);
begin
tampung_nilai:= tampung_nilai + '4';
txtangka.Text:= tampung_nilai
end;
procedure TForm1.tmbl5Click(Sender: TObject);
begin
tampung_nilai:= tampung_nilai + '5';
txtangka.Text:= tampung_nilai
end;
procedure TForm1.tmbl6Click(Sender: TObject);
begin
tampung_nilai:= tampung_nilai + '6';
txtangka.Text:= tampung_nilai
end;
procedure TForm1.tmbl7Click(Sender: TObject);
begin
tampung_nilai:= tampung_nilai + '7';
txtangka.Text:= tampung_nilai
end;
procedure TForm1.tmbl8Click(Sender: TObject);
begin
tampung_nilai:= tampung_nilai + '8';
txtangka.Text:= tampung_nilai
end;
procedure TForm1.tmbl9Click(Sender: TObject);
begin
tampung_nilai:= tampung_nilai + '9';
txtangka.Text:= tampung_nilai
end;
procedure TForm1.tmbl0Click(Sender: TObject);
begin
tampung_nilai:= tampung_nilai + '0';
txtangka.Text:= tampung_nilai ;
end;
procedure TForm1.tambahClick(Sender: TObject);
begin
tampung_nilai1 := StrtoInt(tampung_nilai);
tampung_nilai:= '';
txtangka.Text:= tampung_nilai ;
nilai:= 0;
end;
procedure TForm1.kurangClick(Sender: TObject);
begin
tampung_nilai1 := StrtoInt(tampung_nilai);
tampung_nilai:= '';
txtangka.Text:= tampung_nilai;
nilai:= 1;
end;
procedure TForm1.bagiClick(Sender: TObject);
begin
tampung_nilai1 := StrtoInt(tampung_nilai);
tampung_nilai:= '';
txtangka.Text:= tampung_nilai;
nilai:= 2;
end;
procedure TForm1.kaliClick(Sender: TObject);
begin
tampung_nilai1 := StrtoInt(tampung_nilai);
tampung_nilai:= '';
txtangka.Text:= tampung_nilai;
nilai:= 3;
end;
procedure TForm1.samadenganClick(Sender: TObject);
begin
nilai1:= StrtoInt(txtangka.Text);
case nilai of
0: hitung1:= tampung_nilai1 + nilai1;
1: hitung1:= tampung_nilai1 - nilai1;
2: hitung1:= tampung_nilai1 / nilai1;
3: hitung1:= tampung_nilai1 * nilai1;
end;
txtangka.Text:= FloattoStr(hitung1);
end;
end.unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls;
type
TForm1 = class(TForm)
txtangka: TEdit;
GroupBox1: TGroupBox;
tmbl1: TButton;
tmbl2: TButton;
tmbl3: TButton;
tmbl4: TButton;
tmbl5: TButton;
tmbl6: TButton;
tmbl7: TButton;
tmbl8: TButton;
tmbl9: TButton;
tmbl0: TButton;
tambah: TButton;
kurang: TButton;
Label1: TLabel;
bagi: TButton;
kali: TButton;
samadengan: TButton;
c: TButton;
procedure tmbl1Click(Sender: TObject);
procedure tmbl2Click(Sender: TObject);
procedure tmbl3Click(Sender: TObject);
procedure tmbl4Click(Sender: TObject);
procedure tmbl5Click(Sender: TObject);
procedure tmbl6Click(Sender: TObject);
procedure tmbl7Click(Sender: TObject);
procedure tmbl8Click(Sender: TObject);
procedure tmbl9Click(Sender: TObject);
procedure tmbl0Click(Sender: TObject);
procedure tambahClick(Sender: TObject);
procedure kurangClick(Sender: TObject);
procedure bagiClick(Sender: TObject);
procedure kaliClick(Sender: TObject);
procedure samadenganClick(Sender: TObject);
procedure FormCreate(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
tampung_nilai : String;
tampung_nilai1 : Integer;
nilai : Integer ;
nilai1 : Integer;
hitung : Integer;
hitung1 : Double;
implementation
uses StrUtils;
{$R *.dfm}
procedure TForm1.tmbl1Click(Sender: TObject);
begin
tampung_nilai:= tampung_nilai + '1';
txtangka.Text:= tampung_nilai
end;
procedure TForm1.tmbl2Click(Sender: TObject);
begin
tampung_nilai:= tampung_nilai + '2';
txtangka.Text:= tampung_nilai
end;
procedure TForm1.tmbl3Click(Sender: TObject);
begin
tampung_nilai:= tampung_nilai + '3';
txtangka.Text:= tampung_nilai
end;
procedure TForm1.tmbl4Click(Sender: TObject);
begin
tampung_nilai:= tampung_nilai + '4';
txtangka.Text:= tampung_nilai
end;
procedure TForm1.tmbl5Click(Sender: TObject);
begin
tampung_nilai:= tampung_nilai + '5';
txtangka.Text:= tampung_nilai
end;
procedure TForm1.tmbl6Click(Sender: TObject);
begin
tampung_nilai:= tampung_nilai + '6';
txtangka.Text:= tampung_nilai
end;
procedure TForm1.tmbl7Click(Sender: TObject);
begin
tampung_nilai:= tampung_nilai + '7';
txtangka.Text:= tampung_nilai
end;
procedure TForm1.tmbl8Click(Sender: TObject);
begin
tampung_nilai:= tampung_nilai + '8';
txtangka.Text:= tampung_nilai
end;
procedure TForm1.tmbl9Click(Sender: TObject);
begin
tampung_nilai:= tampung_nilai + '9';
txtangka.Text:= tampung_nilai
end;
procedure TForm1.tmbl0Click(Sender: TObject);
begin
tampung_nilai:= tampung_nilai + '0';
txtangka.Text:= tampung_nilai ;
end;
procedure TForm1.tambahClick(Sender: TObject);
begin
tampung_nilai1 := StrtoInt(tampung_nilai);
tampung_nilai:= '';
txtangka.Text:= tampung_nilai ;
nilai:= 0;
end;
procedure TForm1.kurangClick(Sender: TObject);
begin
tampung_nilai1 := StrtoInt(tampung_nilai);
tampung_nilai:= '';
txtangka.Text:= tampung_nilai;
nilai:= 1;
end;
procedure TForm1.bagiClick(Sender: TObject);
begin
tampung_nilai1 := StrtoInt(tampung_nilai);
tampung_nilai:= '';
txtangka.Text:= tampung_nilai;
nilai:= 2;
end;
procedure TForm1.kaliClick(Sender: TObject);
begin
tampung_nilai1 := StrtoInt(tampung_nilai);
tampung_nilai:= '';
txtangka.Text:= tampung_nilai;
nilai:= 3;
end;
procedure TForm1.samadenganClick(Sender: TObject);
begin
nilai1:= StrtoInt(txtangka.Text);
case nilai of
0: hitung1:= tampung_nilai1 + nilai1;
1: hitung1:= tampung_nilai1 - nilai1;
2: hitung1:= tampung_nilai1 / nilai1;
3: hitung1:= tampung_nilai1 * nilai1;
end;
txtangka.Text:= FloattoStr(hitung1);
end;
end.
4. Jika selesai , jalankan peroject yang barusan d buat dan lakukan percobaan untuk melakukan pengimputan ke edit dengan mengklik tombol.
Kami juga memberikan contoh dari aplikasi yang sedang di buat untuk di jadikan sebagai referensi pembaca dalam mempelajarin bahasa delphi.
:: DropBox ::
https://www.dropbox.com/s/y5tilx1xtmgj3s8/Latihan%20Kalkulator.rar
:: 4Shared ::
http://www.4shared.com/rar/PImiVCigce/Latihan_Kalkulator.html
Terima Kasih
Langganan:
Postingan (Atom)