All about password

A easy remember password and also secure:

I think some of it like:

1248163264128256512.........

you can see the format like 1, 1x2,2x2,4x2,8x2

you just remember the formula
512 = 2 power 9
1024 = 2 power 10

some like this 1024204840968192

not easy to remember but you may use calc to spell out the formula

chinese like 5201314, this mean i love u forever.

so some like this jack5201314jenny

secure also and easy to remember, but the secure is you use a formula that i never mention above

maybe some like to use fuckingmom or fuckingbillgate or gotohellstevejobs

also can use this

1357924680

第三十一天在SJ工作 29-5-2012星期二。

今天到了，时间是刚刚好响钟。昨天上司讲今天有briefing，早上没有东西做，就看电子书-steve jobs中文版，上网买到的，因为下载不到。那个戴眼镜个子高高的帅哥应该是软件工程师，他旁边的那个就是之前安装新系统的人，也是瘦瘦的，他们使用laptop，帅哥是Toshiba，另外一个是Compaq，会议室有Projector，他的电脑是XP系统来的，只是他使用好像WIN7的theme而已，看下面的taskbar就知道，
win7就是我现在使用的，是没有显示Windows的title，难道是我错了，win7可以改setting弄到好像xp，这个我不敢肯定。系统很慢下，上司认为是firewall的问题，果然是VB。net写的，因为他开了VS，
if mode=“xx” then
。。。
end if
在if后面有 then是basic语言的特性，如果是先开始学习Java与c语言的人，或许会很难适应学习VB，
我是开始学习BASICA的，然后是PASCAL，DBASE，C，VB，C++，Java。c与java系语言要好好放
{} 还有 ；，所以当初学习C，搞到我头大了，总算过了。Java才是最难学的，以前学院没有教的。
时间到，briefing开始，首先是marketing，跟着是logistics，跟着就是production的头跟书记。
12：00PM就完了，彩虹打电话过来说，打印机的人到了，就过去看，原来是女的，还很漂亮，另外一个就没有那么“sang geng”，她说我可以回去，她们会把打印机拿回去修理。回去办公室之后，上司要我帮忙输入新系统的ID与密码，很多人，有70个那么多，还要弄authority的如，Add，Edit，Delete，Print，Export，Cancel，Approve。搞到头晕，就是那些做头的不能Add与Edit，只能Print那样，有的又不是，要看部门，所以很乱下。
没有去外面吃因为迟了，很少华人在canteen吃。回去办公室跟马来妹聊天，突然停电，想要看书都不能。隔壁的设计师进来了，他问我停电吗？因为他的laptop关机了，我说是呀！就和他聊天，都一个月了，就是对他不理睬，我这个人闷，没有什么话题，都是讲IT电脑的，我说我在看Android的书，他说老板要他做Apps，把公司的catalog放进去，然后上传到Android play让人下载来看。以后就会有话题，讲android apps喽，他设计很厉害的，就是不会java，要两个人合作嘛，我不会弄图，做到没有图片的apps谁要？时间到，就以为我的ID不能加authority，也没有开来看，上司也没有讲，我先剪纸张，写ID与密码，完成之后，就看下书，上司进来就问她。
上司责怪我说，隔壁planning在早上找我帮忙，因为excel文件出error，我检查发现不是Excel程序问题，是那个excel文件问题，我要她copy去我的电脑，可是她不是那么愿意，我就很气，我告诉她开个新文件，去旧的move and copy到新的，她说有40多个sheet，我开始问她文件是不是很大，她不敢答我，分明就是很大，人的职位还是很大，竟然向我的上司投诉我，搞到我被责怪，所以这种人以后不要帮忙，还是说问过上司先。以后还有很多机会遇到这样的问题，好像新系统要开始使用了。上司告诉我，把那个文件在自己的电脑开出来，然后save AS新名字。我气是因为她不信任我，怕我看到她的文件里面的机密，这样的话，最好是找我的上司了，我太没有地位了。Excel2007与2010都是XLSX的格式，应该是一样的，是XML的文件格式，所以可以把文件名字改去XMl使用浏览器打开来看。
接近4：00PM又有briefing了，这次是老板娘的部门--purchasing，我比较迟进去，因为去logistics给她们的密码与ID，还有拿啊cheng的卡号码，用来做密码的。里面，老板娘讲了很多关于收货，做帐之类的东西，又要那个新系统怎样怎样。嘉雯和旁边的同事一边讲一边笑，她的同事看了我一眼，分明是讲我。有时候一个职员离开这里，不一定是薪水问题，人事问题才大呢，搞不好没有礼貌，没有好的工作态度，会被人shot的，中了很多箭，真的很受伤。大公司人事复杂，那是一定的。5：10PM，上司要我去purchasing安装新系统，因为之前没有安装，上司被老板娘shot了，上司的压力很大！我赶快去安装，只是一架电脑罢了，是XP系统的，是啊燕那架，她不懂几个月，快要生孩子了。首先安装。net framework 2.0，然后login去server2，直接安装，然后打开新系统，使用啊燕的ID与密码进入，她也学会了，收工。
5：40PM了，啊威打电话来，我又要去物流部，啊呢已经回家了，不然要告诉她我弄好了authority，她可以看到那些report了。原来阿威要我安装IE，因为那个Chrome在某个网页不能够注册什么的，
我去program files，里面果然有IE，也是开到，弄个shortcut 出来就收工了。
回去自己的办公室，还有15分钟，set那个新系统的authority，这个新系统很废的，搞到我花很多时间去弄，上司教我tick那个print罢了，因为不要那些高级职位，不是data entry的高层添加与修改记录，所以只是能够print与看。我只是tick print没有tick 最左边那个，为什么我不tick，那是因为我tick就会全部tick完，就是麻烦，所以我必须tick check all，然后才来untick那些不要的，变成我做一个高层的ID要花8分钟！！！

V DO Report      V Add V Edit V Delete V Print V Export V Cancel V Approve

你看上面就明白了，如果我只是tick print，人家是看不到的，真的很气，真是烂系统来的。
如果有全部选就容易极了，tick check all 就搞定，可是那些做data entry的人又要untick
Delete，Cancel与Approve，弄70个ID，你想想要多少时间？6：00PM回家。

第三十天在SJ工作 28-5-2012星期一。

今天值得庆祝，30th了，到了办公室，对面的丽珠叫我去彩虹的Louvre办公室，去到才知道原来是Citizen barcode打印机不能打印，软件是Bartender，sticker有出来只是没有打印到，检查下，驱动没有问题，彩虹还讲她的电脑在旁边那家电脑不能进去，检查下Network setting，原来LAN disable了，
把它开了就ok，上司来到看了，认为是打印机的问题，唯有叫技术人员来。
跟着去Finance安装biztrak，WJ那家电脑是没有安装过的，安装步骤是这样，首先去network map drive z: \\192.168.2.102\d$ 那是一个隐藏的文件夹，里面有biztrak installation文件夹，就按setup，license file，client，express setup，后面那个问安装 Seagate选NO。之后还是不能进入的，要set ODBC 就是open database connection，选user DNS，Biztrak enterprise，network tab，
tick TCP/IP 然后在格子里面填: host=192.168.2.102;port:2638 可是那个port之前的符号我打：，结果跑不了，后来上司帮我弄好了，第一天安装就搞到这样，在上司的印象中被扣分了！winnie的电脑就简单，安装了就跑到，因为之前已经安装，只是出问题，上司讲不用uninstall，安装多一次就可以。
又是Excel处理data，很闷的，不过这次有挑战，可是我很快就想到解决方法：
code seq cost
X99 1 88.30
X99 2 18.12121
X99 3 4.111
X99 4 9.341
j34 1 90.23

就是有两个sheet里面的资料大概就是这样，记录有100，000以上，如果使用VBA来做就非常慢，
因为是要比对，找出相关的记录，谁都知道使用vlookup，可是这个function只能把一个格子里面不同的记录找出来，以上的X99有四个，怎么办？一个个用手做吗？十万个记录呀！！！



难道叫HR聘请十个书记，花一个月时间完成？那么要花费RM9000了，是吗？所以说有的公司要处理大量资料，有不会使用formula，应该找我，我收费RM3000，还很快呢！就是说这个解决方案应该得到RM3000的酬劳，可是我不是做生意，现在是打工嘛！

来了，解决方法是这样的，把code与seq结合变成 X991，那么就只有两个column，
问题是这样的：在那个item cost的文件里面只是有两个column就是 code 与 cost，这个就是要lookup的资料table，另外一个就是很多column，有seq column的sheet，也就是说它里面有一个column就是item cost是空的，需要填上，因为它的code是一样的，不能使用lookup，上司使用一个她认为好的方法，我说不用那么麻烦，解决方法简单，把那个《证人杀掉，毁尸灭迹》就可以。如果遇到这样的难题，code是同样，可是它的sequence是排好的，那么只要做出seq号码，加去code后面就可以让每一个记录都unique，
然后使用vlookup一分钟搞定！好技术性的讲解，或许我以后看也不会明白，如果我把一个excel文件给你看，里面有两个sheet，你就会明白，如果不用excel formula，使用Java 来做，很多人就难倒了，好像麻将游戏，怎么记录牌，其实只是144加8个花而已，使用array也是可以，dim pai(152) as string,
java是 char【152】 pai.在看Sams Teach Yourself Android Application Development in 24 hours，这本书是非常适合好像我这样的自己学习的人看，浅白易懂。
午餐在外面吃，后来还有半个小时就看书，ghost XP，remote desktop connection去server2，
打开Database utilities，是SQL server来的，看到公司名字的文件夹，里面有table，右键选top 1000 record就看到SQL code，如果不是很多，就按datagrid的角度按钮右键选copy with header然后paste去excel文件。跟着还要lookup那个itemcode出来，无聊的工作！
已经5：00PM，上司要我把之前的文件，与我copy 出来的比对，同样的就改文件名字，后面加上OK，不然就写reason。6：00PM回家。

RT

RT

FB ads

我现在和朋友一起搞生意，
是服务行业，有时候也做下销售。
提供的服务多样化，如：
format机安装视窗与软件，
硬件维护与更新，
电脑软件编程，
电脑软件教学，
server设定与安装，
架设网络系统，
光碟烧录与设计cover，
传单设计与打印，
网上搜索资料，
病毒软件更新与备份资料，
手机apps制作教学，
EXCEL VBA FORMULA编程，
SQL资料库编程，
DATA RECOVERY，
网页制作与安装，
总之与上网电脑有关的都有。
和丰的三家店都收费很高，
我们的公司设在珠宝，
我们会上门服务，
没有另外加收费，
只是公司很新，顾客比较少。
希望，你可以帮忙向朋友宣传下。

Java Ebook download site

http://www.4shared.com/office/dp3j9Kj7/MurachJavaServletsandJSP2ndEdi.htm
Murach.Java.Servlets.and.JSP.2nd.Edition.Jan.2008.pdf
http://www.4shared.com/office/pDGUHJfK/SUN_CERTIFICATE_PROGRAMMER_FOR.htm
SUN CERTIFICATE PROGRAMMER FOR THE JAVA 2 PLATFORM SE6.0.pdf  - 133M
http://www.4shared.com/office/Vo73kHwm/Core_J2EE_Patterns.htm
Core J2EE Patterns.pdf
http://www.4shared.com/office/N2lYN794/J2EE_Professional_Projects.htm
J2EE_Professional_Projects.pdf
http://www.4shared.com/office/cGCKYczR/building_java_enterprise_syste.htm
building java enterprise systems with j2ee.pdf

第二十九天在SJ工作 26-5-2012星期六。

今天又是做很闷的工作，把QTY与PACKING QTY分开，UOM（unit of material）可以是BOX或者是PCS，总之就是烦的东西，一下子就完成了，看书--VBA POWER programming Excel 2010,看到百多页了，
书有一千多页呢！
12：30PM那样去Louvre的办公室，里面有两个美女，长头发的没有理我，是新人来的，彩虹就跟我聊天，电脑是XP视窗，P4 1.8Ghz，512MB RAM，80GB HDD，是用来打印BARCODE的，那个打印机超级快的，一秒钟两张那样子。我使用scan那个HDD，不是在视窗，而是在重新开机进入视窗之前的。到了stage 4of5
，1：00PM了，我跟彩虹讲，scan完进入视窗之后你就shutdown吧，我要回家了。公司这样大，冷漠的人很多，可是能够好好交谈的十个手指都可以算得出来！

第二十八天在SJ工作 25-5-2012星期五。

早上PURCHASE有人讲开不到OUTLOOK EXPRESS，我就过去看，叫她开，结果开到，我就走人。
又是做昨天那些东西，闷到荒！那些SO 什么的。就是SALE ORDER啦。又要把5月的加进去，新系统一天不走，旧的东西又要download，然后加进去，为了convert去新系统，唉！ 上司给我很多个excel文件，
itemcode有四间公司，supplier code，customer code，staff code，眼花缭乱。要做的就是打开这些code文件，里面已经有了旧code与新code，还有vlookup的formula set好，把要换的copy paste去
To lookup那个column就可以，然后把新code copy paste回去。讲讲vlookup的厉害之处：

Old Code New Code To Lookup Vlookup（formula)
-------- -------- --------- -------
SX001    PL001   po001  hu981  
DF001 KL001
po001    hu981


Formula 是这样的：Vlookup（目标，Range，第几个column）
例子：Vlookup(C2,$A$2:$B$1000,2)
要有$，不然copy formula会走了。2是代表要找的是第二column，放1就会给回同样的，如果你的
资料table有三个column，那么2可以改去3，要2就2，要3就3（column），那个C2是会变的，如果
你copy formula，因为formula在D2，那目标就是C2，下一行formula在D3，那么目标就是C3了。
v是vertical，也是有hlookup的，只是比较不常用。这个function比写VBA要快很多，又简单易用。

啊chiang讲，他回复了我的电邮，我没有看到，赶快打开outlook，按send/received，看到了，我跟他讲GET，是GOT才对吗？这个人就是爱讲英文，不懂为何，又讲到很pasar哪种，我自己还不是一样。
接近11：30AM，外面的雷射打印机没有墨，上司叫我换，我好像变成Office Boy了，复印啦，搬东西啦，如果薪水高我是无所谓的。换三个toner，首先换最下面的，黑色，然后是蓝色，然后是粉红色，不是那么多人有机会换颜色的雷射打印机toner，超贵的，公司肯花钱，在这里工作好命喽！我总共换了四粒。
黄，黑，蓝，粉红。这里的雷射打印机超过五架以上，每个月花费在Cartridge与toner上的钱，起码都超过一千。

午餐在canteen吃，因为《聚友》两天没有开，这里没有什么好吃的，选择炸鸡与菜，加TEH O AIS limau要我五块，够贵的。很少看到华人在canteen吃，今天看到两个lengzhai。

过了6：00PM，Marketing的啊强打电话来讲，有电脑不能关机。是XP视窗，上司来看，她教我把CPU的Power按钮set去shutdown，之前是standby，HP机没有reset按钮的。按住Power五秒钟，就会关机，那是force关机，set了就按一下就可以鸟。
6：30PM那样子，老板跟我隔壁的设计师讲，为何没有公司的logo，他说放了不好看，他很够胆这样讲，老板说那张什么东西人家的都有logo，应该是catalog之类的什么东西。老板的性格就是很执着，如果什么都马马虎虎，还能够成功吗？做事认真，有系统，有计划才是成大业的！
7：00PM 回家。

第二十七天在SJ工作 24-5-2012星期四。

今天有点累，部落还没有写。早上就是做copy paste还有烦得是做 DespatchListCode--DL00000001
就是从今年一月三号起第一张INVOICE NO算起。做这个编码可以人手做，就是看到不同号码的就加一，
那个INV NO最好是顺序的，不然就错定了。如果是几百个（两百个），不用写程序也可以做到，一分钟做5个，那么只要40分钟就做好，有四间公司，共有15000个记录，做到你傻！！！
需要5000分钟来完成，一天600分钟，九天才完成，出错的机率也很大。使用VBA编程，四间公司一个小时半搞定！是这样编写的：

if SI0001 = SI0001 then
cells(i,2).value = "DL0000000" & j
else
j=j+1
if j<10 then
cells(i,2).value = "DL0000000" & j
elseif j < 100 then
cells(i,2).value = "DL000000" & j
elseif j < 1000 then
cells(i,2).value = "DL00000" & j
else
cells(i,2).value = "DL0000" & j
end if
end if
忙到，只是有一点点时间看书罢了，7：00PM回家。

第二十六天在SJ工作 23-5-2012星期三。

今天，是星洲日报出电脑副刊的日子，竟然没有时间看。
早上，做备份，做昨天biztrak没有完成的工作。上司要我安装ERP系统，四架电脑，PS，MA，MM，AS四个部门，开始先安装自己的电脑，结果跑不了，不敢问上司，去其它部门安装也是一样，记得KBB的人讲过，win 7要弄一点东西，就right click那个ERP Laucher的shortcut，选properties，看到compatibility，下面有个要tick的--run as administrator，然后按OK。
结果就顺利进入，新系统里面的资料还不完整。完成之后，有时间就学习Encryption，有Java code与VBA，使用XOR的，hashing之类，ASCII code 0-255，我做万字票可以这样

01 - chr（1+177）等于一个ACSII字，
1234 可以encode去 +] 省掉两个字，够厉害的。

然后可以做个好像winzip那样子的软件。
加密技术加强资料保安。新的打印机送来了，午餐过后安装在市场部的办公室，还有15分钟才到时间，就打开盒子，把里面的东西拿出来，是canon pixma ip3680，价格是RM280，Color Catridge是分开的，有五个Cartridges。
下午，上司要我改biztrack的会计Code.做到6:30PM,
市场部的人要我setup printer driver，10分钟搞掂，上司
竟然叫我不要走，她指导做copy paste 那个despatch，DO，packing list。7：00PM回家，明天继续做。

第二十五天在SJ工作 22-5-2012星期二。

早上有东西做，biztrak的5间公司的charts of account，改description。9：10AM那样子去
Purchasing安装KarMun的电脑视窗。

午餐回来后，阿威来找我，说有事要帮忙，就跟他去物流部，原来他的手指在他的电脑开不到出来。
电话来说Finance有事找我。原来是电脑的画面颠倒了，我不懂怎么解决，Chief Designer live lee刚好来了。他说是按错key，原来按了CTRL + ALT + 上，可是我的家里电脑不能的，我在物流部阿威的电脑试验可以啊。赶快去物流部，那个uncle就跟我聊天，至少有半个小时。Ann Nee果然厉害，她说是因为F:的drive letter被使用了，所以手指不会出来，她说以前有个人改了drive letter手指就出来，我说不会，
就回去上网查，查到了，去Mycomputer，右键选manage，storage，跟着就change drive letter了，
他们写起来，要防止别人使用手指copy你的文件，也是可以使用这个方法，人家以为手指坏了或者中毒了。
Karmun电脑还有东西烦，就是不能scan，能够scan也是没有HP的软件，因为她要扫描很多张，然后软件自动存成一个pdf文件。

还是要做biztrak，这次是delete不要的东西，上司给我一张B4的图表，删掉的要打勾，也是5间公司，做到6：00Pm回家，最后一间公司剩下一半还没有完成。

第二十四天在SJ工作 21-5-2012星期一。

今天到了将近八点。去HP的网页注册了，HP Passport。
没有什么东西做，过了10：00AM，algominda的人来，是来安装PCI wifi card还有UPS，


午餐回来，丽珠还在办公室，看来她的心情很好，跟我聊几句，也是没有东西做，过了4：00PM，HP的engineer来了。换了500GB硬盘，原来的是WD，换了Hitachi。
5：30PM回家。

Date compare and update with the latest record

Sub Getlast_po_date_only()

Dim i, j, k, cs, sb As Integer

Dim ll, pl As String

Dim st, dd(16000) As Date

Dim got As Boolean

Const max = 2152

st = Time

j = 1

dd(1) = "30/9/2011"

For i = 2 To max

ll = Worksheets(1).Cells(i, 2).Value & Worksheets(1).Cells(i, 4).Value

k = 1: got = False

    Do While k < j + 1

    pl = Worksheets(2).Cells(k, 2).Value & Worksheets(2).Cells(k, 4).Value

    'If Mid$(pl, 1, Len(pl) - 2) = Mid$(ll, 1, Len(ll) - 2) Then

    If pl = ll Then

        got = True:    cs = cs + 1

        If Worksheets(1).Cells(i, 3).Value > dd(k) Then

        sb = sb + 1

        Worksheets(2).Cells(k, 1) = Worksheets(1).Cells(i, 1).Value

        Worksheets(2).Cells(k, 2) = Worksheets(1).Cells(i, 2).Value

        'Worksheets(2).Cells(k, 3) = "'" & Worksheets(1).Cells(i, 3).Value

        dd(k) = Worksheets(1).Cells(i, 3).Value

        Worksheets(2).Cells(k, 4) = Worksheets(1).Cells(i, 4).Value

        Worksheets(2).Cells(k, 5) = Worksheets(1).Cells(i, 5).Value

        Worksheets(2).Cells(k, 6) = Worksheets(1).Cells(i, 6).Value

        Worksheets(2).Cells(k, 7) = Worksheets(1).Cells(i, 7).Value

       

        End If

    Exit Do

    End If

    k = k + 1

    Loop

   

    If Not got Then

    j = j + 1

    Worksheets(2).Cells(j, 1) = Worksheets(1).Cells(i, 1).Value

    Worksheets(2).Cells(j, 2) = Worksheets(1).Cells(i, 2).Value

    'Worksheets(2).Cells(j, 3) = "'" & Worksheets(1).Cells(i, 3).Value

    dd(j) = Worksheets(1).Cells(i, 3).Value

    Worksheets(2).Cells(j, 4) = Worksheets(1).Cells(i, 4).Value

    Worksheets(2).Cells(j, 5) = Worksheets(1).Cells(i, 5).Value

    Worksheets(2).Cells(j, 6) = Worksheets(1).Cells(i, 6).Value

    Worksheets(2).Cells(j, 7) = Worksheets(1).Cells(i, 7).Value

    End If

Next i

For i = 1 To 4700

Worksheets(2).Cells(i, 3) = dd(i)

Next

MsgBox "Start time : " & st & vbCrLf & "End time   : " & Time

MsgBox " CS : " & cs & vbCrLf & " SB : " & sb

End Sub

第二十三天在SJ工作 19-5-2012星期六。

今天早上没有什么东西做，昨天剩下两个文件，一下子就完成了。开始学习JAVA，没有使用Jcreator，开个notepad就搞定，使用command line compile：
c：\program files\java\java1.7sdk\javac c:\j\hello.java
成功就会得到hello.class 这个class文件是可以在linux，mac OS X上跑，但必须安装Java Virtual Machine。
之前我弄错，一直跑不到，后来明白了，Google也没有什么帮助到。
c：\program files\java\java1.7sdk\java -cp c:\j hello
我厉害到放hello。class结果跑不了，因为这个class在j文件夹，所以要这个-cp（classpath），
问题是没有方法compile去exe吗？不然就很麻烦，每次都要java -cp 。。。


上java-examples。com，果然很多例子，学习进展快速。有stringbuilder class，里面
有substring，insert，delete，replace，reverse之类。我需要学习开文件，写文件，
做string manipulation，然后就可以encoding与decoding文件。


上司要我做备份文件，就是旧系统的文件，有三家公司的，我每天都有备份在硬盘，礼拜六就必须备份一个星期的备份在外置硬盘，这个硬盘有1T呢！速度还算可以，不过上司要我把这个外置硬盘备份去那个1.5T的WD外置硬盘，我拷贝一个文件夹才10GB的，速度是440KB/s，超级慢，普通的速度是10MB/s的。到了1：00PM还没有完成，我cancel掉，shutdown回家。

第二十二天在SJ工作 18-5-2012星期五。

昨天漏了一个JKR的。今天早上加上去。又是做Wire set，不是很多。阿威，打电话来讲收不到电邮，原来是上司在logistic后面加s，我去开多一个户口，是没有s的，
结果大量的邮件进来，有八十封那么多，阿威看到头痛了，
把logistics删掉。
阿威要求我做address book，我试下export outlook contact出来，成功了，是CSV文件，就是comma delimiter windows file。打开excel就可以修改，有三个column要改罢了，就是名字，电邮地址，显示的名字（我放电邮地址）
午餐外面吃，回来就跟zilla两个人聊天。突然上司进来，原来是很多东西做，她打包回来吃。上司把Biztrak会计系统安装在我的电脑，还要安装ODBC（好像是open database connection）。原来是要我改Code，有五家公司，我这里是总公司。很多部门有ADMN，PURC，FINE，PROD，PROS，LOGS，QUAL，MKTG里面的子目录都要改名字如：ADMNADMN，FINEFINE都是八位的，它的description如果同样就，打“ ”空格键，让它的长度（length）不一样，那么就可以聊。
5:30Pm的时候，上司给我东西做，就是把四月的加去jan-mar的文件，改文件的名字去（在名字后面加 - jan-apr，如果没有apr的文件join就改去 - jan-mar而已），
7：00PM回家

第二十一天在SJ工作 17-5-2012星期四。

不懂什么原因，物流部文的电脑死命restart，进入不了视窗xp。想要安装多一个视窗也不能，应该是C partition变成unformat了，D：的就看到是NTFS，上司要我format。第一次在这里做这样的工作，电脑太旧，没有warranty聊。
我不懂选那个，其实不用选的，Workgroup就对了。不要选Domain什么的。XP pro就是要在安装的时候打电脑的名字，用户的名字。安装驱动非常简单，应该是使用某个软件把所有的驱动备份成一个安装文件，一下子就搞定。还要安装Office 2007，outlook设定电邮户口。
午餐在canteen吃，炸鸡饭加Teh O Ais Limau要RM4.8。
办公室没有其他人，除了马来妹，就跟她聊天，她三天没有来，她说cuti-cuti malaysia，她才工作5个月就拿三天假，
这样不好，花红会少的，所以如果没有什么，我会做工五年也不会拿一天假。
下午的时候，那个肥婆说要在这个电脑，弄一个文件夹，里面有她的电脑的文件，方便她电邮那些文件，这个是文件夹SHARE$,是一个隐形的文件夹。其他的电脑看不到，只有指定电脑弄了shortcut才可以看到。又学到东西了，网络技术是我最需要学习的。
到了五点才发现，原来zilla她发电邮给我，
网页的下载SIRIM文件需要更新，有7个那么多。首先，下载去相关的文件夹，然后去公司。com\webzmaster login
选category，然后按edit，remove掉那个pdf文件，再进去选文件upload，也是要改文件名字。这些都是SIRIM批了的证书，里面可以看到有效的日期。做到6：00PM就回家。

第二十天在SJ工作 16-5-2012星期三。

今天早上到了办公室，我的电脑竟然开着，很惊奇！没有见到上司。大概九点上司才进入办公室，奇怪！（后来知道她拿假一个小时去看医生）
没有东西做就研究万字票全打，原来有5重组合（排好之后sorting）：


1.aaaa
2.aaab or bbba
3.aabb or bbaa
4.abbc or acbb or bbac
5.abcd


下午三点过后，KB的人开始安装Business operation系统，有的电脑是XP需要安装dot net framework 2.0。
我不会上网下载Offline installer。下载之后发现只有20多MB而已。安装这样的，打\\server2或者\\192.168.2.102
输入administrat--然后是密码P@ssw0rd--。去ERP文件夹，按setup。


四点多的时候，刚好在planning房，突然停电。就跟里面的一个美女聊天，原来她跟男友一起住，唉这里很难找到女朋友，很多都是有了（另一半）的。她是读会计的，她说她在这个房间听到很多她的上司与老板的对话，还有老板与客户的对话，内容就没有告诉我。我就是喜欢这样的女孩，但能够找到吗？停电让我有机会跟她聊天，下一次机会要等到什么时候？
5：20PM电有了，是因为机器overloading造成停电的。这个时候KB的人换了个比较高级的，他告诉我这个新系统是使用VB。NET 2005 。net 2.0制作。我问他为何安装文件这么大。接近30MB，他说里面有COM，你懂什么是COM+吗？
我说看到他的公司上报纸，是7周年纪念。看来在这个山城没有什么公司是他们的对手，GREENTOWN也是有，不过是使用Java那个Apache Tomcat制作软件系统的。BB Menglembu的就没有做软件，只是做大型的网络系统使用ASP。net的。
6：30PM回家之前，做了三分钟文件转换工作。

第十九天在SJ工作 15-5-2012星期二。

是因为塞车，我最多早到7分钟而已。早上做没有难度的工作，就是copy n paste而已。学习到做Number to English word。就是在VBA做一个function spellnum（）


在immediate window（？spellnum（1111））或则在worksheet（=spellnum（A1））


就是把数字转换去文字（英文，中文，马来文等等）


if num = 1 then
output = “One ”
rem 马来文： Satu
elseif num = 10 then
output = “Ten ”
rem 马来文： Sepuluh
end if


spellnum = “Ringgit Malaysia : " & output & "only."


可以做到billion--1，000，000，000


就是这样子，有的收据（resit）也是有打印这个英文字数目的，可以留意下。




靠近3：00PM，上司叫我去安装网络线，就是拿三条网络线去插在socket还有电脑，然后测试看是否能够联机。
MA与MM都可以，MM阿德那里需要安装打印机驱动，打印机在隔壁的CADROOM，是LBP2900，又是CANON机！安装方法是这样，
打\\Nt2进入那个电脑，然后看到share的打印机icon，
滑鼠右键connect，然后安装驱动，完成之后就随便开个文件测试打印，成功了。5：30Pm回家。

第十八天在SJ工作 14-5-2012星期一。

我的上司真是早，可能是怕塞车迟到吧。也是做Excel的工作，AlgoXXXXX的人来安装网络线。带他去三个
地方：PI，MA，MM。今天不是转换文件那么简单，是把Supplier Code与Itemcode相同的记录filter，
有的同样会有很多个，不用理PO号码，是要把日期最新的记录拿出来，够挑战吧！ 有一个文件超级巨大，
〉50000个records，要两个小时来完成。VBA 就是比对两个column的资料，可以合起来，就是
pl = cells(i,3) & cells(i,5)
if pl = nl 下来就是查日期，使用这个">"，新日期是大过旧日期的，就是这样简单。如果日期比较新就更新worksheets（2）
那一行record，其他的不用理。终于完成，6：30PM回家。

【12-5-2012】买到的杂志大全，如下：

电子时尚electronic lifestyle - Apr 2012 - RM7.00
    -4部顶级手机，4大操作系统：尖峰时刻生死对决

Apps iPhone X Android - 9 Feb 2012 - RM4.00
    -严选15款必装apps
    -无限Data Plan末日救星
    -iPhone wifi 简易设定

Chip - Apr 2012 - RM9.90
    -ASUS Transformer Pad
    -BenQ XL2420T Monitor

PC3 Magazine - 27 Mar 2012 No.580 - RM5.50
    -为Ivy Bridge作准备MSI全新7系主机板率先试
    -PC/iOS/Android免费1击直取Dropbox 23GB空间

PC3 Magazine - 3 Apr 2012 No.581 - RM5.50
    -Win8 USB版 一插即玩
    -免破解玩Angry Birds Space

电脑1周 PCS - 17 Mar 2012 No.593 - RM4.50
    -流动装置追踪术
    -绕道破解iPod上装WhatsApp

Game Weekly - 30 Mar 2012 No.635 - RM5.00
    -Mass Effect 3
    -宠物小精灵+信长之野望

Linuxpilot - Feb 2012 vol.110 - RM11.00
    -10分钟无痛写app人人动手砌出来
    -为2012智能手机阵营把脉

手机玩乐志 Ering

第十七天在SJ工作 12-5-2012星期六。

    今天，早上在外面遇到上司（终于有一天我早过她），她说早晨，我也说早晨，好无聊。去物流部，
搞打印机，拿一条超级长的parallel cable去接打印机与电脑。好象没有问题，如果有也是打印机的问题。
因为换了电脑来测试打印机。

    上司把一个文件夹交给我，原来又是资料输入，她说之前那个女子做了一点就走了，很难做的吗？
答案是不是！每个产品都有代码，它的原料也是有代码，工作很简单的，在excel文件里面，做那个叫
wire set的资料库，文件夹里面就是产品图表，是使用autocad画的，也是有人手写的电线颜色与长度。
我的工作就是打字寻找产品的代码，然后拷贝代码加概述，如下：

WWSxxxxxxx Wire set xxxxxxxxx HHTSxxxxxxxx Holder xxxxxxxxxxxxxxxxxxxxx

电线比较费神，有的没有0.8MM就必须加-8在代码后面，概述也是要加 0.8MM，还有NEW的column加红色的Y，
所以比较慢，10：14AM开始做，到了1：00Pm才完成300多行而已。1：00Pm之后，我去Jaya Jusco的MPH看书。

很多都是那个Paul Deitel写的，是Pearson出版社的如：Java how to program, C++ how to program, C#
how to program, Visual basic how to program.有的卖RM106，RM118那样子。之前那个Wrox的RM186那本
厚厚的卖掉了，没有看到，这里的书很冷，没有多少个会买，所以存货也不多。有一本OXford出版的C++
Data Structure卖到很便宜，才RM55而已。Autocad 2010到2012的书也是有，Photoshop CS5的也有。

    结果呢，我去Happymag买了123.40杂志，有接近20本那样多，看到收银的女人傻眼！这些杂志很多是旧的，
最新的也是may与april的。我买到爽，以后每两个星期去一次，因为有的杂志是每个星期出的。回到家才4：00PM。

第十六天在SJ工作 11-5-2012星期五。

今天早上到了，没有锁匙开门进去，隔壁也是一样。我这里三个人，隔壁两个人。在外面等，当然有人帮忙，
可是他们的锁匙还是开不到，应该是等到经理来开。上司去了培训，就上网寻找资料，然后读Excel 2010
power programming VBA，了解到EXCEL的前世今生，这本书真的很好。

    午餐，在外面吃，没有见到阿Loong，那个人讲他去食堂吃马来餐。上司也回来了，没有说什么。只是说
很塞车。去看Purchasing部门的电脑，救不了，上司要我抄HP 电脑的SErial号码，送去warranty。
上司把warranty纸找出来，要我安装scanner的驱动，我把scanner的usb接去电脑，视窗自动检测然后上网
下载与安装驱动，都省得我放CD安装驱动，自动的。怎么扫描，难道要人教吗？我打开MSPAINT，file，然后
就scan，不过我放正，扫描出来却倒反，我按Rotate 180，就搞定，然后save去JPEG格式，就完成了。

    我电脑的outlook收到电邮，是上司发去salem。heong @@ algominda。xxx。xx CC给我的。5：30回家。

VBA convert data make easy!

Some question you may ask like the following:

I don't want the last character of my string, how?

string = chakhua12@gmail.com.

Solution:

string  = StrReverse(Mid$(StrReverse(string), 2))

Comment: There are many solution, but this is the

simple one, easy to understand.

How do I change all the following word to "@"(because ?

want to make email extractor)

[at]

-at-

<at>

=at=

Solution:

string = Replace(string, "[at]", "@")

string = Replace(string, "-at-", "@")

string = Replace(string, "<at>", "@")

string = Replace(string, "=at=", "@")

第十五天在SJ工作 10-5-2012星期四。

今天上司没有来，昨天她告诉我说她去training，那个新的MIS系统嘛。Marketing的印度妹来烦，说她的HP Laserjet P1505N paper jam，她拔出来，结果还有一部分卡在里面，要我拿出来，当然要拿screwdriver来开，我也没有工具，唯有叫外面的人来稿罗。原来Purchase部门那里也是有问题，都9：00AM，那个Ol还在玩手机，原来是她的电脑进不到视窗，
error message讲HDD imminent什么鬼的。我跟她讲HDD坏了，也不一定。按F2，执行recovery windows，结果跑到了，
明天不懂会不会又出毛病。

午餐又是和阿loong一起吃，不过日子不多，下个星期他要走了。下午没有东西做，把EXCEL文件做密码锁住。这个不是excel那个密码，是使用VBA来做的，就是：

sub workbook_open()
form1.show

end sub


sub form1_terminate()
dim pass as string
do

pass = inputbox("Input password")

loop while pass <> "password"
end sub

如果没有密码，那个inputbox不能关掉，就没有办法看excel文件内容了，这个不是excel密码，也不是VBA密码，使用其他破解excel密码的软件是没有用处的，利害吧！

也做到一个Email extractor,java的不用做啦，已经有了，我可以改良excel VBA的Email extractor，能够自动发信的都可以。5：30Pm回家。

第十四天在SJ工作 9-5-2012星期三。

今天有外来的人，早上就是那个打卡电脑公司的人，他说那个系统是用COBOL写的，当然是DOS的界面，电脑是跑WINDOWS SERVER 2003，NOVELL 网络系统。昨天与前天的打卡记录都没有了，写在人事部派来的电脑纸。

午餐去外面吃，遇到阿Loong，和他还有一个戴眼镜的（穿supervisor制服的），也就是三个戴眼镜的，一起吃饭，能够同桌吃饭也要讲缘分。谈到IG那个阿liew，原来那里也是需要IT人才，阿Loong怂恿我离开这里，我说还好嘛，做到退休也不要紧。因为我都三十多，人家公司不会要我的啦，如果去到那里或许比这里还要差，那时候后悔也来不及了。阿loong没有电脑用与桌子坐，因为他是QC嘛!不懂他为何不要做UNISEM来这里，有机会约他出来慢慢聊天。回去的时候看到以前老板（光头佬）的车子Nissan AHQ8020，不懂他来这里干嘛！

下午ALgominda的技术人员到了，叫阿loi，他检查了DVR告诉我们说，只是网络电缆接收不到，所以Guard与人事部的电脑看不到画面，CCTV还是有录影到的。他把fibre optic电缆拿出来看，如果里面没有光线射出来就代表connect不到。

放工的时候，在停车亭见到阿Loong，问他拿手机号码，他做到下个星期就会换工作，在Lahat做。

第十三天在SJ工作 8-5-2012星期二。

今天也是上司比我早到，也是做文件转换工作，物流那里的打印机就是那么喜欢出毛病。午餐没有去外面吃，去珠宝的PBB银行开户口，到了那里竟然找不到打印号码的机，问人，人家说按C，我也不会，结果要人家帮忙按，真搞笑！
这里算是快的了，我来回才44分钟（14公里），不过这里比Bercham的要贵，共RM58，RM50是存款，拿到存折与提款卡。
回去的时候，发现办公室的房间门锁了，唯有等。去物流部，做点吃力的工作，把靠墙的CPU搬出来，放在桌子下面。
都是我不好，拔cable的时候不看清楚，结果安装回去的时候把MON的cable接去妈妈板的VGA，结果什么都没有，我问上司有没有显示卡，她说没有（其实有）。她要我转CPU，让她看后面的PORT，结果发现是有安装显示卡的，简单，把LCD插在显示卡，那么MON就有画面了。5：30Pm回家。

第十二天在SJ工作 7-5-2012星期一。

昨天晚上一点才睡，是和朋友去PARADE看AVENGER，两个
小时才完，有STAR WAR的大场面打斗。那个SJSP不用备份，可能是那个公司没有运作，大公司是有很多分公司的。也是做转换文件的工作。

今天是第二次去外面吃，叫“聚友”的店。因为太累，没有写部落，或许有的东西漏掉。Guard的人讲CCTV看不到某个部分的画面，和上司去放SERVER的房间检查，都是用FIBRE OPTIC电缆。今天6：00Pm回家。

Excel 2010 VBA email extractor source code

Sub pickmail() 'http://emailx.discoveryvip.com/
Dim i, j, l, c As Long
Dim a, b As Long
Dim s As String
Const max = 10000
Dim ss() As String
Dim coll As String
l = 0
coll = "Email Address:"
For i = 1 To max
If CStr(ws(i, 1)) <> "" And Len(CStr(ws(i, 1))) > 10 And _
InStr(1, CStr(ws(i, 1)), "@") > 2 Then
s = CStr(ws(i, 1))
s = "a " & s
s = Replace(s, "me at", " ")
s = Replace(s, "Email at", " ")
s = Replace(s, "(", " ")
s = Replace(s, """", " ")
s = Replace(s, "/", " ")
s = Replace(s, "...@", "???@")
s = Replace(s, "...", " ")
s = Replace(s, ")", " ")
s = Replace(s, ",", " ")
s = Replace(s, ";", " ")
s = Replace(s, "=", " ")
s = Replace(s, "[at]", "@")
s = Replace(s, "[.]", ".")
's = Replace(s, " at ", "@")
s = Replace(s, "-at-", "@")
s = Replace(s, "(at)", "@")
s = Replace(s, "<at>", "@")
s = Replace(s, " @ ", "@")
s = Replace(s, "<", " ")
s = Replace(s, ">", " ")
s = Replace(s, "|", " ")
s = Replace(s, ".htm", " ")
s = Replace(s, ".html", " ")
s = Replace(s, "gmail.com", "gmail.com ")

ss = Split(s, " ")
    For j = 1 To UBound(ss)
    If InStr(ss(j), "@") > 0 And InStr(ss(j), ".") And Not Mid$(ss(j), 1, 1) = "." And _
    Not InStr(1, ss(j), "*") > 0 Then
       
        If InStr(1, coll, ss(j)) < 1 Then
        c = c + 1
             
        If Mid$(StrReverse(ss(j)), 1, 1) = "." Then
        w c, 8, StrReverse(Mid$(StrReverse(ss(j)), 2))
        coll = coll & StrReverse(Mid$(StrReverse(ss(j)), 2)) & ","
        Else
        w c, 8, ss(j)
        coll = coll & ss(j) & ","
        End If
        End If
    End If
    Next j
End If
Next i

MsgBox "c= " & c & vbCrLf & coll
End Sub

Sub alias()
Dim i As Long
Dim s As String
For i = 1 To 2000
If Len(CStr(Worksheets(1).Cells(i, 1).Value)) > 7 Then
s = CStr(Worksheets(1).Cells(i, 1).Value)
    k = InStr(1, s, "@")
   
    If k > 0 Then
    j = j + 1
    Cells(j, 9).Value = Mid$(s, k - 6, 16)
   
    End If

End If
Next
End Sub

Sub www()
'On Error Resume Next
Dim i, j, k, l, m As Long
Dim s As String
For i = 1 To 2000
'If Worksheets(1).Cells(i, 1).Value <> "" Then
If Len(CStr(Worksheets(1).Cells(i, 1).Value)) > 7 Then
s = CStr(Worksheets(1).Cells(i, 1).Value)
    k = InStr(1, s, "www.")
   
    If k > 0 Then
    l = InStr(2, s, "/")
    If l > 0 And l > k Then
    j = j + 1
    Cells(j, 10).Value = Mid$(s, k, l - k)
    End If
    End If

End If
Next i
End Sub
Sub typedrama()
Dim i As Long
Dim s  As String
For i = 1 To 67
If i < 10 Then
s = "type drama0" & i & ".txt >> dra.txt"
w i, 8, s
Else
s = "type drama" & i & ".txt >> dra.txt"
w i, 8, s
End If
Next
End Sub
Sub types()
Dim i As Long
Dim s  As String
For i = 1 To 67
If i < 10 Then
s = "type movies0" & i & ".txt >> mov.txt"
w i, 8, s
Else
s = "type movies" & i & ".txt >> mov.txt"
w i, 8, s
End If
Next
End Sub
Sub array_make()
Dim i, j As Long
Dim s, t As String
j = 0
For i = 1 To 39677
s = ws(i, 1)
If InStr(1, s, "\") > 2 Or InStr(1, s, "bytes") > 2 Or Len(s) < 5 Or _
InStr(1, s, "Volume") > 0 Or InStr(1, s, "files") > 1 Then
Else
j = j + 1
t = "sl(" & j & ") = " & """" & s & """"
w j, 8, t
End If
Next
MsgBox j

End Sub

Sub Genmail()
Dim i, j, k, tot As Integer
Dim l As Integer

Dim s As String
l = 0
tot = 0
For i = 1 To 22
For j = 1 To 18
If Len(ws(j, 5) & ws(i, 1)) > 6 Then
s = s & ws(j, 5) & ws(i, 1) & "@gmail.com,"
tot = tot + 1
End If
Next 'j
l = l + 1
w l, 7, s
s = ""
Next

w 1, 6, CStr(tot)
End Sub
Sub w(i As Long, j As Long, k As String)
'ÊÇ°ÑÏÂÃæµÄ´úÂë¼ò»¯£¬cells£¨column£¬row£©
Worksheets(1).Cells(i, j).Value = k
End Sub
Function ws(i, j)
'ÓÃÀ´¶Á¸ñ×ÓµÄvalue
ws = Worksheets(1).Cells(i, j).Value
End Function

Sub ll()
If InStr(1, ws(i, 1), "@") Then
s = Mid$(ws(i, 1), InStr(1, ws(i, 1), "@") - 10, 29)
l = l + 1
w l, 10, s
End If
End Sub

My Girl friend email!

xinxin1208@hotmail.com

xywong98@hotmail.com
yengk2010@hotmail.com

laiy1999@hotmail.com
yuki.0810@hotmail.com
kiki_0214wong@hotmail.com
jacy0301@hotmail.com
ngaichuyee@yahoo.com

  pooisun82@hotmail.com
seeling0202@hotmail.com
jaleyyip@yahoo.com

do u understand the following c++ code?

#include <iostream>
#include <ctime>
#include <cstdlib>
#include <algorithm>

using namespace std;

void menudisplay();
int menuoption();
int datavalidation (char data[100]);
void datavalidation2 (char data[100],int j,int guess[4]);
int datavalidation3 (char name[30]);
void option1 (int noplayer[1], char nameno[5][30],int length[5]);
void option2(int randomnumber[4],int noplayer[1],int length[5],char nameno[5][30],double dif[5],int notime[5]);
void rating (int notime[5],double dif[5],int noplayer[1],int length[5],char nameno[5][30]);
void random(int randomnumber[4]);
void testguess(int j,int guess[4]);
int conditionguess(int guess[4],int randomnumber[4],int j);
void displayallplayer(int noplayer[1], char nameno[5][30],int length[5]);

int main()
{
char data[100],nameno[5][30];
int option,counter=0,noplayer[1],length[5],randomnumber[4],notime[5],counter2=0;
double dif[5];

do
{
menudisplay();
option=menuoption();

if(option==1)
{
counter=1;
counter2=0;
option1(noplayer, nameno, length);
}
else if(option==2)
{
if(counter==0)
{
cout<<"Sorry. Please register first before you play the game.\n\n";
system("pause");
}
else
{
counter2=1;
option2(randomnumber,noplayer,length,nameno,dif,notime);
//cout<<notime[0]<<notime[1];
counter=0;
}

}
else if(option==3)
{
if(counter2==0)
{
cout<<"Sorry. Please play first before you want to show the ranking.\n\n";
system("pause");
}
else
{
rating(notime,dif,noplayer,length,nameno);
}

}

}while(option!=4);

}

void menudisplay()
{
system("cls");
cout<<"Menu\n"
<<"----\n"
<<"1.To register number of participants and name\n"
<<"2.To start the game\n"
<<"3.To show ranking\n"
<<"4.To quit\n"
<<"\nOption: ";
}

int menuoption()
{
int option;
char data[100];

fflush(stdin);
cin.getline(data,100);
option=datavalidation(data);
if(option>4&&option<=10)
{
cout<<"Error!\n";
system("pause");
}
else
{}
return option;
}

int datavalidation (char data[100])
{
int alpha=0,digit=0,space=0,correctdata,place;
for(int i=0;i<strlen(data);i++)
{
if(isdigit(data[i]))
{
++digit;
place=i;
}
else if(isspace(data[i]))
{
++space;
}
else
{}
}
if(digit==1&&digit+space==strlen(data))
{
correctdata=data[place];
return correctdata-48;
}
else if(space==strlen(data))
{
return 100;
}
else
{
return 10;
}
}

void datavalidation2 (char data[100],int j,int guess[4])
{
int alpha=0,digit=0,space=0,place[100],k=0;
for(int i=0;i<strlen(data);i++)
{
if(isdigit(data[i]))
{
++digit;
place[k]=i;
k++;
}
else if(isspace(data[i]))
{
++space;
}
else
{}
}
if(digit==4&&digit+space==strlen(data)&&place[0]==place[1]-1&&place[1]==place[2]-1&&place[2]==place[3]-1)
{
guess[3]= data[place[3]]-48;
guess[2]= data[place[2]]-48;
guess[1]= data[place[1]]-48;
guess[0]= data[place[0]]-48;
}
else if(space==strlen(data))
{
return testguess(j,guess);
}
else
{
cout<<"INVALID INPUT"<<endl;
return testguess(j,guess);
}
}

int datavalidation3 (char name[30])
{
int space=0;
for(int i=0;i<strlen(name);i++)
{
if(isspace(name[i]))
{
++space;
}
else
{}
}
if(space==strlen(name))
{
return 0;
}
else
{
return 1;
}
}

void option1 (int noplayer[1], char nameno[5][30],int length[5])
{
char data[100],name[30];
int condition;
do
{
system("cls");
menudisplay();
cout<<1;
cout<<"\n\nPlease enter the number of participants <1-5>: ";
fflush(stdin);
cin.getline(data,100);
noplayer[0]=datavalidation(data);

if(noplayer[0]>5&&noplayer[0]<=10)
{
cout<<"Error!\n\n";
system("pause");
}
else
{}
}while(noplayer[0]<1||noplayer[0]>5);
for(int no=1;no<=noplayer[0];no++)
{
do
{
cout<<"Please enter name "<<no<<": ";
fflush(stdin);
cin.getline(name,30);
condition=datavalidation3(name);

if (condition==0)
{
system("cls");
menudisplay();
cout<<1;
cout<<"\n\nPlease enter the number of participants <1-5>: "<<noplayer[0]<<endl;

for(int no1=1;no1<no;no1++)
{
cout<<"Please enter name "<<no1<<": ";
for(int i=0;i<length[no1-1];i++)
{
cout<<nameno[no1-1][i];
}
cout<<"\n";
}

}
}while(condition==0);
for(int i=0;i<strlen(name);i++)
{
nameno[no-1][i]=name[i];

}
length[no-1]=strlen(name);
}
//displayallplayer(noplayer,nameno,length);
}

void option2(int randomnumber[4],int noplayer[1],int length[5],char nameno[5][30],double dif[5],int notime[5])
{
int guess[4],c;
time_t start,end;

for(int no=1;no<=noplayer[0];no++)
{
random(randomnumber);
system("cls");
for(int i=0;i<length[no-1];i++)
{
cout<<nameno[no-1][i];

}
cout<<", it's your turn. Please press any key to start ";
system("pause > nul");
int j=1;
time (&start);
do
{
testguess(j,guess);
//cout<<guess[0]<<guess[1]<<guess[2]<<guess[3]<<endl;
//cout<<randomnumber[0]<<randomnumber[1]<<randomnumber[2]<<randomnumber[3];
c=conditionguess(guess,randomnumber,j);
if(c!=4)
{
j++;
}
else
{}
}while(j<=10&&c!=4);

time (&end);
dif[no-1] = difftime (end,start);

notime[no-1]=j;

if(j=10&&c!=4)
{
cout<<endl<<"You are lose. The correct answer is "<<randomnumber[0]<<randomnumber[1]<<randomnumber[2]<<randomnumber[3]<<" and u used "<<dif[no-1]<<"s"<<endl;
}
else
{
cout<<"Congratulation!!! u used "<<dif[no-1]<<"s"<<endl;

}

system("pause");
//cout<<endl<<dif[0];

}
}

void rating (int notime[5],double dif[5],int noplayer[1],int length[5],char nameno[5][30])
{
int smallest;

for(int first=0; first<noplayer[0]; first++)
{
smallest = notime[first];

for(int second=first+1; second<noplayer[0]; second++)
{
if(notime[second]<smallest)
{
swap(notime[second],notime[first]);
swap(dif[second],dif[first]);
swap(nameno[second],nameno[first]);
swap(length[second],length[first]);
}

else if((notime[second]==smallest) && dif[second]<dif[first])
{
swap(notime[second],notime[first]);
swap(dif[second],dif[first]);
swap(nameno[second],nameno[first]);
swap(length[second],length[first]);
}
}
}


cout<<"Ranking List"<<endl
<<"---------------"<<endl;
for(int j=0; j<noplayer[0]; j++)
{
cout<< j+1<<". ";
for(int i=0;i<length[j];i++)
{
cout<< nameno[j][i];
}
cout<<endl;
}

system("pause");
}

void random(int randomnumber[4])
{
srand(time(NULL));
randomnumber[0]= rand()%9+1;
do
{
randomnumber[1]=rand()%10;
}while(randomnumber[1]==randomnumber[0]);

do
{
randomnumber[2]=rand()%10;
}while(randomnumber[2]==randomnumber[0]||randomnumber[2]==randomnumber[1]);

do
{
randomnumber[3]=rand()%10;
}while(randomnumber[3]==randomnumber[0]||randomnumber[3]==randomnumber[1]||randomnumber[3]==randomnumber[2]);

system("cls");
cout<<"The random number generated is ";
for(int i=0;i<=3;i++)
{
cout<<randomnumber[i];

}
cout<<endl;
system("pause");
}

void testguess(int j,int guess[4])
{
char data[100];
cout<<"\nGUESS #"<<j<<": ";
cin.getline(data,100);
datavalidation2 (data,j,guess);
}

int conditionguess(int guess[4],int randomnumber[4], int j)
{
int c=0,w=0,p=0;
for(int i=0;i<=3;i++)
{
if (guess[i]==randomnumber[i])
{
c++;
}
}
if (guess[0]!=randomnumber[0]&&guess[0]!=randomnumber[1]&&guess[0]!=randomnumber[2]&&guess[0]!=randomnumber[3])
{
w++;
}
if(guess[1]!=randomnumber[0]&&guess[1]!=randomnumber[1]&&guess[1]!=randomnumber[2]&&guess[1]!=randomnumber[3])
{
w++;
}
if(guess[2]!=randomnumber[0]&&guess[2]!=randomnumber[1]&&guess[2]!=randomnumber[2]&&guess[2]!=randomnumber[3])
{
w++;
}
if(guess[3]!=randomnumber[0]&&guess[3]!=randomnumber[1]&&guess[3]!=randomnumber[2]&&guess[3]!=randomnumber[3])
{
w++;
}
p=4-c-w;
if (j<=9)
{
cout<<c<<"c "<<w<<"w "<<p<<"p"<<endl;
}
return c;
}

void displayallplayer(int noplayer[1], char nameno[5][30],int length[5])
{
for(int no=1;no<=noplayer[0];no++)
{
for(int i=0;i<length[no-1];i++)
{
cout<<nameno[no-1][i];
}
cout<<"\n";
}
system("pause");
}

第九天在SJ工作 3-5-2012星期四。

今天到了，上司还是比我要早。我还没有备份档案，上司叫我去Metal Auto，哪里有电脑的
power supply烧了，到了那里，那个马来妹讲听到声音，我按power按钮，没有反应，换旁边电脑的
cable也是一样，走回去告诉上司。结果上司要我搬电脑来办公室，有要走去MA一趟，哪里来这里大概要
三百公尺呢，好累。那电脑还是under warranty的，叫电脑店的人来拿。

又要转换文件，是AR APR的，大概有76乘7排，11：00Am完成，日期转换出问题，使用人手改。
上司要我去安装solid edge，就赶快去，首先反安装，然后安装，结果还是不能跑，时间到，休息。
休息回来，告诉上司不能，autocad需要公司资料注册，她给我一个注册纸，要我去复印。注册之后，
要上网的，就可以跑，完成。

之后没有什么东西做，就学习VBA，pivot table的，还有trace那个CRC的程序流程，下载电子书。
接近五点的时候，物流部的啊玲，打电话来讲打印机出问题。上司要我把USB从后面，插去前面的PORT，
然后回去，结果不可以，又要去，不是很会，打电话回去，上司过来。开始测试打印机，搞了很久，
那个Ebuilder的程序是server网络的，可能这样打印就不稳定，结果上司想到换printer cable测试，
去store，啊君的电脑，换去这个cable，又可以用，把哪里的拿来物流部测试，结果没有问题，因为那
个cable比较长，直接去CPU，之前是勃长的，太长都会容易出问题！时间是5：45PM，回去整理下东西，
6：00PM回家。

第八天在SJ工作 2-5-2012星期三。

到了的时候，发现上司比我还要早。还有三分钟，休息下，响钟了就开电脑。上司说server太热，
hang了，跟她去Purchase dept，她按CTRL+ALT+DEL 重新开机，系统是windows server 2003，
密码就是password，跟着试下，上到网了。我也开始做备份，一天大概使用6M的空间，大概使用了
1000天，扣了假期与礼拜天，一年大概是300天，这个系统使用了三年多！

也是没有东西做，看书，Beginning C# OOP programming。人事部的EPSON打印机出问题。
上司要我一起去看，那个小姐讲有时候会jam纸张，上司试了很多次，没有出现问题，我们就回去了。
中午天很黑，我吃饭过后就下雨，上司没有去外面去，问我canteen有什么吃，她打算在canteen吃。
休息时间过了，上司还没有给我东西做。

大概两点的时候，上司走过来，要我开intray，原来她把文件转了过来。是PO（purchase order）
与GRN的文件。也是一样，要转换，上司讲她三点回家。先做PO，好难哦！原来是。。。。。。。。。。。
一页页的，我分析一下，每一页都有NO，就使用VBA extract那个NO#，同一行是日期，一行拿两个，
分别放在 worksheets（2）。cells（《行数》，排1）。value,worksheets（2）。
cells（《行数》，排2）。value.而Itemcode是R开头，就使用MID$（s，6，1） = “R”来查。

当我完成程序的时候大概是4点左右，好累。其实不多，只是56行而已，而column（排）有大概，
NO#；日期；Itemcode；QTY，Unit PRice，Amount（就这样多而已）。如果copy paste（不会VBA的人），
就是56乘6次，我宁愿做VBA也不要那么傻，很无聊嘢！

还有一个文件，GRN，这个就容易多了，是个table那样子，但有不完全是，因为每一行下面还有
“------”，或者它的总数，看有330行，当我做好了，才100行，不过column很多，11个。
如果copy paste的话，就是1100次了！大概六点那样子我完成转换，也每个检查过，没有问题了。
6：30Pm回家了。

第七天在SJ工作 30-4-2012星期一。

昨天是假日，休息了一天感觉很好。今天早上比较多红灯，去到不到三分钟就响钟了。开始就备份那四个
文件夹。上司把autocad的warning messagebox print screen了，要我上网寻找下--error code 7.1.29.
找到了，关系到dilla license management system，去CAD room，把dilla反安装，才安装，结果进入autocad
的时候要求输入authorization code，回去问上司，她找了下说没有。然后她给我，电邮名字与密码，
密码是那天的日期。我弄好了，测试发电邮，我的gmail收到，只是我回复，公司的电邮收不到。

我跟上司讲，她以为是我错了，就检查setting，没有错，她回去她的电脑看setting，原来是我的名字
加多一个n，改了就好了。刚好Color的雷射打印机没有粉，是HP的，她教我换toner，看闪灯就知道那个颜色
的用完，打开盖子，把新的toner的贴纸撕开，然后摇几下，把旧的（黄色）拿出来，换上新的。

跟着上司打开一个excel文件，要我把里面的remark拿出来，慢复杂下。响钟，我去午餐。回来后，
上司说不用做那个，只是要把Tsou_no就可以，这个容易，EXcel VBA把空的格子去掉就好了。
午餐过后，我跟上司讲做好了，她说总共有三个，原来其他的两个是很小的，也完成了。结果就没有东西
做，开始上网学习C#，使用，G:\Windows\Microsoft.NET\Framework\v3.5\csc.exe 来compile 。cs的
文件，打开notepad，把源代码copy paste过去，然后save 去《文件名字》。cs。
打开cmd，然后就打字 CSC 文件名字。cs，成功compile去。exe的文件，然后打文件名字就可以执行了。
学习到爽爽，5：30Pm回家了。

Introduce some best website

http://www22.zippyshare.com/v/58113003/file.html



http://www.coding8.com/mainframe/searchhigh.jsp


http://www.asp-edita.jp/doda/archive/category11-new.html
http://forums.techarena.in/windows-software/1133639.htm