將XY參考轉換爲像素參考

Question

我有一個面板，其中有一個backgroundimage模擬XY圖形，如下圖所示。

我基於所述用戶輸入創建pictureboxes動態：

• 數目的圖像
• （X，Y）座標

問題是座標是在本地機器軟件中定義，範圍爲X and Y from -100 to +100。我的面板是200px x 200px。

我嘗試類似：

If X < 0 and then 
    X0 = X-100 
ElseIf X > 0 then 
    X0 = X+100 
Else 
    X0 = X 
End If 

(...) 
PictureBox(n).location = new point (X0,Y0) 

但我認爲這並不好做這樣的事情。任何想法以更好的方式做到這一點？

---- ----編輯

迄今爲止最好的方法：

Select Case X And Y 
      Case CInt(X < 0 And Y > 0) 
       X0 = X + 100 
       Y0 = Y - 100 
      Case CInt(X < 0 And Y < 0) 
       X0 = X + 100 
       Y0 = Y + 200 
      Case CInt(X > 0 And Y > 0) 
       X0 = X + 100 
       Y0 = Y + 100 
      Case CInt(X > 0 And Y < 0) 
       X0 = X + 100 
       Y0 = Y + 200 
      'Missing when X=0 and so on 
End Select 

---- ----編輯

現在看一下例子。

所有你給的答案都不符合問題。

| X | Y | | X0 | Y0 | 
|-100|100 | | 0 | 0 | 
| 20 | 40 | |120 | 60 | 
| -60|-20 | | 40 | 120 | 
| 60|-80 | | 160| 180 | 

Answer 1

只需X0 = X + 100和Y0 = 100 - Y應該努力！例如：

• 如果X = -100然後X0爲0，

• 當X = 0，則X0是100

• 當X = + 100的X0是200，

因此，當X介於-100到100之間時，X0將根據需要在0和200之間！

編輯爲：Y0 = 100 - Y 經過與樣品數據和它的確定

• 如果Y = -100然後Y0是200，

• 當Y = 0，則Y0是100，

• 當Y = + 100時，Y0爲0。

Answer 2

它看起來像你試圖將笛卡爾座標轉換爲屏幕座標。

Dim xmin As Integer = -100 
    Dim xmax As Integer = 100 
    Dim xrng As Integer = xmax - xmin 

    Dim ymin As Integer = -100 
    Dim ymax As Integer = 100 
    Dim yrng As Integer = ymax - ymin 

    Dim center As New Point(xrng \ 2, yrng \ 2) 'center on screen 

一旦我們有中心，然後其他笛卡爾座標可以轉換爲屏幕座標。

Dim newcpt As New Point(-50, 50) 'new cartesian pt 
    Dim drawpt As New Point(center.X + newcpt.X, center.Y + newcpt.Y) 'new cartesian pt translated to screen location 

Answer 3

你在看什麼是翻轉Y，然後翻譯原點。從面板 到笛卡爾。

x0 = x - 100 
y0 = -(y - 100) 

做相反的事情。

x0 = x + 100 
y0 = -y + 100