Dani Amarullah

Just Try in Error

Free Sms dari Indosat

Skr ganti topik deh bosen delphi melulu,hehehehehe kemaren saya nemu link buat free Sms ke semua OP. dan Seneng dunk klo ada sms yang gratisan,wakakakakaka…..

IM3 Free SMS

Mentari Free SMS

selamat bersms RIA dehhh,hehehehe

September 19, 2007 Posted by p2bf | Uncategorized | | 5 Comments

Jam Digital AVR

Hmmmm.. mungkin jarang sekali ya yang mau bahas mikrokontroller disini,hehehee.. tapi sebelumnya saya juga dalam masa pembelajaran dan saya Cuma belajar otodidak jadi maaf klo ada yang kurang jelas dan masih banyak yang kurang nya. :D

Ok sebelumnya teman2 harus punya perangkat keras nya(hardware), yang dibutuhin

    1. Rangkaian AVR dengan IC AT90S8535
    111

    2. Kabel ISP sebagai downloader nya
    222

    2. 8 buah 7segmen
    333

    3. 4 buah keypad
    444

      Untuk software compilernya saya menggunakan CodeVisionAVR v1.24.6 Professional, untuk yang lain saya belum mengetahuinya,maklum belajar sendiri,hehehehehe…

      Ini source untuk buat jam digital dengan menggunakan C :

      Ket:

      /*****************************************************
This program was produced by the
CodeWizardAVR V1.24.6 Professional
Automatic Program Generator
© Copyright 1998-2005 Pavel Haiduc, HP InfoTech s.r.l.
http://www.hpinfotech.com
e-mail:office@hpinfotech.com

Project : Jam Digital
Version :
Date    : 28/07/2007
Author  : Dani Amarullah
Company : Ciloto
Comments: 

Chip type           : AT90S8535
Clock frequency     : 8,000000 MHz
Memory model        : Small
External SRAM size  : 0
Data Stack size     : 128
*****************************************************/

#include <90s8535.h>
#include <delay.h>
#include <stdio.h>     

#define btjam     PIND.4
#define btmenit   PIND.5
#define btdetik   PIND.6
#define btreset   PIND.7

flash char select[8]={128,64,32,16,8,4,2,1};
flash unsigned char angka[12]={0xc0,0xf9,0xa4,0xb0,0x99,0x92,0x82,0xf8,0x80,0x90,0xff,0xbf};
char buffer[8]={0,0,11,0,0,11,0,0};
char detik=0,menit=0,jam=0;
char detikal=5,menital=0,jamal=0;
char lcd_buff[20];    

bit alarm=0;
// Timer 1 output compare A interrupt service routine
interrupt [TIM1_COMPA] void timer1_compa_isr(void)
{              

   if(detik==detikal)alarm=1;
   detik++;
   if(detik==60)
   {
      detik=0;
      menit++;
      if(menit==60)
      {
         menit=0;
         jam++;
         if(jam==24)jam=0;
      }
   }
}

// Timer 2 output compare interrupt service routine
interrupt [TIM2_COMP] void timer2_comp_isr(void)
{
   static char i;
      PORTA=~select[i];
      PORTB=angka[buffer[i]];
      i++;
      if (i>7) i=0;
}  

// Declare your global variables here

void main(void)
{
   unsigned int i;
PORTA=0x00;
DDRA=0xFF;
PORTB=0x00;
DDRB=0xFF;
PORTD=0xF7;
DDRD=0x0f;

TCCR1A=0x00;
TCCR1B=0x0C;
OCR1AH=0x7A;
OCR1AL=0x12;

ASSR=0x00;
TCCR2=0x0B;
TCNT2=0x00;
OCR2=0xFA;

// Timer(s)/Counter(s) Interrupt(s) initialization
TIMSK=0x90;

// Global enable interrupts
#asm("sei")     

i=0;
while (1)
      {
        if(btjam==0)
         {
            jam++;
            if(jam>=24)jam=0;
         }
         else if(btmenit==0)
         {
            menit++;
            if(menit>=60)menit=0;
         }
         else if(btdetik==0)
         {
            detik++;
            if(detik>=60)detik=0;
         }
         else if(btreset==0)
         {
            detik=menit=jam=0;
         }                 

         buffer[2]=11;
         buffer[5]=11;
         buffer[7]=detik%10;
         buffer[6]=detik/10;
         buffer[4]=menit%10;
         buffer[3]=menit/10;
         buffer[1]=jam%10;
         buffer[0]=jam/10;
         delay_ms(100);  

      }
}
      1. 7segmen menggunakan PORT A dan C
      2. Keypad menggunakan PIN 4,5,6, dan 7
      3. Menggunakan LPT1(Prot Printer) untuk downloader nya
      4. Programmer Settingnya menggunakan Kanda System STK 200+/300

      Bagi yang mau mencobanya temen2 tinggal copy paste aja, caranya buka dulu program AVR nya terus pilih New| Project | pilih yes. Setelah itu pilih IC = AT90S8535 dan Clock = 8,000000.
      lalu pilih File | Generate, save and exit | Save | Save
      terus pastekan source tadi ke editor,selesai dan compile lah lalu download programnya ke IC. Beres dech,xixixixi… di saya seh alhamdulillah sukses :D

       

      sekian artikel ini, moga membantu dan maaf klo penjelasannya kurang jelas…

       

      September 10, 2007 Posted by p2bf | Mikr0Kontroller | | 4 Comments

      View Process & Kill

      Hmmm Bete ga puguh mending aja sigw post lagi dechhh,wekekekekek….
      sekarang si gw maubagi2 lagi artikel yang si gw dah kumpulin dan mau berbagi dengan teman2..hehehehe yaitu buat aplikasi untuk melihat semua prosess di windows yang sedang berjalan wokeyyy, serta untuk meng KILL nya,wakakakakaka…
      langsung aja ke TKP,wakakakaka… pertama biasa

      siapkan :

      1. Cemilan
      2. Roko
      3. Kopi
      4. Winamp
      5. dan Berdoa jangan lupa,hehehehe

      Ok langsung aja buka delphi nya brooooooo
      Ini Source nya broooooo(cuma dikit ko listing nya,wekekekekkekee)….

      unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics,
  Controls, Forms, Dialogs, StdCtrls, TLHelp32, ExtCtrls;

type
  TForm1 = class(TForm)
  Button1: TButton;
  ListBox2: TListBox;
  Button2: TButton;
  procedure Button1Click(Sender: TObject);
  procedure Button2Click(Sender: TObject);
  private
  { Private declarations }
  public
  { Public declarations }
  end;

var
  Form1: TForm1;
  x,a : integer;
  CaptionApplication : String;

implementation

{$R *.dfm}

function KillTask(ExeFileName: string): Integer;
const
  PROCESS_TERMINATE = $0001;
var
  ContinueLoop: BOOL;
  FSnapshotHandle: THandle;
  FProcessEntry32: TProcessEntry32;
begin
  Result := 0;
  FSnapshotHandle:=CreateToolhelp32Snapshot(TH32CS_SNAPPROCESS,0);
  FProcessEntry32.dwSize:=SizeOf(FProcessEntry32);
  ContinueLoop:=Process32First(FSnapshotHandle,FProcessEntry32);
  while Integer(ContinueLoop)0 do  begin
  if (
     (UpperCase(ExtractFileName(FProcessEntry32.szExeFile))=
       UpperCase(ExeFileName))
      or
     (UpperCase(FProcessEntry32.szExeFile)=
       UpperCase(ExeFileName))
    ) then
    Result :=
    Integer(
      TerminateProcess(
      OpenProcess(
        PROCESS_TERMINATE,
        BOOL(0),
        FProcessEntry32.th32ProcessID
      ),
      0
      )
    );
   ContinueLoop:=Process32Next(FSnapshotHandle,FProcessEntry32);
  end;
  CloseHandle(FSnapshotHandle);
end;

procedure TForm1.Button1Click(Sender: TObject);
Var
  MyHandle: THandle;
  Struct: TProcessEntry32;
begin
  ListBox2.Clear;
  if listbox2.ItemIndex < 0 then
  listBox2.itemindex := 0;
  MyHandle:=CreateToolHelp32SnapShot(TH32CS_SNAPPROCESS, 0);
  Struct.dwSize:=Sizeof(TProcessEntry32);
  if Process32First(MyHandle, Struct) then
  ListBox2.Items.Add(Struct.szExeFile);
  while Process32Next(MyHandle, Struct) do
  ListBox2.Items.Add(Struct.szExeFile);
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
  if ListBox2.ItemIndex >= 0 then
  begin
  CaptionApplication:=ListBox2.Items.Strings[listBox2.itemindex];
  if CaptionApplication  '' then
  begin
    KillTask(CaptionApplication);
    Button1.Click;
  end
  else
    Button1.Click;
  end;
    Button1.Click;
end;

end.
      Syntax Highlighted with http://delphi-id.org/syntax

      bisa didonlot semua source di sini —-> Download here…

      SkrinSuuut nya…
      taskmanager.jpg

      Beressss deh, semoga bermanfaat ya brooooo….Wakakakakaaaaa

      July 20, 2007 Posted by p2bf | Artikelah, D3lPhE | | 2 Comments

      « Previous Entries