[ About TopSites | Submit Site | Login
Sublime Directory
Topsites network : [ RSS Feeds directory | Free articles | Webdigity webmaster forums | Pagerank graphic | Whois database ]
RSS Feeds categories :
::  Arts & Humanities
::  Automotive
::  Business & Economy
::  Computers & Internet
     Hardware
     Internet
     Programming
     Security
     Software
     Wireless technology
::  Entertainment
::  Health & Fitness
::  Miscellaneous feeds
::  News - General
::  Politics & Government
::  Regional
::  Society & Culture
::  Sports
::  Technology & Science
::  Webmaster Resources
Submit a feed



BASIC Programming

Description : No description for this item


Type : feed, version : uknown
RSS Feed adress : http://basicprogramming.blogspot.com/atom.xml
Site Adress :
Build : Uknown
Generator : Blogger

Ranking : 0.00 ( 0 votes )
Rate this feed :


Relative sites :







Feed preview :

Copying a folder full of files in Liberty BASIC


Over on the Liberty BASIC forum at conforums.com one member was asking how to copy all the files in a folder for a database.

The hard way is to use the FILES statement and to write a bunch of code that tests and loops.

But is there an easier way?

One solution is to use the SHFileOperationA API call.

CallDLL #shell32,"SHFileOperationA", SHFILEOPSTRUCT as struct, CopyFolder as long
Chris Iverson shows how in his post. That and more in this thread. Click to read.





http://basicprogramming.blogspot.com/2016/01/copying-folder-full-of...

Date is between function in Liberty BASIC


Someone recently asked me if Liberty BASIC can answer the question about whether a date is between two other dates.  Yes it can!

The following is my quick solution to his question.

answer = isDateBetween("12/21/2015","12/15/2015","12/30/2015")
if answer then print"yes"else print"no"


answer = isDateBetween("11/21/2015","12/15/2015","12/30/2015")
if answer then print"yes"else print"no"


function isDateBetween(aDate$, firstDate$, lastDate$)
    aDays = date$(aDate$)
    firstDays = date$(firstDate$)
    lastDays = date$(lastDate$)
    isDateBetween = firstDays< aDays and aDays< lastDays
end function


Enjoy!

http://basicprogramming.blogspot.com/2016/01/date-is-between-functi...

Tiny BASIC part 5 - Adding color to PSET


It's much more fun to draw in color than with only a black pen, so let's add a third parameter to the PSET statement for color, for example:
PSET x, y,"color"
To do this we need to add some code to our case"pset"  block:
 CASE"pset"
  IF GWINOPEN = 0 THEN
    E$ ="PSET error - Graphic window is not open"
    GOTO [Ready]
  END IF
  GOSUB [GetExpression]
  IF E$<>""THEN [Ready]
  PSETX = N
  GOSUB [GetChar]
  IF C$<>","THEN
   E$="Comma expected after x parameter"
   GOTO [Ready]
  END IF
  C = C + 1
  GOSUB [GetExpression]
  IF E$<>""THEN [Ready]
  PSETY = N
  PSETCOLOR$ ="black"
  GOSUB [GetChar]
  IF C$ =","THEN
   C = C + 1
   GOSUB [GetStringLiteral]
   IF E$<>""THEN [Ready]
   PSETCOLOR$ = B$
  END IF
  #GWIN"color"; PSETCOLOR$

  #GWIN"down ; set"; PSETX;""; PSETY
  GOTO [FinishStatement]

The way this works is that it will look for a comma and a string expression after it setsPSETXandPSETYIf there is no comma it will skip over the part that gets a color parameter, so the default color will be black in that case.

The string will be the name of a valid Liberty BASIC color, for example red, blue, green, black, etc.    The following code is stolen from the routine that parses for thePRINTstatement.  In a later post we will incorporate this into thePRINTcode by calling it as a subroutine so that we won't have the same code twice.
[GetStringLiteral]
  GOSUB [SkipSpace]
  GOSUB [GetChar]
  IF C$=G$ THEN
   B$=""
[NextStringMember]
   C = C + 1 : C$=MID$(A$,C,1)
   IF C$=""THEN
    E$="Unterminated string"
    RETURN
   ELSE
   IF C$<>G$ THEN
    B$=B$+C$
    GOTO [NextStringMember]
   END IF
  END IF
  C = C + 1 : C$=MID$(A$,C,1)
  IF C$=G$ THEN
   B$=B$+C$
   GOTO [NextStringMember]
  END IF
 END IF
 RETURN

So we call the[GetStringLiteral]subroutine and check E$ for an error.  If there is none then we setPSETCOLOR$to the value ofB$as shown here.

   GOSUB [GetStringLiteral]
   IF E$<>""THEN [Ready]
   PSETCOLOR$ = B$
  END IF
  #GWIN"color"; PSETCOLOR$


Then we add a drawing command like so to set the color:

  #GWIN"color"; PSETCOLOR$

Here is a sample that uses PSET with color!


5 graphicwin
10 pset x, y,"red"
20 pset x + 10, y,"blue"
30 pset x + 20, y,"green"
40 x = x + 1
50 y = y + 2
60 if x< 100 then goto 10

And here is a screenshot!





http://basicprogramming.blogspot.com/2016/01/tiny-basic-part-5-addi...

Liberty BASIC file type association


Liberty BASIC doesn't map the BAS file extension to itself when it is installed. This is because I didn't want to be so presumptuous as to steal a common file type away from another version of BASIC that might be installed.

So, because there is a bug in Windows which makes it really hard to remap a file extension and there have been discussions about this in the Liberty BASIC forum at conforums.com one of our member Chris Iverson (thanks Chris!) has contributed some Liberty BASIC code to solve this problem.

  Click to see thread in the forum

Enjoy!

http://basicprogramming.blogspot.com/2016/01/liberty-basic-file-typ...

Lunar lander revisited


Liberty BASIC comes with a nice introduction to video games called lander.bas.
  • It's a good example of a timer driven game.
  • It uses sprites which are actually generated on the fly using turtle graphics.
  • It also shows proper technique of structured programming.
So I have some ideas that I am thinking about implementing to update it and make it an even more complete video game example:
  • Add sound effects including ambient sounds, rocket motor noise and crash explosion.
  • Animate the rocket motor so you can see rocket exhaust coming out.
  • Add some flying space junk sprites that you need to avoid while trying to land.
  • Add a colored starfield in the background.
Looking forward to this! Check back for updates!



http://basicprogramming.blogspot.com/2016/01/lunar-lander-revisited...

Tiny BASIC part 4 - Adding a PSET statement



Okay, now we are ready to add a PSET statement for drawing pixels.  Today we will simply add the ability to draw a single black pixel at a time.  Next time we will add color!

Here is the code to accomplish this.  This is just another SELECT CASE block to add after the one we added for the GRAPHICWIN command.
 CASE"pset"
  IF GWINOPEN = 0 THEN
    E$ ="PSET error - Graphic window is not open"
    GOTO [Ready]
  END IF
  GOSUB [GetExpression]
  IF E$<>""THEN [Ready]
  PSETX = N
  GOSUB [GetChar]
  IF C$<>","THEN
   E$="Comma expected after x parameter"
   GOTO [Ready]
  END IF
  C = C + 1
  GOSUB [GetExpression]
  IF E$<>""THEN [Ready]
  PSETY = N
  #GWIN"down ; set"; PSETX;""; PSETY
  GOTO [FinishStatement]
This was a bit tricky to write because there isn't really any documentation with the original Tiny BASIC source code, but by looking at the code for the other statements I think I figured it out correctly.  It does seem to work.

The syntax for the new statement is PSET x, y

Let me explain what it does.
  • First check to see if the graphic window is open.  If it isn't then set E$ to be an error string.  Then GOTO [Ready].  This will display the error.
  • Then get the next expression using GOSUB [GetExpression].  This unleashes the expression parser which is easily the largest and most complex part of the Tiny BASIC source code.  Then it checks for an error using IF E$<>"".  If E$ does contain an error, then GOTO [Ready].
  • Okay so got this far, so set PSETX to be what was in N, which is the result of the call to [GetExpression].
  • Now get the next character, which we expect to be a comma to separate the x and y values.  If the next character is not a comma, set E$ to be an error and GOTO [Ready].
  • Now advance C one character by adding 1 to it.  We do this because we found the expected comma, and now we need to skip over that so that we can get the next expression for our y value.
  • Get the next expression using GOSUB [GetExpression].  Test E$ for an error and GOTO [Ready] if there is one.
  • Get the value of N and put it into the variable PSETY.
  • Finally, draw the pixel in the graphics window!
Here is the sample Tiny BASIC program that uses the PSET statement:

10 graphicwin
20 pset x, y
30 x = x + 1
40 y = y + 2
50 if x< 200 then goto 20

And here is the output of the program!


http://basicprogramming.blogspot.com/2016/01/tiny-basic-part-4-addi...

Run BASIC Revisited - The easiest web development system on Earth


I got an inquiry yesterday about Run BASIC asking about what is special about it.  The essential concept is that it is an all-in-one BASIC web application server.  You can use it to create a dynamic web site, or to host in-house applications for your business or school, or use it to control your home.  The possibilities are pretty much endless.

Here is a link to a white paper about Run BASIC.
   http://www.libertybasic.com/RunBASICBreakthrough.pdf

Here is a link to the Run BASIC community forum.
   http://runbasic.proboards.com/

http://basicprogramming.blogspot.com/2016/01/run-basic-revisited-ea...

Tiny BASIC part 3 - Adding GRAPHICWIN statement



We are going to add GRAPHICWIN and PSET statements to Tiny BASIC.

Let's start with the really easy one.  We will add a case"graphicwin"  block to the end of the select case blocks that we examined in the last post.  Here is what it looks like.  The new code is inbold red.
 CASE"let"
  GOSUB [GetLabel]
  IF E$<>""THEN [Ready]
 CASE"graphicwin"
  IF GWINOPEN = 1 THEN
    PRINT"Graphics window is already open."
  ELSE
    GWINOPEN = 1
    OPEN"Graphics"FOR graphics AS #GWIN
  END IF
  GOTO [FinishStatement]

 END SELECT
So when you run Tiny BASIC and type the command graphicwin and press Enter it will open a small graphics window.  When it does this it also sets the GWINOPEN flag to 1 to that we can check it if the program tries to open another graphics window.  Only one graphics window will be allowed at a time.

The other thing that we want to do it close the graphics window and reset GWINOPEN to 0 if the program is started using the RUN statement.

So, we need to add the following code into the case"run"  block.  Here is how that code should look.  The new code is inbold red.

 CASE"run"
  IF GWINOPEN = 1 THEN
    CLOSE #GWIN
    GWINOPEN = 0
  END IF

  FOR I=27 TO 52 : A(I)=0 : NEXT I
  L=27 : C=1
  GOTO [FinishStatement2]
So now the program will always start off in a clean state each time it is run!

In our next post we will figure out how to add a PSET statement so we can draw some graphics!




http://basicprogramming.blogspot.com/2016/01/tiny-basic-part-3-addi...

Tiny BASIC part 2 - Adding new statements


This is part 2 of a series on extending tiny basic.bas which is an example that comes with Liberty BASIC v4.5.0.

In order to add some graphics capability I want to suggest two new commands just to start.

GRAPHICWIN width, height   and  PSET x, y, color$

These will enable us to open a window to draw in, and also to draw pixels of a specific color at a given x, y position. This will be a crude start, but it will be instructive because it will show the reader how to extend Tiny BASIC to do what is desired.

The first thing to do is figure out where in the code Tiny BASIC parses commands so we can add some more. The code below is the routine that does this. If you look carefully you will see a SELECT CASE statement and then a CASE statement for each Tiny BASIC command.

More later.
[NextStatement]
 GOSUB [GetLabel]
 IF E$<>""THEN [Ready]
 SELECT CASE D$
 CASE"if"
  GOSUB [GetExpression]
  IF E$<>""THEN [Ready]
  IF N<1 font=""then="">
  B$=A$(L) : C=LEN(B$)+1
  GOTO [FinishStatement]
  END IF
  GOSUB [GetLabel]
  IF E$<>""THEN [Ready]
  IF D$<>"then"THEN
  E$="'THEN'expected"
  GOTO [Ready]
  END IF
  GOTO [NextStatement]
 CASE"rem"
  B$=A$(L) : C=LEN(B$)+1
  GOTO [FinishStatement]
 CASE"input"
  GOSUB [GetVar]
  IF E$<>""THEN [Ready]
  INPUT N : A(V)=N
  GOTO [FinishStatement]
 CASE"print"
[Print]
  GOSUB [SkipSpace]
  GOSUB [GetChar]
  IF C$=G$ THEN
  B$=""
[NextChar]
  C = C + 1 : C$=MID$(A$,C,1)
  IF C$=""THEN
   E$="Unterminated string"
   GOTO [Ready]
  ELSE
   IF C$<>G$ THEN
   B$=B$+C$
   GOTO [NextChar]
   END IF
  END IF
  C = C + 1 : C$=MID$(A$,C,1)
  IF C$=G$ THEN
   B$=B$+C$
   GOTO [NextChar]
  END IF
  PRINT B$;
  ELSE
  GOSUB [GetExpression]
  IF E$<>""THEN [Ready]
  B=N1
  IF B=N THEN
   PRINT N;"*";
  ELSE
   PRINT N;
  END IF
  END IF
  GOSUB [SkipSpace]
  GOSUB [GetChar]
  IF C$=","THEN C = C + 1 : GOTO [Print]
  GOSUB [SkipSpace]
  GOSUB [GetChar]
  IF C$<>";"THEN
  PRINT
  ELSE
  C = C + 1
  END IF
  GOTO [FinishStatement]
 CASE"clear"
  FOR I=27 TO 52 : A(I)=0 : NEXT I
  GOTO [FinishStatement]
 CASE"run"
  FOR I=27 TO 52 : A(I)=0 : NEXT I
  L=27 : C=1
  GOTO [FinishStatement2]
 CASE"goto"
  GOSUB [GetExpression]
  IF E$<>""THEN [Ready]
  IF E>=N THEN L=27
  C=1 : T=N
[NextGoto]
  IF L=126 THEN
  E$="Line not found"
  GOTO [Ready]
  END IF
  GOSUB [GetNumber]
  IF N=T THEN E=N : GOTO [NextStatement]
  L = L + 1 : C=1
  GOTO [NextGoto]
 CASE"new"
  FOR I=27 TO 125 : A$(I)="": NEXT I
  FOR I=27 TO 52 : A(I)=0 : NEXT I
  IF E=0 THEN [FinishStatement]
  GOTO [Ready]
 CASE"cls"
  CLS : GOTO [FinishStatement]
 CASE"help"
  FOR I=9 TO 18
  B$=A$(I) : PRINT B$
  NEXT I
  GOTO [FinishStatement]
 CASE"mem"
  B=126
  FOR I=27 TO 125
  diffI = 152 - I 'Cheating here
  B$=A$(diffI) : IF B$=""THEN B=diffI
  NEXT I
  B=126-B : PRINT B;"*";
  PRINT"lines free"
  GOTO [FinishStatement]
 CASE"end"
  GOTO [Ready]
 CASE"bye"
  GOTO [ExitTinyBAS]
 CASE"list"
  GOSUB [GetNumber] : T=N : A=L : I=C
  IF T=0 THEN
  GOSUB [GetLabel]
  IF E$=""AND D$="pause"THEN I=C
  E$=""
  END IF
  FOR L=27 TO 125
  C=1 : GOSUB [GetNumber]
  B=(T=0) OR (N=T)
  IF B=TRUE THEN
   IF A$<>""THEN
   PRINT A$
   IF D$="pause"THEN
    B = (L-26) mod 10
    IF B=0 THEN PRINT"Pause..."; : INPUT AAA$
   END IF
   END IF
  END IF
  NEXT L
  L=A : C=I
  GOTO [FinishStatement]
 CASE"save"
 PRINT"SAVE, TBD"
 CASE"load"
 PRINT"LOAD, TBD"
 CASE"let"
  GOSUB [GetLabel]
  IF E$<>""THEN [Ready]
 END SELECT






http://basicprogramming.blogspot.com/2016/01/tiny-basic-part-2-addi...

More on getting started with Liberty BASIC


In addition to the resources I mentioned the other day, please do not overlook our great online community of users.

There are two large forums where you can learn a lot from friendly, knowledgeable people about all kinds of things.

First the forum at Conforms. This great forum is organized by topic, which is really nice. Here's the link:

  http://libertybasic.conforums.com

Secondly there is Yahoo Groups! What's nice about this site is that you can subscribe to get emails, and you post to the group by email. Here is the link:

   http://groups.yahoo.com/group/libertybasic

People do amazing things with Liberty BASIC, and these are the places where these people hang out.

See you there!

http://basicprogramming.blogspot.com/2015/12/more-on-getting-starte...

Tiny BASIC revisited


Liberty BASIC comes with an implementation of Tiny BASIC which is extremely similar to the BASIC that came with the old Radio Shack TRS-80. Remember that computer? Some of us do. :-)

This is a very limited version of BASIC, but it has some strengths.


  • Simplicity - Not much to learn
  • Interpreted - This is an interactive interpreter
  • Source code - You can modify the language
So, since Tiny BASIC can be modified by pretty much anyone who knows a little BASIC, I am starting a series where I will extend the language and show how to do it.

First we will focus on graphics! More to come so stay tuned!


http://basicprogramming.blogspot.com/2015/12/tiny-basic-revisited.html

Doing pixel manipulation in Liberty BASIC


One of the members of the Liberty BASIC community posted a cool example of doing pixel graphics in Liberty BASIC. It is instructive because it is short and it shows how to effectively use Windows API calls to work with graphical images.

Here is a link to the post including a code example and a screenshot of the output.



http://basicprogramming.blogspot.com/2015/12/doing-pixel-manipulati...

How to get started with Liberty BASIC


I got an email today from someone who was frustrated trying to figure out how to get started with Liberty BASIC. This seemed like good blogging material. :-)

Here is a start on the subject of getting started.

Try it - Download the trial software and install it. It works on pretty much all versions of Windows that run on laptops and desktop PCs. We don't support Windows Server but it may run.

  Here's the download linkhttp://www.libertybasic.com/download.html

Liberty BASIC comes with a tutorial. Once you start up Liberty BASIC look at the Help menu for the tutorial and the help documentation

There is a softcover book that you can purchase at Amazon's site.

  Here is the link for the book:
  http://www.amazon.com/Beginning-Programming-Liberty-BASIC-Gundel/dp/0557228115



http://basicprogramming.blogspot.com/2015/12/how-to-get-started-wit...

New features of Liberty BASIC v4.5.0


This exciting new release of Liberty BASIC increases memory available 14x over the previous version, adds new string functions, the ability to fetch web pages, and new code editor enhancements.  Download your copy now!  Click here.

New features of Liberty BASIC v4.5.0
  • Memory space raised to 1GB from 70MB
  • Ctrl+click on a branch label or SUB name to jump to that place in the code
  • Double click on a variable name or handle to highlight other occurences of that item in yellow
  • New httpget$() function so now you can get a file from a webserver without API calls
  • New string functions make it easier to do some things and with faster performance.
    • upto$(sourceString$, search$
    • after$(sourceString$, search$
    • afterlast$(sourceString$, search$)
    • endswith(sourceString$, search$)
    • remchar$(sourceString$, removeThese$)
  • Removed arbitrary limitations on the baud rates that can be specified when opening a serial port.
  • Upgraded to NTPort v2.8 from v2.3 to add compatibility for 64-bit versions of Windows.
  • The Liberty BASIC editor now remembers its size and location when you start LB.
  • Added a filter bad characters feature in the LB editor help the compiler, especially when code is pasted in from a web browser.
  • Increased the FILEDIALOG length of the file path from 128 to 260 which is the Windows file dialog maximum path length.
  • Added FIND, FINDBACK, and RESETFIND commands to the text window and texteditor control.
  • Added !backcolor and !forecolor commands to texteditor controls and text windows
  • Several bug fixes


http://basicprogramming.blogspot.com/2015/12/new-features-of-libert...

Referral Campaign - Win a free copy of Liberty BASIC!


Until the end of October 2012 we are running a word of mouth referral campaign. For a free copy of Liberty BASIC, refer at least 5 friends with an interest in programming. If you want to qualify for the free copy, your friend need to send an email tofreeoffer@libertybasic.comand mention that you referred them. They must include your name and email address. We will send you a download link and registration code.Please try to refer friends that you think would be interested in Liberty BASIC.Thanks!

http://basicprogramming.blogspot.com/2012/10/liberty-basic-referral...

Regarding How to Teach Programming


Andres Valloud posted"...The goal of this improved teaching is to allow everyone to take advantage of programming, not just CS oriented people..."http://blogten.blogspot.com/2012/10/regarding-how-to-teach-programming.html

http://basicprogramming.blogspot.com/2012/10/regarding-how-to-teach...

Before Make Magazine


In the corner of the factory there was a rather large machine sitting there unused. There was a sort of hodgepodgeness (if that's a word) about it. My boss Bob explained to me that this was a CNC machine that he had built himself. Wow! So before the company had money to purchase the industry standard Excellon drilling and routing machines he had decided it was possible to build his own, and it worked. I think that's really impressive!

http://basicprogramming.blogspot.com/2012/04/before-make-magazine.html

BASIC for the Raspberry Pi?


What's Raspberry Pi? It is a cool new single board computer about the size of a credit card. It runs Linux (it can run other things) and it only costs $35, or $25 if you don't care about networking. You only need a micro USB charger or batteries to power it, a keyboard and mouse, and an HDMI compatible monitor or TV set.

This new device is aimed at schools, but the appeal of such a device is obviously very broad. I went to their forum and mentioned the idea of producing a version of BASIC for the RP. The reactions were mixed. Seems like that crowd is strongly committed to Python. That's okay, I've got my hands full right now with Liberty BASIC and Run BASIC.

Perhaps in the future I will have a chance to do something. It would probably be my first open source project, based on Squeak Smalltalk.

http://basicprogramming.blogspot.com/2012/04/basic-for-raspberry-pi...

The Arduino Phenomenon


Seems like there is a lot of interest lately in using microcontrollers such as the BASIC Stamp and the new Arduino products. To my surprise, even a long retired electrical engineer friend knew about Arduino when I asked him. I get email from users of these products asking if they can use Liberty BASIC to program them. The answer is no, and yes.

These devices come with their own programming tools. Liberty BASIC is a Windows only (and soon also Mac and Linux) language, so it cannot be used to program microcontrollers. However I've been told that they have found a use for Liberty BASIC with microcontrollers. Some people have created a GUI control panel (including running graphics for example) for their microcontroller projects using Liberty BASIC because Liberty BASIC can be used to monitor devices using serial, parallel and network ports.

For more information about this, see the following link (you will need to register with the forum to read the posts).

http://libertybasic.conforums.com/index.cgi?board=comport

http://basicprogramming.blogspot.com/2012/03/arduino-phenomenon.html

Automatic file backup - using a timer


Once our file backup utility is running and our window is open we need to be able to use the start and stop buttons to control the activity of program.

Here is the code for the start action. It ties into the [start] label in the Start button.

[start]'startup the backup timer
#main.start"!disable"
#main.stop"!enable"
gosub [checkInitialFiles]
#main.statusLog"Starting backup"
#main.interval"!contents? interval"
timer interval * 1000, [checkFiles]
wait

When the button is clicked we disable the Start button and enable the Stop button to show which operations are valid. We call [checkInitialFiles] which we haven't written yet (we'll get into that later). We show in the statusLog texteditor that we are starting the backup process. Then we get the contents of the interval textbox and start the timer. The reason we multiply the interval by 1000 is that the timer measures time in milliseconds so if we want 5 a second interval we need to give the timer a value of 5000. Finally we stop and wait for a timer tick or for user interaction.

Once our timer is running we need to be able to stop it. Here is our stop handler:

[stop]'stop the backup timer
timer 0
#main.start"!enable"
#main.stop"!disable"
#main.statusLog"Stopping backup"
wait

This is real simple. First thing is to stop the timer with timer 0. Then we reverse the enabling of the Start and Stop buttons. Compare this to the way that [start] does it. Then we log to the statusLog texteditor that we are stopping. Finally we wait.

The purpose of the [checkInitialFiles] subroutine is to create a description of the files we are interested in and the time and date they were last modified. Then each time the timer ticks after this we create a new description of these files. If the date and time changes on any of these files then it's time to make a new backup.

Just for now let's just create an empty [checkInitialFiles] subroutine:

[checkInitialFiles]'snapshot of filenames and timestamps
return

The routine doesn't do anything yet, so we only have a RETURN statement.

Now we'll create a [checkFiles] routine which will be called each time the timer ticks. For now the routine will not do much. We will write the full routine in a later section.

[checkFiles]'are there new files
#main.statusLog"tick"
'temporarily disable the timer
timer 0
'perform the check here
'reenable the timer
timer interval * 1000, [checkFiles]
wait

The first thing we do is log the word"tick"to the statusLog. This is for instructive purposes only and will be removed later. We do this so that we can see that the timer is working. After this we disable the timer. This might seem like a strange idea, but the reason we do it is because the next thing we do is check the files to see if they changed (we'll write this part later). If they change we don't want the timer to be running because if it takes a while to backup the files and the timer is still running then the timer events can build up. Once the file check and possible backup are finished we reenable the timer.

The entire listing so far is posted below. Try running it. When you click Start it will begin logging its activity. Notice that the word tick gets logged every five seconds. Click the Stop button and change the interval to 1. Start it again and the logging will happen once per second.


dim info$(10,10)
setupPath$ = DefaultDir$+"\backupsetup.ini"

WindowWidth = 560
WindowHeight = 460
statictext #main,"Files to backup:", 5, 5, 94, 20
texteditor #main.listOfFiles, 5, 26, 530, 95
statictext #main,"Destination folder:", 5, 132, 107, 20
textbox #main.destination, 115, 127, 420, 25
statictext #main,"Backup interval in seconds:", 5, 157, 163, 20
textbox #main.interval, 170, 152, 100, 25
button #main.save,"Save",[save], UL, 495, 152, 42, 25
button #main.start,"Start",[start], UL, 5, 187, 75, 25
button #main.stop,"Stop",[stop], UL, 90, 187, 70, 25
statictext #main,"Backup status log", 5, 217, 106, 20
texteditor #main.statusLog, 5, 237, 530, 160
menu #main,"Edit"
open"Backup Utility"for window_nf as #main
#main.stop"!disable"
gosub [loadSetup]
wait

[loadSetup]
#main.listOfFiles"!cls";
if fileExists(setupPath$) then
open setupPath$ for input as #setup
while filename$<>"end!"
line input #setup, filename$
if filename$<>"end!"then
#main.listOfFiles filename$
end if
wend
line input #setup, destination$
#main.destination destination$
line input #setup, interval
#main.interval interval
close #setup
end if
return

[start]'startup the backup timer
#main.start"!disable"
#main.stop"!enable"
#main.interval"!contents? interval"
gosub [checkInitialFiles]
#main.statusLog"Starting backup"
timer interval * 1000, [checkFiles]
wait

[stop]'stop the backup timer
timer 0
#main.start"!enable"
#main.stop"!disable"
#main.statusLog"Stopping backup"
wait

[checkInitialFiles]'snapshot of filenames and timestamps
return

[checkFiles]'are there new files
#main.statusLog"tick"
'temporarily disable the timer
timer 0
'perform the check here
'reenable the timer
timer interval * 1000, [checkFiles]
wait

'return a true if the file in fullPath$ exists, else return false
function fileExists(fullPath$)
files pathOnly$(fullPath$), filenameOnly$(fullPath$), info$()
fileExists = val(info$(0, 0))> 0
end function

'return just the directory path from a full file path
function pathOnly$(fullPath$)
pathOnly$ = fullPath$
while right$(pathOnly$, 1)<>"\"and pathOnly$<>""
pathOnly$ = left$(pathOnly$, len(pathOnly$)-1)
wend
end function

'return just the filename from a full file path
function filenameOnly$(fullPath$)
pathLength = len(pathOnly$(fullPath$))
filenameOnly$ = right$(fullPath$, len(fullPath$)-pathLength)
end function


http://basicprogramming.blogspot.com/2011/03/automatic-file-backup-...

Automatic file backup - loading setup


Now that we've got a simple GUI designed, let's write some code which will load the files we want to backup, the destination path, and the interval of our automatic backup.

We need a subroutine to load the setup which we will call using GOSUB. We can call this right after we open the window.

open"Backup Utility"for window_nf as #main
gosub [loadSetup]
wait


We want to know if the setup file exists. There is an example program called fileExists.bas that comes with the functions we need to check for file existence. We'll just grab those. Here they are:

'return a true if the file in fullPath$ exists, else return false
function fileExists(fullPath$)
files pathOnly$(fullPath$), filenameOnly$(fullPath$), info$()
fileExists = val(info$(0, 0))>
end function

'return just the directory path from a full file path
function pathOnly$(fullPath$)
pathOnly$ = fullPath$
while right$(pathOnly$, 1)<>"\"and pathOnly$<>""
pathOnly$ = left$(pathOnly$, len(pathOnly$)-1)
wend
end function

'return just the filename from a full file path
function filenameOnly$(fullPath$)
pathLength = len(pathOnly$(fullPath$))
filenameOnly$ = right$(fullPath$, len(fullPath$)-pathLength)
end function


We will call the fileExists( ) function from our [loadSetup] subroutine. A really simple example of the data in our setup file would have a list of file paths, and end! marker for the end of that list of files, a single line with the desired destination path, and another line with the interval in seconds between backup attempts.

Example backupSetup.ini
c:\myfolder\test.txt
c:\myfolder\backMeUp.dat
c:\myfolder\SillyPutty.exe
end!
c:\backupFolder\files
5


Once we know the file exists we can open it up and read it, placing the information into the different fields in our GUI.

[loadSetup]
#main.listOfFiles"!cls";
if fileExists(setupPath$) then
open setupPath$ for input as #setup
while filename$<>"end!"
line input #setup, filename$
if filename$<>""then
#main.listOfFiles filename$
end if
wend
line input #setup, destination$
#main.destination destination$
line input #setup, interval
#main.interval interval
close #setup
end if
return


Here is the complete listing so far:

dim info$(10,10)
setupPath$ = DefaultDir$+"\backupsetup.ini"

WindowWidth = 560
WindowHeight = 460
statictext #main,"Files to backup:", 5, 5, 94, 20
texteditor #main.listOfFiles, 5, 26, 530, 95
statictext #main,"Destination folder:", 5, 132, 107, 20
textbox #main.destination, 115, 127, 420, 25
statictext #main,"Backup interval in seconds:", 5, 157, 163, 20
textbox #main.interval, 170, 152, 100, 25
button #main.save,"Save",[save], UL, 495, 152, 42, 25
button #main.start,"Start",[start], UL, 5, 187, 75, 25
button #main.stop,"Stop",[stop], UL, 90, 187, 70, 25
statictext #main,"Backup status log", 5, 217, 106, 20
texteditor #main.statusLog, 5, 237, 530, 160
menu #main,"Edit"
open"Backup Utility"for window_nf as #main
gosub [loadSetup]
wait

[loadSetup]
#main.listOfFiles"!cls";
if fileExists(setupPath$) then
open setupPath$ for input as #setup
while filename$<>""
line input #setup, filename$
if filename$<>"end!"then
#main.listOfFiles filename$
end if
wend
line input #setup, destination$
#main.destination destination$
line input #setup, interval
#main.interval interval
close #setup
end if
return

'return a true if the file in fullPath$ exists, else return false
function fileExists(fullPath$)
files pathOnly$(fullPath$), filenameOnly$(fullPath$), info$()
fileExists = val(info$(0, 0))>
end function

'return just the directory path from a full file path
function pathOnly$(fullPath$)
pathOnly$ = fullPath$
while right$(pathOnly$, 1)<>"\"and pathOnly$<>""
pathOnly$ = left$(pathOnly$, len(pathOnly$)-1)
wend
end function

'return just the filename from a full file path
function filenameOnly$(fullPath$)
pathLength = len(pathOnly$(fullPath$))
filenameOnly$ = right$(fullPath$, len(fullPath$)-pathLength)
end function


http://basicprogramming.blogspot.com/2011/03/automatic-file-backup-...

Automatic file backup UI design


Here's what I'm thinking. The back utility GUI will be a simple window with a text area that contains a list of file paths. There will be start and stop buttons, an interval for a timer in seconds, and a field with a destination path.

When the timer is started the backup utility will examine each file that is specified in the text area and collect modification date and time. Later when the timer ticks we will check them again to see if any of them has changed. If even one of the files is different we will back them up as a set.

To perform the backup the program will take the destination path and use it to create a unique folder by adding a number to it. Then it will copy all the files into newly created folder.

There will also be a status area in the window where the user will be kept informed about backup activities.

The configuration for the backup utility will be stored in a file. When the program is started it will be loaded and displayed in the GUI, and there will be a save button to save the configuration back to the configuration file.

More than likely this design will evolve as we actually build the program code.

Here is the beginning of our program, just the GUI code to start.

WindowWidth = 560
WindowHeight = 460
statictext #main,"Files to backup:", 5, 5, 94, 20
texteditor #main.listOfFiles, 5, 26, 530, 95
statictext #main,"Destination folder:", 5, 132, 107, 20
textbox #main.destination, 115, 127, 420, 25
statictext #main,"Backup interval in seconds:", 5, 157, 163, 20
textbox #main.interval, 170, 152, 100, 25
button #main.save,"Save",[save], UL, 495, 152, 42, 25
button #main.start,"Start",[start], UL, 5, 187, 75, 25
button #main.stop,"Stop",[stop], UL, 90, 187, 70, 25
statictext #main,"Backup status log", 5, 217, 106, 20
texteditor #main.statusLog, 5, 237, 530, 160
menu #main,"Edit"
open"Backup Utility"for window as #main
wait


http://basicprogramming.blogspot.com/2011/03/automatic-file-backup-...

Automatic file backup


I'm inspired by a real world need I have to create utility in Liberty BASIC which will do the following:

1) Periodically examine a list of files in a folder to see if they have changed
2) Make a new folder with a unique name somewhere else to contain the updated files
3) Copy the changed files to the new folder

We can keep a list of paths and files in a file, create a simple gui for maintaining this list and starting and stopping the timer, and for displaying a log of activity.

In our next installment we will write the GUI code.

http://basicprogramming.blogspot.com/2011/02/automatic-file-backup....

Projects


I've decided to start some small projects which show how to do various things in Liberty BASIC. This will be a good way to demonstrate how easy programming in BASIC can be, and it will help people to learn specific programming techniques.

http://basicprogramming.blogspot.com/2011/02/projects.html

Words of wisdom


I've always been a big fan of the Forth programming language. It is nothing like BASIC, but here is a page from forth.com with some words of wisdom from Chuck Moore that I figure are just good food for thought no matter what language you prefer.

http://www.forth.com/resources/evolution/evolve_1.html



http://basicprogramming.blogspot.com/2009/12/words-of-wisdom.html


Topsites network is not affiliated in any way with the authors of this feed, and the copyrights of these feeds are owned by their respective authors
[ About TopSites | Link to us | Submit Site | Latest Additions | Random Site | Privacy Policy | Contact us ]
Sponsored by Homes for sale Toronto, Calgary Dentist, Toronto Dentist , Dentist in Toronto, Project Management , Developed by HumanWorks © 2005 - 2016 TopSites