Bascom
This presentation is the property of its rightful owner.
Sponsored Links
1 / 124

آموزش BASCOM به زبان ساده PowerPoint PPT Presentation


  • 97 Views
  • Uploaded on
  • Presentation posted in: General

آموزش BASCOM به زبان ساده. ”به نام خالق يكتا“ توضيح مختصر ى درباره زبان برنامه نويس ى Basic.

Download Presentation

آموزش BASCOM به زبان ساده

An Image/Link below is provided (as is) to download presentation

Download Policy: Content on the Website is provided to you AS IS for your information and personal use and may not be sold / licensed / shared on other websites without getting consent from its author.While downloading, if for some reason you are not able to download a presentation, the publisher may have deleted the file from their server.


- - - - - - - - - - - - - - - - - - - - - - - - - - E N D - - - - - - - - - - - - - - - - - - - - - - - - - -

Presentation Transcript


Bascom

BASCOM


Basic

Basic

: 3 --1 Pascal,Basic,Cobol Portan-2 ++C , C porth-3 ... ! !


Bascom

  • :

    :New -1 ( ). ( (.

  • :open -2 .


Bascom

:Close -3 .

Save -4 :Save as - save as .

Print Preview -5 :Print Print Preview .


Bascom

Exit -6 .

-7 Exit .

Edit :

Undo -1 :Redo .


Bascom

Copy -2Cut :Paste .

Findnext -3 :Find . Find Text to find ok .Findnext .

-4 .


Bascom

IndentBlock -5 :UnindentBlock tab .

  • Program .

    :

    :Compile -1 ... . .

    . :Syntax check -2 ( Compile .)


Bascom

:Show result -3 .

:Simulate -4 lcd ... .( .

:send to chip -5 .

  • tools options .


Bascom

  • : vcc -1 :gnd vcc 5 0 , gnd . usb !

    -2 : ( 8 ) 32 (atmega32) 4 A,B,C,D 8 (porta) a 33 40 40 pina.0 39 pina.1 33 pina.7 .

    -3 : avr 8 .


Bascom

avr . xtal1 xtal2 . 16 12 13 .

  • : new file .

  • avr avr .

  • 1- tinyxx : .

  • 2- at90sxxxx


Bascom

3- atmegaxxx: avr .

  • ) $regfile="microname" microname .(

  • $regfile= : M8dif.dat ) 8) M32def.dat ) 32( M16def.dat ) 16(


Bascom

  • 8515DEF.DAT ) (at90s8515 ....

  • : $crystal=x

    x $crystal=8000000) 8 (.

  • : 2 $ C # !

  • . adc ( ) .... .


Bascom

  • : Codevision .

  • .

    Config adc .


Bascom

. . end .

: ( { 2 .

. : avr .


Bascom

. (porta ) a 32 (mega32 ) .

  • Config portx = input x .

  • Config portx = output


Bascom

x : Config porta = output

a

Config portb=input

b .

  • :

    Config pina.1=input

    1 a .


Bascom

Config pinb.7=input

7 b .

Config pinc.5=output

5 c .

  • : : toggle . .

  • : set . .


Bascom

  • reset .

    :

  • wait .

    wait :

    : Waitus x

    . x 1 65535 .:

    Waitus 500 ( 500 )


Bascom

Waitms x :

x . 1 65535 .:

) Waitms 720 700 (

: Wait x

x . .:

) Wait 1000 1000 (


Bascom

  • : ( C C : (wait_ms500

  • : DELAY 1 .

  • wait .


Bascom

  • : . .


Bascom

  • :

  • :Do loop -1 do loop . For next -2 WHILE-WEND -3 jmp goto . ( .(: Q: Jmp q


Bascom

  • :

    W: Goto w

  • ) : C !)

  • 1 : :

  • 16 (atmega16 ) 8 8 led 330 (portc) c .


Bascom

  • NEW .

  • . .. :

    $regfile="m16def.dat "

    ATmega16 .


Bascom

. :

$crystal = 8000000

8 .

: .( (

  • c .( c .):

    Config portc =output


Bascom

( .(

Do

  • led ( (.

    ) Set portc.0 led 22 (.(portc.0)

    ) reSet portc.1 led 23 (.(portc.1)


Bascom

) Set portc.2 led 24 (.(portc.2)

) reSet portc.3 led 25 (.(portc.3)

) Set portc.4 led 26 (.(portc.4)

) reSet portc.5 led 27 (.(portc.5)


Bascom

) Set portc.6 led 28 (.(portc.6)

) reSet portc.7 led 29 (.(portc.7)

  • :

    Waitms 500

    500


Bascom

  • .( led led (.

    Toggle portc

    8 c .

    :

    Waitms 500


Bascom

:

Loop

) do (.

:

End

) (


Bascom

  • LCD

  • Lcd

    lcd .

    - lcd :

    16*1 16 .

    16*2 2 16 .


Bascom

16*4 4 16 .

20*2 2 20 .

20*4 4 20 .

40*2 2 40 .

40*4 4 40


Bascom

  • lcd 16 :

    1 : VSS, lcd (GND) .

    2 : VDD , VCC LCD 5 .

    3 : VEE , LCD .

    4 : RS , lcd .


Bascom

- rs =0 lcd . cls qwer lcd .

5 :RW , rw =1 lcd rw=0 .lcd

6 : E , LCD .

7 : DB0 , () LCD . ( (


Bascom

8 : DB1 , () LCD .( (

9 : DB2 , () LCD .( (

10 : DB3 , (( LCD .( (

11 : DB4 , () LCD .( (

12 : DB5 , () LCD .( (


Bascom

13 : DB6 , () LCD .( )

14 : DB7 , )) LCD .( (

15 : 16 LED LCD 5 .

16 : 15 LED LCD 5 .


Bascom

LCD :

Lcd 8 4 . lcd lcd .

0 3 lcd 47 lcd lcd RS .( ) LCD 1 , RS ( 5 )


Bascom

  • LCD DB0 DB3 RW ) GND ( .


Bascom

  • LCD : LCD :

    CONFIG LCD = LCDNAME

    LCDNAME . : LCD 2*16

    Config lcd =16*2

    lcd :


Bascom

Db4 = Pinx.y , Db5 = Pinx.y , Db6 = Pinx.y , Db7 = Pinx.y , Rs = Pinx.y , E = Pinx.y

X a b c d y 0 7 .

  • lcd 16*2 c (portc) :

    $regfile="m16def.dat"

    $crystal=8000000


Bascom

Config Lcd = 16*2

Config lcdpin=pin ,

db4=pinc.0 , db5=pinc.1 , db6=pinc.2 , db7=pinc.3 , rs=pinc.4 , e=pinc.5

16(atmega16) lcd :

1 : VSS , .

2 : VDD, 5 . 3 : VEE , ( ) vcc .


Bascom

4 : RS , c 4) (c.4 ( 26 16 (

5 :RW , gnd .

6 : E , c 5 c.5 ( 27 16(

7 : DB0 , .

8 : DB1 , .


Bascom

9 : DB2 , .

10 : DB3 , .

11 : DB4 , c 0 c.0 ( 22 16(

12 : DB5 , c 1 c.1 ( 23 16(


Bascom

13 : DB6 , c 2 c.2 ( 24 16(

14 : DB7 , c 3 c.3 ( 25 16(

15 : 16 LED LCD 5 .

16 : 15 LED LCD 5 .


Bascom

  • VEE 5 LCD .

  • 15 16 .


Bascom

  • LCD . LCD :

    LCD " X"

    X .( ):

    LCD "*BITRONIC*" LCD "+ bascom-avr+" Lcd "123@#$qwe/*-+?:<"


Bascom

  • lcd cls .:

    Lcd " (*&&^%$%$#@)" Wait 1 Cls

    lcd :

    Locate x,y

    x y .:


Bascom

Locate 1,2

Lcd"qwert"

Locate 2,1

Lcd "123456 "

Locate 2,8

Lcd "mnbv

lcd 16*2 x 2 y 16!


Bascom

  • Lcd :

    : Cursor On ( .(

    : Cursor off .

    : Cursor blink .

    : Cursor noblink


Bascom

  • lcd :

    : shiftlcd left tab .

    : shiftlcd right tab .

    lcd :

    Lcd ... lcd 8 .


Bascom

: tools lcd designer . . ok .

  • 4,31,20,4, 4, 4, 4, Deflcdchar ?,1

    0 7 .


Bascom

lcd :

Lcd chr(?)

0 7 . :

$regfile="m16def.dat"

$crystal=8000000

Config Lcd = 16*2


Bascom

Config lcdpin=pin , db4=pinc.0,db5=pinc.1,db6=pinc.2,db7=pinc.3,rs=pinc.4,e=pinc.5

4,31,20,4, 4, 4, 4, Deflcdchar 0,1

Locate 1,1

Lcd chr(0)

End


Bascom

lcd avr . 8 :

-1

-2

-3

-4

-5

-6

-7

-8


Bascom

-1 :

$REGFILE = micro name

BASCOM . microname . regfile = At12def.dat $regfile = At15def.dat $regfile = At22def.dat $regfile = At26def.dat


Bascom

$regfile = 2323def.dat $regfile = 2333def.dat $regfile = 2343def.dat $regfile = 4414def.dat $regfile = 4433def.dat $regfile = 4434def.dat $regfile = 8515def.dat $regfile = 8535def.dat $regfile = M8535.dat $regfile = M8515.dat $regfile = M8def.dat $regfile = M103def.dat


Bascom

$regfile = M16def.dat $regfile = M163def.dat $regfile = M161def.dat $regfile = M32def.dat $regfile = M323def.dat $regfile = M603def.dat $regfile = M64def.dat $regfile = M128def.dat

  • : 12 ATtiny 15 ATtiny 22 ATtiny 26 ATtiny


Bascom

AT90S2323 AT90S2333 AT90S2343 AT90S4414 AT90S4433 AT90S4434 AT90S8515 AT90S8535 ATMEGA8535 ATMEGA8515 ATMEGA8 ATMEGA103 ATMEGA16 ATMEGA163


Bascom

ATMEGA161 ATMEGA32 ATMEGA323 ATMEGA603 ATMEGA64 ATMEGA128


Bascom

.

$CRYSTAL = X

X . :

$CRYSTAL = 14000000 14MHZ external osc $CRYSTAL = 8000000 8MHZ external osc $CRYSTAL = 1000000 1MHZ internal osc


Bascom

.

REM

.

( ) . :

REM END PROGRAM Or F=14MHZ


Bascom

  • END . :LCD "QWER" END end program execution and disable all interrupt


Bascom

  • : . .

    ( ADC ,LCD (

    ! .


Bascom

:

$regfile = "m32def.dat

$crystal = 12000000

Config Lcd = 16 * 2

Config Lcdpin = Pin , Db4 = Portd.0 , Db5 = Portd.1 , Db6 = Portd.2 , Db7 = Portd.3 , E = Portd.4 , Rs = Portd.5

Lcd "1NAFAR"

End


Bascom

-2 :

. .

DIM X AS data type

X . Data type STRING ,WORD ,LONG ,INTEGER ,BYTE, BIT SINGLE .


Bascom

STRING .

: BIT .

: BYTE 0 255 .

: WORD 0 65535 .

: INTEGER -32767 +32767 .


Bascom

: LONG 214783648-214783647+ .

: SINGLE 45^10*1.5- 38^10* 3.4 .

: STRING 0 245 .

:

DIM B AS BIT BIT can be 0 or 1

DIM A AS BYTE BYTE range from 0 - 255

DIM K AS INTEGER

DIM MICRO AS WORD

DIM HASAN AS LONG


Bascom

:

$regfile = "m32def.dat $crystal = 12000000 Config Lcd = 16 * 2 Config Lcdpin = Pin , Db4 = Portd.0 , Db5 = Portd.1 , Db6 = Portd.2 , Db7 = Portd.3 , E = Portd.4 , Rs = Portd.5 Dim A As Byte Dim Ali As Word Dim Wqew As Byte A = 10 Wqew = 5 Locate 1 , 1 Ali = A + Wqew Lcd Ali Locate 2 , 1 Ali = A * Wqew Lcd Ali End


Bascom

: .

:

DIM A AS BYTE

A=300

0 255 300 .


Bascom

  • CONST

    :

    CONST SYMBOL= NUMCONST CONST SYMBOL= STRINGCONST CONST SYMBOL= EXPRESSION

    SYMBOL NUMCONST SYMBOL , STRINGCONST SYMBOL EXPRESSION SYMBOL .


Bascom

:

CONST S = TEST CONST A = 5 CONST B1 =&B1001 CONST X = (B1 * 3 ) + 2

: ALIAS .

:

DIM Q AS BIT Q ALIAS PORTB.1

PORTB.1 Q . SET Q is equal with SET PORTB.1


Bascom

  • INSTR .

    Var =Instr (start , String ,Subset )

    Var =Instr (String ,Subset )

    Var SUBSTR STRING START . . START . (SUBSTR ) .


Bascom

:

$regfile = "m32def.dat"

$crystal = 12000000

Config Lcd = 16 * 2

Config Lcdpin = Pin , Db4 = Portd.0 , Db5 = Portd.1 , Db6 = Portd.2 , Db7 = Portd.3 , E = Portd.4 , Rs = Portd.5

Dim S As String * 15


Bascom

Dim Z As String * 5

Dim Bp As Byte

Cls

S = "This is a test " Z = "is"

Bp = Instr(s , Z )

Lcd Bp

Bp = Instr(4 , S , Z )

Lcd Bp

End


Bascom

  • INCR DECR INCR X DECR X INCR X DECR :

    $regfile = "m32def.dat". $crystal = 12000000 Config Lcd = 16 * 2 Config Lcdpin = Pin , Db4 = Portd.0 , Db5 = Portd.1 , Db6 = Portd.2 , Db7 = Portd.3 , E = Portd.4 , Rs = Portd.5


Bascom

  • Dim A As Byte Dim B As Long Dim Bp As Byte Do Incr A Decr B Locate 1 , 1 Lcd B Locate 2 , 1 Lcd A WAITMS 500

    End

    Loop


Bascom

  • CHECKSUM X 255 256 . :

    $regfile = "m32def.dat". $crystal = 12000000 Config Lcd = 16 * 2 Config Lcdpin = Pin , Db4 = Portd.0 , Db5 = Portd.1 , Db6 = Portd.2 , Db7 = Portd.3 , E = Portd.4 , Rs = Portd.5


Bascom

Dim S As String * 10

Dim Variable

S = "test"

Locate 1 , 1

' Assign Variable

Lcd Checksum(s)

' print value (192 )

S = "testNext "

Locate 2 , 1

assign variable '

Lcd Checksum(s)

' Print value 127 (127=383 - 256 )End


Bascom

  • HIGH LOW

    : LOW (LSB) least significant byte . : HIGH ( MSB) most significant byte . Var = HIGH ( s)

    MSB S Var . Var = LOW ( s)

    LSB S Var .


Bascom

:

$regfile = "m32def.dat" $crystal = 12000000 Config Lcd = 16 * 2 Config Lcdpin = Pin , Db4 = Portd.0 , Db5 = Portd.1 , Db6 = Portd.2 , Db7 = Portd.3 , E = Portd.4 , Rs = Portd.5 Dim I As Integer Dim Z As Byte Dim Q As Byte Cls I = &h1001 Z = Low(i)

' is 1


Bascom

Locate 1 , 1 Lcd ZQ = High(i)

'IS 16Locate 2 , 1 Lcd Q End

LCASE UCASE

LCASE : .

(Target = Lcase) source source target .


Bascom

:

$regfile = "m32def.dat".

$crystal = 12000000

Config Lcd = 16 * 2

Config Lcdpin = Pin , Db4 = Portd.0 , Db5 = Portd.1 , Db6 = Portd.2 , Db7 =

Portd.3 , E = Portd.4 , Rs = Portd.5

Dim S As String * 12 Dim Z As String * 12


Bascom

Dim Q As String * 12

S = "Hello World "

Q = "QWERTGFDD Z = Ucase(s )

'Z = HELLO WORLD

Locate 1 , 1 Lcd Z Z = Lcase(q) Locate 2 , 1 Lcd Z End


Bascom

  • RIGHT LEFT

    : RIGHT .

    (Var = RIGHT )var1 , n

    var1 n , var .

    : LEFT .

    (Var = LEFT)var1 , n

    var1 n , var .


Bascom

:

$regfile = "m32def.dat

$crystal = 12000000

Config Lcd = 16 * 2

Config Lcdpin = Pin , Db4 = Portd.0 , Db5 = Portd.1 , Db6 = Portd.2 , Db7 = Portd.3 , E = Portd.4 , Rs = Portd.5 Dim S As String * 15 , Z As String * 15

Cls

S = "abcdefg"

Z = Left(s , 5)


Bascom

'Z = abcde Locate 1 , 1Lcd Z

Z = Left(s , 1)

'Z = a Locate 1 , 8Lcd ZZ = Right(s , 5)

'Z = CDEFG Locate 2 , 1Lcd ZZ = Right(s , 2)

'Z = FG Locate 2 , 8 Lcd Z End


Bascom

  • LEN :

    : (Var = Len)string

    string VAR . string 255 . (SPACE BAR) . :

    $regfile = "m32def.dat". $crystal = 12000000 Config Lcd = 16 * 2


Bascom

Config Lcdpin = Pin , Db4 = Portd.0 , Db5 = Portd.1 , Db6 = Portd.2 , Db7 = Portd.3 , E = Portd.4 , Rs = Portd.5 Dim S As String * 12 Dim A As Byte Cls S = "test" A = Len(s) Locate 1 , 1

' 4Lcd Len(s) S = "test " A = Len(s) Locate 2 , 1 Lcd A

'6End


Bascom

  • LTRIM:

    . (Var = LTRIM) Q

    Q var .

    :

    $regfile = "m32def.dat". $crystal = 12000000 Config Lcd = 16 * 2

    Config Lcdpin = Pin , Db4 = Portd.0 , Db5 = Portd.1 , Db6 = Portd.2 , Db7 = Portd.3 , E = Portd.4 , Rs = Portd.5


Bascom

Dim S As String * 10 Dim A As String * 10 Cls S = "Q Q 1" Locate 1 , 1 A = Ltrim(s) Lcd A

'QQ1S = "Q Q Q" Locate 2 , 1 Lcd Ltrim(s)

'QQQEnd


Bascom

  • SWAP:

    SWAP var1 , var2 var1 var2 var2 var1 . var1 var2 . :

    $regfile = "m32def.dat" $crystal = 12000000 Config Lcd = 16 * 2

    Config Lcdpin = Pin , Db4 = Portd.0 , Db5 = Portd.1 , Db6 = Portd.2 , Db7 = Portd.3 , E = Portd.4 , Rs = Portd.5


Bascom

Dim A As Byte Dim B As Byte

Cls A = 10 B = 20 Swap A , B

'swap themLocate 1 , 1 Lcd A

'A=20Locate 2 , 1 Lcd B

'B=10End


Bascom

  • MID :

    .

    VAR=MID(VAR1,ST[,L]) -1 var1 st L var .

    MID(VAR,ST[,L])=VAR1 -2 var1 var St L . L , .


Bascom

:

$regfile = "m32def.dat " $crystal = 12000000 Config Lcd = 16 * 2

Config Lcdpin = Pin , Db4 = Portd.0 , Db5 = Portd.1 , Db6 = Portd.2 , Db7 = Portd.3 , E = Portd.4 , Rs = Portd.5

Dim S As String * 10 Dim Z As String * 10 Cls

S = "adswer"


Bascom

Z = Mid(s , 2 , 3) Locate 1 , 1

Lcd Z

'lcd "dsw"Z = "5685"Mid(s , 2 , 3) = ZLocate 2 , 1

Lcd S

'lcd "a568er"End


Bascom

  • space :

    . Var = SPACE (x )

    X var . :

    $regfile = "m32def.dat"$crystal = 12000000 Config Lcd = 16 * 2 Config Lcdpin = Pin , Db4 = Portd.0 , Db5 = Portd.1 , Db6 = Portd.2 , Db7 = Portd.3 , E = Portd.4 , Rs = Portd.5


Bascom

Dim S As String * 10 Dim Z As String * 10 Cls S = Space(5) Z = "qwer" Locate 1 , 1 Lcd "(" ; S ; Z ; ") "

'lcd( qwer)End


Bascom

  • format :

    . xt = Format (var , form)

    var x . form .

    :

    $regfile = "m32def.dat"

    $crystal = 12000000 Config Lcd = 16 * 2

    Config Lcdpin = Pin , Db4 = Portd.0 , Db5 = Portd.1 , Db6 = Portd.2 , Db7 = Portd.3 , E = Portd.4 , Rs = Portd.5


Bascom

Dim S As String *10, I As Integer S = " 123 "S = Format(s , " ")Locate 1 , 1

'5 Space

Lcd S

's = " 123 "

'Two Space First , Then123

S = "12345 S = Format(s , "000.000")Locate 1 , 8

Lcd S

's = "012.345" S = Format(s , " + ")Locate 2 , 1Lcd S

's = "+12345

End


Bascom

  • fusing

    . target = Fusing (source , mask) source target mask . . mask # # & . # & !

    :

    $regfile = "m32def.dat" $crystal = 12000000Config Lcd = 16 * 2


Bascom

Config Lcdpin = Pin , Db4 = Portd.0 , Db5 = Portd.1 , Db6 = Portd.2 , Db7 = Portd.3 , E = Portd.4 , Rs = Portd.5 Dim S As Single Dim A As Byte Cls S = 10 A = 3 S = S / A Locate 1 , 1 Lcd S

'lcd "3.33333333333333"Locate 2 , 1 Lcd Fusing(s , "#.##")

'lcd "3.33 Locate 2 , 8 Lcd Fusing(s , "#.####")

'lcd "3.3333 End


Bascom

: &b &h . :0110010&b &h01ff

avr . .


Bascom

-3

jmp

label: l :JMP label

label . label (colon) : 32 .


Bascom

:

$regfile = "m16def.dAt" $crystal = 8000000 Config Porta = Output Q: Set Porta.0 WAitms 600 Reset Porta.0 Waitms 600 jmp Q End


Bascom

  • goto

    jmp :

    $regfile = "m16def.dAt" $crystal = 8000000 Config Porta = Output 10 Set Porta.0 WAitms 600 Reset Porta.0 Waitms 600 Goto 10 End


Bascom

  • do-loop

    DO LOOP .

    DO LOOP

    EXIT DO . :

    do Loop Until A = x


Bascom

A x . A A 10 .

$regfile = "m16def.dAt" $crystal = 8000000 Config Porta = Output Dim A As Byte Do Incr A Set Porta.0 WAitms 600 Reset Porta.0 Waitms 600 Loop Until A = 10 Toggle Porta End


Bascom

  • FOR-NEXT

  • FOR .. NEXT .

    FOR var = start TO end [STEP VALUE] NEXT var

    Var start end Value . step .

    var NEXT .

    :


Bascom

$regfile = "m16def.dAt" $crystal = 8000000 Config Lcd = 16 * 2 Config Lcdpin = Pin , Db4 = Portd.0 , Db5 = Portd.1 , _ Db6 = Portd.2 , Db7 = Portd.3 , E = Portd.4 , Rs = Portd.5 Dim A As Byte Dim B As Byte Dim C As Integer For A = 1 To 10 Step 2

A=1,3,5,7,9Locate 1 , 1 Lcd A Next A For C = 10 To -5 Step -1

C=10,9,8,-3,-4,-5 Locate 1 , 6 Lcd C Next For B = 1 To 10 Locate 2 , 1 Lcd B Next

End


Bascom

  • WHILE-WEND WHILE condition statements WEND

    While-Wend FALSE . while , While . statement condition FALSE .


Bascom

:

$regfile = "m16def.dAt" $crystal = 8000000 Config Lcd = 16 * 2 Config Lcdpin = Pin , Db4 = Portd.0 , Db5 = Portd.1 ,Db6 = Portd.2 , Db7 = Portd.3 , E = Portd.4 , Rs = Portd.5 Dim A As Byte

A = 1 While A <10 Locate 1 , 1 Lcd A Incr A Waitms 600 Wend End


Bascom

-4 :

wait

wait wait : Waitus x .x 1 65535 .Waitus 500 500 Waitms x .x 1 65535 .Waitms 720 700 Wait x .x .Wait 1000 1000 DELAY : 1 wait


Bascom

$regfile = "m16def.dAt" $crystal = 8000000 Config Lcd = 16 * 2 Config Lcdpin = Pin , Db4 = Portd.0 , Db5 = Portd.1 , _ Db6 = Portd.2 , Db7 = Portd.3 , E = Portd.4 , Rs = Portd.5 Qwer: Lcd "fjghfgf" Waitms 400 Cls Lcd "123678" Wait 1 Cls Lcd "fkjjkb" Waitus 1000 Cls DelAy Goto Qwer End

1 3


Bascom

-5

DECLARE FUNCTION

. . .

DECLARE FUNCTION TEST[( [BYREF/BYVAL]var as type1)] As type2

TEST . BYVAL .


Bascom

BYREF . [BYREF/BYVAL] BYREF . Type1 type2 . BYTE , INTEGER, WORD , LONG ,STRING .


  • Login