Svet elektronike

[Hrvoje]

Pozdrav, vec duze vrijeme programiram u delphi-u i sad kad vidim bascom cini mi se nefunkcionalnim. Problem je u tome sto neznam kako bih pozvao potprogram (subrutine), u helpu pise ovako, ali to nije tocno sto meni treba:


Dim A As Byte , Bb As Byte
Declare Sub Test(bb As Byte)
A = 65
Call Test(a) 'call test with parameter A
Test A 'alternative call
End

Sub Test(bb As Byte) 'use the same variable as the declared one
Lcd Bb 'put it on the LCD
Lowerline
Lcd Bcd(bb)
End Sub


.. ja bih to sto trebam u delphi-u napisao ovako:


.
.
.
type
TForm1 = class(TForm)
private
{ Private declarations }
public
{ Public declarations }
procedure program(a,b,c: integer); // naprimjer neka je ovo neka procedura koja ce paliti i gastiti dc motore..
end;

var
Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.program(a,b,c:integer);
begin
... // neki program
end;

.. ja ovu proceduru mogu pozvati u bilo kojem momentu!

// sta meni zapravo nije jasno kod basoma je kako da iz neke druge procedure, moze biti i do-loop petlja skocim na subrutine (nesto sa declare sub.. kako sam procitao i vratim se nazad kad je obavljeno

end.




primjer sta meni treba:

Call Motor_p(10 , 10 , 0)

Sub Motor_p(broj_koraka As Integer , Brzina As Integer , Lijevo As Bit)

.
.
.
end sub

[red_mamba]

na začetku moraš deklarirat vsako rutino

declare Sub Motor_p(broj_koraka As Integer , Brzina As Integer , Lijevo As Bit)

vmes jo kličeš z
Call Motor_p(10 , 10 , 0)

nekje v kodi imaš pa še program definiran za rutino
Sub Motor_p(broj_koraka As Integer , Brzina As Integer , Lijevo As Bit)
..
..koda
..
end sub

[Vlado]

Hrvoje!
V help-u Bascom-a poglej ukaze "GOSUB , GOTO"

Vlado

[vilko]

Bascom je basic in ne nek višji programski jezik.

Pozna sicer gosub in call ukaze in podobno, a ne naredi tistega, kar ti ukazi narede v višjem programskem jeziku - ne narede substitucijo spremneljivk.
Če imaš recimo podprogram s tremi spremenljivkami
rutina ( x,y,z)

je ne moreš na različnih mestih klicati recimo

call rutina (a,b,c)

in na nekem drugem mestu v programu uporabiti isto rutino z

call rutina (d,e,f)

kar v višjih jezikih seveda gre.

vilko

[bsuhel]

Omenjena substitucija v Bascomu seveda tudi deluje.

[vilko]

Recimo, da imav prav vsak pol!

V dokaz sem na mojem BASCOM8051 (prav lahko, da je AVR boljši) naredil programček.

Deklariral sem sremenljivke in funkcijo: