FreeBASIC programiranje, pitanja i odgovori

Za one koji ne znaju FreeBASIC je open source kompajler za Windows, DOS i Linux. Sintaksa je vrlo slična QuickBASIC-u s time da je ovaj itekako unaprijeđen. Ima značajke objektno-orjentiranog programiranja kao što su metode, konstruktori, dinamičko alociranje memorije, klase...

FreeBASIC ima vlastitu grafičku biblioteku FBgfx sa kojom je jednostavno prikazivati osnovne grafičke funkcije.

Sve u svemu, jezik je vrlo jednostavan za korištenje, možda su ga neki već koristili. Preporučujem ga onima koji počinju programirati.

Neki primjeri:

Hello, world:

? "Hello, World!

Sleep

Grafika:

ScreenRes 640, 480

Line(0, 0)-(100, 100), 1, BF

? "Hello, World!"

Circle(10, 10), 20, 2

PSet(50, 15), 4

Sleep

Varijable:

Dim As Integer polje(15), i

For i=0 To 15

  polje(i) = Int(Rnd(1)*10000)

Next

For i=0 To 15

  ? i & " = " & polje(i)

Next

Sleep

Klase:

Type ucenik

  godina  As Integer

  prosjek As Single

  razred  As Integer

  ime    As String

  prezime As String

  godiste As Integer

End Type

Dim As ucenik pero

With pero

  .godina  = 17

  .prosjek = 4.7

  .razred  = 3

  .ime    = "Pero"

  .prezime = "Peric"

  .godiste = 1994

End With

? "Ovo je ucenik " & pero.ime & " " & pero.prezime & " roden " & pero.godiste & ". godine, te ima " & pero.godina & " godina."

? pero.ime & " ide u " & pero.razred & ". razred."

? "Prosjek mu je " & pero.prosjek & "."

Sleep

WinAPI:

#Include Once "windows.bi"

Dim Shared As HINSTANCE hInst

hInst = GetModuleHandle(NULL)

Function WndProc(hWnd As HWND, msg As UINT, wParam As WPARAM, lParam As LPARAM) As LRESULT

  Select Case msg

   Case WM_CREATE

    MessageBox(hWnd, !"Pozdrav BUG-u!\nKlikni OK za početak!", "Pozdravna poruka", MB_OK Or MB_ICONASTERISK)

   Case WM_PAINT

    Dim As PAINTSTRUCT ps

    BeginPaint(hWnd, @ps)

     SelectObject(ps.hdc, GetStockObject(DEFAULT_GUI_FONT))

     DrawText(ps.hdc, @"Podrav BUG-u!", -1, @ps.rcPaint, DT_CENTER Or DT_VCENTER Or DT_SINGLELINE)

    EndPaint(hWnd, @ps)

   Case WM_DESTROY

    PostQuitMessage(NULL)

  End Select

  Return DefWindowProc(hWnd, msg, wParam, lParam)

End Function

Dim As MSG    uMsg

Dim As WNDCLASS wcls

Dim As HWND    hWnd

With wcls

  .style      = CS_HREDRAW Or CS_VREDRAW

  .lpfnWndProc   = Cast(WNDPROC, @WndProc)

  .hInstance    = hInst

  .hIcon      = LoadIcon(NULL, IDI_EXCLAMATION)

  .hCursor     = LoadCursor(NULL, IDC_ARROW)

  .hbrBackground = GetStockObject(WHITE_BRUSH)

  .lpszMenuName  = NULL

  .lpszClassName = StrPtr("WindowClass")

End With

If RegisterClass(@wcls) = FALSE Then

  MessageBox(NULL, "RegisterClass(@wcls) FAIL!", "Error!", MB_OK Or MB_ICONERROR)

  End

EndIf

hWnd = CreateWindowEx(NULL, "WindowClass", "Pozdrav BUG", WS_OVERLAPPEDWINDOW Or WS_VISIBLE, CW_USEDEFAULT, CW_USEDEFAULT, CW_USEDEFAULT, CW_USEDEFAULT, NULL, NULL, hInst, NULL)

UpdateWindow(hWnd)

While GetMessage(@uMsg, NULL, NULL, NULL) <> FALSE

  TranslateMessage(@uMsg)

  DispatchMessage(@uMsg)

Wend

Download compilera: http://www.freebasic.net/get

I toplo preporučujem FbEdit kao IDE: http://sourceforge.net/projects/fbedit/

Slobodno postajte pitanja, odgovore, projekte, primjedbe itd...

Naredba Sleep, pauzira program na određeni broj tisunćinki. Dok naredba Timer vraća vrijednost koliko je sekundi prošlo od neke referentne vremenske točke.

Sleep pauzira sve procesorske naredbe za program koji se izvršava, a ako koristiš Timer u ovoj varijanti:

Dim As Double t

t = Timer

While Timer < t+5

Wend

Primjetiti ćeš u task manager-u da korištenje CPU-a za tvoj program poraste, dok kod korištenja samo Sleep 5000, korištenje CPU-a je 0.

Naravno Timer je precizniji kad se koriste neke petlje i ako se više puta treba izmjeriti prolaz vremena od neke točke. Ali da bi se izbjegao rast korištenja CPU-a najbolje je staviti Sleep 1 u petlju, npr.:

Dim As Double t

t = Timer

While Timer < t+5

Sleep 1

Wend

Da, ako imaš, ali naravno ako u tom primjeru:

DO

...

SLEEP 1

LOOP

negje u te tri točke ... imaš izlazak iz petlje, da se ne bi ponavljalo beskonačno.

Naravno da je moguće. Nije potrebno mjenjati jezik, samo se napravi datoteka kao ova npr:

hrvatski.bi

#Define Ako_je    If

#Define Onda     Then

#Define Inace     Else

#Define Kraj_Ako   EndIf

#Define Deklariraj  Dim

#Define Kao      As

#Define Cijeli_Broj Integer

#Define Unos     Input

#Define Ispisi    Print

#Define Spavaj    Sleep

primjer.bas

#include "hrvatski.bi"

Deklariraj Kao Cijeli_Broj visina, sirina, povrsina

Unos "Unesi visinu pravokutnika: ", visina

Unos "Unesi sirinu pravokutnika: ", sirina

povrsina = visina*sirina

Ako_je povrsina > 100 Onda

  Ispisi "Povrsina je veca od 100 i iznosi: " & povrsina

Inace

  Ispisi "Povrsina je manja ili jednaka 100 i iznosi: " & povrsina

Kraj_Ako

Spavaj

Pomoću naredbe #define se definiraju nova imena naredbi u "hrvatski.bi" datoteci, zatim se ona u "primjer.bas" includa i mogu se koristiti te naredbe.

Kako misliš boldane?

Ma misli da mu ih IDE oznaći kao keyworde (oboja, podeblja, što već...)

Pa vidi negdje u opcijama možeš li dodavati nove keyworde. Svaki IDE koji drži do sebe to omogućava. Iako, ne vidim zbog čega sve to uopće radiš. Koristi jednostavno originalne keyworde, a ne prevoditi programski jezik.

Možda samo želi eksperimentirati, ali zaista nevidim razloga za takvo što...

Može mi netko pomoć? Trebam napisat program koji će mi od 4 unesena broja ispisati onoga najvećega. Probala sam na milijun načina i svaki put mi ima barem jedan error. Ovo je najbliže pravilnom načinu što sam uspjela.

DIM as integer a, b, c, d

INPUT a, b, c, d

if a>b then

if a>c then

else

if b>c then

if b>d then PRINT "b je najveci"

else

if c>d then PRINT "c je najveci"

if a>d then PRINT "a je najveci"

else PRINT "d je najveci"

Sve je jasno. Al postoji li ikoji način da to napravimo ovo kako sam ja pokušala? Tek sam počela učit basic i ovo mi se čini puno teže nego moj način (ako je uopće moguće na moj način to riješit).

To bi se lakše napisalo sa jednom funkcijom max, sa uvođenjem varijable max kod upisa, sa izmjenom vrijednosti varijabli, ali predpostavljam da vježbaš if - else grananje, pa zato inzistiraš na if-else za četiri varijable.

Samo razmišljaj logički:

1. ako je a veći od ostalih - onda je a

2. ako smo a eliminirali, onda gledamo da li je b veći od ostale dvije varijable - ako jest - onda je b

3. ako smo b eliminirali onda gledamo da li je c veći od d - ako jest - onda je c

4. ako smo c eliminirali - preostaje nam da je d najveći

(ovaj kod lako pretvoriš u FreeBasic)

#include<iostream>
using namespace std;

int main()

{
    int a,b,c,d;
    cin>> a >> b >> c >> d;
    if(a>b && a>c && a>d) cout<< a;
    else if(b>c && b>d) cout<< b;
    else if(c>d) cout<< c;
    else cout<< d;
    return 0;
}

Ako te dobro kužim, ti hoćeš if-else provjeru, bez tramakivanja varijabli, bez niza i bez funkcija, s tim da ti izbaci ime varijable.

Za to ti je minimum tri provjere, onako kako si počela, nije problem, ako to hoćeš, mogu ti staviti.

Evo, koju god kombinaciju ubaciš imaš tri provjere, a tri provjere jesu minimum.

#include<iostream>
using namespace std;

int main()
{
    int a, b, c, d;
    cin>> a >> b >> c >> d;
    if(a>b)
    {
       if(c>d)
       {
          if(a>c) printf("A\n");
          else printf("C\n");
       }
       else if(a>d) printf("A\n");
       else printf("D\n");
    }
    else if(c>d)
    {
       if(b>c) printf("B\n");
       else printf("C\n");
    }
    else
    {
       if(b>d) printf("B\n");
       else printf("D\n");
    }
    return 0;
}

ne znam, bitno ti je skužiti logiku grananja, pa je onda primjeni u sintaksi jezika kojeg koristiš, to su samo if-else grane, ništa drugo.

Hvala ;)

Ovo je nekako meni najbrži način:

Type tocka

  x As Double

  y As Double

End Type

Function udaljenost(t1 As tocka, t2 As tocka) As Double

  Return Sqr((t1.x - t2.x)^2 + (t1.y - t2.y)^2)

End Function

Function jednadzba_pravca(t1 As tocka, t2 As tocka) As String

 Dim As Double t

 t = (t2.y - t1.y)/(t2.x - t1.x)

 Return "y = " & t & "x - " & t*t1.x+t1.y

End Function

Function poloviste_duzine(t1 As tocka, t2 As tocka) As tocka

 Dim As tocka pol

 pol.x = (t1.x + t2.x)/2

 pol.y = (t1.y + t2.y)/2

 Return pol

End Function

' Pocetak programa:

Dim As tocka prva, druga, polov

Dim As Double udalj

Dim As String jedn

? "Unesi koordinate tocaka: x y"

Input "1. tocka: ", prva.x, prva.y

Input "2. tocka: ", druga.x, druga.y

udalj = udaljenost(prva, druga)

jedn  = jednadzba_pravca(prva, druga)

polov = poloviste_duzine(prva, druga)

? "Udaljenost tocaka: " & udalj

? "Jednadzba pravca: " & jedn

? "Poloviste tocaka: (" & polov.x & ", " & polov.y & ")"

Sleep

 Ako što nije jasno, pitaj...