聊天 - 一個用程式設計的小魔術

[魔術王子]

感覺大家對1945這個魔術很感興趣,所以重新設計,也加入了語音
https://drive.google.com/file/d/12xy...ew?usp=sharing

[魔術王子]

第三個魔術,改的不多,重點是將語音也加入執行檔內
https://drive.google.com/file/d/1oPQ...ew?usp=sharing

[mini]

作者: 魔術王子

第三個魔術,改的不多,重點是將語音也加入執行檔內
https://drive.google.com/file/d/1oPQ...ew?usp=sharing

好像有點怪怪的bugs~
整個表演是可以正確演譯一次...是沒錯的

[魔術王子]

作者: mini

好像有點怪怪的bugs~
整個表演是可以正確演譯一次...是沒錯的

其實有很多(包含前面兩個)!!!
因為找到可以將語音加入執行檔,讓我急著更新,反而影響到程式的運作
其實前面兩個,我也不是很滿意啦,所以我打算全部再重新來過
所以下次更新會拖延一點時間,到時再拜託大家幫忙"找碴"

[mini]

其實不用急
畢竟是個人"無料"興趣

[魔術王子]

作者: mini

其實不用急
畢竟是個人"無料"興趣

有聽過"旗正飄飄"吧
就是程式設計時,邏輯打結的話,就加個變數當旗標
現在我設計程式能不用變數都盡量不用變數,尤其是使用Public類型的變數
而在視覺化設計的工具元件有一個很有趣的現象,就是每個元件都有Tag的屬性
但卻少人用
所以我設計程式通用的數值很少將變數設成Public,而是使用Tag來替代
一開始設計這些程式時,我放了很多的Panel元件來當給使用者的訊息傳遞,所以Panel的Tag屬性就被我拿來當通用變數
因為在測試中,所以想加多少就加多少,後來成功了,要正式設計,覺得Panel元件太多了
就慢慢縮減,問題來了,這程式元件本來就不多,Panel再縮減,就造成這些通用變數沒地方存放
最後就出現很多無法預期的錯誤,再加上找出好方法,求好心切,然後就越設計越爛

https://drive.google.com/file/d/1rB3...ew?usp=sharing
這是重新設計的第一個魔術,就是這個魔術讓我有想要設計成程式的念頭,所以成為第一個設計的程式,不過並不算完成,因為語音只加一點點,但整體上是可以執行的,麻煩大家幫我測試看看有沒有什麼問題,謝謝

[mini]

程式正常

小聲地說: 手癢用截圖軟體拍了一次才知原理
所以這裡做個保證 > 【沒有程式作弊】
P.S.對了那個牌移動能否讓它迅速點 (洗牌時間就做得很流暢)

PHP 語法:

    Private Sub mouse_move(ByVal eX As Integer, ByVal eY As Integer)
        On Error Resume Next

        Dim X As Single
        Dim Y As Single
        Dim dx As Single = (eX - Cursor.Position.X) / i位移量
        Dim dy As Single = (eY - Cursor.Position.Y) / i位移量
        For i As Integer = 1 To i位移量
            X = Cursor.Position.X + dx
            Y = Cursor.Position.Y + dy
            Cursor.Position = New Point(X, Y)
            Threading.Thread.Sleep(i延遲)
        Next
    End Sub 


此程式碼是截錄至 "模擬mouse線性移動" 的功能(可做到 規定在多少時間內完成直線移動)，供你摻考
===========
.Tag的見解
在視覺化程式語言裡 可以說是個"多型"的變數 (事實上算是個包裝好的class容器 而非變數)
求快速設計 或 短暫應用 時很好用
不過程式碼稍微巨量時就不大會去用到(怕未來會發生使用時被"他人"呼叫更改的不可預期事件 ;或 未來發生多線程牴觸之問題)
一般都是宣告個 "結構"，再宣告變數使用這個"結構" (更正統點就是包裝成 class)
當變數(不夠用時)要增加就直接增加 "結構"裡的"成員"
程式就能大而不亂

多型變數在VB裡很常見
最近的JAVA 10才正式使用起 多型變數(是靠編譯器去做未來分析來達成，骨子裡其實並非多型變數)
但C/C++應該是沒有才對?
魔王不提還不知道
原來C/C++也可如此間接使用 "多型變數"的概念 ??