Help DarkBASIC Professional v.1.57 [?, HTML, RUS]

:  1
 

serg2007serg

: 18 3

: 37

serg2007serg · 05--07 20:52 (17 11 , . 20--16 14:31)

Help DarkBASIC Professional :
,
,
,
,
,
,
,
.
Help .. html DarkBASIC DarkBASIC Professional.
DarkBASIC Professional DarkBASIC. 3D , , - .
https://rutr.life/forum/viewtopic.php?t=301344&spmode=full#seeders
Download
Rutracker.org , -, -
? ( .torrent )
[]  [] 

UrAn24

: 18 2

: 3


UrAn24 · 29--08 01:43 ( 7 , . 20--16 14:31)

?
[]  [] 

vadimmus

: 17 3

: 2013

vadimmus · 04--08 17:29 ( 5 4 , . 08--08 16:09)

!
- " "( ):( ==>


, , , , . (=). :
a=42
a#=99.9
a$=""
lottery(1,1)=49
DATA READ
. . DATA READ. :
DATA 9,"",9,9
READ a,a$,a#
DATA , . , . , 9, - "", 9,9.
READ , , , . , . - . , 9 . , "". A$. 9,9.
:
9
""
9.9
9 , , . , . , .
RESTORE
RESTORE , . , , , . READ .
. , , , . :
lotterydata:
DATA 12,23,34,45,56,67
DATA 23,34,45,56,67,11
DATA 34,45,56,67,33,22
ticketdata:
DATA 01,02,03,04,05,06
DATA 21,32,43,24,13,22
, , , . RESTORE, , . (:) . :
RESTORE lotterydata
READ a,b,c,d,e,f
PRINT " ",a,b,c,d,e,f
, , .
RESTORE ticketdata
READ a,b,c,d,e,f
PRINT " ",a,b,c,d,e,f
, , .

, . . GOSUB . RETURN, GOSUB. :
PRINT ", "
GOSUB MySubroutine
END
MySubroutine:
PRINT ""
RETURN
",", MySubroutine . "". RETURN , , GOSUB END.
GOTO , , , . , . GOTO:
MyLabel:
PRINT ", ";
GOTO MyLabel
:
DO
PRINT ", ";
LOOP
, , "", GOTO. GOTO Dark Basic Professional .
FOR ... NEXT
FOR NEXT . , . :
FOR T=1 TO 5
PRINT T;" ";
NEXT T
PRINT ""
:
1 2 3 4 5
1, PRINT. NEXT FOR 2. . , 5, , . NEXT "", , .
, FOR NEXT :
FOR A=1 TO 5
PRINT "MAIN A=";A
FOR B=1 TO 10
PRINT "LITTLE B=";B
NEXT B
NEXT A
FOR NEXT 1 5, FOR NEXT 1 10.
, . , :
FOR week=1 TO 52 STEP 4
PRINT " ";week; " : ";
FOR index=1 to 6
PRINT lottery(week,index);" ";
NEXT index
NEXT week
STEP, FOR NEXT. , 1, . .
IF ... THEN
IF . , "", "". "", , THEN. "", , IF ... THEN. :
INPUT " >",age
IF age>=16 THEN PRINT " "
, 16, . IF THEN. , , IF. :
age>=16
, 0 1, 16. IF 0 , - . , , 16, 1, . . IF - .
, , , . :
IF A THEN PRINT ""
IF A = B THEN PRINT ""
IF A > (B - 5) THEN PRINT ""
IF A = (B + (A * 2)) THEN PRINT ""
IF A=1 AND B=2 THEN PRINT ""
IF NAME$="" AND SURNAME$="" THEN PRINT ""
IF A#=1.5 OR LOTTERY(10,2)=20 THEN PRINT ""
:
IF A = B = THEN PRINT ""
IF > A = B THEN PRINT ""
IF A B THEN PRINT ""
IF AND A THEN PRINT ""
IF B OR THEN PRINT ""
, THEN , IF ... ENDIF. , IF, ENDIF, :
IF A = B
PRINT ", A B!"
ENDIF
,
IF A = B THEN PRINT " , A B!"
, :
IF A = B
PRINT ", A!"
PRINT " , B!"
PRINT " , A B!"
PRINT " , B A!"
PRINT " !"
ENDIF
, . , , ELSE.
IF A = B
PRINT " !
ELSE
PRINT " !"
ENDIF
, THEN, ENDIF. , ENDIF , , ELSE.
PRINT
PRINT . , , . PRINT, , .
PRINT , , , . PRINT . , " " (;). :
PRINT ", ";
PRINT ""
, :
PRINT " ";name$, " ";age;" ."
, SET CURSOR . :
DO
SET CURSOR RND(640),RND(480)
PRINT ""
LOOP
, Dark Basic Professional , , , . .
INPUT
INPUT , . , , :
INPUT a$
, . , A$. :
INPUT " ",password$
, . , . , . .
END BREAK
END . , (CLI). END . , Windows.
BREAK, , . BREAK , . BREAK .

, :


, , , , (=). :
a=42
a#=99.9
a$=""
lottery(1,1)=49
DATA READ
. . DATA READ. :
DATA 9,"",9.9
READ a,a$,a#
DATA , . , . , 9, - "", 9.9.
READ , , , . , . - . , 9 . , "". A$. 9.9.
:
9
""
9.9
9 , , . , . , .
RESTORE
RESTORE , . , , , . READ .
. , , , . :
lotterydata:
DATA 12,23,34,45,56,67
DATA 23,34,45,56,67,11
DATA 34,45,56,67,33,22
ticketdata:
DATA 01,02,03,04,05,06
DATA 21,32,43,24,13,22
, , , . RESTORE, , . (:) . :
RESTORE lotterydata
READ a,b,c,d,e,f
PRINT " ",a,b,c,d,e,f
, , .
RESTORE ticketdata
READ a,b,c,d,e,f
PRINT " ",a,b,c,d,e,f
, , .

, . . GOSUB . RETURN, GOSUB. :
PRINT ", "
GOSUB MySubroutine
END
MySubroutine:
PRINT ""
RETURN
",", MySubroutine . "". RETURN , , GOSUB END.
GOTO , , , . , . GOTO:
MyLabel:
PRINT ", ";
GOTO MyLabel
:
DO
PRINT ", ";
LOOP
, , "", GOTO. GOTO Dark Basic Professional .
FOR ... NEXT
FOR NEXT . , . :
FOR T=1 TO 5
PRINT T;" ";
NEXT T
PRINT ""
:
1 2 3 4 5
1, PRINT. NEXT FOR 2. . , 5, , . NEXT "", , .
, FOR NEXT :
FOR A=1 TO 5
PRINT "MAIN A=";A
FOR B=1 TO 10
PRINT "LITTLE B=";B
NEXT B
NEXT A
FOR NEXT 1 5, FOR NEXT 1 10.
, . , :
FOR week=1 TO 52 STEP 4
PRINT " ";week; " : ";
FOR index=1 to 6
PRINT lottery(week,index);" ";
NEXT index
NEXT week
STEP, FOR NEXT. , 1, . .
IF ... THEN
IF . , "", "". "", , THEN. "", , IF ... THEN. :
INPUT " >",age
IF age>=16 THEN PRINT " "
, 16, . IF THEN. , , IF. :
age>=16
, 0 1, 16. IF 0 , - . , , 16, 1, . . IF - .
, , , . :
IF A THEN PRINT ""
IF A = B THEN PRINT ""
IF A > (B - 5) THEN PRINT ""
IF A = (B + (A * 2)) THEN PRINT ""
IF A=1 AND B=2 THEN PRINT ""
IF NAME$="" AND SURNAME$="" THEN PRINT ""
IF A#=1.5 OR LOTTERY(10,2)=20 THEN PRINT ""
:
IF A = B = THEN PRINT ""
IF > A = B THEN PRINT ""
IF A B THEN PRINT ""
IF AND A THEN PRINT ""
IF B OR THEN PRINT ""
, THEN , IF ... ENDIF. , IF, ENDIF, :
IF A = B
PRINT ", A B!"
ENDIF
,
IF A = B THEN PRINT " , A B!"
, :
IF A = B
PRINT ", A!"
PRINT " , B!"
PRINT " , A B!"
PRINT " , B A!"
PRINT " !"
ENDIF
, . , , ELSE.
IF A = B
PRINT " !
ELSE
PRINT " !"
ENDIF
, THEN, ENDIF. , ENDIF , , ELSE.
PRINT
PRINT . , , . PRINT, , .
PRINT , , , . PRINT . , " " (;). :
PRINT ", ";
PRINT ""
, :
PRINT " ";name$, " ";age;" ."
, SET CURSOR . :
DO
SET CURSOR RND(640),RND(480)
PRINT ""
LOOP
, Dark Basic Professional , , , . .
INPUT
INPUT , . , , :
INPUT a$
, . , A$. :
INPUT " ",password$
, . , . , . .
END BREAK
END . , (CLI). END . , Windows.
BREAK, , . BREAK , . BREAK .
[]  [] 

pavelmanI982

: 17 11

: 15


pavelmanI982 · 13--08 18:14 ( 2 9 )

?
, .
[]  [] 

DarkArma

: 16 5

: 1


DarkArma · 09--09 05:31 ( 2 26 )

"#@$@#!!!!!!!!!!!!!!
56 18
???
[]  [] 
 
Loading...
Error