Results 1 to 25 of 37
Thread: BASIC - BASIC developers meeting
Hybrid View
-
16th September 2009 12:42 #1Registered User
Join Date: Aug:2007
Location:
Posts: 1,335
BASIC - BASIC developers meeting
BASIC. BASIC .
:
.
.
.
.
BASIC .
, .
BASIC - .
, PowerBASIC 9 for Windows FreeBASIC Linux, Mac-OS, OS/2 Warp-5.
BASIC . .
, , FirstBASIC 1.0 Assembler
BASIC .
.Last edited by PET3; 16th September 2009 at 17:27.
, ,
.
-
16th September 2009 13:51 #2Edsger W. DijkstraIt is practically impossible to teach good programming to students that have had a prior exposure to BASIC: as potential programmers they are mentally mutilated beyond hope of regenerationUD3R|Q9550+1283|4x2 G.Skill@1066|MX500+1002FAEX+640AAKS+ST31 60|RX580-8GB|1841BLT|SS-760XP|Define7|z24i|Edifier S350DB
geniusloci: ) ; ) ; ) ?
nope|r.i.p.
-
16th September 2009 14:02 #3Prolemuris
Join Date: Oct:2006
Location: Varna
Posts: 4,296
.
@ PET3: VB .NET ?
, , OS/2 Warp 5?
-
16th September 2009 14:49 #4
-
16th September 2009 14:51 #5
-
16th September 2009 14:24 #6
PET3,
. ( Microchip ) VB6. - . - , -
P.S. VB - ?
-
20th September 2009 00:20 #7
-
20th September 2009 10:18 #8Registered User
Join Date: Aug:2007
Location:
Posts: 1,335
- Multitasking
PIC16F877A. . 2 , :

, DOS, .
:
, . .
, BIOS.
BIOS INT CALL INTERRUPT.
a$="procname" CALL a$. . DOS, PIC- GOTO, GOSUB, CALL , .
.
SUB. copy SUB copy. , .
(ARRAY) TaskList$(num,name,priority,counter) :
- -- ;
... , .
(Task Manager) . . , 2 .
-1 Task Manager . . (), Task Manager 1 . 0, . .
ProcList$(num,name) :
- ;
... .. .
2 : 1-1, 2-1, 1-2, 2-2, .... ..
1MB . - .
"".
:
- , .
, OS
-- .
:
, , .. . , .Code:a$="Boby" ' box=56 cox$=" " ' d= reg1$=a$ ' a$ reg1$ reg2=box ' box reg2 LISTING ' cox$=reg3$ ' reg3$ cox$ d=reg4 ' reg4 d reg1$=0 ' reg2=0 reg3$=0 reg4=0 Task Manager ... 2.
a -> a(#);
a$ -> a$(#);
a(x,y) -> a(#,x,y)
a$(x,y,z) -> a$(#,x,y,z)
, . . : - , ? (, , , ); arrea$(x,y), X Y - arrea$="dimension,x,y".
, , - Windows-7. Win9x, DOS . DMA , ,
Win9x - .
, OS, DOS, . , , .
EXE- , ( ) .
1 HIMEM.SYS EMM386.EXE, , VDISK - 32 ( XMSDSK.EXE & EMSDSK.EXE Franck UBERTO - 98/08/12) 2GB . (RAM) , (FAT, HPFS NTFS ) 512 . RAM .
.
.Last edited by PET3; 22nd September 2009 at 09:09.
, ,
.
-
16th September 2009 22:23 #9Registered User
Join Date: Aug:2007
Location:
Posts: 1,335
BASIC.
Visual , Neo Book, .
( PC ), " ".
:
SUB procedure
...
RETURN
DEF FNfunction
...
END DEF
. , .
, , .
- .
- (#).
:
REM **********
REM * Action *
REM **********
CLS
CALL Copy_FAT2ISO 'coping disk array to ISO image
....
:
. .Code:REM ********** REM * Action * REM ********** CLS CALL Copy_FAT2ISO 'coping disk array to ISO image ....
FirstBASIC Compiler 1.00. .
http://hardwarebg.com/forum/showthre...IC#post2062136
, .
.:
http://hardwarebg.com/forum/showthread.php?t=142686Last edited by PET3; 15th October 2009 at 21:05.
, ,
.
-
16th September 2009 23:23 #10
Poke 43139,0
Have no fear ike iz here.
CPU Cx486DLC@40MHz, RAM 4MB, VGA Trident 512KB, HDD Conner 160MB, Monitor 14" Color
-
19th September 2009 21:08 #11Registered User
Join Date: Aug:2007
Location:
Posts: 1,335
FirstBASIC/PowerBASIC - Find Next or Previous File
Find Next Find Previous ?
, e . . Drag&Drop .
, , e .
ASCII ascend descend , , \ / : * ? " < > | . space . , .
- ,
Long File Name WindowsXP+SP3 :
: 87654321.*
12345678.*
Short File Name DOS. , ~# - 8 .
SFN, , , e SFN LFN .
Long File Name White Paper Microsoft:
http://www.codeguru.com/cpp/cpp/cpp_...cle.php/c13907
, . Emergency manager-, Save mode.
---------- 21:08 ---------- 18:40 ----------
EXE , - ( full screen) Comand prompt- . - .
Last edited by PET3; 19th September 2009 at 19:07.
, ,
.
-
23rd September 2009 11:24 #12Registered User
Join Date: Aug:2007
Location:
Posts: 1,335
:
(I) (O) , (I/O) . , .
,
" " - , . . ( BASIC SUB ), ,
:
- 0 255. 0 , .
Insert File Record FAT12/16 ( 32 ), . , FAT. HPFS NTFS, -.
Win-XP Windows-7 time-out .
. COM , . , . - , . , Microchip- PIC. . 64 .Last edited by PET3; 23rd September 2009 at 11:56.
, ,
.
-
5th October 2009 22:51 #13
-
6th October 2009 12:18 #14Prolemuris
Join Date: Oct:2006
Location: Varna
Posts: 4,296
-
6th October 2009 12:10 #15Registered User
Join Date: Aug:2007
Location:
Posts: 1,335
, .
, 1s, - 0,03s. . ROUND , 1,Code:CLS TIMER ON ON TIMER (0.03) GOSUB task: FOR a=0 TO 1000 _LOCATE 20,20 ? a NEXT a STOP task: _LOCATE 30,30 ? "3 seconds" RETURN
.
ASUS M51Vr, , PicoXT, -16
30ms => 1/0,03 = 33,3Hz. , , 50Hz 25 /s. 33,3Hz - .
. . , , .
, . .
2 . .
.
.
.
, , . , .
, 1
" " . . PL0,1,2,3 386 64 . 
.: , DOS PRINT . PRINT LOCATE , .Last edited by PET3; 7th October 2009 at 08:07.
, ,
.
-
6th October 2009 21:14 #16Registered User
Join Date: Aug:2007
Location:
Posts: 1,335
Timer3.exe Timer3.bas PicoXT. 286, " 286/386 ". PicoXT XT 8086/8088 4,77; 10; 19; 38MHz.
0,03s = 33,3Hz, 44kHz , 2 => 100kHz
. . , . -
, . . Nintendo 8 +. . - 33,333Hz. , - 38Hz . , - 0,0015s. WAV . , 
.: 256 40h. INT8. http://hardwarebg.com/forum/showthre...04#post2088804
, , , .
2us 500kHz. (LPT) 2 , 2 PDATA PCON 16-bit mono 44kHz (DAC)
, - .
Last edited by PET3; 7th October 2009 at 12:14.
, ,
.
-
15th October 2009 20:49 #17Registered User
Join Date: Aug:2007
Location:
Posts: 1,335
MultiTasking
.
. , . , .
TaskName$, TaskList(X,X). TaskList. TaskList(1,X), TaskList Task Manager .
, .
, 1 Task Manager TaskList(X,2). 0 , . 2 , -.Code:CLS init: TaskList=5 TaskName$(1)="clock" TaskList(1,1)=200 TaskList(2,1)=200 TaskName$(2)="calc" Tasklist(1,2)=250 TaskList(2,2)=250 TaskName$(3)="text" TaskList(1,3)=230 TaskList(2,3)=230 TaskName$(4)="video" TaskList(1,4)=1 TaskList(2,4)=1 TaskName$(5)="game" TaskList(1,5)=50 TaskList(2,5)=50 main: IF TempNum=1 THEN ATask1$="X":ATask2$=" ":ATask3$=" ":ATask4$=" ":ATask5$=" " IF TempNum=2 THEN ATask2$="X":ATask1$=" ":ATask3$=" ":ATask4$=" ":ATask5$=" " IF TempNum=3 THEN ATask3$="X":ATask1$=" ":ATask2$=" ":ATast4$=" ":ATask5$=" " IF TempNum=4 THEN ATask4$="X":ATask1$=" ":ATask2$=" ":Atask3$=" ":ATask5$=" " IF TempNum=5 THEN ATask5$="X":ATask1$=" ":ATask2$=" ":ATask3$=" ":ATask4$=" " LOCATE 10,10 PRINT TaskName$(1), TaskList(1,1), TaskList(2,1), ATask1$ LOCATE 11,10 PRINT TaskName$(2),, TaskList(1,2), TaskList(2,2), ATask2$ LOCATE 12,10 PRINT TaskName$(3),, TaskList(1,3), TaskList(2,3), ATask3$ LOCATE 13,10 PRINT TaskName$(4), TaskList(1,4), TaskList(2,4), ATask4$ LOCATE 14,10 PRINT TaskName$(5),, TaskList(1,5), TaskList(2,5), ATask5$ FOR TaskCount=1 TO TaskList 'reduce every each row in second column with 1 IF TaskList(1,TaskCount)=0 THEN TaskCount=TaskCount+1:GOTO cend: 'missing turn off tasks TaskList(2,TaskCount)=TaskList(2,TaskCount)-1 cend: NEXT TaskCount FOR TaskCount=1 TO TaskList IF TaskCount=1 THEN task1: IF TaskCount=>2 THEN task2: task1: IF TaskList(1,1)=0 THEN lend: 'missing turn off tasks TempPr=TaskList(2,1) TempNum=1 task2: IF TaskList(1,TaskCount)=0 THEN lend: 'missing turn off tasks IF TempPr>TaskList(2,TaskCount) THEN TempPr=TaskList(2,TaskCount):TempNum=TaskCount:GOTO lend: IF TempPr=TaskList(2,TaskCount) AND TempNum>TaskCount THEN lend: IF TempPr=TaskList(2,TaskCount) AND TempNum<TaskCount THEN TempNum=TaskCount lend: NEXT TaskCount TaskList(2,TempNum)=TaskList(1,TempNum) 'restore of priority count register ot current task DELAY 0.03 LOCATE 5,5 PRINT TempNum GOTO main:
Task Manager , .
- - , - . . . -
.Last edited by PET3; 12th November 2009 at 08:39.
, ,
.
-
12th November 2009 08:26 #18Registered User
Join Date: Aug:2007
Location:
Posts: 1,335
, . IT (180), .
. , 2 . Task Manager.
. Zzzzzz...................
"".Last edited by PET3; 12th November 2009 at 08:41.
, ,
.
-
4th May 2010 09:50 #19Registered User
Join Date: Aug:2007
Location:
Posts: 1,335
.
Task Manager. . Task Manager , , .
Taks Manager , , FDD/HDD/CD/DVD/, CRC BIOS.
:
- ;
-;
-FAT ;
- ;
- ;
- ;
-;
- ;
- 1;
- ;
- ;
- .
DOS , , CD.Code:CLS TIMER ON ON TIMER (0.03) GOSUB task: CALL fig (20,30) print c,e END STOP SUB fig (a,b) SHARED PRIVATE SHARED c FOR d=0 TO 1000 print d NEXT d print a,b c=a+b END SUB task: GOSUB subaru: RETURN subaru: FOR e=0 TO 10 print e NEXT e RETURN
Task Manager ON GOTO . , .Last edited by PET3; 4th May 2010 at 10:00.
, ,
.
-
4th May 2010 10:16 #20
286 .
Have no fear ike iz here.
CPU Cx486DLC@40MHz, RAM 4MB, VGA Trident 512KB, HDD Conner 160MB, Monitor 14" Color
-
7th May 2010 22:48 #21Registered User
Join Date: Aug:2007
Location:
Posts: 1,335
.
.
:
, DOS , .Code:clear cls xbw=5 ybw=1 xew=70 yew=20 rem *FrameX$30* y=ybw for x=xbw to xew step +1 locate y,x ?"" next x rem *FrameY$11* x=xew for y=ybw to yew step +1 locate y,x ?"" next y rem *FrameX$30* y=yew for x=xew to xbw step -1 locate y,x ?"" next x rem *FrameY$11* x=xbw for y=yew to ybw step -1 locate y,x ?"" next y rem *Corner$12* locate ybw,xew ?"" rem *Corner$13* locate yew,xew ?"" rem *Corner$25* locate yew,xbw ?"" rem *Corner$26* locate ybw,xbw ?""
:
- , ;
- "on top" "local top";
- ;
- ;
- ., ,
.
-
7th May 2010 23:57 #22
0xB8000 0xB0000 .
Have no fear ike iz here.
CPU Cx486DLC@40MHz, RAM 4MB, VGA Trident 512KB, HDD Conner 160MB, Monitor 14" Color
-
8th May 2010 19:24 #23Prolemuris
Join Date: Oct:2006
Location: Varna
Posts: 4,296
, .
-
14th May 2010 21:50 #24Registered User
Join Date: Aug:2007
Location:
Posts: 1,335
.
, ,
.
-
14th May 2010 23:06 #25-1964 - John Kemeny and Thomas Kurtz create BASIC, an unstructured programming language for non-computer scientists.
1965 - Kemeny and Kurtz go to 1964.
: XaMaB; . 0.42
In God we Trust (all others must submit a X.509 certificate). , ()




Reply With Quote

Lenovo ThinkPad 15 IdeaPad 15
5th May 2023, 22:16 in