QBasic/影像

警告

除了 QB64 之外的所有 IDE 都無法使用這些功能。

簡單影像

rem image_display
cls
Dim Image as long
x = 1000  'resolution
y = 1000
Image = _loadimage("TEST.jpg") 'loading the image
screen _newimage(x,y,32) 'putting screen sizes
_putimage (0,0),Image 'putting image

所以你可能最期待的是大量的程式碼。就是這樣，您在 QB64 中顯示影像所需的一切！

那麼，這段驚人簡單的程式碼到底做了什麼呢？

分步解釋

我們已經將變數 Image 宣告為一個長整型值。這是因為 _loadimage 函式返回的影像控制代碼是一個長整型值。
x 和 y 是我們的變數。它們儲存了我們需要的解析度值。因此，對於 8n00 x 900 的影像，x = 800，y = 900。
接下來，將影像變數 Image 放置到影像“TEST.jpg”的控制代碼值。友好的警告：將影像儲存在 QB64 IDE 的資料夾中。否則，該函式將無法工作！
接下來，我們調整了螢幕大小以適合影像。newimage 函式需要三個引數，解析度引數和顏色模式引數。這裡我們使用了 32 位顏色模式，您也可以使用 256 位調色盤顏色模式。
最後，我們使用 _putimage 放置影像，它將 Image 變數（我們的影像控制代碼）作為其引數。

_newimage 的次要用途用於設定螢幕細節

好吧，你可能在想，所有這些命令都必須按照相同的順序使用。不，情況並非如此。您可以單獨使用 _newimage 來設定螢幕細節，如下所示

screen _Newimage(1000,1000,256)

此程式碼將螢幕設定為巨大的 1000 x 1000 解析度，使用 256 位調色盤顏色模式！