|
|
 | | From: | Forrest Ganther | | Subject: | Need ideas for school career day | | Date: | Sun, 23 Jan 2005 13:16:35 -0600 |
|
|
 | I have been asked to participate in a fair at our Jr. High School.
They would like it if I had something computer interactive that
would interest 6 and 7th graders. It has been 40 years since my
kids were that age!!
Any suggestions, or if you already have something that would be great!
I am brain dead!
I do all my programming with 5.7, but I do have dBase Plus, I just haven't
learned it!
Any help appreciated,
Forrest
|
|
| | From: | Gerald Lightsey | | Subject: | Re: Need ideas for school career day | | Date: | Mon, 24 Jan 2005 01:34:19 -0600 |
|
|
| In article , forrestganther@sbcglobal.net
says...
> I have been asked to participate in a fair at our Jr. High School.
>
> They would like it if I had something computer interactive that
> would interest 6 and 7th graders. It has been 40 years since my
> kids were that age!!
>
> Any suggestions, or if you already have something that would be great!
>
> I am brain dead!
>
> I do all my programming with 5.7, but I do have dBase Plus, I just haven't
> learned it!
>
> Any help appreciated,
As I remember, kids of this age are studying maps a lot. If you have
enough time before the fair, you might order the trial version of MS
MapPoint for $7.95 S&H at
http://www.microsoft.com/mappoint/products/2004/purchase.mspx
and let them each enter a location and print a map on an ink jet printer
that they could take with them. If you don't have time you can usually
pick up a copy of Streets and Trips at a Sam's Club or Costco for about
$20 after rebates that will do the same thing.
Gerald
|
|
| | From: | Bruce Beacham | | Subject: | Re: Need ideas for school career day | | Date: | Sun, 23 Jan 2005 22:03:29 +0000 |
|
|
| Forrest Ganther wrote:
> I have been asked to participate in a fair at our Jr. High School.
>
> They would like it if I had something computer interactive that
> would interest 6 and 7th graders. It has been 40 years since my
> kids were that age!!
I recall someone posting a form or image which, when you approached it
with the cursor, moved away. I think it was in dBL.
The programming technique would be interesting to explore.
Bruce Beacham
|
|
| | From: | Heinz Kesting | | Subject: | Re: Need ideas for school career day | | Date: | Mon, 24 Jan 2005 00:45:30 +0100 |
|
|
| Hi Forrest
> They would like it if I had something computer interactive that
> would interest 6 and 7th graders. It has been 40 years since my
> kids were that age!!
>
> Any suggestions, or if you already have something that would be great!
I don't know if that's what you're looking for, but I remember an example
from the OLH to the OnMouseMove event. Save the following form and run it,
then try to click the Pushbutton with your mouse ...
Good luck!
Best regards, Heinz
(I had just used this form for testing to change date values in a spinbox,
so I inserted this OnMouseMove event for you)
** END HEADER -- Diese Zeile nicht entfernen
//
// Erstellt am 24.01.2005
//
parameter bModal
local f
f = new DatumForm()
if (bModal)
f.mdi = false // Nicht-MDI festlegen
f.ReadModal()
else
f.Open()
endif
class DatumForm of FORM
with (this)
height = 16.0
left = 13.0
top = 0.24
width = 40.0
text = ""
endwith
this.SPINBOX1 = new SPINBOX(this)
with (this.SPINBOX1)
key = class::SPINBOX1_KEY
height = 1.0
left = 11.6667
top = 3.96
width = 18.5556
validErrorMsg = "Ungültige Eingabe "
endwith
this.PUSHBUTTON1 = new PUSHBUTTON(this)
with (this.PUSHBUTTON1)
onMouseMove = class::PUSHBUTTON1_onMouseMove
height = 1.08
left = 9.5556
top = 9.48
width = 13.6667
text = "Pushbutton1"
endwith
function PUSHBUTTON1_onMouseMove(flags, col, row)
static jump = {|| 2 + rand( ) * 2}
local nLeft, nTop
// Calculate horizontal movement
nLeft = this.left + jump( ) * sign( rand( ) - 0.5 )
if nLeft < 0
nLeft = form.width - this.width - jump( )
elseif nLeft > form.width - this.width
nLeft = jump( )
endif
// Calculate vertical movement
if row < this.height / 2
nTop = this.top + jump( ) * row
else
nTop = this.top - jump( ) * ( this.height - row )
endif
if nTop < 0
nTop = form.height - this.height - jump( )
elseif nTop > form.height - this.height
nTop = jump( )
endif
this.move( nLeft, nTop )
return
function SPINBOX1_key(nChar)
cWert = chr(nChar)
do case
case nChar == 4 // CTRL-D for current date
this.value = date()
return false
case cWert == "+" // to increase
this.value ++
return false
case cWert == "-" // to decrease
dWert = this.value
this.value --
return false
otherwise
return true
endcase
endclass
|
|
|
