Lirik Lagu Tiada Dua Tiada yang Serupa STINGS

Tiada Dua Tiada yang Serupa

STINGS

Bermusim Sudah Kau Tiada Disisi

Kasihku Mekar Sentiasa di Hati

Bernihmu Sayang Sering ku Meratapi

Keseorangan Sendiri

Hanya Engkaulah Satu-satu di Hati

yang Kusayangi Hingga ke Akhir Hayatku

Tiada Dua Tiada yang Serupa

Hanya Engkaulah Kucinta Buat Selamanya

Pulanglah Sayang Kembalilah Kepadaku

Aku Merindu Hela Tawa Senyumanmu

Usah di Biar Rajuk Rawan di Hatimu

Ku Sadari Kesilapanku

Sudah Menjadi Lumrah Insan di Dunia

Tiada yang Kekal Untuk Selama-lamanya

Namun Ku Panjatkan Do'a pada Yang Esa

Moga Cinta Kita Kan Bersemi Hingga ke Akhir Nanti 

Pulanglah Sayang Kembalilah Kepadaku

Aku Merindu Hela Tawa Senyumanmu

Usah di Biar Rajuk Rawan di Hatimu

Ku Sadari Kesilapanku

Sudah Menjadi Lumrah Insan di Dunia

Tiada yang Kekal Untuk Selama-lamanya

Namun Ku Panjatkan Do'a pada Yang Esa

Moga Cinta Kita Kan Bersemi

Hingga ke Akhir Nanti

Biar Bermusim Kau Tiada Disisi

Kasihku Mekar Sentiasa di Hati

Biar Bertahun Hidupku Menyendiri 

Hilangmu Tiada Ganti Aku Sendiri 

Kembali Sayang Kembali Kepadaku

Ku Merindui Belaianmu

Oh Kekasihku

 

Lanjut baca...

License + Activation Code Artisteer 3

Silahkah download disini.


Nah untuk melihat tutorial & download Artisteer 3 klik link berikut :
www.firdaustech.com.

Lanjut baca...

“Membuat Aplikasi Matematika Sederhana dg Ms Visual FoxPro 6.0”

Preview

Gambar 1. Perancangan Form Operasi Matematika

  

   Ubahlah Properties Sebagai berikut :

 

Object	Properties	Setting
Form1	Caption	Operasi Matematika
	Name	Form1
	Picture	Browser your image
Label1	Alignment	Center
	AutoSize	True
	BackStyle	Transparent
	Caption	Operasi Matematika
	FontBold	True
	FontName	Viner Hand ITC
	FontSize	20
Label2	BackStyle	Transparent
	Caption	Nilai A
	FontBold	True
	FontName	Times New Roman
	FontSize	12
	ForeColor	168,255,255
Label3	Caption	Nilai B
Label4	Caption	Hasil
Text1	Name	TxNlaiA
Text2	Name	TxNlaiB
Text3	Name	TxHasil
Command1	AutoSize	True
	Caption	( * )
	FontBold	True
	FontName	Comic Sans MS
	Name	Command1
Command2	AutoSize	True
	Caption	( / )
	FontBold	True
	FontName	Comic Sans MS
	Name	Command2
Command3	AutoSize	True
	Caption	(+ )
	FontBold	True
	FontName	Comic Sans MS
	Name	Command3
Command4	AutoSize	True
	Caption	( - )
	FontBold	True
	FontName	Comic Sans MS
	Name	Command4
Command5	AutoSize	True
	Caption	Clear
	FontBold	True
	FontName	Comic Sans MS
	ForeColor	0,128,128
	Name	CmdClear
Command6	AutoSize	True
	Caption	Exit
	FontBold	True
	FontName	Comic Sans MS
	ForeColor	0,128,128
	Name	CmdExit
Container1	BackColor	0,151,151
	BorderColor	64,0,128
Container2	BackColor	0,151,151
	BorderColor	64,0,128

  Tabel 1. Properties Form Operasi Matematika

*Kode Program*

Object: ( * )

Procedure: Click

  thisform.TxHasil.value=val(thisform.TxNlaiA.value)*val(thisform.TxNlaiB.value)

Object : ( / )

Procedure: Click

  thisform.TxHasil.value=val(thisform.TxNlaiA.value)/val(thisform.TxNlaiB.value)

Object : ( + )

Procedure: Click

  thisform.TxHasil.value=val(thisform.TxNlaiA.value)+val(thisform.TxNlaiB.value)

Object : ( - )

Procedure: Click

  thisform.TxHasil.value=val(thisform.TxNlaiA.value)-val(thisform.TxNlaiB.value)

Object : Clear

Procedure: Click

  thisform.TxNlaiA.value=""

  thisform.TxNlaiB.value=""

  thisform.TxHasil.value=""

  

  thisform.TxNlaiA.setfocus()

Object : Exit

Procedure: Click

  thisform.release

Lanjut baca...