Dear All,
I hav ea problem with my program, I have done a programming code to
execute the Round Robin Algorithm and it's working but I have to
implement a differrent algorithm anything other than the FCFS, I donot
have enough time to do it. So I need some one to look at this code and
recode it for another Scheduling Algorithm. I am attachnig the files
here.

Norton.txt - Input file
Prject 1 - RR Algorithm
Project 2 - RR algorithm with some other approach.
___________________________________________________________
Norton.txt
1,265,55,330,5000,38
2,235,20,110,7000,218
3,440,45,210,8000,24
4,195,45,210,2000,141
5,475,40,160,1000,12
6,290,25,275,3000,144
7,90,25,180,10000,103
8,455,15,335,9000,146
9,180,15,215,1000,216
10,485,15,225,1000,25
11,135,25,480,10000,45
12,165,30,505,10000,134
13,265,10,305,7000,67
14,155,35,85,8000,251
15,360,45,540,3000,225
16,95,35,540,1000,88
17,410,55,90,6000,209
18,360,10,545,2000,24
19,145,45,400,1000,83
20,20,40,350,9000,188
21,80,30,315,3000,141
22,375,55,535,5000,241
23,190,25,350,6000,96
24,160,50,165,9000,151
25,410,20,295,8000,60
26,50,20,130,7000,122
27,355,35,345,3000,62
28,440,55,335,2000,46
29,470,50,540,7000,22
30,365,25,95,1000,222
31,215,45,95,3000,121
32,270,40,440,2000,162
33,405,45,75,8000,109
34,505,45,485,10000,120
35,20,10,55,3000,218
36,125,10,515,1000,241
________________________________________________________

RoundRobin 1

'***********************************************************************
******
'* Name: Tim R. Norton
'*
'* Class: CTU CS630 -- Modern Operating Systems
'* Section: CS-CS630-CSHA1WI06
'* Term: Winter1 2006
'*
'*
'* Title: O/S Scheduler Sample Round Robin
'*
'*
'* Script ID: PSampleRR
'*
'* Script name: ProjectSampleRR.vbs
'*
'* Version: 1.0
'*
'* Purpose: Provide students an example that simulates how an operating
system would schedule
'*    two processes round-robin with serialized I/O (next process can't
run until I/O done).
'*
'* Description:
'*    Implement an operation system scheduler to explore how an O/S
keeps track of
'*    processes.  Processes are 'executed' by calling the function
RunProcess() which
'*    prints out information about that turn on the processor.
'*   
'*    This version executes the processes round-robin until each is done
and ends when all
'*    processes are done. The simulator is initialized with information
about each
'*    process, including how much CPU time each needs. The RunProcess()
function uses some of
'*    that time and the process is terminated when the time goes
negative. The process ID
'*    is set to zero when the process is removed from the system.
'*   
'*    The RunProcess() function uses the rnd() function to determine how
much time is used.
'*    After each execution some amount of time is added to the clock to
simulate I/O time.
'*   
'*   
'* Processing steps:
'*    Initialize process information.
'*    Read process data.
'*    Loop through processes until all done
'*        Run each active process
'*        Add the I/O time to the clock
'*    Print final clock.
'*   
'*
'* History:
'*    Version: 1.0 01/07/2006 Tim R. Norton (TRN) - Original version
'*
'***********************************************************************
******
'** Make sure to run the command "cscript //H:CScript" once first to set
the default to
'** console mode rather than window mode.

'**************
'* Constants
'*
Const ScriptID = "PSampleRR"
Const ScriptName = "ProjectSampleRR"
Const Version = "(1.0)"
Const ForReading = 1
Const FileName = "Norton_T.txt"

'* Log messages (start and end with a blank when spacing between
variables required)
Const MsgS  = " Script Started "
Const MsgE  = " Script Ended "
Const MsgP  = " Processing Completed: Final clock="
Const MsgD1  = "This is a sample operating system dispatcher script!"
Const MsgD2  = "The processes are run round-robin with serial I/O."
Const MsgD3  = "The inital processes are:"

'**************
'*
'* Data structures to keep track of processes.
'*
Const MaxProcesses = 25
MaxProcessesDim = MaxProcesses - 1 'VBScript won't allow a Const to have
an expression
'*
'* The Dim & ReDim gets around te VBScript limitation about using
constants in the Dim statment.
Dim PID()    'Process ID
Dim CT()    'Compute time for this pprocess
Dim Q()        'Quntum size for this process
Dim IO()    'I/O time for each quantum this process
Dim IOT()    'I/O time for current run of this process
Dim Mem()    'Memory required by this process
Dim Pri()    'Priority of this process
ReDim PID(MaxProcessesDim)
ReDim CT(MaxProcessesDim)   
ReDim Q(MaxProcessesDim)   
ReDim IO(MaxProcessesDim)   
ReDim IOT(MaxProcessesDim)   
ReDim Mem(MaxProcessesDim)   
ReDim Pri(MaxProcessesDim)   
'Initialize the data structure to so all empty processes.
For i = 0 to MaxProcessesDim
   PID(i) = 0
   CT(i)  = 0
   Q(i)   = 0
   IO(i)  = 0
   Mem(i) = 0
   Pri(i) = 0
   Next


'**************
'* Get Named parameters -- no defaults are used -- abort if required
parm missing
'*
Set NamedArguments = WScript.Arguments.Named
FilesPath = NamedArguments.Item("FilesPath")
DebugParm = NamedArguments.Item("Debug")
If DebugParm = "y" Or DebugParm = "Y" then DebugFlag = True Else
DebugFlag = False
If DebugFlag then
    Wscript.Echo ScriptID & ": Parm Field: FilesPath=" & FilesPath
    End If
If Len(FilesPath) < 1 Then
    Call SyntaxError
    End If


'**************
'* Write out opening message
'*   
wscript.echo ScriptID & Version & ": " & ScriptName & MsgS
wscript.echo
wscript.echo MsgD1 
wscript.echo MsgD2 
wscript.echo

'* Initialize control structures
'*   
Clock = 0

'* Initialize the random number generator
'*   
Randomize



'**************
'* Open the process input file.
'*
'* Create the file opject needed to open the input file
Err.Clear
FileOperError = False
Set FSO = CreateObject("Scripting.FileSystemObject")
If Err.Number <> 0 Then
   Wscript.Echo ScriptID & "Set FSO ", Err.Number, Err.Description
   End If
Err.Clear
'*
'* Fix the path if it doesn't end in a backslash.
If Right(FilesPath, 1) <> "\" Then FilesPath = FilesPath & "\"
'*
'* Open the full file name.
FullFileName = FilesPath & FileName
Wscript.Echo ScriptID & ": Process data from FullFileName=" &
FullFileName
Err.Clear
Set TextFile = FSO.OpenTextFile(FullFileName, ForReading)
If Err.Number <> 0 Then
   Wscript.Echo ScriptID & MsgFO & FileName, Err.Number, Err.Description
   End If


'**************
'* Get initial processes
'*   
wscript.echo MsgD3
MoreProcessesAvailable = True
ProcessesInSystem = 0

Do while ProcessesInSystem < MaxProcesses And MoreProcessesAvailable
   Call ReadProcessData(ProcessesInSystem)
   ProcessesInSystem = ProcessesInSystem + 1
   Loop


'* Run each process
'*   
wscript.echo
wscript.echo "Run processes round-robin doing serial I/O."
wscript.echo

Do While ProcessesInSystem > 0
    For CurrentProcess = 0 to MaxProcessesDim 
        'Is process still active?
    If CT(CurrentProcess) > 0 Then
        'Get an I/O time for this run
        IOT(CurrentProcess) = (IO(CurrentProcess) * rnd)
        'Call RunProcess to get the time for this run of the process
        TimeRan = RunProcess(PID(CurrentProcess), CT(CurrentProcess),
Q(CurrentProcess), IOT(CurrentProcess) )
        'Reduce the remaining Comput Time by how long it ran
        CT(CurrentProcess) = CT(CurrentProcess) - TimeRan
        'Increase the system clock by the run time
        clock = clock + TimeRan
        'Increase the system clock by the I/O time
        clock = clock + IOT(CurrentProcess)
        End If

    'If no longer active mark it as done and try too get another process.
    If CT(CurrentProcess) <= 0 And PID(CurrentProcess) > 0 Then
        wscript.echo "End Process: PID=" & PID(CurrentProcess) & " done"
        PID(CurrentProcess) = 0
        IOT(CurrentProcess) = 0
        '* Get another process is one is available
        If MoreProcessesAvailable Then
            Call ReadProcessData(CurrentProcess)
        Else
            ProcessesInSystem = ProcessesInSystem - 1
            End If 'MoreProcessesAvailable 
        End If 'Process active test
        Next 'CurrentProcess
    clock = clock + 50 'operating system time
    wscript.echo "End of RR cycle - Current clock is " &
FormatNumber(Clock,3)
    wscript.echo "------- "
Loop 'While ProcessesInSystem > 0

'* Finish
'*   
TextFile.Close
wscript.echo ScriptID & Version & ": " & ScriptName & MsgP &
FormatNumber(Clock,3)
wscript.echo
wscript.echo ScriptID & Version & ": " & ScriptName & MsgE


'*******************
'*
'* RunProcess function
'*
'* This function simulates runnng a process by printing out information
about
'* each dispatch of the process.
'*
Function RunProcess(PID, CompTime, Quantum, IOtime)
'*
'* Get the CPU time used this run
Qtime = Quantum * rnd

'* Calculate the compute time left for the process
ECompTime = CompTime - Qtime

'* Print the information
wscript.echo "Run Process: PID=" & PID & " ran for " &
FormatNumber(Qtime,3) & " ­­ StartCompTime=" &
FormatNumber(CompTime,3) & " End CompTime=" & FormatNumber(ECompTime,3)
& " Quantum=" & FormatNumber(Quantum,0)  & " IOtime=" &
FormatNumber(IOtime,0)

'* Return the CPU time used ths run
RunProcess = Qtime
End Function



'*******************
'*
'* ReadProcessData Subroutine
'*
'* This subroutine read the input file and adds the processes to the
system.
Sub ReadProcessData(ProcessSlot)

'**************
'* Get a process from the input file.
If TextFile.AtEndOfStream <> True Then

    '* Read a record and put the fields into an array (assumes a csv
format file)
    Fields = split(TextFile.Readline, ",")
    FieldsUB = UBound(Fields)
    If DebugFlag then Wscript.Echo ScriptID & ": Fields found=" &
FieldsUB + 1
    Err.Clear

    '* Make sure there was at least one field in the record (non-data
records may have few or no fields)
    If FieldsUB >= 0 Then
        If DebugFlag then Wscript.Echo ScriptID & MsgR1, RecNum,
FileName, ":" & Fields(0) & ":"
        Err.Clear

        '* Put the record into the slot in the data structure for that
process.
        PID(ProcessSlot)  = Fields(0)
        CT(ProcessSlot)   = Fields(1)
        Q(ProcessSlot)    = Fields(2)
        IO(ProcessSlot)   = Fields(3)
        Mem(ProcessSlot)  = Fields(4)
        Pri(ProcessSlot)  = Fields(5)
        Wscript.Echo "New Process: PID=" & PID(ProcessSlot), "  CT=",
CT(ProcessSlot), "  Q=", Q(ProcessSlot), "  IO=", IO(ProcessSlot), "
Mem=", Mem(ProcessSlot), "  Pri=", Pri(ProcessSlot)

        End If 'FieldsUB >= 0

    End If 'TextFile.AtEndOfStream <> True

If TextFile.AtEndOfStream = True Then MoreProcessesAvailable = False

End Sub 'ReadProcessData


'*******************
'*
'* Subroutine to print out correct syntax and abort script.
'*
Sub SyntaxError
    Wscript.Echo ScriptID & " Syntax Error -- script aborted!"
    Wscript.Echo ScriptID & " "
    Wscript.Echo ScriptID & " Correct Syntax is: " & ScriptID & ".vbs
<named-parameters>"
    Wscript.Echo ScriptID & " "
    Wscript.Echo ScriptID & "   The REQUIRED named parameters are:"
    Wscript.Echo ScriptID & "     /FilesPath:<vlaid-path> is the full
path of the directory "
    Wscript.Echo ScriptID & "             the directory containing the
input files"
    Wscript.Echo ScriptID & "             Value: " & FilesPath
    Wscript.Echo ScriptID & "   The default input file is: " & FileName
    Wscript.Echo ScriptID & " "
    Wscript.Echo ScriptID & "   The OPTIONAL named parameters are:"
    Wscript.Echo ScriptID & "     /Debug:<y|n> is the debug switch
(either 'y' or 'n') to"
    Wscript.Echo ScriptID & "             print additional debuging
messages"  
    Wscript.Echo ScriptID & "             Value: " & DebugParm 
    Wscript.Echo ScriptID & " "
    Wscript.Echo ScriptID & " Script aborted!"
    WScript.Quit(ErrLvlSyntaxError) 'Sets ERRORLEVEL to 99 for syntax
error
End Sub
_________________________________________________________
RoundRobin 2

'***********************************************************************
******
'* Name: Tim R. Norton
'*
'* Class: CTU CS630 -- Modern Operating Systems
'* Section: CS-CS630-CSHA1WI06
'* Term: Winter1 2006
'*
'*
'* Title: O/S Scheduler Sample Round Robin
'*
'*
'* Script ID: PSampleRR2
'*
'* Script name: ProjectSampleRR2.vbs
'*
'* Version: 1.0
'*
'* Purpose: Provide students an example that simulates how an operating
system would schedule
'*    two processes round-robin with overlapping I/O (the process can't
run again until I/O done).
'*
'* Description:
'*    Implement an operation system scheduler to explore how an O/S
keeps track of
'*    processes.  Processes are 'executed' by calling the function
RunProcess() which
'*    prints out information about that turn on the processor.
'*   
'*    This version executes the processes round-robin until each is done
and ends when all
'*    processes are done. The simulator is initialized with information
about each
'*    process, including how much CPU time each needs. The RunProcess()
function uses some of
'*    that time and the process is terminated when the time goes
negative. The process ID
'*    is set to zero when the process is removed from the system.
'*   
'*    The RunProcess() function uses the rnd() function to determine how
much time is used.
'*    After each execution some amount of time is added to the clock to
simulate I/O time.
'*   
'*   
'* Processing steps:
'*    Initialize process information.
'*    Read process data.
'*    Loop through processes until all done
'*        Run each active process
'*        Add the I/O time to the clock
'*    Print final clock.
'*   
'*
'* History:
'*    Version: 1.0 01/07/2006 Tim R. Norton (TRN) - Original version
'*
'***********************************************************************
******
'** Make sure to run the command "cscript //H:CScript" once first to set
the default to
'** console mode rather than window mode.

'**************
'* Constants
'*
Const ScriptID = "PSampleRR2"
Const ScriptName = "ProjectSampleRR2"
Const Version = "(1.0)"
Const ForReading = 1
Const FileName = "Norton_T.txt"

'* Log messages (start and end with a blank when spacing between
variables required)
Const MsgS  = " Script Started "
Const MsgE  = " Script Ended "
Const MsgP  = " Processing Completed: Final clock="
Const MsgD1  = "This is a sample operating system dispatcher script!"
Const MsgD2  = "The processes are run round-robin with overlapping I/O."
Const MsgD3  = "The inital processes are:"

'**************
'*
'* Data structures to keep track of processes.
'*
Const MaxProcesses = 25
MaxProcessesDim = MaxProcesses - 1 'VBScript won't allow a Const to have
an expression
'*
'* The Dim & ReDim gets around te VBScript limitation about using
constants in the Dim statment.
Dim PID()    'Process ID
Dim CT()    'Compute time for this pprocess
Dim Q()        'Quntum size for this process
Dim IO()    'I/O time for each quantum this process
Dim IOT()    'clock time this process can run again
Dim Mem()    'Memory required by this process
Dim Pri()    'Priority of this process
ReDim PID(MaxProcessesDim)
ReDim CT(MaxProcessesDim)   
ReDim Q(MaxProcessesDim)   
ReDim IO(MaxProcessesDim)   
ReDim IOT(MaxProcessesDim)   
ReDim Mem(MaxProcessesDim)   
ReDim Pri(MaxProcessesDim)   
'Initialize the data structure to so all empty processes.
For i = 0 to MaxProcessesDim
   PID(i) = 0
   CT(i)  = 0
   Q(i)   = 0
   IO(i)  = 0
   IOT(i) = 0
   Mem(i) = 0
   Pri(i) = 0
   Next


'**************
'* Get Named parameters -- no defaults are used -- abort if required
parm missing
'*
Set NamedArguments = WScript.Arguments.Named
FilesPath = NamedArguments.Item("FilesPath")
DebugParm = NamedArguments.Item("Debug")
If DebugParm = "y" Or DebugParm = "Y" then DebugFlag = True Else
DebugFlag = False
If DebugFlag then
    Wscript.Echo ScriptID & ": Parm Field: FilesPath=" & FilesPath
    End If
If Len(FilesPath) < 1 Then
    Call SyntaxError
    End If


'**************
'* Write out opening message
'*   
wscript.echo ScriptID & Version & ": " & ScriptName & MsgS
wscript.echo
wscript.echo MsgD1 
wscript.echo MsgD2 
wscript.echo

'* Initialize control structures
'*   
Clock = 0

'* Initialize the random number generator
'*   
Randomize



'**************
'* Open the process input file.
'*
'* Create the file opject needed to open the input file
Err.Clear
FileOperError = False
Set FSO = CreateObject("Scripting.FileSystemObject")
If Err.Number <> 0 Then
   Wscript.Echo ScriptID & "Set FSO ", Err.Number, Err.Description
   End If
Err.Clear
'*
'* Fix the path if it doesn't end in a backslash.
If Right(FilesPath, 1) <> "\" Then FilesPath = FilesPath & "\"
'*
'* Open the full file name.
FullFileName = FilesPath & FileName
Wscript.Echo ScriptID & ": Process data from FullFileName=" &
FullFileName
Err.Clear
Set TextFile = FSO.OpenTextFile(FullFileName, ForReading)
If Err.Number <> 0 Then
   Wscript.Echo ScriptID & MsgFO & FileName, Err.Number, Err.Description
   End If


'**************
'* Get initial processes
'*   
wscript.echo MsgD3
MoreProcessesAvailable = True
ProcessesInSystem = 0

Do while ProcessesInSystem < MaxProcesses And MoreProcessesAvailable
   Call ReadProcessData(ProcessesInSystem)
   ProcessesInSystem = ProcessesInSystem + 1
   Loop


'* Run each process
'*   
wscript.echo
wscript.echo "Run processes round-robin doing serial I/O."
wscript.echo

Do While ProcessesInSystem > 0
    For CurrentProcess = 0 to MaxProcessesDim 
        'Is process still active?
    If CT(CurrentProcess) > 0 And IOT(CurrentProcess) <= clock Then
        'Get an I/O time for this run
        IOT(CurrentProcess) = (IO(CurrentProcess) * rnd) + clock
        'Call RunProcess to get the time for this run of the process
        TimeRan = RunProcess(PID(CurrentProcess), CT(CurrentProcess),
Q(CurrentProcess), IOT(CurrentProcess) )
        'Reduce the remaining Comput Time by how long it ran
        CT(CurrentProcess) = CT(CurrentProcess) - TimeRan
        'Increase the system clock by the run time
        clock = clock + TimeRan
        End If

    'If no longer active mark it as done and try too get another process.
    If CT(CurrentProcess) <= 0 And PID(CurrentProcess) > 0 Then
        wscript.echo "End Process: PID=" & PID(CurrentProcess) & " done"
        PID(CurrentProcess) = 0
        IOT(CurrentProcess) = 0
        '* Get another process is one is available
        If MoreProcessesAvailable Then
            Call ReadProcessData(CurrentProcess)
        Else
            ProcessesInSystem = ProcessesInSystem - 1
            End If 'MoreProcessesAvailable 
        End If 'Process active test
        Next 'CurrentProcess
    clock = clock + 50 'operating system time
    wscript.echo "End of RR cycle - Current clock is " &
FormatNumber(Clock,3)
    wscript.echo "------- "
Loop 'While ProcessesInSystem > 0

'* Finish
'*   
TextFile.Close
wscript.echo ScriptID & Version & ": " & ScriptName & MsgP &
FormatNumber(Clock,3)
wscript.echo
wscript.echo ScriptID & Version & ": " & ScriptName & MsgE


'*******************
'*
'* RunProcess function
'*
'* This function simulates runnng a process by printing out information
about
'* each dispatch of the process.
'*
Function RunProcess(PID, CompTime, Quantum, IOclock)
'*
'* Get the CPU time used this run
Qtime = Quantum * rnd

'* Calculate the compute time left for the process
ECompTime = CompTime - Qtime

'* Print the information
wscript.echo "Run Process: PID=" & PID & " ran for " &
FormatNumber(Qtime,3) & " ­­ StartCompTime=" &
FormatNumber(CompTime,3) & " End CompTime=" & FormatNumber(ECompTime,3)
& " Quantum=" & FormatNumber(Quantum,0)  & " IOclock=" &
FormatNumber(IOclock,0)

'* Return the CPU time used ths run
RunProcess = Qtime
End Function



'*******************
'*
'* ReadProcessData Subroutine
'*
'* This subroutine read the input file and adds the processes to the
system.
Sub ReadProcessData(ProcessSlot)

'**************
'* Get a process from the input file.
If TextFile.AtEndOfStream <> True Then

    '* Read a record and put the fields into an array (assumes a csv
format file)
    Fields = split(TextFile.Readline, ",")
    FieldsUB = UBound(Fields)
    If DebugFlag then Wscript.Echo ScriptID & ": Fields found=" &
FieldsUB + 1
    Err.Clear

    '* Make sure there was at least one field in the record (non-data
records may have few or no fields)
    If FieldsUB >= 0 Then
        If DebugFlag then Wscript.Echo ScriptID & MsgR1, RecNum,
FileName, ":" & Fields(0) & ":"
        Err.Clear

        '* Put the record into the slot in the data structure for that
process.
        PID(ProcessSlot)  = Fields(0)
        CT(ProcessSlot)   = Fields(1)
        Q(ProcessSlot)    = Fields(2)
        IO(ProcessSlot)   = Fields(3)
        Mem(ProcessSlot)  = Fields(4)
        Pri(ProcessSlot)  = Fields(5)
        Wscript.Echo "New Process: PID=" & PID(ProcessSlot), "  CT=",
CT(ProcessSlot), "  Q=", Q(ProcessSlot), "  IO=", IO(ProcessSlot), "
Mem=", Mem(ProcessSlot), "  Pri=", Pri(ProcessSlot)

        End If 'FieldsUB >= 0

    End If 'TextFile.AtEndOfStream <> True

If TextFile.AtEndOfStream = True Then MoreProcessesAvailable = False

End Sub 'ReadProcessData


'*******************
'*
'* Subroutine to print out correct syntax and abort script.
'*
Sub SyntaxError
    Wscript.Echo ScriptID & " Syntax Error -- script aborted!"
    Wscript.Echo ScriptID & " "
    Wscript.Echo ScriptID & " Correct Syntax is: " & ScriptID & ".vbs
<named-parameters>"
    Wscript.Echo ScriptID & " "
    Wscript.Echo ScriptID & "   The REQUIRED named parameters are:"
    Wscript.Echo ScriptID & "     /FilesPath:<vlaid-path> is the full
path of the directory "
    Wscript.Echo ScriptID & "             the directory containing the
input files"
    Wscript.Echo ScriptID & "             Value: " & FilesPath
    Wscript.Echo ScriptID & "   The default input file is: " & FileName
    Wscript.Echo ScriptID & " "
    Wscript.Echo ScriptID & "   The OPTIONAL named parameters are:"
    Wscript.Echo ScriptID & "     /Debug:<y|n> is the debug switch
(either 'y' or 'n') to"
    Wscript.Echo ScriptID & "             print additional debuging
messages"  
    Wscript.Echo ScriptID & "             Value: " & DebugParm 
    Wscript.Echo ScriptID & " "
    Wscript.Echo ScriptID & " Script aborted!"
    WScript.Quit(ErrLvlSyntaxError) 'Sets ERRORLEVEL to 99 for syntax
error
End Sub

-----------------------------------------------

I hope some one will be able to help me...

With regards and respects
Jagadeesh Sunkavalli.


*** Sent via Developersdex http://www.developersdex.com ***

ROTFLMAO

Show quoteHide quote

Veign wrote:
That was a substantially more polite response then I was expecting :-)

It was such a bold request I couldn't do anything but laugh.

Show quoteHide quote

@TK2MSFTNGP12.phx.gbl:

AND, it's VBScript as well.

Yeah, that was a pretty funny request, I agree. Now that I have your
attention, though, I could use a little help if you wouldn't mind. I have
this great idea for a program that is a sure-fire bet to make me a million
dollars. Unfortunately, I don't have the time to write it myself so could
you please write it for me? Great! (I just know you said yes.) Now, because
I am afraid you might steal my idea and make the million dollars yourself,
I'm afraid I can't tell you anything about the program. If you would be so
kind as to develop 5 or 6 fully detailed different game scenarios, I will
use them as a model to finish the program on my own. I am looking for about
100,000 lines of code for each program. I'll check back tomorrow to see if
you have them finished yet. Thanks.

Rick <vbg>

Show quote Hide quote I finished your request and since I had some time left over I included the
cure for cancer.  Enjoy!..

Veign wrote:
Show quoteHide quotereminds me just a little of this joke thread:

<http://groups.google.com/group/microsoft.public.vb.general.discussion/browse_frm/thread/e5299dbf57f48a36/2417b81ec558212e?tvc=1&q=%22to+do+that+thing%22+VB#2417b81ec558212e>



    Bob

Jagadeesh Sunkavalli wrote:
I don't want to sound rude, but are you really asking foe someone else
here to do your work for you?

Maybe I am a little *out there*, a little *crazy*, but I thought that
normally these forums are for technical help and advice.  Not where you
get other people to actually do your work itself for you.

That said, good luck.  If you are as pushed for time as you seem to be,
I feel for you.  However if I were you, I would start on that algorithm
myself in the interim and start looking for an assistant programmer or
at least a firm offering short term contract coders for future emergencies.

Do we have such a container control?
www Link in VB 6...
missing reference
Connection
Run-time error 3706
Monthview control - run time 380 invalid property value
MSComm application hangs - comEventRxOver
Recordset to FlexGrid
Word find.selection on formatted text?
System Error &H80004015 (-2147467243) running VB6 IDE ActiveX DLL