เกร็ดความรู้เกี๋ยวกับ Array ใน AutoIt

คำสั่งArrayที่ใช้ในAutoItได้ถูกกำหนดไว้ให้ใช้งานอยู่หลายประเภทคำสั่ง
ถ้าใครไม่เคยเข้าไปศึกษาใน Helpก็จะไม่รู้
แต่ละคำสั่งก็มีหน้าที่การทำงานแตกต่างกันออกไป แล้วแต่ใครจะนำไปใช้ทำอะไร?
เมื่อมีการใช้งานคำสั่งArrayต่างๆดังกล่าว
ท่านต้องอ้างไฟล์สคริ๊ป #include <Array.au3>.ด้วย จึงจะไม่เกิด Error!

User Defined Function Description

_ArrayAdd - Adds a specified value at the end of an existing array.

_ArrayBinarySearch - Uses the binary search algorithm to search through a 1-dimensional array.

_ArrayCombinations - Returns an Array of the Combinations of a Set of Elements from a Selected Array

_ArrayConcatenate - Concatenate two arrays.

_ArrayDelete - Deletes the specified element from the given array.

_ArrayDisplay - Displays given 1D or 2D array array in a listview.

_ArrayFindAll - Find the indices of all ocurrences of a search query between two points in a 1D or 2D array using _ArraySearch().

_ArrayInsert - Add a new value at the specified position.

_ArrayMax - Returns the highest value held in an array.

_ArrayMaxIndex - Returns the index where the highest value occurs in the array.

_ArrayMin - Returns the lowest value held in an array.

_ArrayMinIndex - Returns the index where the lowest value occurs in the array.

_ArrayPermute - Returns an Array of the Permutations of all Elements in an Array

_ArrayPop - Returns the last element of an array, deleting that element from the array at the same time.

_ArrayPush - Add new values without increasing array size by inserting at the end the new value and deleting the first one or vice versa.

_ArrayReverse - Takes the given array and reverses the order in which the elements appear in the array.

_ArraySearch - Finds an entry within a 1D or 2D array. Similar to _ArrayBinarySearch(), except that the array does not need to be sorted.

_ArraySort - Sort a 1D or 2D array on a specific index using the quicksort/insertionsort algorithms.

_ArraySwap - Swaps two items.

_ArrayToClip - Sends the contents of an array to the clipboard, each element delimited by a carriage return.

_ArrayToString - Places the elements of an array into a single string, separated by the specified delimiter.

_ArrayTrim - Trims a certain number of characters from all elements in an array.

_ArrayUnique - Returns the Unique Elements of a 1-dimensional array.

if เกร็ดความรู้? = ก็อปปี้ help มาแปะแค่นี้อ่านะ then Fail กาก





if เกร็ดความรู้? = อธิบายใช้ยังงาย then Win เมพ

การเรียนรู้ให้เข้าใจในคำสั่ง Array มิติต่างๆไม่ใช่เริ่องง่าย แต่ก็ไม่ยากเกินจะเข้าใจ
Arrayคล้ายกับการจัดลำดับเพื่อทำอะไรซักอย่างหนึ่ง
ตัวแปลหรือตัวที่ทำให้เกิดการเปลี่ยนแปลงก็คือลำดับนั้นๆนั่นเอง
ถ้าไม่กำหนดว่าจะให้มีกี่ลำดับ และในลำดับต่างๆนั้นมีอะไรบ้าง Array จะไม่เกิด
ผมจะยกตัวอย่างอธิบายเรื่องArrayให้เข้าใจเบื้องต้นง่ายๆดังนี้ เช่น
Local $Array[5] หมายถึง ประกาศและกำหนดตัวแปรให้มีทั้งหมด5ลำดับ หรือมากน้อยขึ้นอยู่กับการใช้งาน
แต่ละลำดับนั้นใช้ทำอะไร? เช่น ใส่หมายเลขหรือตัวอักษรลงไปในลำดับนั้นๆหรือคำสั่งอื่นๆ เช่น.
$Array[0] = 'FirstOne' หมายถึง ลำดับที่1 เป็นข้อมูลชนิด String
$Array[1] = 2 หมายถึง ลำดับที่2 เป็นข้อมูลชนิด Intreger
$Array[2] = 'สาม'
$Array[3] = 4
$Array[4] = 'LastFive'

วิธีการควบคุมให้Arrayทำงาน เท่าที่ทราบ มีอยู่ 2 แบบ
1.ถ้าArrayมีหลายลำดับ มักจะใช้คำสั่ง Control Loop และคำสั่งอื่นๆที่เกี่ยวข้อง
2.คำสั่งArrayต่างๆที่มีให้ใช้ในAutoIt ซึ่งมีเยอะมาก ต้องเลือกใช้กันเอง
-----------------------------------------------------------------------------------
มาลองดูตัวอย่างคำสั่ง Array แบบง่ายๆกันก่อน ที่ยากกว่านี้ยังมีอีกเยอะ

Code:

Local $Array[5]

$Array[0] = 'FirstOne'
$Array[1] = 2
$Array[2] = 'Three'
$Array[3] = 4
$Array[4] = 'LastFive'

For $i = 0 To UBound($Array, 1) -1
   MsgBox(0, "", $Array[$i])
Next

อธิบาย:

Local $Array[5] หมายถึง กำหนดให้มี5ลำดับ
$Array[0] = 'FirstOne' หมายถึงลำดับแรก ..ข้อมูลในลำดับนี้ คือ 'FirstOne'
ใช้คำสั่งลูป For ร่วมกับคำสั่ง Ubound ..สำหรับการแสดงผลของข้อมูล
$Array[$i] หมายถึง ข้อมูลจะถูกแสดงผลไปเรื่อยๆจนครบตามลำดับที่กำหนดไว้
----------------------------------------------------------------------------------
ทีนี้เรามาลองใช้คำสั่ง _Array Display กัันดูบ้าง ซึ่งเขียนได้ดังนี้

Code:

#include <Array.au3>

Local $Array[5]

$Array[0] = 'FirstOne'
$Array[1] = 2
$Array[2] = 'Three'
$Array[3] = 4
$Array[4] = 'LastFive'

_ArrayDisplay($Array, "Sample Array")

-------------------------------------------------------------
แถวของข้อมูล จากซ้ายไปขวา

Code:

#include <Array.au3>

Local $Array[5][5]

$Array[0][0] = 'One'
$Array[0][1] = 'Two'
$Array[0][2] = 'Three'
$Array[0][3] = 'Four'
$Array[0][4] = 'Five'

_ArrayDisplay($Array, "Sample Array")

------------------------------------------------------
แถวของข้อมูล จากบนลงล่าง

Code:

#include <Array.au3>

Local $Array[5][5]

$Array[0][0] = 'One'
$Array[1][0] = 'Two'
$Array[2][0] = 'Three'
$Array[3][0] = 'Four'
$Array[4][0] = 'Five'

_ArrayDisplay($Array, "Sample Array")

-----------------------------------------------------------
พีรามิด อาร์เรย์ (design by:sak2005)

Code:

#include <Array.au3>

        ;Row;Col
Local $Array[5][9]

$Array[4][0] = 1
$Array[3][1] = 2
$Array[2][2] = 3
$Array[1][3] = 4
$Array[0][4] = 5
$Array[1][5] = 6
$Array[2][6] = 7
$Array[3][7] = 8
$Array[4][8] = 9
$Array[4][1] = 2
$Array[4][2] = 3
$Array[4][3] = 4
$Array[4][4] = 5
$Array[4][5] = 6
$Array[4][6] = 7
$Array[4][7] = 8
$Array[3][2] = 3
$Array[3][3] = 4
$Array[3][4] = 5
$Array[3][5] = 6
$Array[3][6] = 7
$Array[2][3] = 4
$Array[2][4] = 5
$Array[2][5] = 6
$Array[1][4] = 5

_ArrayDisplay($Array, "Sample Array")

----------------------------------------------------------------
1ลำดับ 5แถว จากซ้ายไปขวา

Code:

#include <Array.au3>

Local $Array[1][5]

$Array[0][0] = 1
$Array[0][1] = 2
$Array[0][2] = 3
$Array[0][3] = 4
$Array[0][4] = 5

_ArrayDisplay($Array, "Sample Array")

--------------------------------------------------------
5ลำดับ 1แถว จากบนลงล่าง

Code:

#include <Array.au3>

Local $Array[5][1]

$Array[0][0] = 1
$Array[1][0] = 2
$Array[2][0] = 3
$Array[3][0] = 4
$Array[4][0] = 5

_ArrayDisplay($Array, "Sample Array")

-------------------------------------------------------
ใส่ให้เต็มพื้นที่เลย 5ลำดับ 4แถว

Code:

#include <Array.au3>

Local $Array[5][4]

$Array[0][0] = 1
$Array[1][0] = 2
$Array[2][0] = 3
$Array[3][0] = 4
$Array[4][0] = 5

$Array[0][1] = 'One'
$Array[1][1] = 'Two'
$Array[2][1] = 'Three'
$Array[3][1] = 'Four'
$Array[4][1] = 'Five'

$Array[0][2] = 'A'
$Array[1][2] = 'B'
$Array[2][2] = 'C'
$Array[3][2] = 'D'
$Array[4][2] = 'E'

$Array[0][3] = 'ANT'
$Array[1][3] = 'BAT'
$Array[2][3] = 'CAT'
$Array[3][3] = 'DOG'
$Array[4][3] = 'EGG'

_ArrayDisplay($Array, "Sample Array")

ท่านดูแค่ไตเติ้ลตัวอย่างหนัง แล้วท่านก็บอกว่า มันไม่สนุก แล้วอย่างงี้ผมจะฉายให้ดูต่อดีไม๊เนี่ย?!?

การเรียนรู้ให้เข้าใจในคำสั่ง Array มิติต่างๆไม่ใช่เริ่องง่าย แต่ก็ไม่ยากเกินจะเข้าใจ
Arrayคล้ายกับการจัดลำดับเพื่อทำอะไรซักอย่างหนึ่ง
ตัวแปลหรือตัวที่ทำให้เกิดการเปลี่ยนแปลงก็คือลำดับนั้นๆนั่นเอง
ถ้าไม่กำหนดว่าจะให้มีกี่ลำดับ และในลำดับต่างๆนั้นมีอะไรบ้าง Array จะไม่เกิด
ผมจะยกตัวอย่างอธิบายเรื่องArrayให้เข้าใจเบื้องต้นง่ายๆดังนี้ เช่น
Local $Array[5] หมายถึง ประกาศและกำหนดตัวแปรให้มีทั้งหมด5ลำดับเท่านั้นเกินไปจากนี้ไม่ได้
แต่ละลำดับนั้นใช้ทำอะไร? เช่น ใส่หมายเลขหรือตัวอักษรลงไปในลำดับนั้นๆ เช่น.
$Array[0] = 'FirstOne' หมายถึง ลำดับที่1 เป็นข้อมูลชนิด String
$Array[1] = 2 หมายถึง ลำดับที่2 เป็นข้อมูลชนิด Intreger
$Array[2] = 'สาม'
$Array[3] = 4
$Array[4] = 'LastFive'

แค่อธิบายตอนแรกก็โครตมั่วแล้วนาย

Arrayคล้ายกับการจัดลำดับเพื่อทำอะไรซักอย่างหนึ่ง

ตกลงใช้ทำอารัย คนอธิบายยังไม่รู้คนอื่นจะไปรู้เหรอ


ตัวแปลหรือตัวที่ทำให้เกิดการเปลี่ยนแปลงก็คือลำดับนั้นๆนั่นเอง
ถ้าไม่กำหนดว่าจะให้มีกี่ลำดับ และในลำดับต่างๆนั้นมีอะไรบ้าง Array จะไม่เกิด

นี่ก็มั่วไปใหญ่ ทำไมอาเรเราพิม $aut[2] สร้างได้ไม่เห็นต้องใส่ข้อมูลไรเลย จะพิมพ์ใส่ตัวแปรก็ได้ นี่อะ $aut[$a] ตัวแปรก็ไปรับค่าอื่นมาไม่เห็นมีปัญหารัยเลย เราทำบอทก็ใช้แบบนี้บ่อย



Local $Array[5] หมายถึง ประกาศและกำหนดตัวแปรให้มีทั้งหมด5ลำดับเท่านั้นเกินไปจากนี้ไม่ได้

อานนี้ก็โคตรมั่ว ตั้ง 5 จะเปลี่ยน 6 7 8 อะไรทีหลังก็ได้ เหอๆ รู้จริงอะเปล่านิ หรานายทำไม่เป็น ทำไม่ได้บอกนะจะสอนให้


พอละ นายตอบไม่ตงคำถาม เราบอกว่าต้องอธิบาย _ArrayAdd _ArrayBinarySearc _ArrayCombinations _ArrayConcatenate ถึงจะเมพ นี่อารัยไปก็อปดัดแปลงบทความหน้าบ็อกมาสอนเหรอ สอนได้แค่ 1 มิติ สอนมั่วด้วย

ถ้าจะให้เรายอมรับว่านายเมพจริง อธิบายเรื่อง อาเร 4 5 6 7 มิติมาดิ เราเคยใช้แค่ 1 กับ 2 อยากรู้จริงว่า 4 5 6 7 ใช้ยางงัย

ขออภัยท่าน Pos ผมไม่รู้ว่ากำลังคุยกับคนสติแตกอยู่ ปล่อยให้ว่างไว้ก่อน เดียวหาบทความดีดีมาลงให้

ทำเป็นใส่อารมอะนาย เราพูดผิดตงไหนอะ

แล้วเราจะบอทเกมก็เรื่องของเรา ยุงไรด้วย กากจิง ดอทเอไหม สาดดดด

ดูนี่ ใครรู้จิงไม่จิงดูตรงนี้ เราให้เวลาวันหนึ่ง เอา.....เปลี่ยนเป็นสามวันแย้วกัน อาเร อานล่างนี้ของนาย ใครเขาใส่แบบนี้กัน ลองแก้ให้ใส่น้อยกว่านี้ดูดิ จาก $Array ตั้ง 25 บันทัด เหลือน้อยกว่า 10 เราจะขอโทด ยอมรับว่านายเมพขิงๆ ถ้าทำไม่ได้ก็ยอมรับตัวเองกากซะ

แย้วราจะบอกให้ว่าทำไงให้ใส่ได้ไม่เกินสิบบันทัด นายก็มากราบเราเป็นอาจาน เราจะช่วยสั่งสอนนายให้รู้จักโรคกว้างๆ เอง รับรองไม่ผิดหวัง เพราะเรามันระดับเมพสามโรค เพื่อนในเกมยังขอรูปเราไปบูชาเลย

sak20102005 พิมพ์ว่า:

พีรามิด อาร์เรย์ (design by:sak2005)

Code:

#include <Array.au3>

        ;Row;Col
Local $Array[5][9]

$Array[4][0] = 1
$Array[3][1] = 2
$Array[2][2] = 3
$Array[1][3] = 4
$Array[0][4] = 5
$Array[1][5] = 6
$Array[2][6] = 7
$Array[3][7] = 8
$Array[4][8] = 9
$Array[4][1] = 2
$Array[4][2] = 3
$Array[4][3] = 4
$Array[4][4] = 5
$Array[4][5] = 6
$Array[4][6] = 7
$Array[4][7] = 8
$Array[3][2] = 3
$Array[3][3] = 4
$Array[3][4] = 5
$Array[3][5] = 6
$Array[3][6] = 7
$Array[2][3] = 4
$Array[2][4] = 5
$Array[2][5] = 6
$Array[1][4] = 5

_ArrayDisplay($Array, "Sample Array")

ถุย

โค๊ด สร้างพีรามิด เดี๋ยวมาอธิบายให้ภายหลัง เพราะผมเห็นอะไรแปลกๆอยู่ในโค๊ดนี้ด้วย.

Code:

#Include <Array.au3>

Dim $avArray[10][9] = [['', '', '', '', 5, '', '', '', ''],['', '', '', '', 5, '', '', '', ''], _
                 ['', '', '', 4, 5, 6, '', '', ''],['', '', '', 4, 5, 6, '', '', ''], _
                      ['', '', 3, 4, 5, 6, 7, '', ''],['', '', 3, 4, 5, 6, 7, '', ''], _
                 ['', 2, 3, 4, 5, 6, 7, 8, ''],['', 2, 3, 4, 5, 6, 7, 8, ''], _
                 [1, 2, 3, 4, 5, 6, 7, 8, 9],[1, 2, 8, 9]]

_ArrayDisplay($avArray, "Piramid Array Sample")

Quixotic พิมพ์ว่า:เถียงกันทำม๊าย มาเอาอันนี้ไปอธิบายให้ผมฟังที เกี่ยวกับ Array เหมือนกัน

นำร่อง ....

File follow.db

[Downloads]
1=Link
2=Link
3=Link

หวังว่าดูแค่นี้คงพอเข้าใจนะครับ

( loadperc1 ไม่ต้องสนใจนะ )

Code:


$numberofdownloads = IniReadSection("follow.db","Downloads")

For $loop = 1 To $numberofdownloads[0][0]
      $dllink = IniRead("follow.db","Downloads",$loop,"error")
      If $dllink = "error" Then ContinueLoop
      ;ProgressSet(($loop / $numberofdownloads[0][0]) * 100,"Downloade " & $dllink)
      loadperc1($loop,$tlabel)
      $split = StringSplit($dllink,"/")
      $dateiname = $split[$split[0]]
      FileDelete(@ScriptDir & "\" & $dateiname)
      InetGet($dllink,@ScriptDir & "\" & $dateiname,1)
      Sleep(500)
      ;ProgressSet(($loop / $numberofdownloads[0][0]) * 100,"Integriere " & $dllink)
      
      Sleep(250)
      FileDelete($dateiname)
   Next
................


ไม่แน่ใจว่าคำสั่ง IniRead จะอ่านไฟล์สกุล .db ได้หรือเปล่า
ลองรันโค๊ดดูแล้วพบError! ต้องแก้ไขให้รันได้ จึงจะสามารถอธิบายการทำงานได้

กากของจริง เราให้นายไปเขียนโค้ดที่ไม่ต้องยาว นายนี่ดันไปเขียนต่อกันอีก ทำไปได้นะนาย เหมือนเราถามทำยังไงให้รถหายติด นายก็บอกเอารถมาวางซ้อนกันจะได้มีที่ว่าง ตลกแดกขิงๆ

เรายังให้เวลา 3 วันนะ ถ้านายไม่มีปัญยาเปลี่ยนโค้ด ให้มานสั้นกว่านี้ ก็เตรียมดอกไม้ทูปเทียน มากราบเราเป็นอาจานซะ แย้วเราจะแสดงความเมพสามโรค เมพแบบเหนือมนุด สุดเขต สเลดเป็ด ให้ชมเป็นบุญตา

ยางงายเราก้อยังจายดี ใบ้ให้นิดนุงนะ เขียนโค้ดให้สั้นต้องใช้ลูบ for ใช้เป็นอะเป่า อย่ามาแถอีกนะ ใช้อาเร ใช้ลูบไม่เป็นกากนะจะบอกห้าย แย้วจะบอกให้อีกย่างโค้ดนายแค่เราดูแวบ แวบเด๋ว เราก็แก้ในสมองให้มันสั้นได้ตอนนั้นเลย นี่เขาเรียกระดับเมพ เหอๆ ไม่ยากจาคุยมาก

คิดว่าเป็นกระทู้ธรรมดาไม่มีอะไร แต่พอคลิกดูกลายเป็นกึงๆ ด่า กัน ขอให้ใจเย็นกันก่อนดีกว่าครับ ถกเถียงกันเรื่องสคริปต์ได้แต่ขอให้งดเว้นคำหยาบครับ เพราะเดี๋ยวจะกลายเป็นการทะเลาะที่ไม่มีสาระประโยชน์อะไรเลย

POS พิมพ์ว่า:คิดว่าเป็นกระทู้ธรรมดาไม่มีอะไร แต่พอคลิกดูกลายเป็นกึงๆ ด่า กัน ขอให้ใจเย็นกันก่อนดีกว่าครับ ถกเถียงกันเรื่องสคริปต์ได้แต่ขอให้งดเว้นคำหยาบครับ เพราะเดี๋ยวจะกลายเป็นการทะเลาะที่ไม่มีสาระประโยชน์อะไรเลย

ขอระบายให้ท่านPosฟังหน่อย ขนาดท่านPosเก่งกว่าผม100เท่า ยังไม่วิจารย์ผมเลย
ผิดถูกยังไงค่อยแก้ไขกันทีหลัง นี่เล่นวิจารย์หักหน้ากัน แถมยังไม่เขียนโค๊ดอะไรให้เห็นสักตัว
คนเราถ้าเก่งจริง ต้องสามารถคิดและเขียนโค๊ดหรือสร้างโปรแกรมได้เดี๋ยวนั้นเลย ไม่ต้องรอ 3 วัน 7 วัน
ถ้าเขียนบอทเพื่อเอาเปรียบผู้อื่นเป็นอย่างเดียว มีความรู้แต่นำไปใช้ในทางที่ไม่ถูกต้อง ก็ไม่ก่อให้เกิดประโยชน์อันใด
ควรเลิกวิจารย์กันได้แล้ว ให้เปลี่ยนเป็นการให้คำแนะนำและให้กำลังใจกันแทน.

อนุญาตลบข้อความที่ไม่เหมาะสมออก จะพยายามเหลือไว้แต่สิ่งดีดี เดี้ยวนำบทความที่เกี่ยวข้องกับความรู้มาลงแทนให้

โอ้เขียนได้ถึง 8 ภาษาเหนือมนุดขิงๆ ภาษาไรบ้างภาษาหมูไก่เป็ดลิงเห็บเหาใส้เดือนกิ้งกือ เราว่านายเขียนไม่ได้ซะมากกว่าลีลามากไม่ยอมเขียนอวด มามะเราจะสอนให้นะ


ของนายแบบนี้แบบนี้อะกาก

#include <Array.au3>
Local $Array[5][9]
$Array[4][0] = 1
$Array[3][1] = 2
$Array[2][2] = 3
$Array[1][3] = 4
$Array[0][4] = 5
$Array[1][5] = 6
$Array[2][6] = 7
$Array[3][7] = 8
$Array[4][8] = 9
$Array[4][1] = 2
$Array[4][2] = 3
$Array[4][3] = 4
$Array[4][4] = 5
$Array[4][5] = 6
$Array[4][6] = 7
$Array[4][7] = 8
$Array[3][2] = 3
$Array[3][3] = 4
$Array[3][4] = 5
$Array[3][5] = 6
$Array[3][6] = 7
$Array[2][3] = 4
$Array[2][4] = 5
$Array[2][5] = 6
$Array[1][4] = 5

_ArrayDisplay($Array, "Sample Array")

เราเขียนใส่อาเรต้องลูบแบบนี้อะ ดูซะแย้วก็ซาบซึ้งในความเมพของเราตอนเขียนก็แคะขี้มูกเขียนไปด้วย ไม่แถเหมือนบางคนชอบแถ อะ อะ หน้าไม่อายขายหน้าเขียนลูบอาเรไม่เป็นยังกล้ามาอวดเขียนเป็น8ภาษาอีก ตัวอย่างนี้ระดับขี้เล็บไม่อยากอวด ถ้าเจอตัวอย่างเมพที่เราเขียนเป็นบอทเกมรับรองนายดูโคดระดับเมพสามโรคที่เราเขียนแล้วไม่เก็ตขี้ไม่ออกสามวันสามคืนแน่นอน

#include <Array.au3>
Local $Array[5][9]
for $i = 0 to 8
$Array[4][$i ] = $i+1
if $i > 1 then $Array[3][$i-1 ] = $i
if $i > 2 and $i < 8 then $Array[2][$i-1 ] = $i
if $i > 3 and $i < 7 then $Array[1][$i-1 ] = $i
if $i =5 then $Array[0][$i-1 ] = $i
Next
_ArrayDisplay($Array, "Sample Array")

ของผมแค่ 3 บันทัดเอง ของท่านปาเข้าไป 10 บันทัด

Code:

#Include <Array.au3>

Dim $avArray[10][9] = [['', '', '', '', 5, '', '', '', ''],['', '', '', '', 5, '', '', '', ''],['', '', '', 4, 5, 6, '', '', ''],['', '', '', 4, 5, 6, '', '', ''],['', '', 3, 4, 5, 6, 7, '', ''],['', '', 3, 4, 5, 6, 7, '', ''],['', 2, 3, 4, 5, 6, 7, 8, ''],['', 2, 3, 4, 5, 6, 7, 8, ''],[1, 2, 3, 4, 5, 6, 7, 8, 9],[1, 2, 'A', 'U', 'T', 'KE', 'MO', 8, 9]]

_ArrayDisplay($avArray, "Piramid Array Sample")

โอ้เขียนได้ถึง 8 ภาษาเหนือมนุดขิงๆ ภาษาไรบ้างภาษาหมูไก่เป็ดลิงเห็บเหาใส้เดือนกิ้งกือ เราว่านายเขียนไม่ได้ซะมากกว่าลีลามากไม่ยอมเขียนอวด มามะเราจะสอนให้นะ

ลองไปค้นหาบทความของผมที่เว็บอื่นดูบ้าง เผื่อจะเจอ

เรารู้ว่านายกากนะแต่เป็นคนขี้ขลาดด้วยเหรอ นายอะละอายใจเป่าไม่กล้าสู้แบบยุดติทำจิตใจทำด้วยอารัย คงเป็นคนนิสัยแบบนี้มานานแล้วอะนาย นี่อะโปรแกรมคิดเลขนายทำไปแล้ว [You must be registered and logged in to see this link.]

มาท้าเราแข่งว่าใครเขียนเร็วกว่า หน้าไม่อายนะนายกาก ทำไปก่อนแล้วมาท้าแข่งกากจิงเหมือนพวกในเกมที่ท้าสู้ 1-1 พอโดนฆ่าตายมันก็บอกให้เราถอดชุดสู้กับมันอะที่ใส่ชุดเต็มเหนี่ยว นายก็กากเหมือนพวกนี้อะ พยายามเอาเปรียบคนอื่น ถ้าจะคิดท้าแข่งเขียนโปรแกรมแบบยุดติทำให้ท่าน POS เป็นคนบอกเอาไหมว่าให้ทำโปรแกรมอะไร กล้าเปล่า เอาเป็นนัดเวลาพุงนี้หรือวันไหนก็ด้ายตั้งโจดเลยแล้วมาทำแข่งกัน ใครแพ้ต้องเรียกตัวเองว่าลูกเขียด แย้วคนแพ้ต้องเรียกคนที่ชนะว่าท่านอาจาน กล้าอะเป่า ถ้าเราแพ้นะเราจะยอมเรียกตัวเองว่าลูกเขียดเลยไม่บิดพิ้ว เรียกนายว่าอาจานด้วย ถึงเราจะเลวทำบอทเกมไงแต่ไม่เคยเป็นคนไม่รักษาคำพูด นายอะเป็นคนยังงาย บอกเราที

เป็นคนไทยเหมือนกันหยุดทะเลาะกันดีกว่าครับ
ที่จริงผมถ้าเทียบกันกับคุณ aut กับ sak20102005 แล้ว
ผมอ่อนกว่า 10 เท่าเลย รู้ก็แค่คำสั่งง่ายๆเองเช่น FileCopy,FileMove,IniRead,IniWrite,DirDelete,#NoTrayIcon,@YEAR
แต่ถึงยังไงก็อยากให้ทั้งคู่มาคุยกันดีๆ ดีกว่าครับอย่าทะเลาะกันเลยครับ

Arm พิมพ์ว่า:เป็นคนไทยเหมือนกันหยุดทะเลาะกันดีกว่าครับ
ที่จริงผมถ้าเทียบกันกับคุณ aut กับ sak20102005 แล้ว
ผมอ่อนกว่า 10 เท่าเลย รู้ก็แค่คำสั่งง่ายๆเองเช่น FileCopy,FileMove,IniRead,IniWrite,DirDelete,#NoTrayIcon,@YEAR
แต่ถึงยังไงก็อยากให้ทั้งคู่มาคุยกันดีๆ ดีกว่าครับอย่าทะเลาะกันเลยครับ

ผมเลิกต่อความยาวสาวความยืดกับเขาแล้ว
--------------------------------------------------------------------------------------
ผมเขียนโปรแกรมเครื่องคิดเลขเรียนแบบของ Microsoft ไว้แล้ว

ตั้งใจจะให้ใครก็ได้ ทำให้มันทำงานให้ที ผมออกแบบโค๊ดคำสั่งไม่ค่อยเก่ง.

Code:

;Calculator Plus Standard Design by:sak2005
#NoTrayIcon
#include <ButtonConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
Global $icon = @SystemDir&'\calc.exe'
$hForm = GUICreate("Calculator Plus", 258, 235, 192, 124)
        ;GUISetBkColor(0xA6CAF0)
       GUISetIcon($icon, -1, $hForm)
$filemenu1 = GUICtrlCreateMenu("Edit")
$fileitem1 = GUICtrlCreateMenuItem("Copy  Ctrl+C", $filemenu1)
$fileitem2 = GUICtrlCreateMenuItem("Paste  Ctrl+V", $fileitem1)
$filemenu2 = GUICtrlCreateMenu("View")
$fileitem2 = GUICtrlCreateMenuItem("Standrad", $filemenu2, 0, 1)
$filemenu3 = GUICtrlCreateMenu("Help")
$fileitem3 = GUICtrlCreateMenuItem("Help Topics", $filemenu3)
GUICtrlCreateMenuItem("", $filemenu3, 2)
$fileitem4 = GUICtrlCreateMenuItem("About Calculator Plus", $fileitem3)
$Input_Disp = GUICtrlCreateInput("0.", 8, 3, 241, 23, BitOR _
($ES_RIGHT,$ES_AUTOHSCROLL,$ES_READONLY,$ES_WANTRETURN))
GUICtrlSetBkColor(-1, 0xFFFFFF)
GUICtrlCreateGraphic(13, 40, 28, 28, BitOR _
($SS_RIGHT,$SS_ETCHEDHORZ,$SS_ETCHEDFRAME,$SS_NOTIFY,$SS_CENTERIMAGE,$SS_SUNKEN))
GUICtrlSetBkColor(-1, 0xFFFFFF)
$Btn_Back = GUICtrlCreateButton("Backspace", 52, 40, 62, 28, $WS_GROUP)
$Btn_CE = GUICtrlCreateButton("CE", 119, 40, 62, 28, $WS_GROUP)
$Btn_C = GUICtrlCreateButton("C", 187, 40, 62, 28, $WS_GROUP)
$Btn_MC = GUICtrlCreateButton("MC", 8, 78, 35, 28, $WS_GROUP)
$Btn_MR = GUICtrlCreateButton("MR", 8, 111, 35, 28, $WS_GROUP)
$Btn_MS = GUICtrlCreateButton("MS", 8, 144, 35, 28, $WS_GROUP)
$Btn_MM = GUICtrlCreateButton("M+", 8, 176, 35, 28, $WS_GROUP)
$Btn_7 = GUICtrlCreateButton("7", 52, 78, 35, 28, $WS_GROUP)
$Btn_8 = GUICtrlCreateButton("8", 92, 78, 35, 28, $WS_GROUP)
$Btn_9 = GUICtrlCreateButton("9", 132, 78, 35, 28, $WS_GROUP)
$Btn_4 = GUICtrlCreateButton("4", 52, 111, 35, 28, $WS_GROUP)
$Btn_5 = GUICtrlCreateButton("5", 92, 111, 35, 28, $WS_GROUP)
$Btn_6 = GUICtrlCreateButton("6", 132, 111, 35, 28, $WS_GROUP)
$Btn_1 = GUICtrlCreateButton("1", 52, 144, 35, 28, $WS_GROUP)
$Btn_2 = GUICtrlCreateButton("2", 92, 144, 35, 28, $WS_GROUP)
$Btn_3 = GUICtrlCreateButton("3", 132, 144, 35, 28, $WS_GROUP)
$Btn_0 = GUICtrlCreateButton("0", 52, 176, 35, 28, $WS_GROUP)
$Button18 = GUICtrlCreateButton("+/-", 92, 176, 35, 28, $WS_GROUP)
$Btn_Dot = GUICtrlCreateButton(".", 131, 176, 35, 28, $WS_GROUP)
$Btn_Div = GUICtrlCreateButton("/", 172, 78, 35, 28, $WS_GROUP)
$Btn_Mult = GUICtrlCreateButton("*", 172, 111, 35, 28, $WS_GROUP)
$Btn_Sub = GUICtrlCreateButton("-", 172, 144, 35, 28, $WS_GROUP)
$Btn_Add = GUICtrlCreateButton("+", 172, 176, 35, 28, $WS_GROUP)
$Btn_sqrt = GUICtrlCreateButton("sqrt", 213, 78, 35, 28, $WS_GROUP)
$Btn_Perc = GUICtrlCreateButton("%", 213, 111, 35, 28, $WS_GROUP)
$Btn_Twee = GUICtrlCreateButton("1/x", 213, 144, 35, 28, $WS_GROUP)
$Btn_Tot = GUICtrlCreateButton("=", 213, 176, 35, 28, $WS_GROUP)
GUISetState(@SW_SHOW)

While 1
   $nMsg = GUIGetMsg()
   Switch $nMsg
      Case $GUI_EVENT_CLOSE
         Exit

   EndSwitch
WEnd

[You must be registered and logged in to see this image.]
Thanks: ฝากรูป seo

นายอะเป็นคนยังงาย บอกเราที

อยากรู้ใช่ไม๊ บอกให้ก็ได้ เราเป็นคนที่ไม่ชอบให้ใครมายุ่งกับเรื่องของเรา
ถ้ามีข้อความของใครที่เขียนออกมาในลักษณะเหยียดหยามเมื่อไหร่ โดนสวนกลับทันที
เป็นคนที่ทำคุณใครไม่ขึ้น มักจะโดนทรยศตลอด แม้กระทั่งในปัจจุบันก็ยังโดน.

การท้ากันไปมาแบบนี้ก็ไม่จบสักที เมื่อต้องการจะแข่งผมจะช่วยให้ก็แล้วกันครับ

ก่อนอื่น
1. ขอให้ลงชื่อรับทราบทั้งสองท่านที่จะแข่งกันเขียนโปรแกรมในกระทู้นี้

จากนั้น
2.เมื่อลงชื่อกันเสร็จแล้วภายในวันนี้ พรุ่งนี้ตอน 9 โมงเช้ามาจะตั้งกระทู้เพื่อกำหนดรูปแบบโปรแกรมที่จะให้ทำแข่งกัน แต่ถ้ายังไม่ลงชื่อตรงนี้ทั้งสองท่าน ผมขอเลื่อนเป็น 5 โมงเย็นหรือเลื่อนไปจนกว่าจะลงชื่อรับทราบทั้งสองคน แล้วกำหนดเวลาอีกที

3.การตั้งกระทู้ เพื่อป้องกันการได้เปรียบเสียเปรียบเรื่องเวลา เมื่อผมตั้งกระทู้เรียบร้อยแล้ว ขอให้ท่านทั้งสองไปลงชื่อในกระทู้นั้นอีกครั้ง ถ้าลงชื่อครบทั้งสองคนในกระทู้นั้นแล้ว ผมจะได้แก้ไขข้อความในความเห็นแรก เพื่อให้เห็นว่ากำหนดให้ทำโปรแกรมอะไรกัน

4. เนื่องจากเถียงกันเรื่องลูป โปรแกรมที่กำหนดนี้จะต้องมีการทำเป็นลูปในชุดคำสั่งจะกี่ลูปก็ได้ จึงจะถือว่าสำเร็จ (ที่กำหนดแบบนี้เพราะเราสามารถเขียนโปรแกรมได้หลายรูปแบบแต่ให้ผลลัพธ์เดียวกัน)

5. เมื่อทำโปรแกรมตามที่กำหนดเสร็จแล้ว ให้ทำการส่งโค้ดคำสั่งทาง PM (คลิกตรงชื่อผมจะมีเมนูสำหรับ PM)เพื่อป้องกันการกล่าวหาว่านำโค้ดที่ส่งก่อนมาดัดแปลง

การประกาศผลหลังจากตั้งกระทู้ไปแล้ว 1 วัน
- ลำดับการส่ง
- โค้ดโปรแกรมสามารถทำงานได้ตามที่กำหนด
- ความสั้นยาวของบรรทัดคำสั่ง (สั้นดีกว่ายาว)

เมื่อรับทราบและตกลงว่าจะแข่งกันอย่างยุติธรรมโดยไม่มีการไปถามคนอื่น ทั้งหมดต้องทำด้วยตัวเอง ขอให้ลงชื่อรับทราบถัดจากความเห็นนี้ (ท่านอื่นเห็นว่าอยากจะแข่งด้วยก็มาลงชื่อแข่งได้ครับ)

ผมขอสมัครเข้าแข่งขันด้วย แบบไม่มีเงื่อนไข เพราะชอบมากเรื่องการเขียนโปรแกรม

ผมว่าท่านPos ยุติธรรมดี จัดให้มีการแข่งขันเขียนโปรแกรมกัน
ขอให้ท่านPos ทำลิ๊งค์สถานที่ที่จะเข้าไปลงชื่อเพื่อเข้าแข่งขันให้หน่อย
ผมคิดว่ามีหลายท่านสนใจ เมื่อหมดกำหนดลงชื่อเมื่อไหร่ ท่านก็แจกโจทย์ให้แต่ละท่านไปทางPM
อาจเป็นโจทย์ที่เหมือนกัน หรือไม่เหมือนก็ได้ แล้วแต่ภูมิปัญญาของแต่ละคน
แต่ต้องเขียนให้เสร็จภายใน 1วัน ถ้าข้ามวันถือว่าไม่ผ่าน

[ ลงชื่อ.. sak20102005 ]

ได้เลยงับลงแข่งด้วยขอแบบโจดเดียวกันเลยจะได้รู้ว่าใครเมพของจิง 55555 เด๋วเก้าโมงเช้าจะมารอโจด

นั่งเขียนเองจนเสร็จ ใช้เวลานั่งคิดและเขียนอยู่ 8 ชั่วโมง ใช้วิธีเขียนแบบลูกทุ่ง

พรุ่งนี้รับรองผมแพ้แน่นอน แต่ถ้าใครเขียนไม่สำเร็จก็แพ้ได้เหมือนกัน ไม่พ้นความพยายามผมหรอก

กติกา บอกไว้ว่า ให้เขียนยังไงก็ได้ แต่สามารถทำให้โปรแกรมทำงานได้ก็แล้วกัน

โปรแกรม เครื่องคิดเลข ผมเปลี่ยนคำสั่งใหม่เกือบทั้งหมด เดี๋ยวจะหาว่าเอาคำสั่งเก่ามาเขียน

แต่ก็ยังคงสไตล์การเขียนเดิมไว้ ความรู้ไม่ใช่ได้มากันแบบง่ายๆ

ต้องใช้วิธีหลอกท้าคนเก่งให้เขียนโค๊ดให้ แล้วนำมาศึกษาเพิ่มเติม

โค๊ดยากๆ ทำงานยังไง ไม่มีใครอธิบายได้ เดี๋ยวผมนำมาศึกษาและอธิบายการทำงานได้หมด

ไม่มีเรื่อง ไม่ได้ความรู้หรอก คนเก่งมักเล่นตัว หวงวิชา เป็นปกติธรรมดา

Code:

;Calculator Plus Standrad Design by:sak2005
#NoTrayIcon
#include <ButtonConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
#Include <GuiButton.au3>
#Include <WinAPIEx.au3>
Global $icon = @SystemDir&'\calc.exe', $title = 'Calculator Plus'
$hForm = GUICreate($title, 258, 235, -1, -1, -1, BitOR($WS_EX_WINDOWEDGE,$WS_EX_LAYERED))
WinSetOnTop("Calculator Plus", "", 1)
GUISetIcon($icon, -1, $hForm)
$edit_menu = GUICtrlCreateMenu("Edit")
$copy_item = GUICtrlCreateMenuItem("Copy  Ctrl+C", $edit_menu)
$paste_item = GUICtrlCreateMenuItem("Paste  Ctrl+V", $edit_menu)
GUICtrlCreateMenuItem("", $edit_menu, 2)
$exit_item = GUICtrlCreateMenuItem("Exit  Alt+F4", $edit_menu)
$view_menu = GUICtrlCreateMenu("View")
$standard_item = GUICtrlCreateMenuItem("Standrad", $view_menu, 1, 1)
GUICtrlSetState(-1, $GUI_CHECKED)
$glass_item = GUICtrlCreateMenuItem("Glass", $view_menu, 2, 1)
$color_item = GUICtrlCreateMenuItem("Color", $view_menu, 2, 1)
$help_menu = GUICtrlCreateMenu("Help")
$helptop_item = GUICtrlCreateMenuItem("Help Topics", $help_menu)
GUICtrlCreateMenuItem("", $help_menu, 2)
$about_item = GUICtrlCreateMenuItem("About Calculator Plus", $help_menu)
$Input_Disp = GUICtrlCreateInput("", 8, 3, 241, 23, BitOR _
($ES_RIGHT,$ES_AUTOHSCROLL,$ES_READONLY,$ES_WANTRETURN))
GUICtrlSetBkColor(-1, 0xFFFFFF)
$Input_DispL = GUICtrlCreateInput("L", 8, 3, 241, 23, BitOR _
($ES_RIGHT,$ES_AUTOHSCROLL,$ES_READONLY,$ES_WANTRETURN))
GUICtrlSetBkColor(-1, 0xFFFFFF)
GUICtrlSetState(-1, $GUI_HIDE)
GUICtrlCreateGraphic(13, 40, 28, 28, BitOR _
($SS_RIGHT,$SS_ETCHEDHORZ,$SS_ETCHEDFRAME,$SS_NOTIFY,$SS_CENTERIMAGE,$SS_SUNKEN))
GUICtrlSetBkColor(-1, 0xFFFFFF)
$Btn_Back = GUICtrlCreateButton("Backspace", 52, 40, 62, 28, $WS_GROUP)
$Btn_CE = GUICtrlCreateButton("CE", 119, 40, 62, 28, $WS_GROUP)
$Btn_C = GUICtrlCreateButton("C", 187, 40, 62, 28, $WS_GROUP)
$Btn_MC = GUICtrlCreateButton("MC", 8, 78, 35, 28, $WS_GROUP)
$Btn_MR = GUICtrlCreateButton("MR", 8, 111, 35, 28, $WS_GROUP)
$Btn_MS = GUICtrlCreateButton("MS", 8, 144, 35, 28, $WS_GROUP)
$Btn_MM = GUICtrlCreateButton("M+", 8, 176, 35, 28, $WS_GROUP)
$Btn_7 = GUICtrlCreateButton("7", 52, 78, 35, 28, $WS_GROUP)
$Btn_8 = GUICtrlCreateButton("8", 92, 78, 35, 28, $WS_GROUP)
$Btn_9 = GUICtrlCreateButton("9", 132, 78, 35, 28, $WS_GROUP)
$Btn_4 = GUICtrlCreateButton("4", 52, 111, 35, 28, $WS_GROUP)
$Btn_5 = GUICtrlCreateButton("5", 92, 111, 35, 28, $WS_GROUP)
$Btn_6 = GUICtrlCreateButton("6", 132, 111, 35, 28, $WS_GROUP)
$Btn_1 = GUICtrlCreateButton("1", 52, 144, 35, 28, $WS_GROUP)
$Btn_2 = GUICtrlCreateButton("2", 92, 144, 35, 28, $WS_GROUP)
$Btn_3 = GUICtrlCreateButton("3", 132, 144, 35, 28, $WS_GROUP)
$Btn_0 = GUICtrlCreateButton("0", 52, 176, 35, 28, $WS_GROUP)
$Button18 = GUICtrlCreateButton("+/-", 92, 176, 35, 28, $WS_GROUP)
$Btn_Dot = GUICtrlCreateButton(".", 131, 176, 35, 28, $WS_GROUP)
$Btn_Div = GUICtrlCreateButton("/", 172, 78, 35, 28, $WS_GROUP)
$Btn_Mult = GUICtrlCreateButton("*", 172, 111, 35, 28, $WS_GROUP)
$Btn_Sub = GUICtrlCreateButton("-", 172, 144, 35, 28, $WS_GROUP)
$Btn_Add = GUICtrlCreateButton("+", 172, 176, 35, 28, $WS_GROUP)
$Btn_sqrt = GUICtrlCreateButton("sqrt", 213, 78, 35, 28, $WS_GROUP)
$Btn_Perc = GUICtrlCreateButton("%", 213, 111, 35, 28, $WS_GROUP)
$Btn_Twee = GUICtrlCreateButton("1/x", 213, 144, 35, 28, $WS_GROUP)
$Btn_Tot = GUICtrlCreateButton("=", 213, 176, 35, 28, $WS_GROUP)
GUISetState(@SW_SHOW)
_WinAPI_SetLayeredWindowAttributes($hForm, 0xABABAB, 255, BitOR($LWA_COLORKEY, $LWA_ALPHA))
While 1
   $nMsg = GUIGetMsg()
   Switch $nMsg
      Case $GUI_EVENT_CLOSE
         For $i = 255 To 0 Step -3
            WinSetTrans($title, "", $i)
            Sleep(1)
         Next
             Exit
      Case $copy_item
         ClipPut(GUICtrlRead($Input_Disp))
      Case $paste_item
         MsgBox(4096, "", ClipGet())
      Case $exit_item
         ExitLoop
      Case $standard_item
         GUICtrlSetBkColor($Input_Disp, 0xFFFFFF)
         GUICtrlSetBkColor($Input_DispL, 0xFFFFFF)
         GUISetBkColor(0xF4F4F4, $hForm)
        Case $glass_item
         GUISetBkColor(0xABABAB, $hForm)
         GUICtrlSetBkColor($Input_Disp, 0xABABAB)
         GUICtrlSetBkColor($Input_DispL, 0xABABAB)
      Case $color_item
         GUICtrlSetBkColor($Input_Disp, 0xF4F4F4)
         GUICtrlSetBkColor($Input_DispL, 0xF4F4F4)
         GUISetBkColor(0xA6CAF0, $hForm)
      Case $about_item
         _WinAPI_AboutDlg('About', 'Calculator Plus', 'Create by:sak2005'&@CRLF&'Programimg:AutoIt v3', _
         _WinAPI_ShellExtractIcon(@SystemDir & '\shell32.dll', 130, 32, 32), $hForm)
        Case $Btn_7
         GUICtrlSetData($Input_Disp, GUICtrlRead($Input_Disp)&_GUICtrlButton_GetText($Btn_7))
            GUICtrlSetData($Input_DispL, GUICtrlRead($Input_DispL)&_GUICtrlButton_GetText($Btn_7))
      Case $Btn_8
         GUICtrlSetData($Input_Disp, GUICtrlRead($Input_Disp)&_GUICtrlButton_GetText($Btn_8))
          GUICtrlSetData($Input_DispL, GUICtrlRead($Input_DispL)&_GUICtrlButton_GetText($Btn_8))
      Case $Btn_9
         GUICtrlSetData($Input_Disp, GUICtrlRead($Input_Disp)&_GUICtrlButton_GetText($Btn_9))
         GUICtrlSetData($Input_DispL, GUICtrlRead($Input_DispL)&_GUICtrlButton_GetText($Btn_9))
      Case $Btn_4
         GUICtrlSetData($Input_Disp, GUICtrlRead($Input_Disp)&_GUICtrlButton_GetText($Btn_4))
         GUICtrlSetData($Input_DispL, GUICtrlRead($Input_DispL)&_GUICtrlButton_GetText($Btn_4))
      Case $Btn_5
         GUICtrlSetData($Input_Disp, GUICtrlRead($Input_Disp)&_GUICtrlButton_GetText($Btn_5))
          GUICtrlSetData($Input_DispL, GUICtrlRead($Input_DispL)&_GUICtrlButton_GetText($Btn_5))
      Case $Btn_6
         GUICtrlSetData($Input_Disp, GUICtrlRead($Input_Disp)&_GUICtrlButton_GetText($Btn_6))
         GUICtrlSetData($Input_DispL, GUICtrlRead($Input_DispL)&_GUICtrlButton_GetText($Btn_6))
      Case $Btn_1
         GUICtrlSetData($Input_Disp, GUICtrlRead($Input_Disp)&_GUICtrlButton_GetText($Btn_1))
         GUICtrlSetData($Input_DispL, GUICtrlRead($Input_DispL)&_GUICtrlButton_GetText($Btn_1))
      Case $Btn_2
         GUICtrlSetData($Input_Disp, GUICtrlRead($Input_Disp)&_GUICtrlButton_GetText($Btn_2))
         GUICtrlSetData($Input_DispL, GUICtrlRead($Input_DispL)&_GUICtrlButton_GetText($Btn_2))
      Case $Btn_3
         GUICtrlSetData($Input_Disp, GUICtrlRead($Input_Disp)&_GUICtrlButton_GetText($Btn_3))
         GUICtrlSetData($Input_DispL, GUICtrlRead($Input_DispL)&_GUICtrlButton_GetText($Btn_3))
      Case $Btn_0
         GUICtrlSetData($Input_Disp, GUICtrlRead($Input_Disp)&_GUICtrlButton_GetText($Btn_0))
         GUICtrlSetData($Input_DispL, GUICtrlRead($Input_DispL)&_GUICtrlButton_GetText($Btn_0))
      Case $Btn_Dot
         GUICtrlSetData($Input_Disp, GUICtrlRead($Input_Disp)&_GUICtrlButton_GetText($Btn_Dot))
         GUICtrlSetData($Input_DispL, GUICtrlRead($Input_DispL)&_GUICtrlButton_GetText($Btn_Dot))
      Case $Btn_Div
         If GUICtrlRead($Input_Disp) <> '' Then
             GUICtrlSetState($Input_Disp, $GUI_HIDE)
             GUICtrlSetState($Input_DispL, $GUI_SHOW)
             GUICtrlSetData($Input_DispL, GUICtrlRead($Input_Disp)&'/')
         EndIf
       Case $Btn_Mult
          If GUICtrlRead($Input_Disp) <> '' Then
             GUICtrlSetState($Input_Disp, $GUI_HIDE)
             GUICtrlSetState($Input_DispL, $GUI_SHOW)
             GUICtrlSetData($Input_DispL, GUICtrlRead($Input_Disp)&'*')
         EndIf
      Case $Btn_Sub
            If GUICtrlRead($Input_Disp) <> '' Then
             GUICtrlSetState($Input_Disp, $GUI_HIDE)
             GUICtrlSetState($Input_DispL, $GUI_SHOW)
             GUICtrlSetData($Input_DispL, GUICtrlRead($Input_Disp)&'-')
         EndIf
       Case $Btn_Add
          If GUICtrlRead($Input_Disp) <> '' Then
             GUICtrlSetState($Input_Disp, $GUI_HIDE)
             GUICtrlSetState($Input_DispL, $GUI_SHOW)
             GUICtrlSetData($Input_DispL, GUICtrlRead($Input_Disp)&'+')
         EndIf
      Case $Btn_Tot
         If GUICtrlRead($Input_DispL) <> '' Then
             GUICtrlSetState($Input_Disp, $GUI_SHOW)
             GUICtrlSetState($Input_DispL, $GUI_HIDE)
             $Ans = Execute(GUICtrlRead($Input_DispL))
             If @error Then
                 GUICtrlSetData($Input_Disp, GUICtrlRead($Input_Disp))
             Else
                 GUICtrlSetData($Input_Disp, $Ans)
             EndIf
         EndIf
      Case $Btn_Back
         $trim = StringTrimRight(GUICtrlRead($Input_disp), 1)
           GUICtrlSetData($Input_disp, $trim)
         $trim = StringTrimRight(GUICtrlRead($Input_dispL), 1)
           GUICtrlSetData($Input_dispL, $trim)
      Case $Btn_C
         GUICtrlSetData($Input_Disp, '')
            GUICtrlSetData($Input_DispL, '')
   EndSwitch
WEnd

ขออนุญาตนำโค๊ดของท่าน aut มาอธิบายหลักการทำงาน เพื่อเป็นความรู้กับบุคคลทั่วไป

โค๊ดพีรามิด

Code:

#include <Array.au3>
Local $Array[5][9]
for $i = 0 to 8
$Array[4][$i] = $i+1
if $i > 1 then $Array[3][$i-1] = $i
if $i > 2 and $i < 8 then $Array[2][$i-1] = $i
if $i > 3 and $i < 7 then $Array[1][$i-1] = $i
if $i = 5 then $Array[0][$i-1] = $i
Next
_ArrayDisplay($Array, "Sample Array")

อธิบาย:

#include <Array.au3> หมายถึง ถ้าจะใช้คำสั่ง _ArrayDisplay นี้ ท่านต้องอ้างไฟล์ includ ด้วย
ไม่งั้นจะเกิด Error! ถ้าใช้การแสดงผลอื่นเช่น MessageBox , Form Disign หรือ Notepad ก็ไม่ต้องอ้าง

Local $Array[5][9] หมายถึง ประกาศตัวแปรชื่อ Array หรือจะใช้เป็นชื่ออื่นก็ได้
เลข 5 ในวงเล็บ หมายถึง กำหนดให้มี 5 ลำดับ หรือ Row จากบนลงล่าง
เลข 9 ในวงเล็บ หมายถึง กำหนดให้มี 9 แถว หรือ Col จากซ้ายไปขวา

for $i = 0 to 8 หมายถึง ใช้ลูป for โดยมี $i เป็นตัวแปร นับ 0 ถึง 8

$Array[4][$i] = $i+1 หมายถึง กำหนดให้ลูปเริ่มทำงานที่ลำดับที่4 หรือ $Array[4]
$i ในวงเล็บ หมายถึง ตัวแปรที่จะต้องทำงาน โดยการบวกไปที่ละหนึ่ง หรือ $i+1
ไปเป็นแถว จากซ้ายไปขวา ไปจนครบจำนวนที่กำหนดให้นับคือ 0 ถึง 8 ซึ่งเท่ากับแถว
หรือ Col ที่กำหนดไว้พอดี ไม่ขาด ไม่เกิน การสร้างพีรามิดของโค๊ดนี้ เหมือนกับการสร้างบ้าน
คือ ต้องลงเสาและเทพื้นก่อน ใส่คาน จากนั้นก็มุงหลังคา

if $i > 1 then $Array[3][$i-1] = $i หมายถึง เงื่อนไขของ $i หรือ แถว หรือ Col ที่ต้องสร้า้งขึ้นมา
เพื่อป้องกันการบิดเบี้ยวของรูปทรงพีรามิด เราสามารถทดสอบรันทีละคำสั่งได้
แล้วจะรู้ว่ามันทำงานยังไง โค๊ดที่เหลือก็ทำงานคล้ายๆกัน

ถ้าไม่มีใครเข้ามารบกวนการเขียนบทความอีก จะลงให้ความรู้จนจบ
แนะนำได้ ถ้าผมเขียนข้อความผิดตรงไหน ผมจะได้เก้ไขข้อความให้ถูกต้อง
ห้ามอวดรู้เป็นอันขาด เพราะจะทำให้คนเขียนบทความสดุด ไม่กล้าเขียนต่อ
เพราะมีคนรู้ดีกว่าก็เลยไม่กล้าเขียน นี่ถ้ามีมาอีกเลิกเขียนทันที.

ความรู้ที่นำมาถ่ายทอดให้ ผมไม่ได้เป็นคนค้นคิดขึ้น แต่ยอมอดทนลำบาก
พยายามแปล help จากอังกฤษที่ไม่กระดิกหูมาเป็นไทยให้
ถ้าใครสามารถเก็บรวบรวมข้อความของผมไว้ทุกตอนได้
จะสามารถนำไปเขียนเป็นหนังสือ AutoIt ฉบับภาษาไทยได้สบายๆ1เล่ม.