finieztya: 2015

Senin, 17 Agustus 2015

cara mengkoneksikan my sql dengan visual basic6.0

Berikut langkah-langkah pembuatan aplikasinya..

1. Jalankan Aplikasi server di PC/Laptop teman-teman (Apache/XAMPP/WAMPP/yg lainnya), disini saya menggunakan Aplikasi server XAMPP.

2. Buka alamat "localhost/phpmyadmin" di browser (Mozila Firefox/Google Chrome/Opera/IE/browser lainnya) untuk membuat database

3. Buat database dengan nama db_barang

4. Buat tabel dengan nama "barang" dengan jumlah field 5

5. Kemudian desain fieldnya sebagai berikut :


kode_barang	varchar	15
nama_barang	varchar	25
jenis_barang	varchar	35
harga_barang	double		Currency (Rp.xxx.xxx)
jumlah	int

6. Jalankan MySql ODBC Connector di (Control Panel\All Control Panel Items\Administrative Tools)

7. MySql ODBC bisa di download disini

8. Pilih Data Sources (ODBC), maka tampil seperti dibawah ini :

9. Pilih MySql Odbc ConnectorMaka tampil seperti berikut :

10. Isikan seperti gambar diatas, klik ok Kemudian buka Visual Basic 6.0, pilih VB Enterprise Edition Control.

11. Desain Form seperti dibawah ini :

12. Berikut SourceCode nya :

Dim db As Connection
Dim rs As Recordset

Sub koneksi()
Set db = New Connection
db.CursorLocation = adUseClient
db.Open "ds_barang"
End Sub

Private Sub Command1_Click()
Set rs = New Recordset
rs.Open "barang", db, adOpenDynamic, adLockOptimistic
rs.AddNew
rs.Fields("kode_barang") = Text1.Text
rs.Fields("nama_barang") = Text2.Text
rs.Fields("jenis_barang") = Combo1.Text
rs.Fields("harga_barang") = Text3.Text
rs.Fields("jumlah") = Text4.Text
rs.Update
MsgBox "Data tersimpan"
Set DataGrid1.DataSource = rs
DataGrid1.Refresh
End Sub

Private Sub Command2_Click()
Text1.Text = ""
Text2.Text = ""
Text3.Text = ""
Text3.Text = ""
Text4.Text = ""
Combo1.Text = ""
Text1.SetFocus
End Sub

Private Sub Command3_Click()
Unload Me
End Sub

Private Sub Form_Load()
koneksi
Set rs = New Recordset
rs.Open "barang", db, adOpenDynamic, adLockOptimistic
Set DataGrid1.DataSource = rs
DataGrid1.Refresh
End Sub

Kamis, 14 Mei 2015

DAFTAR ISI

Cara Membuat Daftar isi Blog

Cara membuat daftar isi blog. Gunanya untuk memudahkan pengunjung untuk melihat semua daftar artikel blog yang dikelompokan sesuai dengan kategori artikel. Setiap membuat artikel atau posting baru, otomatis akan masuk ke daftar isi ini. Contoh gambar.

Ikuti langkah-langkah dibawah ini.

1. Login ke Blog dan pilih laman.

2. Pilih laman kosong dan Copy semua kode dibawah ini dan Paste kan ke bagian HTML. Ganti kode yang berwarna merah dengan alamat url blog kamu.

3. Lihat gambar dibawah ini. Ada Compose dan HTML, Klik HTML dan masukan kode diatas.

4. Beri judul Daftar isi dan klik publikasikan.

5. Jika di blog kamu belum terlihat juga daftar isinya. Coba Edit salah satu artikel kamu dan klik Label dibagian Setelan Entri(Sebelah kanan entri). Dan beri nama sesuai yang kamu inginkan. Contoh gambar:

6. Selanjutnya klik selesai seperti gambar diatas. Dan Klik Perbarui.

7. Sekarang coba lihat lagi daftar isi kamu. Selesai.

Kamis, 30 April 2015

finistya_12133236_12.4E.24

A. Tampilan Program :
1. Dengan Potongan & Bonus

2. Tanpa Potongan & Bonus

B. Coding Program :

unit TOKO;

interface

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

type
TForm1 = class(TForm)
    Label1: TLabel;
    GroupBox1: TGroupBox;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    Label5: TLabel;
    Label6: TLabel;
    Label7: TLabel;
    Label8: TLabel;
    Label9: TLabel;
    Label10: TLabel;
    ComboBox1: TComboBox;
    Edit1: TEdit;
    Edit2: TEdit;
    Edit3: TEdit;
    Label11: TLabel;
    GroupBox2: TGroupBox;
    Label12: TLabel;
    Label13: TLabel;
    Label14: TLabel;
    Label15: TLabel;
    Label16: TLabel;
    Label17: TLabel;
    Edit4: TEdit;
    Edit5: TEdit;
    Edit6: TEdit;
    Edit7: TEdit;
    Edit8: TEdit;
    Edit9: TEdit;
    Edit10: TEdit;
    Button1: TButton;
    Button2: TButton;
    Button3: TButton;
    Label18: TLabel;
    procedure FormActivate(Sender: TObject);
    procedure ComboBox1Click(Sender: TObject);
    procedure Edit3KeyPress(Sender: TObject; var Key: Char);
    procedure Edit9KeyPress(Sender: TObject; var Key: Char);
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure Button3Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
private
    { Private declarations }
public
    kodebarang:array[1..4] of string;
    barang,harga,beli,total,ppn,potongan,bonus,totbay,ubay,ukem:real;
    procedure bersih;
    procedure nonaktif;
    { Public declarations }
end;

var
Form1: TForm1;
implementation

{$R *.dfm}

procedure TForm1.bersih;
begin
ComboBox1.Text:='';
Edit1.Text:='';
Edit2.Text:='';
Edit3.Text:='';
Edit4.Text:='';
Edit5.Text:='';
Edit6.Text:='';
Edit7.Text:='';
Edit8.Text:='';
Edit9.Text:='';
Edit10.Text:='';
end;

procedure TForm1.nonaktif;
begin
edit1.Enabled:=False;
edit2.Enabled:=False;
edit4.Enabled:=False;
edit5.Enabled:=False;
edit6.Enabled:=False;
edit7.Enabled:=False;
edit8.Enabled:=False;
edit10.Enabled:=False;
end;

procedure TForm1.FormActivate(Sender: TObject);
var
i:integer;
begin
for i:=1 to 4 do
ComboBox1.Items.Append(kodebarang[i]);
bersih;
nonaktif;
end;

procedure TForm1.ComboBox1Click(Sender: TObject);
begin
Case ComboBox1.ItemIndex of
    0: edit1.Text:='Mesin Cuci';
    1: edit1.Text:='Kulkas';
    2: edit1.Text:='LED TV';
else
    edit1.Text:='DVD Player';
end;
Case ComboBox1.ItemIndex of
    0: edit2.Text:='2500000';
    1: edit2.Text:='2000000';
    2: edit2.Text:='1750000';
else
    edit2.Text:='500000';
end;
harga:=StrToFloat(Edit2.Text);
edit3.SetFocus;
end;

procedure TForm1.Edit3KeyPress(Sender: TObject; var Key: Char);
begin
if key=#13 then
begin

    Button2.SetFocus;
end;
end;

procedure TForm1.Edit9KeyPress(Sender: TObject; var Key: Char);
begin
if key=#13 then
    begin
      ubay:=StrToFloat(edit9.Text);
      ukem:=ubay-totbay;
      edit10.Text:=FloatToStr(ukem);
    end;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
bersih;
ComboBox1.SetFocus;
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
beli:=StrToFloat(Edit3.Text);
total:=harga*beli;
ppn:=total*0.1;
if total>=5000000 then
    begin
      potongan:=total*0.05;
      edit7.Text:='Payung Cantik';
    end
else
    begin
      potongan:=0;
      edit7.Text:='Tidak Ada Bonus';
    end;
totbay:=(total+ppn)-potongan;
edit4.Text:=FloatToStr(total);
edit5.Text:=FloatToStr(ppn);
edit6.Text:=FloatToStr(potongan);
edit8.Text:=FloatToStr(totbay);
edit9.SetFocus;
end;

procedure TForm1.Button3Click(Sender: TObject);
begin
close;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
kodebarang[1]:='1';
kodebarang[2]:='2';
kodebarang[3]:='3';
kodebarang[4]:='4';
end;

end.

Rabu, 15 April 2015

Membuat Program Sederhana (Tugas Delphi)

https://docs.google.com/document/d/1t47DxPTLRAtxsEdSY8qy5UJI8hMo3LL694gYRVZ48wM/edit?usp=sharing

tugas delphi

Https://docs.google.com/document/d/It47DxPTLRAtxsEdSY8qy5UJI8hMo3Ll694gYRVZ48wM/edit?usp=sharing

Laman