Actually, the whole thing is going to be server side with terminal services as the thin client.  I haven't done this before so I really don't know much about it.  We are going to be working with a third-party to help with some of that but they don't know too much about .net.

Dave Vorgang
Senior Programmer / Analyst
Medford School District - Information Technology
(541) 842-1021
mailto:[log in to unmask]

-----Original Message-----
From: Ray Shahan [mailto:[log in to unmask]]
Sent: Tuesday, October 21, 2008 11:20 AM
To: Dave Vorgang; [log in to unmask]
Subject: RE: [HP3000-L] Converting Vplus to .Net

Hmm, interesting code, Dave, and it looks fun.

I don't mean to hijack your thread, but how do you handle the I/O for
more than 3k one process running on the client side?  I'd assume you had
to write some handler on the 3k that did the I/O for each PIN?

-----Original Message-----
From: HP-3000 Systems Discussion [mailto:[log in to unmask]] On
Behalf Of Dave Vorgang
Sent: Tuesday, October 21, 2008 10:27 AM
To: [log in to unmask]
Subject: [HP3000-L] Converting Vplus to .Net

Hi All,

I have just began working on this project for converting our existing
HP3000 Vplus screens to use Fujitsu Cobol on backend and use .Net for
the forms.

What I plan to do is create routines to emulate the Vplus intrinsics.
For example, I have this routine to display the form:

    Private WithEvents _VFormFile As VplusBaseScreen.BaseFormMain

    Public Function VshowForm(ByVal comArea As ComAreaDefinition) As
Boolean
        _VFormFile.LoadScreen(_CurrentScreen)
        _VFormFile.Show()
    End Function


Then, this routine would perform the Vreadfields which basically blocks
execution of my application until _KeyEntered = True

    Public Function VreadFields(ByVal comArea As ComAreaDefinition) As
Boolean
        _VFormFile.Focus()
        _KeyEntered = False
        Do Until _KeyEntered
            System.Windows.Forms.Application.DoEvents()
        Loop

    End Function

Then, the form will raise events and set _KeyEntered = True  when there
is user interaction and the main process will catch those events like
this:
    Private Sub _VFormFile_LastKeyPressed(ByVal key As Integer) Handles
_VFormFile.LastKeyPressed
        _KeyEntered = True
        RaiseEvent LastKeyPressed(key)
    End Sub
The above routine just raises the event back to its caller.

This approach actually works but the Do Loop take 25% of the cpu.

Now I know this is the HP3000 listserv but I thought I would give it a
shot since some may have tried to accomplish what I am trying to do.

So, my question is:  Is there a better way to accomplish what I'm trying
to do?  Can/How would I place this on a different thread (if that's a
way I should do it).


Thanks,

Dave Vorgang
Senior Programmer / Analyst
Medford School District - Information Technology
(541) 842-1021
mailto:[log in to unmask]<BLOCKED::mailto:Dave.Vorgang@Medfo
rd.k12.or.us>


* To join/leave the list, search archives, change list settings, *
* etc., please visit http://raven.utc.edu/archives/hp3000-l.html *

* To join/leave the list, search archives, change list settings, *
* etc., please visit http://raven.utc.edu/archives/hp3000-l.html *