Programming Tool Box

home *** CD-ROM | disk | FTP | other *** search

/ Programming Tool Box / SIMS_2.iso / vb_code1 / alexrk / alex.frm (.txt) < prev next >

Wrap

Visual Basic Form | 1980-01-04 | 23KB | 427 lines

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