2014年5月30日 星期五
unit test;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, Spin;
type
TForm1 = class(TForm)
Button2: TButton;
Label1: TLabel;
Edit1: TEdit;
Button1: TButton;
SpinEdit1: TSpinEdit;
SpinEdit2: TSpinEdit;
Button3: TButton;
Button4: TButton;
procedure Button2Click(Sender: TObject);
procedure Label1MouseEnter(Sender: TObject);
procedure Label1MouseLeave(Sender: TObject);
procedure Button1Click(Sender: TObject);
procedure Button3Click(Sender: TObject);
procedure Button4Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.Button2Click(Sender: TObject);
begin
ShowMessage('Hello..World')
end;
procedure TForm1.Label1MouseEnter(Sender: TObject);
begin
label1.Font.Color := clRed
end;
procedure TForm1.Label1MouseLeave(Sender: TObject);
begin
label1.font.color := ClBlack
end;
//顥示訊息
procedure TForm1.Button1Click(Sender: TObject);
begin
ShowMessage(Edit1.text)
end;
//計算累加
procedure TForm1.Button3Click(Sender: TObject);
var i,sum: integer;
begin
sum := 0;
for i:= SpinEdit1.Value to SpinEdit2.value do sum :=sum + i ;
Showmessage (InttoStr(sum));
end;
// 計算偶數
procedure TForm1.Button4Click(Sender: TObject);
var i,sum: integer;
begin
sum := 0;
for i:= SpinEdit1.Value to SpinEdit2.value do if (i mod 2 = 0) then sum :=sum + i ;
Showmessage (InttoStr(sum));
end;
end.
標籤: software
2014年3月25日 星期二
1. 向量圖取得 http://openclipart.org/
2. 線上編輯工具 imagebot
2014年3月11日 星期二
Search Field
|
Example
|
|
[Accession]
|
[ACCN]
|
|
[All Fields]
|
[ALL]
|
|
[Author]
|
[AU]
|
|
[Gene Name]
|
[GENE]
|
|
[Organism]
|
[ORGN]
|
|
[Properties]
|
[PROP]
|
|
[ Name]
|
[PROT]
|
|
[Sequence Length]
|
[SLEN]
|
|
[Title]
|
[TI]
|
|
public type
Free full text |
[ptyp]
|
review [ptyp]
"loattrfree full text"[sb] |
標籤: Bioinfo
2013年10月22日 星期二
2013年4月30日 星期二
1. 上傳 html 文件至 火google drive
標籤: Internet
2013年4月11日 星期四
生病
|
沒生病
|
|
檢查陽性
|
a
|
b
|
檢查陰性
|
c
|
d
|
標籤: Statistics
2013年3月25日 星期一
年少時 醉酒當歌 人生快意 放不下的是學業成績上的紅與計數不盡的相思顏紅
到如今 醉酒當歌 人生快意 放不下的是酒駕罰單上的紅與耳盼嘮叨的昔日顏紅
兒時年少 恣意 我笑 我痴 我狂
而今白頭 歲月 笑我 痴我 狂我
青春寫下的印記依舊 夥伴去去來來依舊
轉變的是那不再無据無束的你我
好友們 再浮一白
標籤: Mood
2012年11月22日 星期四
在同源的觀念中,常常見到這三個專有名詞"homologous、paralogous、orthologous" 其差異為:
Homologous (同源) = Paralogus (旁系同源) + Orthologous (直系同源)
Orthologous (直系同源) : 不同物種間負責相同功能的構造(可以指基因、蛋白質或構造)
Paralogus (旁系同源) : 同一物種 (或不同物種)內負責類似功能的兩構造 (可以指基因、蛋白質或構造)
例子:
1. 人的血紅蛋白包括四種 : 血紅蛋白A,血紅蛋白A2,血紅蛋白S和胎兒血紅蛋白,彼此間為旁系同源(Paralogus) ;免子與人類的血紅蛋白A 彼此間為直系同源(Orthologous)
2012年11月13日 星期二
1. 從 Windows 7 資料夾檔案複製到 Windows 8 相對應的資料夾中如下(注意版本問題 Win8 64 bit <-- 32="32" 32bit="32bit" 64bit="64bit" bit="bit" in8="in8" nbsp="nbsp" p="p" win7="win7">
32 bit
C:\Windows\system32\cintlgnt.ime
C:\Windows\system32\IME\IMETC10
64bit
C:\Windows\system64\cintlgnt.ime
C:\Windows\system64\IME\IMETC10
2. 執行 "倉頡.reg" 檔案註冊機碼。
------------------
Windows Registry Editor Version 5.00
[HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\CTF\TIP\{531FDEBF-9B4C-4A43-A2AA-960E8FCDC732}\LanguageProfile\0x00000404\{F3BA907A-6C7E-11D4-97FA-0080C882687E}]
"Description"="Chinese (Traditional) - New ChangJie"
"Display Description"=hex(2):40,00,25,00,53,00,79,00,73,00,74,00,65,00,6d,00,\
52,00,6f,00,6f,00,74,00,25,00,5c,00,53,00,59,00,53,00,54,00,45,00,4d,00,33,\
00,32,00,5c,00,69,00,6e,00,70,00,75,00,74,00,2e,00,64,00,6c,00,6c,00,2c,00,\
2d,00,35,00,30,00,39,00,33,00,00,00
"IconFile"=hex(2):25,00,53,00,79,00,73,00,74,00,65,00,6d,00,52,00,6f,00,6f,00,\
74,00,25,00,5c,00,53,00,59,00,53,00,54,00,45,00,4d,00,33,00,32,00,5c,00,69,\
00,6d,00,65,00,5c,00,49,00,4d,00,45,00,54,00,43,00,31,00,30,00,5c,00,49,00,\
6d,00,54,00,43,00,54,00,69,00,70,00,2e,00,44,00,4c,00,4c,00,00,00
"IconIndex"=dword:00000002
"Enable"=dword:00000000
-->
3. 於輸入法中,新增新倉頡輸入法。
2012年9月9日 星期日
1. 影像 --> 調整 --> 選取顏色 --> [藍色] : 青色 +80%, 洋紅+80% ; [青色] : 青色 +80%, 洋紅+80% ; [黃色] : 綠色 +80%; [綠色] : 黃色+30%
2. 複製背景圖層 --> 濾鏡 --> 模糊 --> 高斯模糊 --> 強度 4pixls --> 混合模式: 濾色
3. 背景拷貝圖層 : 圖層 --> 圖層遮色片 --> 全部顯現
4. 圖層遮色片 : 影像 --> 套用影像
5. 解除圖層遮色片鏈結
6. 背景拷貝圖層 : --> 濾鏡 --> 模糊 --> 高斯模糊 --> 強度 16pixls
7, 筆刷調整
標籤: Photo

