Bantas Programming Language : Pinoy Made!

[muthym]

Here's my draft of BantasPL website... preparing for a major update

I'll keep ARALINPILIPINAS. WORDPRESS. COM as the official website for BantasPL.

Thanks!

- - - Updated - - -

Need help for the .NET implementation of BantasPLed (Bantas PL Editor). Thanks in advance!

Please refer to post #11.

Here's my classic BASIC (Rapid-Q Programming Language) version:

'BantasPLed (BantasPL Editor)
'Gawa ni Jon Velasco aka muthym, December 2013
'Licensed under General Public License (GPL)
'Written in Rapid-Q

declare sub richeditKeyPress(k as byte)
declare sub popOpenOnClick
declare sub popNewOnClick
declare sub popSaveOnClick
declare sub richedit1OnChange
declare sub richeditWhereXY
declare sub popRunOnClick
declare sub popHelpOnClick
declare sub dummy

create form1 as qform
    caption="BantasPLed"
    width=640
    height=480
    borderstyle=1
    delbordericons=2
    font.color=rgb(0,255,0)
    create pop1 as qpopupmenu
        create popNew as qmenuitem
            caption="&New"
            onClick=popNewOnClick
        end create
        create popOpen as qmenuitem
            caption="&Open"
            onClick=popOpenOnClick
        end create
        create popSave as qmenuitem
            caption="&Save"
            onClick=popSaveOnClick
        end create
        create popRun as qmenuitem
            caption="&Run"
            onClick=popRunOnClick
        end create
        create popHelp as qmenuitem
            caption="&Help"
            onClick=popHelpOnClick
        end create
    end create
    create statusbar1 as qstatusbar
        addPanels "Line 1",""
        sizegrip=0
    end create
    create richedit1 as qrichedit
        width=form1.clientwidth
        height=form1.clientheight-statusbar1.height
        scrollbars=3
        wordwrap=0
        wantTabs=1
        color=0
        plaintext=1
        font.name="Courier New"
        font.size=14
        onKeypress=richeditKeyPress
        onChange=richedit1OnChange
        onMouseDown=richeditWhereXY
        onKeyDown=richeditWhereXY
        onKeyUp=richeditWhereXY
    end create
    center
    wndproc=dummy
end create

form1.showmodal

sub richeditKeyPress(k as byte)
    richedit1.popUpMenu=pop1
end sub

sub popOpenOnClick
    dim opendlg1 as qopendialog
    defstr fn
    opendlg1.filter="All Files(*.*)|*.*"
    if opendlg1.execute then
        fn=opendlg1.filename
        richedit1.LoadFromFile(fn)
        richeditWhereXY
        statusbar1.panel(1).caption=fn
    end if
end sub

sub popNewOnClick
    richedit1.clear
    statusbar1.panel(0).caption="Line 1"
    statusbar1.panel(1).caption=""
end sub

sub popSaveOnClick
    dim savedlg1 as qsavedialog
    defstr fn 
    if savedlg1.execute then
        fn=savedlg1.filename
        richedit1.SaveToFile(fn)
        richeditWhereXY    
        statusbar1.panel(1).caption=fn  
    end if
end sub

sub richedit1OnChange
    richeditWhereXY
    statusbar1.panel(1).caption=""
end sub

sub popRunOnClick
    defstr fn
    fn=statusbar1.panel(1).caption
    if fn="" then
        showmessage "Please save your program."
    else
        shell "bantas "+fn
    end if
end sub

sub popHelpOnClick
    showmessage "Bantas Programming Language Editor"+chr$(13)+_
                "Version 1.0"+chr$(13)+_
                "(c) 2013 MUTHYM"+chr$(13)+_
                "Website : aralinpilipinas.wordpress.com"               
end sub

sub richeditWhereXY
    statusbar1.panel(0).caption="Line "+str$(richedit1.whereY+1)
end sub

sub dummy:end sub

 

[apzru]

Any update sir sa BantasPL mo?

 

[DERICK76]

Gawang Pinoy! Good job!