Saya share lagi bagaimana menambahkan gambar di StatusBar, menampilkan gambar atau image di StatusBar, gambar berada di StatusBar atau apala nama atau judulnya. :D Liat saja lah ScreenShotnya dibawah :
Agar Teks berjalan di Statusbar,Judul Form,atau di Judul Aplikasi di Delphi . Kalo Ingin supaya teks berjalan di Statusbar, Judul Form, atau di Judul Aplikasi,mungkin kalo dengan label tau sabagainya sudah pada biasa tapi bagaimana jika ingin si Teks itu berjalan di statusbar atau di Judul form ? coba gunakan Listing dibawah ini, dah lama pengen posting ini itu tentang Listing" delphi tapi karena bnyak kesibukan jadi jarang menyempatkan diri :D , langsung saja liat" deh nih :
Pake atau tambahkan komponen Timer.
Sebelumnya sudah ada pembahasan tentang Buah Sirsak Ini, tapi alangkah baiknya bila ada Update terbaru. Manfaat daun sirsak dan juga manfaat buah sirsak untuk obat dan kesehatan lengkap di bahas disini. Sirsak dikenal sebagai buah yang nikmat untuk diminum. Sebagian besar dari kita tidak menyadari ternyata buah sirsak memiliki begitu banyak manfaat untuk pengobatan. Tidak hanya itu saja, bahkan daun dari pohon sirsak pun memiliki manfaat yang sangat baik untuk kesehatan dan pengobatan.
Penghapusan tahi lalat profesional membutuhkan budget sangat mahal
dan sering kali meninggalkan bekas luka pada kulit Anda. Cobalah salah
satu solusi alami untuk menghilangkan tahi lalat.
Kanker juga bisa berupa tahi lalat, loh kok bisa? Perhatikan ukuran dan
warna tahi lalat Anda. Kunjungi dokter kulit atau ahli bedah untuk
menanyakan apakah tahi lalat membutuhkan pengobatan bedah. Jika ya,
hapuslah degan metode profesional. Berikut adalah beberapa pengobatan
alami yang dapat membantu menghilangkan tahi lalat (periksakan terlebih
dahulu ke dokter sebelum mengikuti tips berikut ini).
Air memiliki banyak manfaat untuk kesehatan seseorang, selain untuk menghidrasi tubuh, air juga dapat mengobati beberapa masalah kesehatan yang umum. Sakit kepala, nyeri otot, hingga gangguan tidur dapat diatasi dengan terapi sederhana menggunakan air.
Berikut adalah beberapa masalah kesehatan yang sering dialami oleh kebanyakan orang dan dapat diredakan dengan terapi air, seperti dilansir BestHealth antara lain:
Rahasia Dahsyat Kekuatan Air Akhirnya Terungkap.Selama berabad-abad lamanya manusia selalu tergantung pada air. Air
bisa sangat bermanfaat bagi manusia untuk menjaga kesehatan dan
pengobatan namun air bisa juga mengakibatkan bencana yang tak
terperikan. Banjir dahsyat di berbagai daerah atau peristiwa tsunami di
Aceh, jelas sekali menggambarkan kekuatan alam yang mampu
meluluhlantakan kota dan penduduknya hanya dengan sekali libas.
Khasiat dan Manfaat dari Daun Binahong Bagi Kesehatan.TANAMAN
ini tumbuh merambat. Sering digunakan sebagai gendola atau gapura yang
melingkar di atas jalan taman. Ada yang menamainya binahong dan berasal
dari Korea. Namun tanaman ini sebenarnya sudah lama ada di Indonesia dan
biasa disebut gendola (Basella rubra Linn).Hampir semua bagian tanaman binahong seperti umbi, batang dan daun dapat digunakan dalam terapi herbal. Kini bibitnya mudah dibeli di objek wisata Kopeng. Tanaman ini memang tumbuh baik dalam lingkungan yang dingin dan lembab.
Untuk Menentukan atau mendapatkan Tanggal awal bulan pada suatu bulan Ane punya codingnya nih, tapi sebelumnya pada uses coba agan" taruh DateUtils terlebih dahulu. Untuk menentukan Tanggal awal tentunya pasti tanggal 1 kan kalo tanggal awal, itu sangat mudah tinggal pake StartOfTheMont. Contoh Penggunaannya gini :
DateTimePicker1.Date:= StartOfTheMont(Now) atau
DateTimePicker1.Date:= StartOfTheMont(DateTimePicker1.Date)
Makanan untuk menaikkan / meningkatkan trombosit
dan makanan penambah trombosit – Pengertian dari trombosit adalah salah
satu komponen bagian darah yang berperan dalam proses pembekuan darah,
trombosit berbentuk tidak beraturan, tidak memiliki inti sel serta
berukuran sangat kecil. Jumlah trombosit dalam 1 mm3 darah sekitar
250.000.
Fungsi utama dari trombosit adalah
membekukan darah sehingga jika terjadi pendarahan maka tidak banyak
darah yang terbuang percuma. Untuk itu betapa pentingnya menjaga
trombosit dari darah agar tubuh tidak mudah mengeluarkan darah,
Di University of Munich terungkap fakta
baru mengenai trombosit, ternyata trombosit tidak hanya berfungsi
membekukan darah tapi juga berfungsi mendorong respon daya tahan tubuh
sehingga daya tahan dari tubuh meningkat dan bertambah kuat.
Pohon kelapa dan buahnya mempunyai sejarah panjang di Indonesia, bahkan merupakan lambang atau pengenal kepulauan Indonesia.
Yang menarik, dalam mitologi Hindu
dan menurut Kitab Suci Weda, kelapa merupakan "pohon surgawi." Konon,
Dewa Wisnu, membawa pohon kelapa sebagai sumber kesehatan, ketenangan,
panjang usia, dan kedamaian.
Pohon kelapa dianggap
suci, dan berperan penting dalam semua upacara keagamaan. Dalam
kehidupan sehari-hari, hampir semua bagian tanaman kelapa dapat
dimanfaatkan untuk berbagai keperluan.
Salah satu produk dari
kelapa adalah airnya, ternyata dalam larutannya, air buah nyiur ini
punya khasiat dan nilai gizi yang luar biasa. Bukan hanya unsur makro
berupa nitrogen dan karbon, tetapi juga unsur mikro yang sangat
dibutuhkan tubuh ada di air kelapa. Unsur nitrogen di dalamnya berupa protein yang tersusun dari asam amino, seperti alanin, sistin, arginin, alin, dan serin.
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs;
type
TForm1 = class(TForm)
private
procedure WMNCPaint(var Msg: TWMNCPaint); message WM_NCPAINT;
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.WMNCPaint(var Msg: TWMNCPaint);
var
ACanvas : TCanvas;
begin
inherited;
ACanvas := TCanvas.Create;
try
ACanvas.Handle := GetWindowDC(Form1.Handle);
with ACanvas do begin
Brush.Color := clActiveCaption;
Font.Name := 'Tahoma';
Font.Size := 8;
Font.Color := clYellow;
Font.Style := [fsItalic, fsBold];
TextOut(GetSystemMetrics(SM_CYMENU) + GetSystemMetrics(SM_CXBORDER),
Round((GetSystemMetrics(SM_CYCAPTION) - Abs(Font.Height))/2) + 1,
' Teks pada Caption');
end;
finally
ReleaseDC(Form1.Handle, ACanvas.Handle);
ACanvas.Free;
end;
end;
end
procedure TForm1.ComboBox1DrawItem(Control: TWinControl; Index: Integer;
Rect: TRect; State: TOwnerDrawState);
begin
ComboBox1.Canvas.FillRect(rect);
ImageList1.Draw(ComboBox1.Canvas,Rect.Left,rect.Top,Index);
ComboBox1.Canvas.TextOut(rect.Left+ImageList1.Width+1,rect.Top,ComboBox1.Items[index])
end;
private
procedure AppMessage(var Msg: TMSG; var Handled: Boolean);
public
{ Public declarations }
end;
…
…
implementation
…
…
procedure TForm1.FormCreate(Sender: TObject);
begin
Application.OnMessage := AppMessage;
end;
procedure TForm1.AppMessage(var Msg: TMSG; var Handled: Boolean);
begin
// meng-handle pesan
Handled := False;
case Msg.Message of
WM_SYSKEYDOWN:
if Msg.wParam = VK_F4 then
Handled := True; // cegah Alt-F4
end;
end;
Hello gan's, nih kode program dalam bahasa delphi untuk melakukan fungsi terbilang, misalnya, gan's menginput nilai 1000 maka akan menghasilkan Seribu.
Kompilasi sebagai unit untuk kemudian di include (uses) dalam program utama.
Syntax penggunaan dengan memanggil fungsi : bilang(val:string):string.
Digit maksimal adalah 15 digit.
unit terbilang;Semoga saja berfungsi codingnya. :D
interface
uses
SysUtils,StrUtils;
function bilang(const val:string):String;
function split(const val:string):string;
const
kata : array[0..9]of string = ('Nol','Satu','Dua','Tiga','Empat','Lima','Enam','Tujuh','Delapan','Sembilan');
max_len : integer = 15;
implementation
function bilang(const val:string):String;
var
s,a : string;
out : string;
begin
s := val;
if LeftStr(s,1) = '-' then begin
out := 'Minus ';
s := RightStr(s,length(s)-1);
end else out := '';
if Length(s) > max_len then begin
Result := 'OVER LIMIT !!!';
Exit;
end;
if Length(s) > 12 then begin //trilyun
a := MidStr(s,1,Length(s)-12);
out := split(a) + ' Trilyun ';
s := RightStr(s,length(s)-length(a));
end;
if Length(s) > 9 then begin //milyar
a := MidStr(s,1,length(s)-9);
out := out + split(a) + ' Milyar ';
s := RightStr(s,length(s)-length(a));
end;
if Length(s) > 6 then begin //juta
a := MidStr(s,1,length(s)-6);
out := out + split(a) + ' Juta ';
s := RightStr(s,length(s)-length(a));
end;
if Length(s) > 3 then begin //ribu
a := MidStr(s,1,length(s)-3);
if StrToInt(a)=1 then
out := out + ' Seribu '
else if StrToInt(a)<>0 then out := out + split(a) + ' Ribu ';
s := RightStr(s,length(s)-length(a));
end;
out := out + split(s);
Result := Trim(StringReplace(out,' ',' ',[rfReplaceAll]));
end;
function split(const val:string):string;
var
i,i2 : integer;
s,out : string;
begin
s := val;
out := '';
if length(s) = 3 then begin
i := StrToInt(LeftStr(s,1));
if i = 1 then
out := ' Seratus '
else if (i>1) then
out := kata[i] + ' Ratus ';
s := RightStr(s,2);
end;
if length(s) = 2 then begin
i := StrToInt(LeftStr(s,1));
i2 := StrToInt(RightStr(s,1));
if (i=1) and (i2=0) then
out := out + ' Sepuluh '
else if (i=1) and (i2=1) then
out := out + ' Sebelas '
else if (i>1) and (i2=0) then
out := out + kata[i] + ' Puluh '
else if (i=1) and (i2>0) then
out := out + kata[i2] + ' Belas '
else if (i<>0) and (i2<>0) then
out := out + kata[i] + ' Puluh ' + kata[i2]
else if (i=0) and (i2<>0) then
out := out + kata[i2];
end;
if Length(s) = 1 then out := out + kata[StrToInt(s)];
Result := out;
end;
end.
 | |
| Gambar Aplikasi Chatting Dengan Delphi |
 |
Hari ini kita akan menggunakan component yang baru kemarin kita pelajari yakni Timer dan tambahan Component hari ini adalah component Progress Bar yang bisa temen temen dapatkan di Tab Win32 (lihat gambar dibawah ini).
Cara menyimpan gambar JPEG di database MySQL, dan cara menampilkan dengan menggunakan Bahasa Delphi.
Sahabat-sahabat yang lagi senang belajar pemrograman, alangkah indahnya apabila program yang kita buat, indah dan menarik. Untuk mencapai tujuan tersebut kadang kita terhalang dengan cara bagaimana untuk membuatnya. Postingan ini akan membahas bagaimana cara menyimpan data gambar yang berformat JPEG.
Perlengkapan yang digunakan penulis :
Subscribe to:
Posts (Atom)
