Variabler og lidt mere Delphi vs VB

begin end er en gruppering af kode (ligesom {} i C/C++/C#/Java). Man
kan putte sådan en gruppe ind alle steder hvor der kan stå et enkelt statement.

procedure=sub
function=function

cardinal er en unsigned 32 bit integer (0..4294967295)

OK,

"begin end er en gruppering af kode (ligesom {} i C/C++/C#/Java). Man
kan putte sådan en gruppe ind alle steder hvor der kan stå et enkelt statement"

Hva kan man erstatte ovenstående med i VB ???

Og kan man bruge : Long (long integer) 4 bytes -2,147,483,648 to 2,147,483,647
i stedet for Cadinal, eller skal den også kunne tage bogstaver som i en sting ?

Hva vil det sige at Cardinal er "Unsigned" ??

unsigned = altid positiv

0 .. 4 294 967 295 i stedet for -2 147 483 648 .. 2 147 483 647

VB ligesom f.eks. FORTRAN har ikke den compund statement (som det hedder).

I Pascal betyder:

if a > 0 then
  b := 1;
c := 2;

at if kun dækker 1 statement (b := 1), hvis den skal dække begge
skal man bruge:

if a > 0 then begin
  b := 1;
  c := 2;
end;

I VB bruger man bare then og end if.

Samme med løkker.

Er det OK, med 30 point, da du ikke har svaret på det med Begin end  ?.

Takker for hjælpen, og åbner nyt ? med Begin end

Mvh.

Christian_h

Er det ike det jeg har forklaret i min 20:50:35 kommentar ?

Jo jo Arne, jeg var bare lige lidt hurtig SORRY.

Jeg forstår ikke helt hva du mener, gider du prøve at ændre begin end i nedenstående kode, bare som test, for der er jo også if sætninger i forvejen, du skal ikke tænke på resten af koden.

function AckPolFlash(Cmd,I : Integer; Value : Word; Signature : Cardinal) : Boolean;
Var B : Byte;
    T : Integer;
begin
  Result:=FALSE;
  Mere kode her
  If Value=$7F then
  begin
    Sleep(10);  //9,6,..,..
  end
  else
  begin
    T:=0;
    repeat
      Sleep(1);
      Mere kode her
    until (Value=B) or (T=500);
    If T=500 then
    begin
      Mere kode her
      Result:=TRUE;
    end;
  end;
end;

Først: Jeg ved (næsten) intet om VB...

function AckPolFlash(Cmd,I : Integer; Value : Word; Signature : Cardinal) : Boolean;
Var B : Byte; <- Heltal, 0-255
    T : Integer; <- Heltal, også negativ
begin
  Result:=FALSE; <- Result er functionens resultat, en sand/falsk-værdi, der her sættes til falsk.
  Mere kode her
  If Value=$7F then <- Hvis variablen value = hex-værdien 7F, så
  begin <- begynd
    Sleep(10);  //9,6,..,.. <- Kort pause, mener 10 er en 100-del sekund.
  end <- slut
  else <- ellers
  begin <- begynd
    T:=0; <- Variablen T sættes til 0.
    repeat <- fortsæt
      Sleep(1); <- Endnu kortere pause.
      Mere kode her
    until (Value=B) or (T=500); <- Indtil variablen value = variablen b, eller variablen T = 500.
    If T=500 then <- Hvis variablen T = 500 så
    begin <- begynd
      Mere kode her
      Result:=TRUE; < Funktionens resultat sættes til true (sand).
    end; <- slut
  end; <- slut
end; <- slut

Pascal:

if betingelse then
begin
  linie 1
  linie 2
  linie 3
end;

bliver til VB:

if betingelse then
  linie 1
  linie 2
  linie 3
end if

repeat
...
until betingelse;

i Pascal er:

do
...
loop until betingelse

i VB.

function f(v : integer) : integer;

begin
...
end;

i Pascal er:

function f(dim v as integer) as integer
...
end function

Jeg ved ikke hvordan VB har det med hex-værdier, men
  If Value=$7F then
kan altid laves om til
  If Value=127 then

VB har slet ikke noget der svarer til begin.

VB bruger end xxxxx i stedetfor end.

OK, Arne, tror jeg har den, TAK for hjælpen, jeg har tildelt dig de 60 point

Mvh.

Christian_h