標題:
有人會翻譯這一段程式語言嗎
發問:
最佳解答:
Dim r, g, b AsInteger Dim ordinar As Integer Dimxc, y c As Integer Dim dx, dy As Integer Dim ac, bc As Integer Dim sss As Integer Dim ballsize AsInteger = 20 Dim gg As MessageBoxButtons 先制作一些參數(parameter), 供編程時運算用。 Integer 整數 有 level, r, g, b, ordinar, xc, y, c, dx, dy, ac, bc, sss Integer 整數 有 ballsize, 這裡設 ballsize室為20 MessageBoxButtons 對話框的按鈕 有 gg 下面內容應該是一個物件裡的一個KeyDown / KeyPress 事件 下面應該是select case 的一部分吧 應該有一個要判斷的參數，設為 xx 應該是要判斷按下了什麼按鍵 select xx CaseKeys.Right Ifrossaria.Left>Me.Width - rossaria.Width - 20 Then rossaria.Left = Me.Width - rossaria.Width Else rossaria.Left = rossaria.Left + 20 EndIf CaseKeys.Up Ifrossaria.Top> 250 Then rossaria.Top = rossaria.Top - 20 EndIf CaseKeys.Down Ifrossaria.Top< 400 Then rossaria.Top = rossaria.Top + 20 EndIf 如果 xx 是 Keys.Right(方向鍵的右鍵) 裡面再判斷 如果rossaria 的與左邊框距離大於這物件的闊度 - rossaria的闊度 - 20 就把rossaria 的與左邊框距離設定為這物件的闊度 - rossaria的闊度 否則 就把rossaria 的與左邊框距離增加20 這裡應該是一個簡單的按右鍵時與右邊框的磁—碰撞偵測。 Keys.Up/Down的語句，則為上下邊框碰撞偵測，不過缺乏了把越界物件鎖定回邊界的語句。
其他解答:
昏暗的水平作為整數 昏暗的R，G，B AsInteger 由於整數昏暗一般負責 Dimxc，Y c由於整數 昏暗的DX，DY為INTEGER 昏暗的AC，BC作為整數 由於整數昏暗SSS Ballsize昏暗作為整數=20 昏暗的GG MessageBoxButtons 接下來.. CaseKeys.Right Ifrossaria.Left> Me.Width - rossaria.Width - 20然後 rossaria.Left= Me.Width - rossaria.Width 其他 rossaria.Left rossaria.Left=+20 ENDIF CaseKeys.Up Ifrossaria.Top>250然後 rossaria.Top= rossaria.Top - 20 ENDIF CaseKeys.Down Ifrossaria.Top<400然後 rossaria.Top rossaria.Top=+20 ENDIF|||||LUO PUI KI 重複發帖嗎? 2014-06-21 22:11:21 補充： 好像是用來控制 rossaria (懷疑是picturebox) 的位置 按上下左右來移動 rossaria 有限制可移動的範圍 rossaria 和視窗左右固定有20pixel的距離 rossaria 頂部也只能在250-400的時候向上或下移動， 避免超出視窗 這個程式有很多的問題...... 如向上下移動有時會超出預設範圍 視窗改變大小時上下可移動範圍不會改變 也不會將因視窗改變大小而超出預設範圍的 rossaria 放回正確位置 ... 問題部份看得懂就算了，看不懂的話也許你應該讓寫這段碼的人看 如果他一看就明白的話，他應該是故意的 看不懂的話那還是算了吧，無需執着於此 2014-06-27 23:29:17 補充： 天蔚是直接google translate嗎 XDDDD|||||你那語言叫VISUAL BASIC dim其實是dimension dim x as integer的意思就是定義一個叫X的數值 類型為integer (integer即為4byte或32位元) 亦即從記憶找4byte存放數值 限制在0~4294967295 至於那些.right,.left我就不懂了 但其他其實很易看懂 如 IF,ENDIF dim x as double if x = 10 then x = x + 1 end if 也就是先定義X,然後當執行到第2行代碼 如果 x = 10 那就把 x + 1 IF跟ENDIF成對 其中可在IF-ENDIF內加上ELSE 例如: if x = 10 then x = x + 1 else x = 0 end if 上例意思是先檢查 x 是否 =10 如是則執行 x = x + 1 否則 x 就 = 0 如你的例子中 Ifrossaria.Top> 250 Then 其實應該是If rossaria.Top> 250 Then 那個.TOP我不太懂 但我猜應該是某圖形的數值吧 所以上述的例子就是如果那圖形的數值大於250 那就執行rossaria.Top = rossaria.Top - 20 我不專精VISUAL BASIC 略盡綿力吧@~@|||||你那語言叫VISUAL BASIC dim其實是dimension dim x as integer的意思就是定義一個叫X的數值 類型為integer (integer即為4byte或32位元) 亦即從記憶找4byte存放數值 限制在0~4294967295 至於那些.right,.left我就不懂了 但其他其實很易看懂 如 IF,ENDIF dim x as double if x = 10 then x = x + 1 end if 也就是先定義X,然後當執行到第2行代碼 如果 x = 10 那就把 x + 1 IF跟ENDIF成對 其中可在IF-ENDIF內加上ELSE 例如: if x = 10 then x = x + 1 else x = 0 end if 上例意思是先檢查 x 是否 =10 如是則執行 x = x + 1 否則 x 就 = 0 如你的例子中 Ifrossaria.Top> 250 Then 其實應該是If rossaria.Top> 250 Then 那個.TOP我不太懂 但我猜應該是某圖形的數值吧 所以上述的例子就是如果那圖形的數值大於250 那就執行rossaria.Top = rossaria.Top - 20 我不專精VISUAL BASIC 略盡綿力吧@~@
有人會翻譯這一段程式語言嗎
發問:
此文章來自奇摩知識+如有不便請留言告知
Dim level As IntegerDim r, g, b AsIntegerDim ordinar As IntegerDimxc, y c As IntegerDim dx, dy As IntegerDim ac, bc As IntegerDim sss As IntegerDim ballsize AsInteger = 20Dim gg As MessageBoxButtons接下來..CaseKeys.RightIfrossaria.Left>Me.Width - rossaria.Width - 20 Thenrossaria.Left =... 顯示更多 Dim level As Integer Dim r, g, b AsInteger Dim ordinar As Integer Dimxc, y c As Integer Dim dx, dy As Integer Dim ac, bc As Integer Dim sss As Integer Dim ballsize AsInteger = 20 Dim gg As MessageBoxButtons 接下來.. CaseKeys.Right Ifrossaria.Left>Me.Width - rossaria.Width - 20 Then rossaria.Left = Me.Width - rossaria.Width Else rossaria.Left = rossaria.Left + 20 EndIf CaseKeys.Up Ifrossaria.Top> 250 Then rossaria.Top = rossaria.Top - 20 EndIf CaseKeys.Down Ifrossaria.Top< 400 Then rossaria.Top = rossaria.Top + 20 EndIf 很急最佳解答:
Dim r, g, b AsInteger Dim ordinar As Integer Dimxc, y c As Integer Dim dx, dy As Integer Dim ac, bc As Integer Dim sss As Integer Dim ballsize AsInteger = 20 Dim gg As MessageBoxButtons 先制作一些參數(parameter), 供編程時運算用。 Integer 整數 有 level, r, g, b, ordinar, xc, y, c, dx, dy, ac, bc, sss Integer 整數 有 ballsize, 這裡設 ballsize室為20 MessageBoxButtons 對話框的按鈕 有 gg 下面內容應該是一個物件裡的一個KeyDown / KeyPress 事件 下面應該是select case 的一部分吧 應該有一個要判斷的參數，設為 xx 應該是要判斷按下了什麼按鍵 select xx CaseKeys.Right Ifrossaria.Left>Me.Width - rossaria.Width - 20 Then rossaria.Left = Me.Width - rossaria.Width Else rossaria.Left = rossaria.Left + 20 EndIf CaseKeys.Up Ifrossaria.Top> 250 Then rossaria.Top = rossaria.Top - 20 EndIf CaseKeys.Down Ifrossaria.Top< 400 Then rossaria.Top = rossaria.Top + 20 EndIf 如果 xx 是 Keys.Right(方向鍵的右鍵) 裡面再判斷 如果rossaria 的與左邊框距離大於這物件的闊度 - rossaria的闊度 - 20 就把rossaria 的與左邊框距離設定為這物件的闊度 - rossaria的闊度 否則 就把rossaria 的與左邊框距離增加20 這裡應該是一個簡單的按右鍵時與右邊框的磁—碰撞偵測。 Keys.Up/Down的語句，則為上下邊框碰撞偵測，不過缺乏了把越界物件鎖定回邊界的語句。
其他解答:
昏暗的水平作為整數 昏暗的R，G，B AsInteger 由於整數昏暗一般負責 Dimxc，Y c由於整數 昏暗的DX，DY為INTEGER 昏暗的AC，BC作為整數 由於整數昏暗SSS Ballsize昏暗作為整數=20 昏暗的GG MessageBoxButtons 接下來.. CaseKeys.Right Ifrossaria.Left> Me.Width - rossaria.Width - 20然後 rossaria.Left= Me.Width - rossaria.Width 其他 rossaria.Left rossaria.Left=+20 ENDIF CaseKeys.Up Ifrossaria.Top>250然後 rossaria.Top= rossaria.Top - 20 ENDIF CaseKeys.Down Ifrossaria.Top<400然後 rossaria.Top rossaria.Top=+20 ENDIF|||||LUO PUI KI 重複發帖嗎? 2014-06-21 22:11:21 補充： 好像是用來控制 rossaria (懷疑是picturebox) 的位置 按上下左右來移動 rossaria 有限制可移動的範圍 rossaria 和視窗左右固定有20pixel的距離 rossaria 頂部也只能在250-400的時候向上或下移動， 避免超出視窗 這個程式有很多的問題...... 如向上下移動有時會超出預設範圍 視窗改變大小時上下可移動範圍不會改變 也不會將因視窗改變大小而超出預設範圍的 rossaria 放回正確位置 ... 問題部份看得懂就算了，看不懂的話也許你應該讓寫這段碼的人看 如果他一看就明白的話，他應該是故意的 看不懂的話那還是算了吧，無需執着於此 2014-06-27 23:29:17 補充： 天蔚是直接google translate嗎 XDDDD|||||你那語言叫VISUAL BASIC dim其實是dimension dim x as integer的意思就是定義一個叫X的數值 類型為integer (integer即為4byte或32位元) 亦即從記憶找4byte存放數值 限制在0~4294967295 至於那些.right,.left我就不懂了 但其他其實很易看懂 如 IF,ENDIF dim x as double if x = 10 then x = x + 1 end if 也就是先定義X,然後當執行到第2行代碼 如果 x = 10 那就把 x + 1 IF跟ENDIF成對 其中可在IF-ENDIF內加上ELSE 例如: if x = 10 then x = x + 1 else x = 0 end if 上例意思是先檢查 x 是否 =10 如是則執行 x = x + 1 否則 x 就 = 0 如你的例子中 Ifrossaria.Top> 250 Then 其實應該是If rossaria.Top> 250 Then 那個.TOP我不太懂 但我猜應該是某圖形的數值吧 所以上述的例子就是如果那圖形的數值大於250 那就執行rossaria.Top = rossaria.Top - 20 我不專精VISUAL BASIC 略盡綿力吧@~@|||||你那語言叫VISUAL BASIC dim其實是dimension dim x as integer的意思就是定義一個叫X的數值 類型為integer (integer即為4byte或32位元) 亦即從記憶找4byte存放數值 限制在0~4294967295 至於那些.right,.left我就不懂了 但其他其實很易看懂 如 IF,ENDIF dim x as double if x = 10 then x = x + 1 end if 也就是先定義X,然後當執行到第2行代碼 如果 x = 10 那就把 x + 1 IF跟ENDIF成對 其中可在IF-ENDIF內加上ELSE 例如: if x = 10 then x = x + 1 else x = 0 end if 上例意思是先檢查 x 是否 =10 如是則執行 x = x + 1 否則 x 就 = 0 如你的例子中 Ifrossaria.Top> 250 Then 其實應該是If rossaria.Top> 250 Then 那個.TOP我不太懂 但我猜應該是某圖形的數值吧 所以上述的例子就是如果那圖形的數值大於250 那就執行rossaria.Top = rossaria.Top - 20 我不專精VISUAL BASIC 略盡綿力吧@~@
文章標籤
全站熱搜
留言列表
