::VB::

posted on 05 Dec 2007 19:46 by goodbaby

กฎการตั้งชื่อมาโคร

1.         ใช้ได้ทั้งภาษาไทยและภาษาอังกฤษ แต่นิยมใช้ภาษาอังกฤษมากกว่า

2.         ต้องขึ้นต้นด้วยตัวอักษร  ห้ามขึ้นต้นด้วยตัวเลข

3.         ไม่มีการเว้นวรรค หากต้องการเว้นวรรคให้ใช้เครื่องหมายขีดล่าง “_”  แทน

4.         ห้ามมีเครื่องหมายต่อไปนี้ปนอยู่ในชื่อ + - * / > < = ~ , % $ & @ # !

การใส่หมายเหตุ (Comment) ในมาโคร

                หมายเหตุมีไว้เพื่ออธิบายโปรแกรม  ซึ่งจะไม่มีผลต่อการทำงานของโปรแกรม  โดยการใส่หมายเหตุมี 2 วิธี ดังนี้

            1. ใช้คำสั่ง Rem ข้อความหมายเหตุ

            2. ใช้เครื่องหมาย ข้อความหมายเหตุ

ชนิดของตัวแปร

คำอธิบาย

ขนาด

Byte

จำนวนเต็มบวก 0-255

1 ไบต์

Boolean

True(-1), False(0)

2 ไบต์

Integer

จำนวนเต็มระหว่าง -32768 ถึง 32767

2 ไบต์

Long

จำนวนเต็มระหว่าง -2,147,486,648 ถึง2,147,486,648

4 ไบต์

currency

เลขทศนิยม (4 ตำแหน่ง)

8 ไบต์

single

เลขทศนิยม

4 ไบต์

Double

เลขทศนิยม (ช่วงกว้างของตัวเลขมีค่ามากกว่า single)

8 ไบต์

Date

วันที่

8 ไบต์

String

ตัวอักษร

1 ไบต์

กฎการตั้งชื่อตัวแปร

1.         ตัวอักษรแรกของชื่อจะต้องเป็นตัวอักษร เช่น A-Z หรือ ก-ฮ

2.         ตัวถัดไปจะเป็นตัวอักษร ตัวเลข หรือเครื่องหมาย  _  ก็ได้

3.         ชื่อของตัวแปรจะต้องไม่ซ้ำกับคำสงวน (Reserved Word)

4.             ตัวอักษรที่ใช้ในการตั้งชื่อ เป็นได้ทั้งตัวใหญ่ ตัวเล็ก หรือภาษาไทย และมีความยาวเท่าใดก็ได้

                *ข้อสังเกต ตัวแปรใน Visual Basic จะไม่สนใจอักษรตัวใหญ่ตัวเล็ก (Non-case Sensitive)  นั่นคือ  ถ้าเราตั้งชื่อตัวแปร  intAge, intage, IntAge ซึ่งทั้งสามชื่อจะถือว่าเป็นตัวเดียวกัน

การกำหนดประเภทของตัวแปร

รูปแบบ              Dim ชื่อตัวแปร As ชนิดของตัวแปร

 

 

 

Operator

ใช้สำหรับ

^

ยกกำลัง

+

บวกค่าตัวเลข

-

ลบค่าตัวเลข

*

คูณตัวเลข

/

หารตัวเลข

\

หารตัวเลข คืนค่าเป็นจำนวนเต็ม

Mod

หารตัวเลข คืนค่าเฉพาะเศษที่เหลือ

ลำดับความสำคัญของเครื่องหมาย

1.             ถ้ามีวงเล็บทำวงเล็บในสุดก่อน

2.             เครื่องหมายยกกำลัง

3.             เครื่องหมายคูณ และหาร

4.             เครื่องหมายบวก และลบ

5.             เครื่องหมายที่มีลำดับความสำคัญเท่ากันให้ทำจากซ้ายไปขวา

โอเปอเรเตอร์สำหรับเปรียบเทียบ

=                                          เท่ากับ

            < >                       ไม่เท่ากับ

            <                                          น้อยกว่า

            >                                          มากกว่า

            < =                       น้อยกว่าหรือเท่ากับ

            > =                       มากกว่าหรือเท่ากับ

            Like                     ค่าสตริงทั้งสองข้างเหมือนกัน

Not      ใช้กลับค่าของนิพจน์            Not(10 > 4)

And     และ                                                         if (x=5 And y=10)

Or                    หรือ                                                        if (x=5 Or y=10)

 

 

 

 

 

 

 

q     การสร้าง Workbooks ใหม่

                                                Workbooks.Add

q     ActiveWorkbook.SaveAs Filename:="newName" บันทึกไฟล์ที่กำลังเปิดใช้งานอยู่เป็นชื่อ newName

q     การปิดใช้งาน Workbooks

                                Workbooks("ชื่อ workbooks").Close

q      การนับจำนวน Workbooks

                                Workbooks.Count

q     การเปลี่ยนชื่อ Worksheets

                  Workbooks(1).Worksheets(1).Name ="myWorksheet"

q      การลบ Worksheets

                                Worksheets("ชื่อ Worksheets").Delete

q     การเพิ่ม Worksheets

                                    Worksheets.Add

q     การ copy worksheets

                                Worksheets(2).Copy before:=Worksheets(3)

                        Worksheets(2).Copy after:=Worksheets(3)

                                Worksheets(2).Copy

q     Workbooks(1).Worksheets(1).Cells(1, 1).Value = 20

q      Workbooks(1).Worksheets(1). Range("A8").Value = 20

q     Workbooks(1).Worksheets(1). Range(“A1:A8").Value = 20

การแทรกแถว

q     Rows(3).Insert

q      Rows("2:4").Insert

การลบแถว

q     Rows(1).Delete

q      Rows("1:3").Delete

การแทรกคอลัมน์

q                     Columns(1).Insert

q                     Columns ("A:B").Insert

การลบคอลัมน์

q                     Columns(1).Delete

q                     Columns("A:C").Delete

การลบค่าในเซลล์

            Workbooks(1).Worksheets(1).Cells(1, 1).Clear

            Workbooks(1).Worksheets(1).Cells(1,1).ClearContents

            Workbooks(1).Worksheets(1).Cells(1, 1).ClearFormats

test pic

posted on 28 Nov 2007 20:29 by goodbaby

 

    ImageChef.com - Custom comment codes for MySpace, Hi5, Friendster and more

edit @ 28 Nov 2007 20:43:22 by babygood

edit @ 28 Nov 2007 21:33:30 by babygood

ก่อนอื่นเราก็ต้องหาโปรแกรมแบบ Text Editor มาใช้เสียก่อน ซึ่งสำหรับผู้ที่ใช้ Windows นั้นทาง Microsoft ได้ให้โปรแกรม Notepad ซึ่งเป็นโปรแกรมประเภท Text Editor มาด้วย โดยเรียกใช้โปรแกรมได้จาก
Start Menu => Programs => Accessories => Notepad

หลังจากเปิดโปรแกรมขึ้นมาแล้วให้ใส่ชุดคำสั่งเหล่านี้ลงไป
__________________________________________________________

[ExtShellFolderViews]
{BE098140-A513-11D0-A3A4-00C04FD706EC}={BE098140-A513-11D0-A3A4-00C04FD706EC}

[{BE098140-A513-11D0-A3A4-00C04FD706EC}]
Attributes=2
IconArea_Image=ชื่อภาพ.นามสกุลของไฟล์
[.ShellClassInfo]
ConfirmFileOp=4

__________________________________________________________

ยกตัวอย่างการเรียกใช้ภาพ
สมมติว่าภาพชื่อ MyBackground นามสกุล .jpg
จะได้ IconArea_Image=MyBackground.jpg

หลังจากนั้นให้เซฟ โดยคลิกเลือกไปที่ File => Save as... จะปรากฏหน้าต่างให้เซฟขึ้นมา



สำหรับในช่อง File Name: ให้ใส่ desktop.ini
และในช่อง Save as type: ให้เลือกเป็น All Files
แล้วจึงคลิก Save ครับ

ต่อมาให้เรานำภาพ ( MyBackground.jpg ) และไฟล์ desktop.ini ไปวางในไดฟ์ที่เราต้องการ เช่น C Drive , D Drive รวมไปถึง My Document ก็ใช้ได้ ( ผมขอนำไปวางที่ My Document ก็แล้วกัน + อาวปายใส่ Flash Drive ของเราก็ดีงับ ^^) หลังจากนั้นให้คลิกขวา เลือก Refresh (กด F5 นะมานไม่เหงอ่ะ) จะพบว่าพื้นหลังได้ถูกเปลี่ยนเป็นภาพที่เราต้องการแล้วล่ะครับ



ภาพ และ desktop.ini ต้องอยู่ใน Folder เดียวกันนะคับ(ขอย้ำ)
สำหรับผู้ที่รู้สึกว่าไฟล์ 2 ตัวนี้มันดูเกะกะ เราสามารถซ่อนไฟล์ทั้งสองได้โดยคลิกที่ไฟล์แต่ละตัวแล้วเลือก Properties จะปรากฏหน้าต่างProperties ขึ้นมา ให้คลิกถูกหน้าคำว่า Hidden แล้วคลิก OK ครับ ไฟล์ทั้งสองจะถูกซ่อนเอาไว้ไม่เกะกะสายตา



กรณีที่ต้องการแก้ไขไฟล์ที่ถูกซ่อน ให้เปิดโฟลเดอร์มาสักหน้า แล้วคลิกที่เมนู Tools => Folder Options จะปรากฏหน้าต่าง Folder Options ขึ้นมา



ให้คลิกที่แถบ View ในส่วนของ Advance Setting ให้คลิกเลือกเปลี่ยนจาก Do not show hidden files and folders ( ไม่แสดงไฟล์และโฟลเดอร์ที่ถูกซ่อนไว้ ) เป็น Show hidden files and folders ( แสดงไฟล์และโฟลเดอร์ที่ถูกซ่อนไว้ ) แล้วจึงคลิก OK ไฟล์ทั้งสองก็จะปรากฏให้เห็น เราก็จะสามารถแก้ไขไฟล์เหล่านี้ได้แล้วครับ



ปล. สำหรับภาพที่นำมาใช้เป็นพื้นหลังแนะนำภาพที่สว่างๆ สบายตาจะดีที่สุดนะครับ (ม่ายงั้นมองไม่เหงตัวหนังสือหง่ะ)
ปล.2 ไฟล์ภาพที่ผมใช้ทดสอบก็มีสกุล .bmp .gif .jpg .png นะครับ นอกเหนือจากนี้ยังไม่ได้ลอง

เพิ่มเติมเกี่ยวกะ ขนาดของภาพ นะครับ
สำหรับคนที่ใช้ 1024*768 นะงับ ขนาดของภาพ ควรจะมีขนาดประมาณ 565*477 pixels (หน้าต่างเล็ก) หรือ 814*653 pixels (หน้าต่างใหญ่)

วิธีแก้ไวรัสMSNครับ

posted on 25 Nov 2007 17:06 by goodbaby
ทางแก้  ที่รู้เพราะโดนมาแล้ว

หากได้รับไฟล์ดังกล่าว ข้างในไฟล์เมื่อ แตกไฟล์ออกมาจะเป็น ไฟล์ที่เป็นรูปเหมือน DOS ในสมัยก่อน
และปัญหาที่จะตามมาคือ

ไฟล์ดังกล่าวจะก๊อปปี้ตัวเอง และส่งไฟยังรายชื่อที่เรามีในลิสต์ msn ถ้าในรายชื่อมีคนออนไลน์อยู่จะได้รับทันที
ก่อนที่มันจะทำการก๊อปปี้และส่งนั้น เครื่องคอมพิวเตอร์ของเราจะค้าง จะใช้งานไม่ได้ซักพักนึงนานประมาณเกือบ1-2 นาที แล้วแต่รายชื่อในลิสต์มีมากน้อยแค่ไหน แล้วไฟล์นั้นก็จะส่งไปยังผู้อื่นโดยอัตโนมัติ
จากนั้นซักพัก โปรแกรม msn ของเราก็จะเดี้ยงไปเลย

วิธีแก้ (ที่ใช้มาแล้วได้ผล)

1.ลบไฟล์ดังกล่าวทิ้งทันที

2.กด ctrl + alt +del เรียก task manager ขึ้นมา หรือ click ขวาที่  menu bar แล้วเลือก task manager ก็ได้

3.ดูที่ process list ว่ามี images.exe หรือ images.zip  ใน task manager แล้วลบทิ้ง หรือไม่ถ้ามี ให้ end task

4.ให้เข้าไปที่ เมนู run แล้วพิมพ์ regedit  แล้วไปดูที่ edit  กด ctrl+f แล้วพิมพ์คำว่า    images.zip หากเจอให้ delete ทิ้ง กด f3 เพื่อค้นหาดูไปจนกว่าจะมีข้อความ finished searching through the registry
จากนั้นให้ เลือก file แล้ว exit
5.ถ้าจะให้ดีอัพเดท scan virus แล้วสแกนเลยก็จะดีมาก โดยส่วนตัวที่ใช้ คือ NOD32

6.จากนั้น restart เครื่อง เท่าที่เจอมา พอเปิดเครื่องขึ้นมาใหม่ โปรแกรมสแกนไวรัสก็เจอไฟล์ไวรัสเลย แต่เป็นโทรจัน  หากเจอให้ delete ทันที

7.remove msn ทิ้ง แล้ว  download msn มาลงใหม่

เท่านี้ก็หมดปัญหาแล้ววว

::วันลอยกระทง::

posted on 25 Nov 2007 14:41 by goodbaby

คุณเคยสังเกตหรือไม่ว่า google เปลี่ยน logo ด้วย จริงๆ ใช้คำว่าเปลี่ยนก็ไม่ถูก จริงๆ มันคือการดัดแปลงหรือเปลี่ยนให้เข้ากับเทศการต่างๆ มากกว่า

เช่น Google’s 8th Birthday - September 2006

และสามารถดูเทศกาลต่างๆ ได้ที่ http://www.google.com/holidaylogos.html

ref : google , jennessa