Ponsel Windows dari Nokia by disambangi

Nokia Windows Phone 7 (WP 7) dipastikan hadir pada akhir tahun 2011. Meski memiliki sejumlah pabrik di seluruh dunia, Nokia tampaknya mempercayakan pembuatan handset WP 7 ke pabrikan luar.

Nokia saat ini memiliki fasilitas pabrik di 9 negara yaitu Finlandia, Brazil, China, Inggris, Hungaria, India, Meksiko, Rumania, dan Korea Selatan. Kemudian mereka sedang membangun proyek pabrik di Vietnam.

Namun untuk proyek ponsel Windows, Nokia dikabarkan mempercayakan pada Compal, manufaktur asal Taiwan. Menurut media DigiTimes, Compal sudah mendapat order dari Nokia untuk memproduksi ponsel Windows yang rencananya keluar kuartal 4 2011.

Nokia sudah pernah bekerja sama dengan Compal. Mereka mengerjakan proyek netbook Booklet 3G Nokia pada tahun 2009.

Read more »

PlayStation Vita Mulai Beredar November 2011 by disambangi

Jakarta - Sony memang belum secara resmi memastikan jadwal ketersediaan PlayStation Vita, namun sejumlah toko online sudah membuka pemesanan untuk konsol tersebut yang bisa didapat mulai November 2011.

Kamis (23/6/2011), di situs Amazon PlayStation Vita ini dibanderol pada rentang harga USD 249 untuk versi Wi-Fi, dan USD 299 untuk 3G.

Selain Amazon, toko lain yang sudah membuka pemesanan untuk PlayStation Vita adalah ShopTo. Situs penjaja barang asal Inggris ini mengklaim siap menghadirkan konsol genggam tersebut pada tanggal 4 November 2011.

PlayStation Vita resmi diperkenalkan Sony sebagai penerus PlayStation Portable. Konsol yang sebelumnya disebut sebagai Next Generation Portable (NGP) itu dijanjikan memiliki sederet fitur yang memikat.

Read more »

Belajar Menggunakan ListBox Dan Combobox Dengan Delphi

 Berikut Gambaran Form Latihan yang akan kita buat:

Properti yang digunakan:
- Button (2)
- Edit (2)
- Panel (1)
- RadioButton (1)
- ListBox (1)
- ComboBox (1)
- Label (1)

Setelah anda menambahkan properti diatas, anda dapat mengisi source kode berikut kemasing masing properti:

     Masukan ke Button1(Tambah)
procedure TForm1.Button1Click(Sender: TObject);
begin
if(Edit1.Text <> '') and
(listbox1.Items.IndexOf(Edit1.Text) < 0 ) then
begin
  listbox1.Items.Add(Edit1.Text);
  combobox1.Items.Add(Edit1.Text);
  combobox1.ItemIndex :=
  combobox1.Items.IndexOf(combobox1.Items[combobox1.Itemindex]);
    end else
      messagedlg('Control edit kosong atau ' + ' Mengandung string yang sudah ada', mtError, [mbOK], 0);


end;

     Masukan ke ListBox:
procedure TForm1.ListBox1Click(Sender: TObject);
var phrase, str1, str2 :string;
  pilih, lihat : integer;
begin
pilih := 0;
for lihat := 0 to listbox1.Items.Count-1 do
if listbox1.Selected[lihat] then
begin
  inc (pilih);
  if pilih = 1 then
  begin
    str1 := listbox1.Items.Strings[lihat];
    str2 := str1;
  end else
  if pilih = 2 then
  begin
    str1 := str1 + ' dan ' + listbox1.Items.Strings[lihat];
    str2 := str2 + ', ' + listbox1.Items.Strings[lihat];
  end else
  begin
    str1 := str2 +' dan ' + listbox1.Items.Strings[lihat];
    str2 :=  str2 + ', ' +listbox1.Items.Strings[lihat];
  end;
end;
if pilih > 0 then
phrase := str1 + ' terletak '
else phrase := ' Tidak ada apa-apa';

  phrase := phrase + RadiGroup1.Items[RadiGroup1.Itemindex];
  phrase := phrase + ' ' + combobox1.Text;
  label1.Caption := phrase;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
if(Edit1.Text <> '') and
(listbox1.Items.IndexOf(Edit1.Text) < 0 ) then
begin
  listbox1.Items.Add(Edit1.Text);
  combobox1.Items.Add(Edit1.Text);
  combobox1.ItemIndex :=
  combobox1.Items.IndexOf(combobox1.Items[combobox1.Itemindex]);
    end else
      messagedlg('Control edit kosong atau ' + ' Mengandung string yang sudah ada', mtError, [mbOK], 0);


end;

     Dan yang terakhir masukan ke Button2(Close)

procedure TForm1.Button2Click(Sender: TObject);
begin
application.Terminate;
end;

Sekarang program sudah bisa kita jalankan, klik run.

SELAMAT MENCOBA 

Read more »

Mengubah Warna Font Dengan R G B , Dengan Delphi

 Mengubah Warna Font Dengan R G B:
 Pada posting ini saya akan memberi tahu anda bagaimana kita bisa merubah warna suatu font dengan R G B. pada pemprograman ini saya akan memberikan capture contoh program dan beberapa source kode yang diperlukan beserta properti apa saja yang akan dipakai.

Oke kalau begitu langsung saja, Properti yang digunakan diantaranya:
- ScrollBar (3 Buah)
- Label (1 Buah, digunakan sebagai font caption)

Adapun properti yang harus di ubah:
- Ubah properti ScrollBar (max.255), caranya: klik pada ScrollBar lalu lihat properti pada program delphi, cari max. ubah 100 menjadi 255.

Berikut bayangan tentang program tersebut:
- Tampilan ketika di eksekusi,

- Jika ScrollBar merah di maksimalkan maka font berubah merah.

 - Jika ScrollBar hijau di maksimalkan maka font berubah hijau.

 - Jika ScrollBar biru di maksimalkan maka font berubah biru.

 - Jika semua ScrollBar di maksimalkan maka font berubah putih.

- Berikut source kode yang harus diisi :
Klik 2 kali pada masing masing ScrollBar, lalu isikan kode berikut,

procedure TForm1.ScrollBar1Change(Sender: TObject);
var r,g,b :byte;
 w : tcolor;
begin
  r := ScrollBar1.Position;
  g := ScrollBar2.Position;
  b := ScrollBar3.Position;
  w := rgb (r,g,b);
  label1.Font.Color := w;

end;

Pesan saya: Selamat mencoba!!

Read more »