有人會翻譯這一段程式語言嗎

2014-06-19 3:16 am
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
很急

回答 (5)

2014-06-28 5:47 am
✔ 最佳答案

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的語句,則為上下邊框碰撞偵測,不過缺乏了把越界物件鎖定回邊界的語句。
2014-06-27 1:49 am
昏暗的水平作為整數
昏暗的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
2014-06-22 5:39 am
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
2014-06-21 3:15 am
你那語言叫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 略盡綿力吧@~@
2014-06-19 9:33 am
你那語言叫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 略盡綿力吧@~@


收錄日期: 2021-04-15 15:49:03
原文連結 [永久失效]:
https://hk.answers.yahoo.com/question/index?qid=20140618000051KK00089

檢視 Wayback Machine 備份