CoolBasic Forums

Code: Select all

ShowWindow() //näyttää tai piilottaa ikkunan
FlashWindow()//välkyttää ikkunan otsikkopalkkia
MoveWindow()//vaihtaa ikkunan sijaintia sekä kokoa
SetWindowAlpha()//asettaa ikkunan läpinäkyvyyden
SwitchWindow()//asettaa ikkunan päälimmäiseksi
DestroyWindow()//sulkee ikkunan
CreateRoundWindow()//muuttaa ikkunan pyöreäksi
CreateRectRoundWindow()//pyöristää ikkunan kulmia
HideMenu()//piilottaa ikkunan sulkemispainikkeen
OpenCDTray()//avaa tai sulkee cd aseman
ScreenW()//palauttaa KOKO näytön leveyden
ScreenH()//palauttaa KOKO näytön korkeuden
Beep()//soittaa koneen piipperiä
MsgBox()//tuo näytölle viesti-ikkunan
HideWindowsTaskBar()//piilottaa tai näyttää tehtäväpalkin
SetTaskBarAlpha()//asettaa tehtäväpalkin läpinäkyvyyden
SetCursorPos()//asettaa hiiren sijainnin ruudulle
_PutPixel()//piirtää pikselin näytölle
BlockInput()//poistaa hiiren ja näppäimistön käytöstä
HideDesktopIcons()// piilottaa työpyödän kuvakkeet
ShowCursor()//näyttää tai piilottaa hiiren
LockWorkStation()//lukitsee tietokoneen
TextOut()//kirjoittaa tekstiä näytölle
MouseEvent()//simuloi hiiren klikkauksia
_MouseX()//kertoo hiiren X-koordinaatin koko näytöllä
_MouseY()//kertoo hiiren Y-koordinaatin koko näytöllä
SwapMouseButton()//vaihtaa hiirten hiiren painikkeiden paikkaa
SetLockLed()//sytyttää tai sammuttaa CapsLock, NumLock ja ScrollLock valon 
GetAscKey()//Kertoo onko tietty näppäin pohjassa
TypeStr()//Kertoo onko tietty näppäin pohjassa
_GetPixel()//Poimii pikseliarvon ruudulta
SetWindowText()//Vaihtaa halutun ikkunan otsikon
GetEnv()//Hakee ympäristömuuttujan arvon

Code: Select all

SCREEN 50,50
Include "C:\Program Files\CoolBasic\cbFUN\cbFUN.cb"
Const framecount = 6
Dim ledframe(framecount) As String
ledframe(0) = "000"
ledframe(1) = "100"
ledframe(2) = "110"
ledframe(3) = "111"
ledframe(4) = "011"
ledframe(5) = "001"
ledframe(6) = "000"
Repeat
    frame + 1
    If frame > framecount Then frame = 0
    For i = 1 To 3
        SetLockLed(i, Mid(ledFrame(frame),i,1))
    Next i
    Wait 100
Forever

Code: Select all

Include "cbFUN\cbFUN.cb"
SCREEN 400, 400
SetWindow "cb"


    CreateRectRoundWindow("cb", 3, 0, 403, 398, 0, 0)

WaitKey