SURAT PERNYATAAN MENJAGA KERAHASIAAN

Berikut ini contoh Surat Pernyataan Menjaga Kerahasiaan Ujian Nasional (UN) Tahun Pelajaran 2011/2012. Silahkan di-download:

Link-nya:
http://www.indowebster.com/download/files/surat_pernyataan_2

Restaurant Jakarta Food Delivery from RestaurantJakartaDelivery.com

Restaurant Jakarta Food Delivery From RestaurantJakartaDelivery.com adalah perusahaan restoran yang menyediakan jasa pesan antar makanan dengan barbagai menu. Jasa restoran pesan antar dari Restaurant Jakarta Food Delivery ini sangat bermanfaat bagi konsumen. Bagaimana tidak, berbagai macam menu yang nikmat seperti Japanese, Indian, Mexican, Indonesian, Middle East, Food, Thai Food, American Seafood, American Coffe and Sandwich, Food, Cake, Peranakan, Vietnamese, Barbeque, Chinese,East and West, South African, Korean, Italian, Chicken, Comfort Food Western dan lain lainnya.

Berbagai menu nikmat yang tersaji siap memanjakan lidah anda. Anda tidak perlu repot-repot menyiapkan makanan. Semua dapat anda peroleh dengan waktu yang cepat dan mudah. Restaurant Jakarta Food Delivery From RestaurantJakartaDelivery.com ini seakan memahami apa yang diinginkan konsumen saat ini. Bagaimana tidak, dengan cara memesan melalui telefon, konsumen dimajakan dengan menu-menu yang tersedia dan hanya tinggal memilih menu makanan dari restoran mana yang dikehendaki. Dan selanjutnya makanan siap di antar kealamat yang diinginkan.

Restaurant Jakarta Food Delivery bekerja sama dengan restaurant-restaurant antara lain : Manhattan Fish Market, Clairmont, Duck King, Mango, Restaurant Smoking Joe, Njun Njan, White Hunter, La Porchetta, Elbow Room, Cafe 5th Avenue, Royal Kitchen, Iga-Iga, Riung Sunda, Warung Pasta, Cal Roll Factory, Gado Gado Java, Blacksteer, Thai & I, Do An, Ikuze, Poke Sushi, Han Gang, Amigos, Sinbad, Kenny Rogers Roasters, Munchies, Platters, Radja Ketjil, dan My Pancake.

Kini jarak yang jauh, kondisi jalanan yang macet bukanlah menjadi halangan lagi untuk memperoleh makanan enak sesuai selera. Berbagai menu dari banyak pilihan restoran yang berbeda menambah kenyamanan konsumen dalam pemilihan cita rasa makanan. Disuatu ketika anda tidak punya waktu untuk memasak, butuh waktu yang cepat dalam memperoleh makanan, Restaurant Jakarta Food Delivery lah solusinya.

Ayo.. Tunggu Apa Lagi?? Manjakan Lidah Anda dengan Restaurant Jakarta Food Delivery From RestaurantJakartaDelivery.com. Kunjungi website resminya di www.RestaurantJakartaDelivery.com

Delphi 7 ( Toko Komputer XYZ )

Coding/Listing :



public
    { Public declarations }
    procedure aktif;
    procedure nonaktif;
    procedure bersih;
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.aktif;
begin
lbtanggal.Enabled:= true;
lbjam.Enabled:= true;
ckode.Enabled:= true;
ljenis.Enabled:= true;
eharga.Enabled:= true;
ejumbel.Enabled:= true;
esubtotal.Enabled:= true;
eppn.Enabled:= true;
etobay.Enabled:= true;
ebayar.Enabled:= true;
ekembali.Enabled:= true;
end;

procedure TForm1.nonaktif;
begin
lbtanggal.Enabled:= false;
lbjam.Enabled:= false;
ckode.Enabled:= false;
ljenis.Enabled:= false;
eharga.Enabled:= false;
ejumbel.Enabled:= false;
esubtotal.Enabled:= false;
eppn.Enabled:= false;
etobay.Enabled:= false;
ebayar.Enabled:= false;
ekembali.Enabled:= false;
end;

procedure TForm1.bersih;
begin
ckode.Text:='--Silakan Pilih--';
ljenis.Clear;
eharga.Text:= '0';
ejumbel.Text:= '0';
esubtotal.Text:= '0';
eppn.Text:= '0';
etobay.Text:= '0';
ebayar.Text:= '0';
ekembali.Text:= '0';
end;

procedure TForm1.FormActivate(Sender: TObject);
begin
nonaktif;
bersih;
end;

procedure TForm1.Timer1Timer(Sender: TObject);
begin
lbtanggal.Caption:= datetostr(now);
lbjam.Caption:= timetostr(now);
end;

procedure TForm1.binputClick(Sender: TObject);
begin
aktif;
bersih;
end;

procedure TForm1.ckodeClick(Sender: TObject);
begin
if ckode.ItemIndex = 0 then
begin
ljenis.Clear;
ljenis.Items.Add('Flash Disk 4GB');
ljenis.Items.Add('Flash Disk 8GB');
end
else if ckode.ItemIndex = 1 then
begin
ljenis.Clear;
ljenis.Items.Add('Hardisk 200GB');
ljenis.Items.Add('Hardisk 250GB');
end
else
begin
ljenis.Clear;
ljenis.Items.Add('Keyboard Joystick');
ljenis.Items.Add('Keyboard Logitech');
end;
eharga.Text:= '0';
end;

procedure TForm1.ljenisClick(Sender: TObject);
begin
if ckode.ItemIndex = 0 then
begin
if ljenis.ItemIndex = 0 then
eharga.Text:= '80000'
else
eharga.Text:= '125000';
end
else if ckode.ItemIndex = 1 then
begin
if ljenis.ItemIndex = 0 then
eharga.Text:= '300000'
else
eharga.Text:= '400000';
end
else
begin
if ljenis.ItemIndex = 0 then
eharga.Text:= '75000'
else
eharga.Text:= '100000';
end;
ejumbel.SetFocus;
end;

procedure TForm1.bhitungClick(Sender: TObject);
begin
esubtotal.Text:= inttostr(strtoint(eharga.Text)*strtoint(ejumbel.Text));
eppn.Text:= floattostr(0.1*strtofloat(esubtotal.Text));
etobay.Text:= inttostr(strtoint(esubtotal.Text)+strtoint(eppn.Text));
ebayar.SetFocus;
end;

procedure TForm1.ebayarKeyPress(Sender: TObject; var Key: Char);
begin
if key=#13 then
begin
ekembali.Text:= inttostr(strtoint(ebayar.Text) - strtoint(etobay.Text));
nonaktif;
end;
end;

procedure TForm1.bexitClick(Sender: TObject);
begin
if(application.MessageBox('Yakin Ingin Keluar Dari Program Ini..?!','Question',4+32)=6)then
close
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
ckode.Items.Add('001');
ckode.Items.Add('002');
ckode.Items.Add('003');
end;

end.

Delphi 7 ( Toko Komputer ABC )

Coding/Listing :



public
    { Public declarations }
    procedure aktif;
    procedure nonaktif;
    procedure bersih;
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.aktif;
begin
cbmerk.Enabled := true;
cbtipe.Enabled := true;
eharga.Enabled := true;
rbdistributor.Enabled := true;
rbinternasional.Enabled := true;
egaransi.Enabled := true;
chwin7.Enabled := true;
eos.Enabled := true;
ejumbel.Enabled := true;
esubtotal.Enabled := true;
epotongan.Enabled := true;
etotal.Enabled := true;
ebayar.Enabled := true;
ekembali.Enabled := true;
end;

procedure TForm1.nonaktif;
begin
cbmerk.Enabled := false;
cbtipe.Enabled := false;
eharga.Enabled := false;
rbdistributor.Enabled := false;
rbinternasional.Enabled := false;
egaransi.Enabled := false;
chwin7.Enabled := false;
eos.Enabled := false;
ejumbel.Enabled := false;
esubtotal.Enabled := false;
epotongan.Enabled := false;
etotal.Enabled := false;
ebayar.Enabled := false;
ekembali.Enabled := false;
end;

procedure TForm1.bersih;
begin
cbmerk.Text := '--Silakan Pilih--';
cbtipe.Text := '--Silakan pilih--';
eharga.Text := '0';
rbdistributor.Checked := false;
rbinternasional.Checked := false;
egaransi.Text := '0';
chwin7.Checked := false;
eos.Text := '0';
ejumbel.Text := '0';
esubtotal.Text := '0';
epotongan.Text := '0';
etotal.Text := '0';
ebayar.Text := '0';
ekembali.Text := '0';
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
cbmerk.Items.Add('ACER');
cbmerk.Items.Add('DELL');
cbmerk.Items.Add('TOSHIBA');
end;

procedure TForm1.cbmerkClick(Sender: TObject);
begin
if cbmerk.Text = 'ACER' then
begin
cbtipe.Text := '--Silakan Pilih--';
cbtipe.Items.Add('AC11R');
cbtipe.Items.Add('AC12R');
end
else if cbmerk.Text = 'DELL' then
begin
cbtipe.Text := '--Silakan Pilih--';
cbtipe.Items.Add('DE13L');
cbtipe.Items.Add('DE14L');
end
else if cbmerk.Text = 'TOSHIBA' then
begin
cbtipe.Text := '--Silakan Pilih--';
cbtipe.Items.Add('TO15A');
cbtipe.Items.Add('TO16A');
end
end;

procedure TForm1.cbtipeClick(Sender: TObject);
begin
if cbtipe.Text = 'AC11R' then
eharga.Text := '1100000'
else if cbtipe.Text = 'AC12R' then
eharga.Text := '1200000'
else if cbtipe.Text = 'DE13L' then
eharga.Text := '1300000'
else if cbtipe.Text = 'DE13L' then
eharga.Text := '1400000'
else if cbtipe.Text = 'TO15A' then
eharga.Text := '1500000'
else
eharga.Text := '1600000'
end;

procedure TForm1.rbdistributorClick(Sender: TObject);
begin
if rbdistributor.Checked = true then
egaransi.Text := '200000'
else
egaransi.Text := '0';
end;

procedure TForm1.rbinternasionalClick(Sender: TObject);
begin
if rbinternasional.Checked = true then
egaransi.Text := '400000'
else
egaransi.Text := '0';
end;

procedure TForm1.ejumbelKeyPress(Sender: TObject; var Key: Char);
begin
if key = #13 then
esubtotal.Text := floattostr((strtofloat(eharga.Text)*strtofloat(ejumbel.Text))+strtofloat(egaransi.Text)+strtofloat(eos.Text));
if strtofloat(ejumbel.Text)>= 5 then
epotongan.Text := floattostr(0.5*strtofloat(esubtotal.Text))
else if strtofloat(ejumbel.Text)>= 2 then
epotongan.Text:= floattostr(0.1*strtofloat(esubtotal.Text))
else
epotongan.Text:=floattostr(0);
etotal.Text := floattostr(strtofloat(esubtotal.Text)-strtofloat(epotongan.Text));
end;

procedure TForm1.ebayarKeyPress(Sender: TObject; var Key: Char);
begin
if key = #13 then
begin
ekembali.Text := floattostr(strtofloat(ebayar.Text)-strtofloat(etotal.Text));
nonaktif;
end
end;

procedure TForm1.bbersihClick(Sender: TObject);
begin
bersih;
aktif;
end;

procedure TForm1.chwin7Click(Sender: TObject);
begin
if chwin7.Checked = true then
eos.Text := '600000'
else
eos.Text := '0';
ejumbel.SetFocus;
end;

procedure TForm1.bkeluarClick(Sender: TObject);
begin
if(application.MessageBox('Yakin Ingin Keluar Dari Program Ini...?!','Question', 4+32)=6)then
close
end;

procedure TForm1.FormActivate(Sender: TObject);
begin
nonaktif;
bersih;
end;

end.

Tips Memelihara Laptop Agar Tahan Lama

Anda pasti menginginkan laptop yang anda miliki awet dan tahan lama. Berikut ini adalah tips untuk memelihara laptop anda agar tahan lama. Awet dan tidak cepat rusak.

1. Menggunakan Stabilizer. Berguna untuk menjaga kestabilan arus pada laptop. Meskipun laptop memiliki baterai, tetapi penambahan stabilizer akan menambah kestabilan arus pada laptop.

2. Gunakan Tas Khusus Laptop. Hal ini dilakukan agar jika tas anda terhempas atau terlempar. Maka akan meredam benturan yang terjadi.

3. Bersihkan Laptop anda secara rutin. Lakukan lah pembersihan terhadap laptop agar menghilangkan debu debu yang menempel. Debu yang menempel dapat masuk ke dalam perangkat laptop dan merusak alat yang ada didalamnya.

Demikian lah tips sederhana untuk merawat laptop anda agar tahan lama dan tidak cepat rusak. Terimakasih atas kunjungan anda. :-)

Baca Juga Artikel favorit komputer lainnya Cara  Mencegah Masuknya Virus Komputer

Quick-fire DIY Kit-Atmega-32 based development board

Quick-fire is DIY developed for by me for Embedded training in company.Since company is entering in field of Industrial training of Engineering Students.

Quick-fire happens to be our first product exclusively designed for development and training purpose.It is basically Atmega-32 based development board

Atmega-32 based Development Board

Atmega-8 based Development Board

CONTINUE READING �

Visual Basic ( Form SPP ( Lanjutan Form Siswa ) )

Komponen Yang Digunakan :

1. Microsoft Ado Data Control 6.0 (OLEDB)
2. Microsoft DataGrid Control 6.0 (OLEDB)
3. Microsoft Windows Common Controls-2 6.0 (SP6)

Listing Modul :

Public conn As New ADODB.Connection

Public rssiswa As New ADODB.Recordset

Public rspembayaran As New ADODB.Recordset

Public Sub openDB()

Set conn = New ADODB.Connection

Set rssiswa = New ADODB.Recordset

Set rspembayaran = New ADODB.Recordset

conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source= " & App.Path & "\Sekolah.mdb"

End Sub

Listing/Coding :

Sub tampildata()

With rspembayaran

If Not .EOF Then

txtnofak.Text = !no_faktur

txtnis.Text = !nis

txtnama.Text = !nama

txtalamat.Text = !alamat

txtkelas.Text = !kelas

txtjurusan.Text = !jurusan

txtkeahlian.Text = !keahlian

txtspp.Text = !spp

txtpraktek.Text = !praktek

txtosis.Text = !osis

txtujian.Text = !ujian

txtadministrasi.Text = !administrasi

txtbeasiswa.Text = !beasiswa

txttotal.Text = !total

End If

End With

End Sub

Sub auto()

Dim no As String

Dim noint As Integer

With rspembayaran

If .RecordCount = 0 Then

no = "0001"

Else

.MoveLast

noint = Val(Right(!no_faktur, 4)) + 1

no = Right("0000" & noint, 4)

End If

End With

txtnofak.Text = no

End Sub

Sub aktif()

txtnofak.Enabled = True

txtnis.Enabled = True

txtnama.Enabled = True

txtalamat.Enabled = True

txtkelas.Enabled = True

txtjurusan.Enabled = True

txtkeahlian.Enabled = True

txtspp.Enabled = True

txtpraktek.Enabled = True

txtosis.Enabled = True

txtujian.Enabled = True

txtadministrasi.Enabled = True

txtbeasiswa.Enabled = True

txttotal.Enabled = True

txtbayar.Enabled = True

txtkembali.Enabled = True

End Sub

Sub nonaktif()

txtnofak.Enabled = False

txtnis.Enabled = False

txtnama.Enabled = False

txtalamat.Enabled = False

txtkelas.Enabled = False

txtjurusan.Enabled = False

txtkeahlian.Enabled = False

txtspp.Enabled = False

txtpraktek.Enabled = False

txtosis.Enabled = False

txtujian.Enabled = False

txtadministrasi.Enabled = False

txtbeasiswa.Enabled = False

txttotal.Enabled = False

txtbayar.Enabled = False

txtkembali.Enabled = False

End Sub

Sub bersih()

txtnofak.Text = ""

txtnis.Text = ""

txtnama.Text = ""

txtalamat.Text = ""

txtkelas.Text = ""

txtjurusan.Text = ""

txtkeahlian.Text = ""

txtspp.Text = ""

txtpraktek.Text = ""

txtosis.Text = ""

txtujian.Text = ""

txtadministrasi.Text = ""

txtbeasiswa.Text = ""

txttotal.Text = ""

txtbayar.Text = ""

txtkembali.Text = ""

End Sub

Sub tampil()

With rssiswa

If Not .EOF Then

txtnis.Text = !nis

txtnama.Text = !nama

txtalamat.Text = !alamat

txtkelas.Text = !kelas

txtjurusan.Text = !jurusan

txtkeahlian.Text = !keahlian

End If

End With

End Sub

Private Sub Form_Load()

Call openDB

conn.CursorLocation = adUseClient

rspembayaran.Open "Select * from Pembayaran", conn

Set gridpembayaran.DataSource = rspembayaran.DataSource

End Sub

Private Sub Form_Activate()

nonaktif

bersih

cmdinput.Enabled = True

cmdsave.Enabled = False

cmdcancel.Enabled = False

cmddelete.Enabled = False

cmdexit.Enabled = True

cmdinput.Enabled = True

cmdinput.SetFocus

End Sub

Private Sub Timer1_Timer()

txttanggal.Text = Format(Date, "dd-mm-yyyy")

txttanggal.Enabled = False

End Sub

Private Sub cmdinput_Click()

aktif

bersih

auto

txtnofak.Enabled = False

txtnis.SetFocus

cmdinput.Enabled = False

cmdsave.Enabled = True

cmdcancel.Enabled = True

cmddelete.Enabled = True

cmdexit.Enabled = True

End Sub

Private Sub cmdsave_Click()

Dim sqlsave As String

sqlsave = "insert into Pembayaran values('" & txtnofak & "','" & txttanggal & "','" & txtnis & "','" & txtnama & "','" & txtalamat & "','" & txtkelas & "','" & txtjurusan & "','" & txtkeahlian & "','" & txtspp & "','" & txtpraktek & "','" & txtosis & "','" & txtujian & "','" & txtadministrasi & "','" & txtbeasiswa & "','" & txttotal & "')"

conn.Execute sqlsave

MsgBox "Data Telah Tersimpan"

Form_Load

nonaktif

cmdinput.Enabled = True

cmdsave.Enabled = False

cmdcancel.Enabled = True

cmddelete.Enabled = True

cmdexit.Enabled = True

End Sub

Private Sub cmdcancel_Click()

p = MsgBox("Yakin Ingin Membatalkan Penginputan..?!", vbQuestion + vbYesNo, "Question")

If p = vbYes Then

nonaktif

bersih

End If

cmdinput.Enabled = True

cmdsave.Enabled = False

cmdcancel.Enabled = False

cmddelete.Enabled = True

cmdexit.Enabled = True

End Sub

Private Sub cmddelete_Click()

Call openDB

rspembayaran.Open "delete from Pembayara where no_faktur = '" & txtnofak & "'", conn

MsgBox "Data Telah Terhapus"

Form_Load

bersih

nonaktif

cmdinput.Enabled = True

cmddelete.Enabled = True

cmdcancel.Enabled = False

cmdexit.Enabled = True

cmdsave.Enabled = False

End Sub

Private Sub cmdexit_Click()

p = MsgBox("Yakin Ingin Keluar Dari Program Ini....?!?", vbQuestion + vbYesNo, "Question")

If p = vbYes Then

End

End If

End Sub

Private Sub txtnis_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

Call openDB

rssiswa.Open "select * from Siswa where nis = '" & txtnis & "'", conn

If rssiswa.EOF Then

MsgBox "NIS Yang Anda Masukan Tidak Ada"

txtnis.Text = ""

txtnis.SetFocus

Else

tampil

txtkeahlian.SetFocus

End If

End If

End Sub

Private Sub txtkeahlian_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

If txtkeahlian.Text = "Mekanik Otomotif" Then

txtspp.Text = "160000"

txtpraktek.Text = "220000"

txtosis.Text = "25000"

txtujian.Text = "80000"

txtadministrasi.Text = "5000"

ElseIf txtkeahlian.Text = "Programing" Then

txtspp.Text = "140000"

txtpraktek.Text = "400000"

txtosis.Text = "25000"

txtujian.Text = "80000"

txtadministrasi.Text = "5000"

Else

txtspp.Text = "150000"

txtpraktek.Text = "300000"

txtosis.Text = "25000"

txtujian.Text = "80000"

txtadministrasi.Text = "5000"

End If

End If

txtbeasiswa.SetFocus

End Sub

Private Sub txtbeasiswa_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

txttotal.Text = (Val(txtspp.Text) + Val(txtpraktek.Text) + Val(txtosis.Text) + Val(txtujian.Text) + Val(txtadministrasi.Text)) - Val(txtbeasiswa.Text)

txtbayar.SetFocus

End If

End Sub

Private Sub txtbayar_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

txtkembali.Text = Val(txtbayar.Text) - Val(txttotal.Text)

nonaktif

cmdsave.SetFocus

End If

End Sub

Visual Basic ( Form Siswa )

Komponen Yang Digunakan :

1. Microsoft Ado Data Control 6.0 (OLEDB)
2. Microsoft DataGrid Control 6.0 (OLEDB)
3. Microsoft Windows Common Controls-2 6.0 (SP6)

Listing Modul :


Public conn As New ADODB.Connection
Public rssiswa As New ADODB.Recordset

Public Sub openDB()
Set conn = New ADODB.Connection
Set rssiswa = New ADODB.Recordset
conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source= " & App.Path & "\Sekolah.mdb"
End Sub

Listing/Coding :

Sub aktif()

txtnis.Enabled = True

txtnama.Enabled = True

txtalamat.Enabled = True

txttempat.Enabled = True

tgllahir.Enabled = True

cmbjenis.Enabled = True

cmbagama.Enabled = True

cmbjurusan.Enabled = True

txtkeahlian.Enabled = True

txtkelas.Enabled = True

End Sub

Sub nonaktif()

txtnis.Enabled = False

txtnama.Enabled = False

txtalamat.Enabled = False

txttempat.Enabled = False

tgllahir.Enabled = False

cmbjenis.Enabled = False

cmbagama.Enabled = False

cmbjurusan.Enabled = False

txtkeahlian.Enabled = False

txtkelas.Enabled = False

End Sub

Sub bersih()

txtnis.Text = ""

txtnama.Text = ""

txtalamat.Text = ""

txttempat.Text = ""

cmbjenis.Text = "--Silakan Pilih--"

cmbagama.Text = "--Silakan Pilih--"

cmbjurusan.Text = "--Silakan Pilih--"

txtkeahlian.Text = ""

txtkelas.Text = ""

End Sub

Sub tampil()

With rssiswa

If Not .EOF Then

txtnis.Text = !nis

txtnama.Text = !nama

txtalamat.Text = !alamat

txttempat.Text = !tempat_lahir

tgllahir.Value = !tanggal_lahir

cmbjenis.Text = !jenis_kelamin

cmbagama.Text = !agama

cmbjurusan.Text = !jurusan

txtkeahlian.Text = !keahlian

txtkelas.Text = !kelas

End If

End With

End Sub

Private Sub Form_Load()

Call openDB

conn.CursorLocation = adUseClient

rssiswa.Open "select * from Siswa", conn

Set gridsiswa.DataSource = rssiswa.DataSource

End Sub

Private Sub Form_Activate()

nonaktif

bersih

cmdinput.Enabled = True

cmdsave.Enabled = False

cmdcancel.Enabled = False

cmdedit.Enabled = False

cmddelete.Enabled = False

cmdexit.Enabled = True

cmdinput.SetFocus

cmbjenis.AddItem "Pria"

cmbjenis.AddItem "Wanita"

cmbagama.AddItem "Islam"

cmbagama.AddItem "Kristen"

cmbagama.AddItem "Hindu"

cmbagama.AddItem "Budha"

cmbjurusan.AddItem "Teknik Mesin"

cmbjurusan.AddItem "Teknik Informatika"

cmbjurusan.AddItem "Teknik Sipil"

End Sub

Private Sub cmdinput_Click()

aktif

bersih

txtnis.SetFocus

cmdinput.Enabled = False

cmdsave.Enabled = True

cmdcancel.Enabled = True

cmddelete.Enabled = True

cmdedit.Enabled = True

cmdexit.Enabled = True

End Sub

Private Sub cmdsave_Click()

If cmdsave.Caption = "&Save" Then

Dim sqlsave As String

sqlsave = "insert into Siswa values('" & txtnis & "','" & txtnama & "','" & txtalamat & "','" & txttempat & "','" & tgllahir & "','" & cmbjenis & "','" & cmbagama & "','" & cmbjurusan & "','" & txtkeahlian & "','" & txtkelas & "')"

conn.Execute sqlsave

MsgBox "Data Telah Tersimpan"

Form_Load

Else

Dim sqledit As String

sqledit = "update Siswa set nama='" & txtnama & "',alamat='" & txtalamat & "',tempat_lahir ='" & txttempat & "',tanggal_lahir='" & tgllahir & "',jenis_kelamin='" & cmbjenis & "',agama='" & cmbagama & "',jurusan='" & cmbjurusan & "',keahlian = '" & txtkeahlian & "',kelas='" & txtkelas & "' where nis = '" & txtnis & "'"

conn.Execute sqledit

MsgBox "Data Telah Diperbaharui"

Form_Load

End If

nonaktif

cmdsave.Enabled = True

cmdsave.Caption = "&Save"

cmdsave.Enabled = False

cmdinput.Enabled = True

cmdcancel.Enabled = True

cmdedit.Enabled = True

cmddelete.Enabled = True

cmdexit.Enabled = True

End Sub

Private Sub cmdedit_Click()

aktif

tampil

txtnis.Enabled = False

txtnama.SetFocus

cmdsave.Caption = "&Update"

cmdsave.Enabled = True

cmdinput.Enabled = True

cmdedit.Enabled = False

cmddelete.Enabled = True

cmdexit.Enabled = True

cmdcancel.Enabled = True

End Sub

Private Sub cmdcancel_Click()

p = MsgBox("Yakin Ingin Membatalkan Penginputan..?!", vbQuestion + vbYesNo, "Question")

If p = vbYes Then

bersih

nonaktif

End If

cmdinput.Enabled = True

cmdsave.Enabled = False

cmdedit.Enabled = False

cmdcancel.Enabled = False

cmddelete.Enabled = False

cmdexit.Enabled = True

End Sub

Private Sub cmddelete_Click()

Call openDB

rssiswa.Open "delete from Siswa where nis = '" & txtnis & "'", conn

MsgBox "Data Telah Terhapus"

Form_Load

bersih

nonaktif

cmdinput.Enabled = True

cmddelete.Enabled = True

cmdcancel.Enabled = True

cmdsave.Enabled = False

cmddelete.Enabled = True

cmdexit.Enabled = True

End Sub

Private Sub cmdexit_Click()

p = MsgBox("Yakin Ingin Keluar Dari Program Ini..?!", vbQuestion + vbYesNo, "Question")

If p = vbYes Then

End

End If

End Sub

Private Sub cmdcari_Click()

Call openDB

rssiswa.Open "select * from Siswa where nis='" & txtcari & "'", conn

If rssiswa.EOF Then

MsgBox "Data Tidak Ditemukan"

txtcari.Text = ""

Else

MsgBox "Data Sudah Ada"

tampil

nonaktif

txtcari.Text = ""

End If

cmdinput.Enabled = True

cmdsave.Enabled = False

cmdedit.Enabled = True

cmdcancel.Enabled = True

cmddelete.Enabled = True

cmdexit.Enabled = True

End Sub

Private Sub cmbjurusan_Click()

If cmbjurusan.Text = "Teknik Mesin" Then

txtkeahlian.Text = "Mekanik Otomotif"

ElseIf cmbjurusan.Text = "Teknik Informatika" Then

txtkeahlian.Text = "Programing"

Else

txtkeahlian.Text = "Konstruksi"

End If

txtkelas.SetFocus

End Sub

Private Sub txtnis_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

Call openDB

rssiswa.Open "select * from Siswa where nis = '" & txtnis & "'", conn

If Not rssiswa.EOF Then

MsgBox "Data Sudah Ada"

tampil

nonaktif

cmdinput.Enabled = True

cmdsave.Enabled = False

cmdedit.Enabled = True

cmddelete.Enabled = True

cmdcancel.Enabled = True

cmdexit.Enabled = True

cmdinput.SetFocus

Else

p = MsgBox("Data Tidak Ada, Apa Mau Menambah Data..?!", vbQuestion + vbYesNo, "Question")

If p = vbYes Then

aktif

txtnis.Enabled = False

txtnama.Text = ""

txtalamat.Text = ""

txttempat.Text = ""

cmbjenis.Text = "--Silakan Pilih--"

cmbagama.Text = "--Silakan Pilih--"

cmbjurusan.Text = "--Silakan Pilih--"

txtkeahlian.Text = ""

txtkelas.Text = ""

txtnama.SetFocus

cmdinput.Enabled = False

cmdsave.Enabled = True

cmdedit.Enabled = True

cmddelete.Enabled = True

cmdcancel.Enabled = True

cmdexit.Enabled = True

Else

nonaktif

bersih

End If

End If

End If

End Sub

Visual Basic ( Form Transaksi Kue ( Lanjutan Form Kue ) )

Komponen Yang Digunakan :

1. Microsoft Ado Data Control 6.0 (OLEDB)
2. Microsoft DataGrid Control 6.0 (OLEDB)

Listing Modul :


Public conn As New ADODB.Connection
Public rskue As New ADODB.Recordset
Public rstransaksi As New ADODB.Recordset

Public Sub koneksi()
Set conn = New ADODB.Connection
Set rskue = New ADODB.Recordset
Set rstransaksi = New ADODB.Recordset
conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\Bakery.mdb"
End Sub

Listing / Coding :

Sub auto()

Dim no As String

Dim noint As Integer

With rstransaksi

If .RecordCount = 0 Then

no = "0001"

Else

.MoveLast

noint = Val(Right(!notrans, 4)) + 1

no = Right("0000" & noint, 4)

End If

End With

txtnotrans.Text = no

End Sub

Sub aktif()

txtnotrans.Enabled = True

txtkode.Enabled = True

txtproduct.Enabled = True

txtjenis.Enabled = True

txtrasa.Enabled = True

txtharga.Enabled = True

txtjumbel.Enabled = True

txttobay.Enabled = True

txtbayar.Enabled = True

txtkembali.Enabled = True

End Sub

Sub nonaktif()

txtnotrans.Enabled = False

txtkode.Enabled = False

txtproduct.Enabled = False

txtjenis.Enabled = False

txtrasa.Enabled = False

txtharga.Enabled = False

txtjumbel.Enabled = False

txttobay.Enabled = False

txtbayar.Enabled = False

txtkembali.Enabled = False

End Sub

Sub bersih()

txtnotrans.Text = ""

txtkode.Text = ""

txtproduct.Text = ""

txtjenis.Text = ""

txtrasa.Text = ""

txtharga.Text = ""

txtjumbel.Text = ""

txttobay.Text = ""

txtbayar.Text = ""

txtkembali.Text = ""

End Sub

Sub tampil()

With rskue

If Not .EOF Then

txtkode.Text = !kdkue

txtproduct.Text = !product

txtjenis.Text = !jenis_kue

txtrasa.Text = !rasa_kue

txtharga.Text = !harga

End If

End With

End Sub

Private Sub Form_Load()

Call koneksi

conn.CursorLocation = adUseClient

rstransaksi.Open "select * from Transaksi", conn

Set gridtransaksi.DataSource = rstransaksi.DataSource

End Sub

Private Sub Form_Activate()

nonaktif

bersih

cmdinput.Enabled = True

cmdsave.Enabled = False

cmddelete.Enabled = False

cmdcancel.Enabled = False

cmdexit.Enabled = True

cmdinput.Enabled = True

End Sub

Private Sub Timer1_Timer()

txttanggal.Text = Format(Date, "dd-mm-yyyy")

txttanggal.Enabled = False

End Sub

Private Sub cmdinput_Click()

aktif

bersih

auto

txtnotrans.Enabled = False

txtkode.SetFocus

cmdinput.Enabled = False

cmdsave.Enabled = True

cmddelete.Enabled = True

cmdcancel.Enabled = True

cmdexit.Enabled = True

End Sub

Private Sub cmdsave_Click()

Dim sqlsave As String

sqlsave = "insert into Transaksi values('" & txtnotrans.Text & "','" & txttanggal.Text & "','" & txtkode.Text & "','" & txtproduct & "','" & txtjenis.Text & "','" & txtrasa.Text & "','" & txtharga.Text & "','" & txtjumbel.Text & "','" & txttobay.Text & "')"

conn.Execute sqlsave

MsgBox "Data Telah Tersimpan"

Form_Load

nonaktif

cmdinput.Enabled = True

cmdsave.Enabled = False

cmddelete.Enabled = True

cmdcancel.Enabled = True

cmdexit.Enabled = True

End Sub

Private Sub cmdcancel_Click()

p = MsgBox("Yakin Ingin Membatalkan Penginputan..?!", vbQuestion + vbYesNo, "Question")

If p = vbYes Then

nonaktif

bersih

End If

cmdinput.Enabled = True

cmdsave.Enabled = False

cmdcancel.Enabled = False

cmddelete.Enabled = False

cmdexit.Enabled = True

End Sub

Private Sub cmddelete_Click()

Call koneksi

rstransaksi.Open "delete from Transaksi where notrans = '" & txtnotrans.Text & "'", conn

MsgBox "Data Telah Terhapus"

Form_Load

nonaktif

bersih

cmdinput.Enabled = True

cmdsave.Enabled = False

cmddelete.Enabled = True

cmdcancel.Enabled = True

cmdexit.Enabled = True

End Sub

Private Sub cmdexit_Click()

p = MsgBox("Yakin Ingin Keluar Dari Program Ini..?!", vbQuestion + vbYesNo, "Question")

If p = vbYes Then

End

End If

End Sub

Private Sub txtkode_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

Call koneksi

rskue.Open "select * from Kue where kdkue = '" & txtkode.Text & "'", conn

If rskue.EOF Then

MsgBox "Kode Yang Anda Masukan Tidak Ada"

txtkode.Text = ""

txtkode.SetFocus

Else

tampil

txtjumbel.SetFocus

End If

End If

End Sub

Private Sub txtjumbel_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

txttobay.Text = Val(txtjumbel.Text) * Val(txtharga.Text)

txtbayar.SetFocus

End If

End Sub

Private Sub txtbayar_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

MsgBox "Terima Kasih"

txtkembali.Text = Val(txtbayar.Text) - Val(txttobay.Text)

nonaktif

cmdsave.SetFocus

End If

End Sub

Visual Basic ( Form Kue )

Komponen Yang Digunakan :

1. Microsoft Ado Data Control 6.0  (OLEDB)
2. Microsoft DataGrid Control 6.0 (OLEDB)

Listing Modul :

Public conn As New ADODB.Connection
Public rskue As New ADODB.Recordset

Public Sub koneksi()
Set conn = New ADODB.Connection
Set rskue = New ADODB.Recordset
conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\Bakery.mdb"
End Sub

Listing/Coding :


Sub aktif()
txtkode.Enabled = True
cmbproduct.Enabled = True
txtjenis.Enabled = True
lrasa.Enabled = True
txtharga.Enabled = True
End Sub

Sub nonaktif()
txtkode.Enabled = False
cmbproduct.Enabled = False
txtjenis.Enabled = False
lrasa.Enabled = False
txtharga.Enabled = False
End Sub

Sub bersih()
txtkode.Text = ""
cmbproduct.Text = "--Silakan Pilih--"
txtjenis.Text = ""
txtharga.Text = ""
End Sub

Sub tampil()
With rskue
If Not .EOF Then
txtkode.Text = !kdkue
cmbproduct.Text = !product
txtjenis.Text = !jenis_kue
lrasa.Text = !rasa_kue
txtharga.Text = !harga
End If
End With
End Sub

Private Sub Form_Load()
Call koneksi
conn.CursorLocation = adUseClient
rskue.Open "select * from Kue", conn
Set gridkue.DataSource = rskue.DataSource
End Sub

Private Sub Form_Activate()
nonaktif
bersih
cmdinput.Enabled = True
cmdsave.Enabled = False
cmdedit.Enabled = False
cmdcancel.Enabled = False
cmdexit.Enabled = True
cmddelete.Enabled = False
cmdinput.SetFocus
lrasa.Clear
cmbproduct.AddItem "Bread"
cmbproduct.AddItem "Cake"
cmbproduct.AddItem "Pastry"
End Sub

Private Sub cmdinput_Click()
aktif
bersih
lrasa.Clear
cmdinput.Enabled = False
cmdsave.Enabled = True
cmdedit.Enabled = True
cmdcancel.Enabled = True
cmddelete.Enabled = True
cmdexit.Enabled = True
txtkode.SetFocus
End Sub

Private Sub cmdsave_Click()
If cmdsave.Caption = "&Save" Then
Dim sqlsave As String
sqlsave = "insert into Kue values('" & txtkode.Text & "','" & cmbproduct.Text & "','" & txtjenis.Text & "','" & lrasa.Text & "','" & txtharga.Text & "')"
conn.Execute sqlsave
MsgBox "Data Telah Tersimpan"
Form_Load
Else
Dim sqledit As String
sqledit = "update Kue set product = '" & cmbproduct & "',jenis_kue = '" & txtjenis.Text & "',rasa_kue = '" & lrasa.Text & "',harga = '" & txtharga.Text & "' where kdkue = '" & txtkode.Text & "'"
conn.Execute sqledit
MsgBox "Data Telah Diperbaharui"
Form_Load
End If
nonaktif
cmdsave.Enabled = True
cmdsave.Caption = "&Save"
cmdsave.Enabled = False
cmdinput.Enabled = True
cmdcancel.Enabled = True
cmdedit.Enabled = True
cmddelete.Enabled = True
cmdexit.Enabled = True
End Sub

Private Sub cmdedit_Click()
aktif
tampil
txtkode.Enabled = False
cmbproduct.SetFocus
cmdsave.Caption = "&Update"
cmdinput.Enabled = True
cmdedit.Enabled = False
cmdsave.Enabled = True
cmddelete.Enabled = True
cmdcancel.Enabled = True
cmdexit.Enabled = True
End Sub

Private Sub cmdcancel_Click()
p = MsgBox("Yakin Ingin Membatalkan Penginputan..?!", vbQuestion + vbYesNo, "Question")
If p = vbYes Then
nonaktif
bersih
End If
cmdinput.Enabled = True
cmdsave.Enabled = False
cmdedit.Enabled = False
cmddelete.Enabled = False
cmdcancel.Enabled = False
cmdexit.Enabled = True
End Sub

Private Sub cmddelete_Click()
Call koneksi
rskue.Open "delete from Kue where kdkue = '" & txtkode.Text & "'", conn
MsgBox "Data Telah Terhapus"
Form_Load
bersih
nonaktif
cmdinput.Enabled = True
cmdsave.Enabled = False
cmdcancel.Enabled = True
cmdedit.Enabled = True
cmddelete.Enabled = True
cmdexit.Enabled = True
End Sub

Private Sub cmdexit_Click()
p = MsgBox("Yakin Ingin Keluar Dari Program Ini..?!", vbQuestion + vbYesNo, "Question")
If p = vbYes Then
End
End If
End Sub

Private Sub cmdtop_Click()
With rskue
rskue.MoveFirst
MsgBox "Sudah Diawal Record!", vbCritical, "Pesan"
tampil
cmdinput.Enabled = True
cmdsave.Enabled = False
cmdedit.Enabled = False
cmddelete.Enabled = True
cmdcancel.Enabled = True
cmdexit.Enabled = True
End With
End Sub

Private Sub cmdback_Click()
With rskue
rskue.MovePrevious
If rskue.BOF Then
MsgBox "Sudah Diawal Record!", vbCritical, "Pesan"
rskue.MoveFirst
End If
tampil
cmdinput.Enabled = True
cmdsave.Enabled = False
cmdedit.Enabled = False
cmddelete.Enabled = True
cmdcancel.Enabled = True
cmdexit.Enabled = True
End With
End Sub

Private Sub cmdnext_Click()
With rskue
rskue.MoveNext
If rskue.EOF Then
MsgBox "Sudah Diakhir Record!", vbCritical, "Pesan"
rskue.MoveLast
End If
tampil
cmdinput.Enabled = True
cmdsave.Enabled = False
cmdedit.Enabled = False
cmddelete.Enabled = True
cmdcancel.Enabled = True
cmdexit.Enabled = True
End With
End Sub

Private Sub cmdbott_Click()
With rskue
rskue.MoveLast
MsgBox "Sudah Diakhir Record!", vbCritical, "Pesan"
tampil
cmdinput.Enabled = True
cmdsave.Enabled = False
cmdedit.Enabled = False
cmddelete.Enabled = True
cmdcancel.Enabled = True
cmdexit.Enabled = True
End With
End Sub

Private Sub cmbproduct_Click()
If cmbproduct.Text = "Bread" Then
txtjenis.Text = "Classic"
lrasa.Clear
lrasa.AddItem "Chocolate"
lrasa.AddItem "Keju"
lrasa.AddItem "Baso Keju"
ElseIf cmbproduct.Text = "Cake" Then
txtjenis.Text = "Taart"
lrasa.Clear
lrasa.AddItem "Black Forest"
lrasa.AddItem "Mocca Taart"
lrasa.AddItem "Lemon Taart"
Else
txtjenis.Text = "Pastry"
lrasa.Clear
lrasa.AddItem "Chiken Pie"
lrasa.AddItem "Danish Raisin"
lrasa.AddItem "Coissant Coklat"
End If
End Sub

Private Sub lrasa_Click()
If txtjenis.Text = "Classic" Then
If lrasa.ListIndex = 0 Then
txtharga.Text = "6500"
ElseIf lrasa.ListIndex = 1 Then
txtharga.Text = "7000"
Else
txtharga.Text = "8000"
End If
ElseIf txtjenis.Text = "Taart" Then
If lrasa.ListIndex = 0 Then
txtharga.Text = "277000"
ElseIf lrasa.ListIndex = 1 Then
txtharga.Text = "215000"
Else
txtharga.Text = "215000"
End If
Else
If lrasa.ListIndex = 0 Then
txtharga.Text = "6500"
ElseIf lrasa.ListIndex = 1 Then
txtharga.Text = "6500"
Else
txtharga.Text = "6500"
End If
End If
End Sub

Membuat Link Cantik Bercahaya Bintang Di Blogspot

Mau link anda terlihat cantik?? Caranya gampang kok dengan memanfaatkan CSS dan Edit HTML yang ada di blogspot, anda bisa melakukannya. Tinggal ikuti langkah langkah berikut ini :

1. Log in blog anda seperti biasa.

2. Masuk ke EDIT HTML blog anda dan Jangan lupa centrang "Expand Widget Template"

3. Cari Kode ]]></b:skin>

4. Pastekan kode berikut di atasnya :

a:hover {

  color: #000fff; 

  text-transform: uppercase; 

  font-weight: bolder; 

  font-size: 15px; 

  background-image: url(http://i909.photobucket.com/albums/ac297/heryymanjala/th_stars1.gif); 

}

5. Link anda sudah bisa terlihat kedap kedip bercahaya bintang bintang. :-D.

Lihat Contoh Hasilnya Disini

Demikianlah artikel tentang membuat link menjadi bercahaya bintang-bintang. Semoga bermanfaat :-) terimakasih. Baca juga artikel saya tentang Cara Membuat Menu Cantik Di Blogspot

Dampak Negatif Teknologi Internet dan Komunikasi

Teknologi internet kini tidak bisa dipisahkan dari kehidupan manusia. Hal ini menyebabkan perubahan dari kehidupan manusia itu sendiri, berubahnya kebudayaan, dan berubahnya tingkah laku sosial yang ada dimasyarakat. Bagaimana tidak, informasi yang dulunya didapat dalam waktu berbulan bulan dan membutuhkan  energi yang tidak sedikit, kini dapat diperoleh dalam hitungan detik. Surat misalnya. Kini sudah bisa dikirimkan melalui layanan email. Berbeda dengan zaman dulu yang harus menunggu sangat lamam, mingguan, bulanan, atau bahkan surat yang disampaikan hilang entah kemana.

Tekologi internet menawarkan kenyamanan bagi penggunanya. Dimulai dari informasi, jejaring sosial, bahkan Apapun bisa dilakukan meski terbatas dengan dunia maya yang berbeda dengan dunia nyata. Namun kenyamanan yang ditawarkan teknologi internet bukan berarti tidak memiliki kelemahan. Banyaknya kelebihan internet berbanding lurus dengan kelemahan yang dimilikinya. Diantara Kelemahan dan Efek Negatif tersebut adalah : 

1. Kurangnya Aktifitas Sosial Diluar Rumah (Out Door)

Kecanduan internet seperti jejaring sosial, facebook, twitter, memberikan efek negatif yang tentu tidak baik bagi kehidupan sosial seseorang. Seseorang akan cenderung tidak aktif dan selalu duduk di depan komputer untuk bermain internet. Apalagi kecanduan game online yang membuat seseorang rela berjam jam duduk bermain internet dan terkadang sampai lupa sarapan. 

2. Munculnya Berbagai Penyakit

Poin ini melanjutkan poin pertama, yaitu kurang nya beraktifitas. Yang mengakibatkan tubuh kurang berolahraga atau terkadang sampai mengalami dehidrasi. Hal ini akan memulai penyakit penyakit kecil yang muncul dan pada akhirnya akan berakibat baik bagi tubuh kita. Lain hal nya jika aktifitas di depan komputer diimbangi dengan olahraga dan makan teratur. Sehingga tubuh kita tetap sehat.

3. Game Online Tidak Baik Bagi Perkembangan Anak

Pernahkah anda melewati atau berkunjung ke sebuah warnet?? Game Online?? siapakah yang bermain disana?? Berdasarkan hal umum yang terjadi di lingkungan kita, Sebagian besar yaitu sebanyak 85% adalah anak anak yang masih dalam usia sekolah sd/smp. Tentu kita sangat miris melihat kondisi seperti ini. Disaat aanak anak seharusnya pulang setelah sekolah malah bermain game online di internet. Hal ini menyebabkan kekhawatiran akan membudayanya kegiatan ini dikalangan anak-anak, hilangnya permainan tradisional yang bermanfaat untuk perkembangan anak. Permainan tradisional sebenarnya sangat bermanfaat bagi anak. Karena mengajarkan komunikasi, leadership, solving problem, dll yang bermanfaat baik bagi perkembangan intelegensi anak.Lain halnya game online yang untuk memainkannya hanya duduk berjam-jam di depan komputer.

pengertian listrik dan arus listrik

1. Arus Listrik

adalah mengalirnya elektron secara terus menerus dan berkesinambungan pada konduktor akibat perbedaan jumlah elektron pada beberapa lokasi yang jumlah elektronnya tidak sama. satuan arus listrik adalah Ampere.

Arus listrik bergerak dari terminal positif (+) ke terminal negatif (-), sedangkan aliran listrik dalam kawat logam terdiri dari aliran elektron yang bergerak dari terminal negatif (-) ke terminal positif(+), arah arus listrik dianggap berlawanan dengan arah gerakan elektron.



Gambar 1. Arah arus listrik dan arah gerakan elektron.

�1 ampere arus adalah mengalirnya elektron sebanyak 624x10^16 (6,24151 � 10^18) atau sama dengan 1 Coulumb per detik melewati suatu penampang konduktor�
Formula arus listrik adalah:

I = Q/t (ampere)

Dimana:
I = besarnya arus listrik yang mengalir, ampere
Q = Besarnya muatan listrik, coulomb
t = waktu, detik

2. Kuat Arus Listrik

Adalah arus yang tergantung pada banyak sedikitnya elektron bebas yang pindah melewati suatu penampang kawat dalam satuan waktu.

Definisi : �Ampere adalah satuan kuat arus listrik yang dapat memisahkan 1,118 milligram perak dari nitrat perak murni dalam satu detik�.

Rumus � rumus untuk menghitung banyaknya muatan listrik, kuat arus dan waktu:

Q = I x t
I = Q/t
t = Q/I

Dimana :
Q = Banyaknya muatan listrik dalam satuan coulomb
I = Kuat Arus dalam satuan Amper.
t = waktu dalam satuan detik.

�Kuat arus listrik biasa juga disebut dengan arus listrik�

�muatan listrik memiliki muatan positip dan muatan negatif. Muatan positip dibawa oleh proton, dan muatan negatif dibawa oleh elektro. Satuan muatan �coulomb (C)�, muatan proton +1,6 x 10^-19C, sedangkan muatan elektron -1,6x 10^-19C. Muatan yang bertanda sama saling tolak menolak, muatan bertanda berbeda saling tarik menarik�
3. Rapat Arus

Difinisi :
�rapat arus ialah besarnya arus listrik tiap-tiap mm� luas penampang kawat�.



Gambar 2. Kerapatan arus listrik.

Arus listrik mengalir dalam kawat penghantar secara merata menurut luas penampangnya. Arus listrik 12 A mengalir dalam kawat berpenampang 4mm�, maka kerapatan arusnya 3A/mm� (12A/4 mm�), ketika penampang penghantar mengecil 1,5mm�, maka kerapatan arusnya menjadi 8A/mm� (12A/1,5 mm�).

Kerapatan arus berpengaruh pada kenaikan temperatur. Suhu penghantar dipertahankan sekitar 300�C, dimana kemampuan hantar arus kabel sudah ditetapkan dalam tabel Kemampuan Hantar Arus (KHA).



Tabel 1. Kemampuan Hantar Arus (KHA)

Berdasarkan tabel KHA kabel pada tabel diatas, kabel berpenampang 4 mm�, 2 inti kabel memiliki KHA 30A, memiliki kerapatan arus 8,5A/mm�. Kerapatan arus berbanding terbalik dengan penampang penghantar, semakin besar penampang penghantar kerapatan arusnya mengecil.

Rumus-rumus dibawah ini untuk menghitung besarnya rapat arus, kuat arus dan penampang kawat:

J = I/A
I = J x A
A = I/J

Dimana:
J = Rapat arus [ A/mm�]
I = Kuat arus [ Amp]
A = luas penampang kawat [ mm�]


4. Tahanan dan Daya Hantar Penghantar

Penghantar dari bahan metal mudah mengalirkan arus listrik, tembaga dan aluminium memiliki daya hantar listrik yang tinggi. Bahan terdiri dari kumpulan atom, setiap atom terdiri proton dan elektron. Aliran arus listrik merupakan aliran elektron. Elektron bebas yang mengalir ini mendapat hambatan saat melewati atom sebelahnya. Akibatnya terjadi gesekan elektron denganatom dan ini menyebabkan penghantar panas. Tahanan penghantar memiliki sifat menghambat yang terjadi pada setiap bahan.

Tahanan didefinisikan sebagai berikut :

�1 ? (satu Ohm) adalah tahanan satu kolom air raksa yang panjangnya 1063 mm dengan penampang 1 mm� pada temperatur 0� C"

Daya hantar didefinisikan sebagai berikut:

�Kemampuan penghantar arus atau daya hantar arus sedangkan penyekat atau isolasi adalah suatu bahan yang mempunyai tahanan yang besar sekali sehingga tidak mempunyai daya hantar atau daya hantarnya kecil yang berarti sangat sulit dialiri arus listrik�.

Rumus untuk menghitung besarnya tahanan listrik terhadap daya hantar arus:

R = 1/G
G = 1/R

Dimana :
R = Tahanan/resistansi [ ?/ohm]
G = Daya hantar arus /konduktivitas [Y/mho]



Gambar 3. Resistansi Konduktor

Tahanan penghantar besarnya berbanding terbalik terhadap luas penampangnya dan juga besarnya tahanan konduktor sesuai hukum Ohm.

�Bila suatu penghantar dengan panjang l , dan diameter penampang q serta tahanan jenis ? (rho), maka tahanan penghantar tersebut adalah� :

R = ? x l/q

Dimana :
R = tahanan kawat [ ?/ohm]
l = panjang kawat [meter/m] l
? = tahanan jenis kawat [?mm�/meter]
q = penampang kawat [mm�]

faktot-faktor yang mempengaruhi nilai resistant atau tahanan, karena tahanan suatu jenis material sangat tergantung pada :
� panjang penghantar.
� luas penampang konduktor.
� jenis konduktor .
� temperatur.

"Tahanan penghantar dipengaruhi oleh temperatur, ketika temperatur meningkat ikatan atom makin meningkat akibatnya aliran elektron terhambat. Dengan demikian kenaikan temperatur menyebabkan kenaikan tahanan penghantar"


5. potensial atau Tegangan

potensial listrik adalah fenomena berpindahnya arus listrik akibat lokasi yang berbeda potensialnya. dari hal tersebut, kita mengetahui adanya perbedaan potensial listrik yang sering disebut �potential difference atau perbedaan potensial�. satuan dari potential difference adalah Volt.

�Satu Volt adalah beda potensial antara dua titik saat melakukan usaha satu joule untuk memindahkan muatan listrik satu coulomb�

Formulasi beda potensial atau tegangan adalah:

V = W/Q [volt]

Dimana:
V = beda potensial atau tegangan, dalam volt
W = usaha, dalam newton-meter atau Nm atau joule
Q = muatan listrik, dalam coulomb


RANGKAIAN LISTRIK

Pada suatu rangkaian listrik akan mengalir arus, apabila dipenuhi syarat-syarat sebagai berikut :
1. Adanya sumber tegangan
2. Adanya alat penghubung
3. Adanya beban



Gambar 4. Rangkaian Listrik.

Pada kondisi sakelar S terbuka maka arus tidak akan mengalir melalui beban . Apabila sakelar S ditutup maka akan mengalir arus ke beban R dan Ampere meter akan menunjuk. Dengan kata lain syarat mengalir arus pada suatu rangkaian harus tertutup.

1. Cara Pemasangan Alat Ukur.
Pemasangan alat ukur Volt meter dipasang paralel dengan sumber tegangan atau beban, karena tahanan dalam dari Volt meter sangat tinggi. Sebaliknya pemasangan alat ukur Ampere meter dipasang seri, hal inidisebabkan tahanan dalam dari Amper meter sangat kecil.

�alat ukur tegangan adalah voltmeter dan alat ukur arus listrik adalah amperemeter�
2. Hukum Ohm
Pada suatu rangkaian tertutup, Besarnya arus I berubah sebanding dengan tegangan V dan berbanding terbalik dengan beban tahanan R, atau dinyatakan dengan Rumus :

I = V/R
V = R x I
R = V/I

Dimana;
I = arus listrik, ampere
V = tegangan, volt
R = resistansi atau tahanan, ohm

� Formula untuk menghtung Daya (P), dalam satuan watt adalah:
P = I x V
P = I x I x R
P = I� x R

3. HUKUM KIRCHOFF

Pada setiap rangkaian listrik, jumlah aljabar dari arus-arus yang bertemu di satu titik adalah nol (?I=0).



Gambar 5. loop arus� KIRChOFF �

Jadi:
I1 + (-I2) + (-I3) + I4 + (-I5 ) = 0
I1 + I4 = I2 + I3 + I5

• frekwensi
• elektro daya
• proteksi listrik
• listrik
• konversi bilangan
• rangkaian seri& pararel
• opamp

Auto Number pada VB6

Hello flen..mungkin saat ini temen2 pada pusing untuk pembuatan Auto Number dengan perubahan pada tahun atau tahun dan bulan berikut ini adalah contoh programnya dan penggunaannya.

'// Untuk AutoNumber Berdasarkan bln dan tahun formatnya yymm [1202]
Public Function BuatNomer(ByVal srrSQL As String, ByVal sTarget As String, ByVal sTanggal As Date, Optional sKetentuanTanggal As Boolean, Optional sKodenya As String)
Dim nX, nX2 As String 'Variable sementara buat nampung record lama dan buat record no baru
Dim rJur As New Recordset 'Variable untuk recordset

    rJur.CursorLocation = adUseClient
    rJur.Open srrSQL, CNN, adOpenStatic, adLockReadOnly
    If rJur.EOF Then
        'buat format nomer misal :12040001 --> tahun 2 digit bulan 2 digit 4 digit nomer urut
        If sKetentuanTanggal = True Then
            BuatNomer = Format(sTanggal, "yymm") & "" & "0001"
        Else
            BuatNomer = sKodenya & "0001"
        End If
    Else
        If sKetentuanTanggal = True Then
            'ambil record ke 5 sampe ke n dengan fungsi MID,
            'selanjutnya cek panjang record hasilnya dikurangi 4 kemudian ditambah 1 untuk no berikutnya
            nX = Val(Mid(rJur.Fields(sTarget), 5, Len(rJur.Fields(sTarget)) - 4) + 1)
            'Fungsi String 4 untuk membuat angka 0 secara otomatis dengan maksimal 4 karakter
            nX2 = String(4 - Len(nX), "0") & nX
            BuatNomer = Format(sTanggal, "yymm") & "" & nX2
        Else
            nX = Val(Mid(rJur.Fields(sTarget), 2, Len(rJur.Fields(sTarget)) - 1) + 1)
            'Fungsi String 4 untuk membuat angka 0 secara otomatis dengan maksimal 4 karakter
            nX2 = String(3 - Len(nX), "0") & nX
            BuatNomer = sKodenya & "" & nX2
        End If
    End If
    
    'Clear Recordset dari Memory
    Set rJur = Nothing
End Function

Cara Memanggil Procedure diatas dengan cara :

'Nama TextBox utk Nomer Urut = TxtKode
    TxtKode = BuatNomer("Select ID from m_sekolah Order by ID Desc", "ID", Now, False, "S")
'Untuk Yang Menggunakan format Tahun dan Bulan
TxtNo = BuatNomer("Select ID from m_registrasi Where Left(ID,4)='" & Format(Now, "yymm") & "' Order by ID Desc", "ID", Now, True)

Coding Standardnya adalah berikut ini.

Sub NomerOtomatis()
Dim nX, nX2 As String 'Variable sementara buat nampung record lama dan buat record no baru
Dim rJur As New Recordset 'Variable untuk recordset

    rJur.CursorLocation = adUseClient
    rJur.Open "select NoTrans from registrasi where left(notrans,4)='" & format(dtpicker1,"yyyy") & "' Order by NoTrans Desc", CNN, adOpenStatic, adLockReadOnly
    If rJur.EOF Then
        'buat format nomer misal :20120001 --> tahun 2 digit bulan 2 digit 4 digit nomer urut
        BuatNomer = format(dtpicker1,"yyyy") & "0001"
    Else
        'ambil record ke 5 sampe ke n dengan fungsi MID,
        'selanjutnya cek panjang record hasilnya dikurangi 4 kemudian ditambah 1 untuk no berikutnya
        nX = Val(Mid(rJur.Fields("NoTrans"), 5, Len(rJur.Fields("NoTrans")) - 4) + 1)
        'Fungsi String 4 untuk membuat angka 0 secara otomatis dengan maksimal 4 karakter
        nX2 = String(4 - Len(nX), "0") & nX
        BuatNomer = Format(sTanggal, "yyyy") & "" & nX2
        
    End If
    
    'Clear Recordset dari Memory
    Set rJur = Nothing

End Sub

Cara Menggunakan Cukup Dipanggil saat Private Form_Load()

txtKode=NomerOtomatis

Tips Membuat Artikel Berkualitas Di Blog

Pada kali ini saya akan berbagi pengalaman yeng pernah saya alami sebelumnya. Suatu ketika ada yang memesan website dengan saya. Kemudian ia beralasan bahwa ia ingin membuat ingin mendapatkan penghasilan tambahan untuk kuliah dan sebagainya. Sampai sampai dia nanyain ke saya berapa penghasilan blog saya dalam sebulan. Loh :-D. Saya bingung mau jawab apa.

Menurut saya banyak sekali orang yang ingin membuat blog tujuan nya hanya nyari duit. Tapi hal itu tidak dapat  menjamin karena mereka hanya bertujuan memperoleh uang saja. Blogger itu sangat luas, harus terjun langsung untuk mengelola blog atau website, baru tau apakah kita bisa mendapatkan uang dari blog atau tidak. Dalam dunia blog itu ada SEO, dll. Hal itu tidak bisa dipelajari dalam sekejap saja, dan dengan teori saja.

Intinya adalah jika anda ingin membuat blog atau website, yang paling diutamakan itu adalah kualitas. Bukan pengunjung. Kalau blog anda sudah berkualitas, nanti pengunjung pasti datang sendiri. Anda tidak perlu mencari repot repot cara memperbanyak pengunjung setiap hari. Dan juga hal itu hanya menambah anda pusing. Dengan adanya artikel yang berkualitas, maka anda akan mendapatkan pengunjung yang banyak, dan blog anda pun bisa anda komersilkan. Entah itu berupa iklan, dagang, dll. 

Alhamdulillah, blog ini meskipun pengunjungnya tidak terlalu banyak, namun sekarang sudah bisa nambah nambahin uang belanja. :-). Saya benar benar tidak menyangka. Apa yang saya lakukan?? intinya adalah Selalu Update Blog Anda Dengan Artikel dan Konten-Konten Yang Berkualitas. dan Rasakan sendiri hasilnya.

Saya sendiri saja tidak menyangka ketika saya hanya fokus membuat artikel yang berkualitas, pengunjung saya menjadi bertambah drastis. Padahal sebelumnya saya selalu mencari cara agar blog saya banyak dikunjungi oleh orang lain. Tapi ternyata hal itu salah besar. 

Yang paling gawat itu adalah Kopi Paste Secara Membabi Buta. Saya akan bercerita pengalaman pribadi teman saya. Yang pada saat itu mulai ngotak ngatik blogspot sama-sama. Kami selalu berlomba dapet pengunjung yang paling banyak. Apa yang dia kerjakan? artikelnya sudah mencapai ribuan. Tapi apa hasilnya sekarang?? blog nya hanya dikunjungi puluhan atau bahkan satuan setiap harinya. Hal ini disebabkan oleh artikel yang mengcopy dari orang lain. Mentah Mentah. 

Google boleh kok copy paste, tapi dalam bentuk mengambil referensi saja. Misal kita membuat artikel terus mencari pembahasan yang berhubungan. Namun tetaplah 70% harus ada ide dari kita sendiri. 

Demikianlah sharing pengalaman saya hari ini. Semoga dapat dijadikan acuan untuk anda kearah yang lebih positif. Terimakasih. Wassalam.

Khairul Umam

Cara Membuat Program Persediaan Barang dengan Visual Basic 6.0

Untuk membuat Aplikasi Persediaan dan Penjualan Barang dengan Visual Basic 6.0 dan Database Mysql sangatlah mudah, yang diperlukan adalah Semangat Untuk Berjuang untuk menjadikan diri kita disebut sebagai programmer yang bukan pecundang. Bagi kita sebagai programmer, Kata Semangat Untuk Berjuang itu sangat diperlukan, tapi ingat jika sudah mendapatkan ilmu itu jangan lupa sihare ya, karena ilmu itu datangnya dari alam dan akan kembali kealam, cie�ciee� Kata-katanya dalam banget. Ok, Mari kita berjuang untuk masa depan kita, adapun Software yang dibutuhkan adalah :

1.      Microsoft Visual Basic 6.0

2.      Xamp/Wamp/AppServ atau yang lain lah yang menurut pejuang-pejuang bagus.

3.      Konektor ODBC

4.      Kopi Hangat � Ssseeet + Roti ..hehe (Salero ku bana ko�..  )

Disini penulis memakai Xamp versi 1.6.4, Installkan dulu Xamp nya jika belum ada. Untuk cara instalasinya silahkan ikuti petunjuk berikut :

1.      Merancang dan Membuat Database  Aplikasi Persediaan dan Penjualan Barang dengan Visual Basic 6.0 dan Database Mysql

1.      Buatlah Database yang diperlukan di Xamp dengan cara ketikan http://localhost/phpmyadmin/di tab browser anda,  lalu buatlah nama dari database yang akan anda buat, misalnya disini nama databasenya adalah tokoabcseperti gambar dibawah ini :

 Ketikan seperti gambar diatas dan klik ==> create,

Setelah nama dari database dibuat, maka buatlah beberapa tabel yang diperlukan yaitu barang, pelanggan, penjualan, pembelian. Dari keempat tabel ini dirasa sudah cukup untuk menampung data-data yang dibutuhkan didalam pembuatan aplikasi ini, tapi kalau misalnya para pejuang memiliki tambahan tersendiri yang dirasa perlu silahkan anda tambahkan dan anda rubah, semuanya tergantung anda menganalisa.

Baik, minumlah 1 atau 2 tegukan dari kopi hangat yang anda sediakan, ntar dingin lho� hehe J

2.      Adapun langkah selanjutnya buatlah table-tabel berikut

a.       table barang dengan cara klik pada bagian tab SQL lalu ketikan script dibawah ini :

CREATE TABLE IF NOT EXISTS `barang` (

  `kd_brg` varchar(5) NOT NULL DEFAULT '',

  `nm_brg` varchar(25) NOT NULL DEFAULT '',

  `sat` varchar(15) NOT NULL DEFAULT '',

  `harga` int(11) NOT NULL DEFAULT '0',

  `harga_jual` int(11) NOT NULL DEFAULT '0',

  `jml_beli` int(4) NOT NULL DEFAULT '0',

  `stok_ak` int(4) NOT NULL DEFAULT '0',

  PRIMARY KEY (`kd_brg`)

) ENGINE=InnoDB DEFAULT CHARSET=latin1;

Script diatas berguna untuk membuat sebuah table barang yang berisi field-field yang diperlukan didalam Aplikasi Persediaan dan Penjualan Barang ini.

b.      Kemudian buatlah table pelanggan dengan script dibawah ini :

CREATE TABLE IF NOT EXISTS `pelanggan` (

  `kdp` varchar(5) NOT NULL DEFAULT '',

  `nmp` varchar(25) NOT NULL DEFAULT '',

  `almt` varchar(50) NOT NULL DEFAULT '',

  `telp` varchar(13) NOT NULL DEFAULT '',

  PRIMARY KEY (`kdp`)

) ENGINE=InnoDB DEFAULT CHARSET=latin1;

c.       Table Pembelian dengan script dibawah ini :

CREATE TABLE IF NOT EXISTS `pembelian` (

  `nofak` varchar(5) DEFAULT NULL,

  `kd_brg` varchar(5) DEFAULT NULL,

  `tglbeli` date DEFAULT NULL,

  `jmlbeli` int(11) DEFAULT NULL,

  `kd_sup` varchar(5) DEFAULT NULL,

  `tot_beli` int(11) DEFAULT NULL

) ENGINE=InnoDB DEFAULT CHARSET=latin1;

d.      Tabel Penjualan

CREATE TABLE IF NOT EXISTS `penjualan` (

  `nofaktur_jual` varchar(5) DEFAULT NULL,

  `nobukti_sales` varchar(5) DEFAULT NULL,

  `tglfaktur` date DEFAULT NULL,

  `kdp` varchar(5) NOT NULL DEFAULT '0',

  `kd_sales` varchar(5) DEFAULT NULL,

  `kd_brg` varchar(5) DEFAULT NULL,

  `jml_penj` int(11) DEFAULT NULL,

  `jml_ambil` int(11) DEFAULT NULL,

  `ket` varchar(15) DEFAULT NULL,

  `tgl_jto` date DEFAULT NULL,

  `tot_bayar` int(11) DEFAULT NULL

) ENGINE=InnoDB DEFAULT CHARSET=latin1;

Disini ada salah satu screenshoot gambar script sql yang diketikan di localhost/phpmyadmin :

Setelah database dan beberapa table sudah dibuat, maka giliran kita untuk menginstall konektor odbc yang programnya bisa juga didownload di internet, serta penginstallannya juga cukup mudah. Tinggal anda mengklik next--- dan finish, ok.

Dengan diinstallnya konektor odbc tersebut sekarang kita bisa mensetup database yang kita buat untuk bisa digunakan khususnya dalam pemrograman Visual Basic. Adapun caranya adalah

Klik Start�Control Panel�Administratif  tools�Data Source(ODBC), maka akan tampil gambar berikut :

Pilih add akan tampil seperti berikut :

Klik finish

Klik test�OK

2.      Merancang dan Membuat Desain Aplikasi Persediaan Barang dan Penjualan di Microsoft Visual Basic 6.0

Setelah database siap dan semua table yang diperlukan sudah dibuat, maka kemudian giliran kita untuk Merancang desain-desain dan memasukkan coding kedalam desain-desain yang kita buat di dalam Visual Basic, anda juga dituntut untuk memahami dasar-dasar dari pemrograman visual basic ini. Untuk Softwarenya bisa  anda download diinternet atau juga copy aja punya teman yang sudah punya. Dan untuk instalasinya juga mudah, silahkan anda coba-coba aja karena ilmu tentang pemrograman ini yang dibutuhkan adalah semangat untuk mencoba dan mencoba sampai anda sukses dalam menjalankannya.

Kemudian jika tahap instalasinya selesai, anda bisa membuka Software Microsoft Visual Basic 6.0 dengan cara seperti gambar berikut :

Kita pilih Microsoft Visual Basic 6.0 setelah itu akan tampak jendela Visual Basic seperti berikut :

Pilihlah ==> VB Enterprise Edition Control, karena pilihan ini adalah menampilan jendela toolbox yang cukup lengkap secara otomatis tanpa kita tambah secara manual.