Page 1 of 2 12 LastLast
Results 1 to 25 of 37

Hybrid View

Previous Post Previous Post   Next Post Next Post
  1. #1
    Registered 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.
    , ,
    .

  2. #2
    System.gc()'s Avatar
    Join Date: Apr:2007
    Location: back in time
    Posts: 1,075
    It 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 regeneration
    Edsger W. Dijkstra
    UD3R|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.

  3. #3
    Prolemuris
    Join Date: Oct:2006
    Location: Varna
    Posts: 4,296
    .

    @ PET3: VB .NET ? , , OS/2 Warp 5?

  4. #4
    Registered User fly's Avatar
    Join Date: Jun:2005
    Location:
    Posts: 803
    Quote Originally Posted by vbdasc View Post
    .

    @ PET3: VB .NET ? , , OS/2 Warp 5?

  5. #5
    دارس وعامل Siemens's Avatar
    Join Date: Jul:2003
    Location:
    Posts: 1,576
    Quote Originally Posted by vbdasc View Post
    .

    @ PET3: VB .NET ? , , OS/2 Warp 5?
    OS/2 Warp 5 eComStation 1.1
    IBM- 4.52.

  6. #6
    Registered User nickarsow's Avatar
    Join Date: Apr:2009
    Location:
    Posts: 1,849
    PET3,
    . ( Microchip ) VB6. - . - , -
    P.S. VB - ?

  7. #7
    . worm4's Avatar
    Join Date: Jul:2005
    Location: Varna
    Posts: 20,295
    Quote Originally Posted by nickarsow View Post
    PET3,
    . ( Microchip ) VB6. - . - , -
    P.S. VB - ?
    off/
    . , - PLC- . VB.NET, .
    "Arbeit macht frei" -
    - . , :..,,--?!
    OgiDogi: , , ..,

  8. #8
    Registered 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.
    , ,
    .

  9. #9
    Registered 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=142686
    Last edited by PET3; 15th October 2009 at 21:05.
    , ,
    .

  10. #10
    Registered abUser ike's Avatar
    Join Date: Jul:2004
    Location: sofi
    Posts: 4,965
    Poke 43139,0
    Have no fear ike iz here.
    CPU Cx486DLC@40MHz, RAM 4MB, VGA Trident 512KB, HDD Conner 160MB, Monitor 14" Color

  11. #11
    Registered 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.
    , ,
    .

  12. #12
    Registered 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.
    , ,
    .

  13. #13
    Registered User kct's Avatar
    Join Date: Jul:2005
    Location: Sofia
    Posts: 160
    , ?

    ,

  14. #14
    Prolemuris
    Join Date: Oct:2006
    Location: Varna
    Posts: 4,296
    Quote Originally Posted by kct View Post
    , ?

    ,
    Microsoft ( VB .NET),

  15. #15
    Registered User
    Join Date: Aug:2007
    Location:
    Posts: 1,335
    , .
    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
    , 1s, - 0,03s. . ROUND , 1, .
    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.
    , ,
    .

  16. #16
    Registered 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.
    , ,
    .

  17. #17
    Registered User
    Join Date: Aug:2007
    Location:
    Posts: 1,335

    MultiTasking

    .
    . , . , .
    TaskName$, TaskList(X,X). TaskList. TaskList(1,X), TaskList Task Manager .
    , .
    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:
    , 1 Task Manager TaskList(X,2). 0 , . 2 , -.
    Task Manager , .
    - - , - . . . -
    .
    Last edited by PET3; 12th November 2009 at 08:39.
    , ,
    .

  18. #18
    Registered 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.
    , ,
    .

  19. #19
    Registered User
    Join Date: Aug:2007
    Location:
    Posts: 1,335
    .
    Task Manager. . Task Manager , , .
    Taks Manager , , FDD/HDD/CD/DVD/, CRC BIOS.
    :
    - ;
    -;
    -FAT ;
    - ;
    - ;
    - ;
    -;
    - ;
    - 1;
    - ;
    - ;
    - .

    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
    DOS , , CD.
    Task Manager ON GOTO . , .
    Last edited by PET3; 4th May 2010 at 10:00.
    , ,
    .

  20. #20
    Registered abUser ike's Avatar
    Join Date: Jul:2004
    Location: sofi
    Posts: 4,965
    286 .
    Have no fear ike iz here.
    CPU Cx486DLC@40MHz, RAM 4MB, VGA Trident 512KB, HDD Conner 160MB, Monitor 14" Color

  21. #21
    Registered User
    Join Date: Aug:2007
    Location:
    Posts: 1,335
    .
    .
    :
    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
    ?""
    , DOS , .
    :
    - , ;
    - "on top" "local top";
    - ;
    - ;
    - .
    , ,
    .

  22. #22
    Registered abUser ike's Avatar
    Join Date: Jul:2004
    Location: sofi
    Posts: 4,965
    0xB8000 0xB0000 .
    Have no fear ike iz here.
    CPU Cx486DLC@40MHz, RAM 4MB, VGA Trident 512KB, HDD Conner 160MB, Monitor 14" Color

  23. #23
    Prolemuris
    Join Date: Oct:2006
    Location: Varna
    Posts: 4,296
    , .

  24. #24
    Registered User
    Join Date: Aug:2007
    Location:
    Posts: 1,335
    .
    , ,
    .

  25. #25
    XaMaB's Avatar
    Join Date: Nov:2001
    Location:
    Posts: 20,387
    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). , ()

Posting Permissions

  • You may not post new threads
  • You may not post replies
  • You may not post attachments
  • You may not edit your posts
  •  

Copyright © 1999-2011 . .
iskamPC.com | mobility.BG | Bloody's Techblog | | 3D Vision Blog |