baru tau shoutmix is dead!!

baru buka blogger lagi, stelah sekian dekade, hehe..:D, astagaa, kok shoutmix.com g support lagi yaa, untuk free service nya. jadinya, pengunjung ga bisa comment di guest book blog ini. waaah, mesti ganti layanan shout box ni, kyak cbox gtu. ayayaaaaaaa..
skreensut:

sumber:
http://www.shoutmix.com/v3/openletter.php

Read more »

STOP SOPA/PIPA

lamar smith, pencetus SOPA

Pada tanggal 24 januari nanti, jika undang-undang yang bernama SOPA ( Stop Online Piracy Act ) dan PIPA ( Protect IP Act ) ini jadi ( sekarang masih dalam proses finalisasi ) . maka kebiasaan berinternet akan berubah menjadi jauh sangat drastis . ya ini memang undang-undang amerika serikat , tetapi mereka adalah negara adidaya yang keputusannya sangat mempengaruhi seluruh dunia . Ratusan situs sudah melakukan blackout dan protes keras terhadap SOPA dan PIPA ( ex: Wikipedia, Wordpress, Reddit, Huffington Post, Google ) .

Read more »

PENGENALAN ANDROID

Android adalah sistem operasi untuk telepon seluler yang berbasis Linux. Android menyediakan platform terbuka bagi para pengembang buat menciptakan aplikasi mereka sendiri untuk digunakan oleh bermacam peranti bergerak. Awalnya, Google Inc. membeli Android Inc., pendatang baru yang membuat peranti lunak untuk ponsel. Kemudian untuk mengembangkan Android, dibentuklah Open Handset Alliance, konsorsium dari 34 perusahaan peranti keras, peranti lunak, dan telekomunikasi, termasuk Google, HTC, Intel, Motorola, Qualcomm, T-Mobile, dan Nvidia.

Pada saat perilisan perdana Android, 5 November 2007, Android bersama Open Handset Alliance menyatakan mendukung pengembangan standar terbuka pada perangkat seluler. Di lain pihak, Google merilis kode–kode Android di bawah lisensi Apache, sebuah lisensi perangkat lunak dan standar terbuka perangkat seluler. Di dunia ini terdapat dua jenis distributor sistem operasi Android. Pertama yang mendapat dukungan penuh dari Google atau Google Mail Services (GMS) dan kedua adalah yang benar–benar bebas distribusinya tanpa dukungan langsung Google atau dikenal sebagai Open Handset Distribution (OHD).

The Dalvik Virtual Machine

Salah satu elemen kunci dari android adalah Dalvik Virtual Machine (DVM). Android berjalan di dalam Dalvik Virtual Machine (DVM) bukan di Java Virtual Machine (JVM) seperti Java ME (Java Mobile Edition), tetapi android menggunakan Virtual Machine sendiri yang telah dikustomisasi dan dirancang untuk memastikan bahwa beberapa feature-feature berjalan lebih efisien pada perangkat mobile.

Dalvik Virtual Machine (DVM) adalah “register bases” sementara Java Virtual Machine (JVM) adalah “stack based”, DVM didesain dan ditulis oleh Dan Bornsten dan beberapa engineers Google lainnya. Jadi bisa dikatakan “Dalvik equals(Java) == false”. Dalvik Virtual Machine menggunakan kernel Linux untuk menangani fungsionalitas tingkat rendah termasuk keamanan, threading, dan proses serta manajemen memori. Ini menungkinkan kita untuk menulis aplikasi C/C+ sama halnya seperti pada OS Linux kebanyakan. Meskipun dalam kenyataannya kita harus banyak memahami arsitektur dan proses system dari kernel linux yang digunakan dalam Android tersebut.

Android SDK (Software Development Kit)

Android SDK adalah tools API (Application Programming Interface) yang diperlukan untuk mulai mengembangkan aplikasi pada platform Android menggunakan bahasa pemrograman Java. Android merupakan subset perangkat lunak untuk ponsel yang meliputi system operasi, middle ware dan aplikasi kunci yang di release oleh Google. Beberapa fitur-fitur android yang paling penting adalah :

·         Framework aplikasi yang mendukung penggantian komponen dan reusable.

·         Medin Virtual Dalvik dioptimalkan untuk perangkat mobile

·         Integrated browser berdasarkan engine open source WebKit

·         Grafis yang dioptimalkan dan didukung oleh libraries grafis 2D, 3D berdasarkan spesifikasi openGL ES 1,0 (Opsional akselerasi hardware)

·         SQLite untuk penyimpanan data (database)

·         Media Support yang mendukung audio, video dan gambar (MPEG4, H.264, MP3, AAC, AMR, JPG, PNG, GIF), GSM Telephony (tergantung hardware).

·         Bluetooth, EDGE, 3G dan WiFi (tergantung hardware)

·         Kamera, GPS, kompas dan accelerometer (tergantung hardware)

·         Linkungan Development yang lengkap dan kaya termasuk perangkat emulator, tools untuk debugging, profil dan kinerja memori, dan plugin untuk IDE Eclipse.

Read more »

Upgrade Avira anda ke 2012.

Bila sebelumnya telah direview tentang AVG 2012, kini Avira pun tidak mau kalah, Produk asal Jerman ini akhirnya meluncurkan produk antivirus teranyar mereka, yakni Avira Antivirus 2012, yang dirilis seperti biasa dalam 2 jenis, free dan berbayar. Apabila anda sebelumnya menggunakan versi 11, maka ada baiknya mengupgrade ke versi yang ter anyar ini.

Read more »

Komunikasi Dengan Port Parallel Menggunakan Delphi

Segala jenis port di komputer dapat digunakan untuk melakukan komunikasi dengan device lain, port yang sering digunakan adalah port parallel atau yang biasa disebut dengan port printer yang menggunakan konektor DB 25.

Nah, di kesempatan kali ini saya akan membagikan sedikit source code untuk program sesuai dengan judul di atas, program ini membutuhkan sebuah file dll tambahan yakni inpout.dll yang harus di copy kan ke dalam direktory C:\Windows\System32.







pertama2 buatlah tampilan pada delphi sesuai dengan tampilan di bawah ini

Kemudian ketiklah script dibawah ini : (sesuaikan nama component dengan yang anda buat)

unit teknik_interfacing;

interface

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

type
  TForm1 = class(TForm)
    GroupBox3: TGroupBox;
    GroupBox2: TGroupBox;
    shp1: TShape;
    Label1: TLabel;
    shp2: TShape;
    Label2: TLabel;
    shp3: TShape;
    Label3: TLabel;
    shp4: TShape;
    Label4: TLabel;
    Label5: TLabel;
    shp5: TShape;
    shp6: TShape;
    Label6: TLabel;
    shp7: TShape;
    Label7: TLabel;
    shp8: TShape;
    Label8: TLabel;
    GroupBox1: TGroupBox;
    btn_3: TButton;
    btn_4: TButton;
    btn_1: TButton;
    btn_2: TButton;
    btn_5: TButton;
    btn_6: TButton;
    btn_8: TButton;
    btn_7: TButton;
    btn_padam: TButton;
    btn_nyala: TButton;
    txt_info: TMemo;
    GroupBox4: TGroupBox;
    Timer1: TTimer;
    txt_input: TMemo;
    btn_start: TButton;
    btn_stop: TButton;
    txt_effect: TMemo;
    Timer2: TTimer;
    GroupBox5: TGroupBox;
    Label9: TLabel;
    Image1: TImage;
    Timer3: TTimer;
    procedure btn_1Click(Sender: TObject);
    procedure btn_2Click(Sender: TObject);
    procedure btn_3Click(Sender: TObject);
    procedure btn_4Click(Sender: TObject);
    procedure btn_5Click(Sender: TObject);
    procedure btn_6Click(Sender: TObject);
    procedure btn_7Click(Sender: TObject);
    procedure btn_8Click(Sender: TObject);
    procedure btn_padamClick(Sender: TObject);
    procedure btn_nyalaClick(Sender: TObject);
    procedure btn_startClick(Sender: TObject);
    procedure btn_stopClick(Sender: TObject);
    procedure Timer1Timer(Sender: TObject);
    procedure Timer2Timer(Sender: TObject);
    procedure Timer3Timer(Sender: TObject);

  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;
  var data1, data2, data3, data4, data5, data6, data7, data8: boolean;  //untuk status lampu
  var data: integer = 0;
  var pic: integer = 1;

  procedure Out32(wAddr:word; bOut:byte); stdcall; external 'inpout32.dll'
  function Inp32(wAddr:word):integer; stdcall; external 'inpout32.dll'

implementation

{$R *.dfm}

procedure TForm1.btn_1Click(Sender: TObject);
begin
  if data1 = true then
    begin
      shp1.Brush.Color := clWhite;
      data1 := false;
      txt_info.Lines.Add('Lampu 1 Padam');
      data := data + 1;
      Out32($378,data);
    end
  else
    begin
      shp1.Brush.Color := clYellow;
      data1 := true;
      txt_info.Lines.Add('Lampu 1 Nyala');
      data := data - 1;
      Out32($378,data);
    end
end;


procedure TForm1.btn_2Click(Sender: TObject);
begin
  if data2 = true then
    begin
      shp2.Brush.Color := clWhite;
      data2 := false;
      txt_info.Lines.Add('Lampu 2 Padam');
      data := data + 2;
      Out32($378,data);
    end
  else
    begin
      shp2.Brush.Color := clYellow;
      data2 := true;
      txt_info.Lines.Add('Lampu 2 Nyala');
      data := data - 2;
      Out32($378,data);
    end
end;

procedure TForm1.btn_3Click(Sender: TObject);
begin
if data3 = true then
    begin
      shp3.Brush.Color := clWhite;
      data3 := false;
      txt_info.Lines.Add('Lampu 3 Padam');
      data := data + 4;
      Out32($378,data);
    end
  else
    begin
      shp3.Brush.Color := clYellow;
      data3 := true;
      txt_info.Lines.Add('Lampu 3 Nyala');
      data := data - 4;
      Out32($378,data);
    end
end;

procedure TForm1.btn_4Click(Sender: TObject);
begin
  if data4 = true then
    begin
      shp4.Brush.Color := clWhite;
      data4 := false;
      txt_info.Lines.Add('Lampu 4 Padam');
      data := data + 8;
      Out32($378,data);
    end
  else
    begin
      shp4.Brush.Color := clYellow;
      data4 := true;
      txt_info.Lines.Add('Lampu 4 Nyala');
      data := data - 8;
      Out32($378,data);
    end
end;

procedure TForm1.btn_5Click(Sender: TObject);
begin
if data5 = true then
    begin
      shp5.Brush.Color := clWhite;
      data5 := false;
      txt_info.Lines.Add('Lampu 5 Padam');
      data := data + 16;
      Out32($378,data);
    end
  else
    begin
      shp5.Brush.Color := clYellow;
      data5 := true;
      txt_info.Lines.Add('Lampu 5 Nyala');
      data := data - 16;
      Out32($378,data);
    end
end;

procedure TForm1.btn_6Click(Sender: TObject);
begin
if data6 = true then
    begin
      shp6.Brush.Color := clWhite;
      data6 := false;
      txt_info.Lines.Add('Lampu 6 Padam');
      data := data + 32;
      Out32($378,data);
    end
  else
    begin
      shp6.Brush.Color := clYellow;
      data6 := true;
      txt_info.Lines.Add('Lampu 6 Nyala');
      data := data - 32;
      Out32($378,data);
    end
end;

procedure TForm1.btn_7Click(Sender: TObject);
begin
if data7 = true then
    begin
      shp7.Brush.Color := clWhite;
      data7 := false;
      txt_info.Lines.Add('Lampu 7 Padam');
      data := data + 64;
      Out32($378,data);
    end
  else
    begin
      shp7.Brush.Color := clYellow;
      data7 := true;
      txt_info.Lines.Add('Lampu 7 Nyala');
      data := data - 64;
      Out32($378,data);
    end
end;

procedure TForm1.btn_8Click(Sender: TObject);
begin
if data8 = true then
    begin
      shp8.Brush.Color := clWhite;
      data8 := false;
      txt_info.Lines.Add('Lampu 8 Padam');
      data := data + 128;
      Out32($378,data);
    end
  else
    begin
      shp8.Brush.Color := clYellow;
      data8 := true;
      txt_info.Lines.Add('Lampu 8 Nyala');
      data := data - 128;
      Out32($378,data);
    end
end;

procedure TForm1.btn_padamClick(Sender: TObject);
begin
 data1 := true;
 data2 := true;
 data3 := true;
 data4 := true;
 data5 := true;
 data6 := true;
 data7 := true;
 data8 := true;
 btn_1.Click;
 btn_2.Click;
 btn_3.Click;
 btn_4.Click;
 btn_5.Click;
 btn_6.Click;
 btn_7.Click;
 btn_8.Click;
end;

procedure TForm1.btn_nyalaClick(Sender: TObject);
begin
 data1 := false;
 data2 := false;
 data3 := false;
 data4 := false;
 data5 := false;
 data6 := false;
 data7 := false;
 data8 := false;
 btn_1.Click;
 btn_2.Click;
 btn_3.click;
 btn_4.Click;
 btn_5.Click;
 btn_6.Click;
 btn_7.Click;
 btn_8.Click;
end;

procedure TForm1.btn_startClick(Sender: TObject);
begin
  timer1.Enabled := true;
end;

procedure TForm1.btn_stopClick(Sender: TObject);
begin
timer1.Enabled := false
end;

procedure TForm1.Timer1Timer(Sender: TObject);
begin
  txt_input.Lines.add(IntToStr(inp32($378)));

  if inp32($378) = 255 then txt_effect.Lines.Add('Tidak ada apa2')
  else if inp32($378) = 21 then txt_effect.Lines.Add('Push button on = 1 , 3 dan 5')
  else if inp32($378) = 9 then txt_effect.Lines.Add('Push button on = 1 dan 4')
  else if inp32($378) = 90 then txt_effect.Lines.Add('Push button on = 2, 4, 5 dan 7')
  else if inp32($378) = 1 then txt_effect.Lines.Add('Push button on = 1')
  else if inp32($378) = 2 then txt_effect.Lines.Add('Push button on = 2')
  else if inp32($378) = 4 then txt_effect.Lines.Add('Push button on = 3')
  else if inp32($378) = 8 then txt_effect.Lines.Add('Push button on = 4')
  else if inp32($378) = 16 then txt_effect.Lines.Add('Push button on = 5')
  else if inp32($378) = 32 then txt_effect.Lines.Add('Push button on = 6')
  else if inp32($378) = 64 then txt_effect.Lines.Add('Push button on = 7')
  else if inp32($378) = 128 then txt_effect.Lines.Add('Push button on = 8')

end;

procedure TForm1.Timer2Timer(Sender: TObject);
begin
  if label9.Left > -500 then label9.Left := label9.Left - 10
  else
    label9.Left := 350;
end;


procedure TForm1.Timer3Timer(Sender: TObject);
begin
  if pic <8 then
  begin
       image1.Picture.LoadFromFile(IntToStr(pic)+'.jpg');
       pic := pic + 1;
  end
  else pic := 1;

end;

end.

Kalau ingin mendownload programnya beserta file dll nya, silahkan klik disini

Read more »