Minggu, 01 April 2012 Jam dengan Alarm Pada Delphi

      Mala minggu g' da kerjaan, Berteman rokok & segelas kopi, trus utek2 komputer. Nyasar deh ke Delphi,,, Banyak yang bilang Delphi dah ketinggalan jaman, dan jaman sekarang adalah VB. Yang katanya lebih ringan, tidak makan memori banyak.
     Tapi Apapun itu aplikasinya yang kita pake tuk bikin program, g' harus bisa tapi harus mudeng ngotak atiknya, insya allah program bisa jadi, walau asal jadi aja. hehe...

contoh, saya bikin JAM dengan Alaram,,

     Mungkin dilihat disainnya jlek ya, program ecek2, & apalah yang jelas ni program jlek. tapi bagi saya ni dah bagus, karna saya baru bisa bikin ini,,,
     Susah emang lw lum tau sperti saya, Listingnya nih..
Menampilkan Jam, Tanggal & Hari :
begin
  shortdateFormat:='dddd';
  label3.Caption:=DateToStr(date);
  begin
    shortdateFormat:='dd mmmm yyyy';
    cyLabel2.Caption:=DateToStr(date);
    begin
      LongTimeFormat:='hh : mm : ss';
      cyLabel3.Caption:=timetostr(time);
      form2.Label8.Caption:=timetostr(time);
    end;
  end;

Dan untuk lebih jelasnya Cekidot ja bos,,,

* Catatan :
Source untuk ngilangin di task manager dan task bar hanya berjalan di Delphi 7 ( stau saya ), jadi kalau di edit lewat selain delphi 7 di task bar akan muncul lagi,, maklum lum tau source wat slain delphi 7
Bila PC Lepi dalam kondisi Off, Alaram tidak berjalan, maksutnya tidak bisa seperti Handphone,, hehe...

Selamat berkreasi,,,
Sak Lajengipun -->

Sabtu, 31 Maret 2012 Running LED dengan BASCOM

Biarpun Teknik Elektro bukan jurusan saya, tapi g' da salahnya belajar ini,,

Berawal dari running LED/LED berjalan,,, mungkin ada dari reekan2 yang sudah mahir di bidang ini,,

Skematiknya dah tau kan, nih listingnya :

Chip yang digunakan ATMega 8 dan Crystal 12Mhz

$regfile = "m8def.dat"
$crystal = 12000000

Config Portd = Output

Do

'kanan
Portd = &B10000000
Waitms 150
Portd = &B01000000
Waitms 150
Portd = &B00100000
Waitms 150
Portd = &B00010000
Waitms 150
Portd = &B00001000
Waitms 150
Portd = &B00000100
Waitms 150
Portd = &B00000010
Waitms 150
Portd = &B00000001
Waitms 150

'kiri
Portd = &B00000010
Waitms 150
Portd = &B00000100
Waitms 150
Portd = &B00001000
Waitms 150
Portd = &B00010000
Waitms 150
Portd = &B00100000
Waitms 150
Portd = &B01000000
Waitms 150
Portd = &B10000000
Waitms 150

Loop
End

Karena masih tahap belajar, g' da masalah kan kalau pake biner dulu,, hehe...
* Kalau ada yang lebih mahir, ajarin saya ya, kursus juga g' pa2 lah,,
Sak Lajengipun -->

Minggu, 08 Mei 2011 Fungsi Untuk Menghitung Akar

C++

#include
#include
#include
int a,b,c;
float x,x1,x2;
void input()
{ cout<<" Silahkan masukkan angka !\n"; cout<<" Nilai a : ";cin>>a;
cout<<" Nilsi b : ";cin>>b;
cout<<" Nilai c : ";cin>>c; }
void proses()
{ x=sqrt(b*b-4*a*c);
x1=(b+x)/(2*a);
x2=(b-x)/(2*a); }
void output()
{ cout<<" Nilai x1 : "< Sak Lajengipun -->

Tugas Membuat Query dengan MySQL

Lama g' jumpa gan,, ane kemaren ada tugas suruh buat database ni, hasilnya kaya gini ni,, disimak aja listingnya dibawah,,, maklum ane masih newbie, jadi hasilnya g' isa seperti programer2 yang dah handal..

create database tokoooo

create table tabl_barang
(kd_barang char (5),
nama_barang varchar (25),
satuan_harga integer)

create table tabl_petugas
(kd_petugas char (5),
nama_petugas varchar (30))

create table tabl_transaksi
(kd_barang char (5),
kd_petugas char (5),
tgl_transaksi datetime,
satuan integer,
satuan_harga integer,
total_bayar integer)

insert into tabl_barang values
('B001','pepsodent',3000)
insert into tabl_barang values
('B002','detergen',10000)
insert into tabl_barang values
('B003','susu',25000)
insert into tabl_barang values
('B004','sirup',15000)
insert into tabl_barang values
('B005','beras',6000)

insert into tabl_petugas values
('P001','Anto')
insert into tabl_petugas values
('P002','Dito')
insert into tabl_petugas values
('P003','Setyo')
insert into tabl_petugas values
('P004','Andi')
insert into tabl_petugas values
('P005','Avan')

insert into tabl_transaksi values
('B001','P001',13-04-2010,'3',3000,9000)
insert into tabl_transaksi values
('B002','P004',20-04-2010,'2',10000,20000)
insert into tabl_transaksi values
('B005','P005',20-04-2010,'3',6000,18000)
insert into tabl_transaksi values
('B003','P005',25-04-2010,'2',6000,12000)
insert into tabl_transaksi values
('B004','P003',30-04-2010,'3',15000,45000)


select TOP 1 tabl_barang.nama_barang, COUNT(*)as satuan
from tabl_barang, tabl_transaksi
where tabl_barang.kd_barang=tabl_transaksi.kd_barang
and tabl_transaksi.tgl_transaksi between 01-04-2010
and 30-04-2010
group by tabl_barang.nama_barang

select SUM (total_bayar) as total_pendapatan from tabl_transaksi

select tabl_petugas.nama_petugas from tabl_petugas, tabl_transaksi
where tabl_petugas.kd_petugas=tabl_transaksi.kd_petugas
and tabl_transaksi.tgl_transaksi=13-04-2010


select tabl_barang.nama_barang, SUM (total_bayar) as total_pendapatan
from tabl_barang, tabl_transaksi
where tabl_barang.kd_barang=tabl_transaksi.kd_barang
and tabl_transaksi.tgl_transaksi=20-04-2010
group by tabl_barang.nama_barang

select*from tabl_barang // untuk cek database...

screenshot ni,,,

Semoga bisa membantu *Bagi yang belum tau*,,,,
Sak Lajengipun -->

Rabu, 06 April 2011 Istilah2 Dalam Berinternet

     Pernah ane ditanya ama dosen ane tentang istilah2 saat kita berinternetan,, padahal ane sendiri sering banget internetan,, kalau maksut dari istilah itu ane tau,, tapi kalau diruh jelasin tu yang ane kagak mudeng,,,

     Jadi posting kali ni,, ane mau postingin yang waktu itu ane ditanya ma dosen,,

1. Browsing adalah menelusur secara langsung pada search engine, dengan mengetikan kata kunci dari hal yang ingin kita cari,, 

2. VoIP (Voice over Internet Protocol) adalah nama lain internet telephony. Lihat internet telephony.

3. ASP (Active Server Pages) adalah spesifikasi untuk membuat halaman Web dinamis menggunakan ActiveX script. Sewaktu browser membuka halaman ASP, server Web membuat halaman dengan kode HTML dan mengirimkannya kepada browser. 

4. FTP (file transfer protocol) adalah protokol Internet yang digunakan untuk menyalin file antarkomputer. 

5. DNS - Domain Name Service.Merupakan layanan di internet untuk jaringan yang menggunakan Tcp/IP. Layanan ini digunakan untuk mengidentifikasi sebuah komputer dengan nama bukan dengan menggunakan alamat IP (IP Adress)adalah nama khusus dan unik yang digunakan untuk penamaan situs web pada internet.

6. Http:// http atau Hyper Text Transfer Protocol adalah kode yang dituliskan pada awal site, untuk menjelaskan pada program webbrowser bahwa protokol (antarmuka) yang digunakan adalah http.

7. HTML :Hyper Text Markup Language, adalah bahasa komputer yang digunakan untuk membuat sebuah halaman webpage.

8. ISP : Internet Service Provider, adalah lembaga/instansi/perusahaan yang menyediakan jasa pelayanan penyedia jaringan internet.

9. Server : adalah sebuah komputer yang bertugas melayani pembagian serta pengolahan informasi yang diperlukan oleh Client. Server biasanya di kendalikan oleh seorang admin.

10. www : world wide web adalah istilah yang digunakan dalam internet untuk awal.  

sebenernya masih banyak lagi yang ane belum tau,, Untuk lebih lanjutnya lagi kapan2 kalau ada waktu kita ktemu lagi,, cukup sekian dulu,, Wassalam...

Sak Lajengipun -->