home *** CD-ROM | disk | FTP | other *** search
- Form1
- Alex's Rocket Programmer
- Form1%
- SlopeBox
- Frame1
- Colors
- White
- White
- Black
- Black
- Green
- Green
- Option5
- Option4
- Option3
- Option2
- ProgramBox
- Picture1
- Option1
- TestBox
- Run_Program
- Run Program
- Diag_DnL
- Diag Dn-L
- Diag_DnR
- Diag Dn-R
- Down_50
- &Down
- Up_50
- Clear
- $ ColorFill
- Color Fill
- Scribble
- Scribble
- Diag_UpL
- Diag Up-L
- Diag_UpR
- Diag Up-R
- Backward_50
- &Backward
- Forward_50
- &Forward
- Draw_A_Star
- Draw a &Star
- Label2
- Slope
- Label3
- Single Line Entry
- Label1
- Distance
- i FilePrint
- OpenCmdFile
- Open Command File
- SaveCmdFile
- Save Command File
- DisplayHelp
- Help (F1)
- HelpQuickTour
- Quick Tour
- HelpCommands
- Commands
- HelpRegistration
- Registration
- p HelpAbout
- About
- ColorZ
- TextBoxLine
- CommandLine
- CommandWord
- aarray
- jarray,
- karray
- marray"
- narray
- DrawNow
- ScribbleOn
- LineNumberq
- CharPosU
- GetFocus
- SendMessage
- hWndz
- wMsgz
- wParamm
- lParam
- Command2_Click
- Form1
- Draw_A_Star_Click
- Slope
- SlopeBox;
- Distancea
- Picture1
- WriteToProgramBox
- Forward_50_Click
- Forward
- @ Clr_Click
- DefaultX
- DefaultYL
- Up_50_ClickR
- Down_50_ClickI
- FirstArg
- SecondArg
- @ Form_Loade
- LineColor
- BLUEA
- Valuee
- ForeColorW
- drawwidth
- Old_X
- Old_Y
- Option5i
- FALSE
- Option1_Click
- Option2_Click'
- Option3_Click8
- Option4_Click
- Option5_Clicks
- Blue_Click,
- Green_Click
- @ Red_Click
- Black_Click=
- White_ClickV
- SelColor
- ColorFill_Click*
- BackColor
- GREENJ
- Black
- White
- Diag_UpR_Click
- DiagUpRight
- Diag_UpL_Click2
- DiagUpLeftB
- Diag_DnL_ClickT
- DiagDownLeft
- Diag_DnR_Click{
- DiagDownRight
- Picture1_MouseDown
- Button,
- Shift
- MouseX
- MouseY2
- Finish
- ProgramBox
- Scribble_Click
- Scribble
- Caption
- Picture1_MouseUp
- Picture1_MouseMoveo
- Run_Program_Click{
- GetLineCount
- GetLine
- RunCommands
- GetSel
- EM_GETSEL
- location
- endingn
- starting
- EM_GETLINECOUNT
- MAX_CHAR_PER_LINE8
- EM_GETLINE
- Buffer0
- LineFromChar
- EM_LINEFROMCHAR
- MaxNum}
- BackwardS
- MinNum
- Backward_50_Click
- EndOfFrameReachedS
- New_Y
- New_X
- PrintPicture_Click-
- TestBox_KeyPress
- KeyAscii
- TestBox
- ParseCommandLine
- EndProc!
- Action: @
- SlopeBox_Change
- MAXIMIZED
- WindowState
- FileOpener
- NametoUse
- RecordLen
- FileOpen
- FileNumF
- openerrroru
- OpenErrorb
- REPLACEFILE
- READFILEk
- ADDTOFILE_
- RANDOMFILE
- BINARYFILE
- FileError
- ErrorCode
- msgTypex
- MB_EXCLAIM7
- Err_DeviceUnavailable"
- Err_DiskNotReadyJ
- Err_InternalDiskError
- Err_DeviceIO
- Err_DiskFull
- Err_BadFilenamem
- Err_BadFileNameOrNumber
- Err_PathDoesNotExist
- Err_BadFileMode
- Err_FileAlreadyOpen
- Err_InputPastEndOfFile~
- Response
- RecordLength
- OpenCmdFile_Click
- SaveCmdFile_Click
- WriteError
- FileErrors
- SaveFileProc
- OpenCloseRoutine6
- OpenCloseDemoS
- TestStringF
- Fname
- REEADFILE
- DisplayHelp_Click
- HelpRegistration_Click
- OutputString
- Quit_Click
- Pictureb
- Image
- Form2
- Picture1End
- Form_Unload
- Cancel
- Screen
- MousePointer
- ReadError
- WriteErrors
- creen
- WRITEFILE
- InputName
- HelpCommands_Click
- HelpTopic
- StartSearch
- HelpQuickTour_Click
- HelpAbout_Click
- Draw_A_Star
- DrawStar
- arrays used for testing parsing procedure
- user;
- Backward
- ** Move to left **
- Backward_50_Click
- Black_Click
- Black
- Blue_Click
- Clr_Click
- ColorFill_Click
- Command2_Click
- Diag_DnL_Click
- Diag_DnR_Click
- Diag_UpL_Click
- Diag_UpR_Click
- DiagDownLeft
- ** upper left to lower right (-x,+y) **=
- ** 2X slope - 1.0 / .5 **
- stop loop if end of picture frame is reached
- min X (far left of frame)r
- max Y (bot of frame)
- Can't reset value of I until positions of x and y are
- checked, otherwise setting I in first if statementa
- may cause second if statement to execute also
- reset both points to full distance only if edges of frame not reached
- DiagDownRight
- ** upper left to lower right (+x,+y) **i
- ** 2X slope - 1.0 / .5 **
- stop loop if end of picture frame is reached
- min X (far right of frame)
- max Y (bot of frame)
- Can't reset value of I until positions of x and y are
- checked, otherwise setting I in first if statementa
- may cause second if statement to execute also
- reset both points to full distance only if edges of frame not reached
- DiagUpLeft
- ** lower left to upper middle (+x,-y) **
- ** 2X slope - 1.0 / .5 **
- stop loop if end of picture frame is reached
- min X (far left of frame)r
- min Y (top of frame)
- Can't reset value of I until positions of x and y are
- checked, otherwise setting I in first if statementa
- may cause second if statement to execute also
- reset both points to full distance only if edges of frame not reached
- DiagUpRight
- add slope to form and here slope 2 = 1/slope = .5
- ** lower left to upper middle (+x,-y) **
- ** 2X slope - 1.0 / .5 **
- stop loop if end of picture frame is reached
- max X (far right of frame)
- min Y (top of frame)
- Can't reset value of I until both expressions are
- checked, otherwise setting I in first if statement
- would cause second if statement to execute also
- reset both points to full distance only if edges of frame not reached
- ** Move down **
- Down_50_Click
- Draw_A_Star_Click
- DrawStar
- ** lower left to upper middle (+x,-y) 120,180 to 140,120 ***
- ** 3X slope - 1.5 / .5 **
- ** upper middle to lower right (+x,+y) 140,120 to 160,180 **
- ** lower right to upper left(-x,-y) 160,180 to 120,140 **
- ** straight across left to right(+x,=y) 120,140 to 160,140 **
- ** upper left to lower right(-x,+y) 160,140 to 120,180 **
- Form_Load
- Defines new line character
- Form_Unload
- Forward
- ** Move to right **
- Forward_50_Click
- GetLine
- * This function returns a line of text specified by LineNumber
- * from the edit control. The first line starts at zero.e
- GetLineCount
- GetSel
- * This function returns the starting/ending position of the
- * current selected text. This is the current location of the
- * cursor if start is equal to ending.
- * LOWORD-start position of selected text
- * HIWORD-first no selected textc
- aGetSel.Caption = "Caret Location = " + Str$(starting%)
- Green_Click
- Green
- HelpAbout_Click
- Introduction
- HelpCommands_Click
- Command
- HelpQuickTour_Click
- Quick Tour
- HelpRegistration_Click
- Registration
- LineFromChar
- * This function will return the line number of the line that
- * contains the character whose location(index) specified in the
- * third argument of SendMessage. If the third argument is -1,
- * then the number of the line that contains the first character
- * of the selected text is returned. Line numbers start at zero.
- aLineFromChar.Caption = "Current Line = " + Str$(Pos%)t
- OpenCloseRoutine
- Open Statement Example
- Enter File Name:
- File Name
- Determine next file number.
- change to hourglass
- Write string to file.
- Close all files.
- File was successful saved -
- Error Writing File
- Save File
- Error Reading File
- File Open
- OpenCmdFile_Click
- Option1_Click
- Option2_Click
- Option3_Click
- Option4_Click
- Option5_Click
- ParseCommandLine
- current position
- start of next word
- position of last comma
- current word in array
- Mid$ syntax (string, from pos, for length)a
- only parse if current position is a comma and lasth
- position was not a spaces
- write last command word when end of string is reached
- k = position of last commat
- Picture1_MouseDown
- Picture1_MouseMove
- Ideas - Change Mouse pointer to a paintbrush when scribbleon
- and positioned within picture box
- Limit drawing to within picture box - see ClipCursorb
- API call in "Visual Basics #17"
- X = MouseX
- Y = MouseY
- Picture1_MouseUp
- Quit_Click
- Red_Click
- Run_Program_Click
- The following code performs the following functions:o
- 1 - determines the number of lines in the program box
- 2 - Loops through the code and enters a Caseo
- statement which sets the proper parameterss
- (color and distance) and executes the proper
- Control
- This would provide input into the loop which would process
- "commands" in the text box. It returns the number of lines
- in the text2 box.
- GetSel determines the starting and ending
- position of the selected text
- CharPos& = GetSel()e
- LineFromChar uses the character postion returned by GetSel
- to return the line number in the text2 boxu
- LineNumber& = LineFromChar(CharPos&)
- GetLine returns the text on the line number specified byl
- the LineNumber variable.
- RunCommands
- Parses Commands, right and left trims and converts to upper case
- BLACK
- GREEN
- WHITE
- Distance cannot be greater than 99. Please re-enter
- SaveCmdFile_Click
- Scribble_Click
- Scribble Off
- Scribble On
- SelColor
- Green
- Black
- White
- SlopeBox_Change
- Slope cannot be greater than 99. Please re-enter
- TestBox_KeyPress
- Execute Commands in test box when enter is pressedf
- A space must be added to end of command line to prevent
- parsing problemsa
- Save text box commands to program box
- ** Move Up**
- Up_50_Click
- White_Click
- White
- WriteToProgramBox
-