CoolBasic Forums

Code: Select all

DllFunction "user32.dll" "MessageBoxA" MsgBox(Var f, Var msg As String, Var cap As String, Var mode) As Integer
LoadDll "user32.dll"
MsgBox(0, "Hei", "Viesti", 1)

Code: Select all

DllFunction __stdcall "User32.dll" "MessageBoxA" Messagebox(Var hwnd, Var text As String, Var title As String, Var type) As String
Var MB_OK = 0

LoadDll "User32.dll"
Messagebox(0, "Moi maailmaaaaaa!!", "...", MB_OK)

Code: Select all

Const sw = 200 //ikkunan leveys
Const sh = 150 //ikkunen korkeus

SCREEN sw,sh,32,2
SetWindow "Plasma effect by misthema"


Repeat

    t=timer()/50 //aikaluku

    For w=0 To sw
     For h=0 To sh
        
        c#=(Sin((w+h+t)*3)+Cos((w-t)*3)+Cos(h-t)*3)*100+t/2 //randomia sinikikkailua
        
        Lock
            PutPixel2 w,h, (Int(Sin(c)*64+128) Shl 16) + (Int(Cos(c)*64+128) Shl 8) + 0
        Unlock

     Next h
    Next w

    Text 0,0,FPS()
    
    DrawScreen

Forever

Code: Select all

Var sw = 100
Var sh = 75
Var c
Var t

Screen.Set(sw, sh)

Repeat

    t=Timer()/50 //aikaluku

    For w=0 To sw
     For h=0 To sh
        
        c=(Sin((w+h+t)*3)+Cos((w-t)*3)+Cos(h-t)*3)*100+t/2 //randomia sinikikkailua
        
        	Screen.SetColor(Sin(c)*64+128, Cos(c)*64+128, 0)
            Screen.Dot(w,h)

     Next
    Next

	Screen.SetColor(255,255,255)
    Screen.Text(0,0, Screen.FPS())
    
    Screen.Draw

Forever

Code: Select all

StdInclude "ChBNet.cif" // ChaosBasic Interface file tjsp..
Var connect As NetConnection = New NetConnection
connect.StartLoading "http://www.lollol.com/kuva.gif"

Repeat
    If connect.IsLoaded() Then
        connect.GetData().SaveToFile "imgs/kuva.gif"   // GetData() palauttaa MemoryBlock-instanssin
        End
    EndIf
Screen.Draw
Forever

Code: Select all

    StdInclude "ChBNet.cif" // ChaosBasic Interface file tjsp..
    Var connect As NetConnection = New NetConnection
    Var _integer = 1 As Integer
    Var _float = 2 As Integer
    Var _string = 3 As Integer
    connect.JoinServer("127.0.0.1") //tai jotain muuta sellaista

    Repeat
        If connect.IsConnected Then
            connect.SendDataInt(12837, _integer) //Lähetetään kokonaisluku omassa palassaan...
            connect.SendDataFloat(0,21252, _float) //Liukuluku...
            connect.SendDataString("merkkijono lol", _string) //Ja merkkijono.
            End
        EndIf
    Screen.Draw
    Forever

Code: Select all

connect.GetDataInt(12837, _integer) //Vastaanotetaan kokonaisluku...
connect.GetDataFloat(0,21252, _float) //Liukuluku...
connect.GetDataString("merkkijono lol", _string) //Ja merkkijono.