|
|
-- package BJCP
import java.text.
-- Needed for the SimpleDateFormat
class
import java.awt.GridBagLayout
import java.awt.GridBagConstraints
import javax.swing
import java.awt.
import netrexx.lang.Rexx
import java.util.Properties;
class FrontEnd implements ActionListener,
Keylistener
--
trace all
Properties
inheritable
window = Frame
text1 = Label
text2 = Label
text3 = Label
mytrue = boolean 1
MultipleChoice = JButton("Multiple Choice")
TrueorFalse = JButton("True and False")
method main(s=String[]) static public
-- trace results
FrontEnd(99,
111)
method FrontEnd(right = int, wrong =
int) public
trace
results
--
discovering system properties relevant to the classpath
--...
say " the classpath"
System.out.println( System.getProperty(
"java.class.path" ) );
say " extension directories
whose jars are included on the classpath"
System.out.println( System.getProperty(
"java.ext.dirs" ) );
say " low level classpath,
includes system jars"
System.out.println( System.getProperty(
"java.library.path" ) );
say " character to
separate (not terminate!) entries on the classpath, ; for Windows : for
unix."
System.out.println( System.getProperty(
"path.separator" ) );
-- To discover the default values for
these properties, run Wassup either
-- as an Applet or standalone (You will
get quite different results each way.)
-- See http:--mindprod.com/applets/wassup.html
-- Create a frame window
window
= Frame('Multiple choice quiz score.')
-- Set the size of the window
window.setSize(610,100)
-- Set the window position to the middle
of the screen
-- d = window.getToolkit().getScreenSize()
-- s = window.getSize()
window.setLocation(1,
1)
window.setLayout(GridBagLayout())
constraint
= GridBagConstraints()
constraint.anchor=GridBagConstraints.LINE_START
constraint.gridx=0;
constraint.gridy=0
--ane.add(LabPlzen, constraint)
-- Add a label to the window. The label
text is centered
f
= SimpleDateFormat("H:mm:ss" ) -- Formats hours:minutes:seconds
text1
= Label("Currently: " f.format(Date()) ,Label.CENTER)
text2
= Label("Total number of correct attempts: " right,Label.CENTER)
text3
= Label("Total number of incorrect attempts: " wrong,Label.CENTER)
-- text4
= Label("Percent of correct attempts: " 100 * right / (wrong
+ right),Label.CENTER)
-- window.add("East"
, text2)
-- Add the label to the window
-- window.add("West"
, text3)
-- Add the label to the window
-- window.add("South"
, text4)
-- Add the label to the window
-- add the window event listener to
the window for close window events
window.addWindowListener(
CloseWindowAdapter() )
-- Create a Multiple Choice button,
add it, and set up its event handler.
MultipleChoice
= JButton("Multiple Choice")
MultipleChoice.setMnemonic('M')
constraint.gridx=0;
constraint.gridy=0
constraint.anchor=GridBagConstraints.EAST
window.add(MultipleChoice,
constraint)
MultipleChoice.addActionListener(this)
-- Create a TrueorFalse button, add
it, and set up its event handler.
TrueorFalse
= JButton("True or False")
TrueorFalse.setMnemonic('T')
constraint.gridx=0;
constraint.gridy=1
constraint.anchor=GridBagConstraints.WEST
window.add(TrueorFalse,
constraint)
TrueorFalse.addActionListener(this)
--
this.setLocationRelativeTo(null)
--
this.pack()
-- show the window
window.setVisible(1)
method ScoreBoardUpdate(right = int,
wrong = int)
text2.setText("Total
number of correct attempts." right)
text3.setText("Total
number of incorrect attempts." wrong)
method ScoreBoardClose()
window.dispose()
method actionPerformed(evt=ActionEvent)
-- SIGNALS IOException --, FileNotFoundException
trace
results
select
label ButtonClicked
when evt.getSource() ==
MultipleChoice then do
filen = 'QandA.txt'
QandAgui.LoadTable(filen)
end
when evt.getSource() ==
TrueorFalse then do
filen = 'TandF.txt'
QandAgui.LoadTable(filen)
end
otherwise say "This
shoulh not have happened, darn." -- we don't expect anything else
catch Z=IOException --,
X=FileNotFoundException
say '# error opening file' Z.getMessage
finally say "Done
with the Button Clicked select block of code."
end ButtonClicked
QandAgui(QandAgui.sub_k)
method keyTyped(e=Keyevent)
key = Rexx e.getKeyChar()
-- make key of type
Rexx for further use
if key.c2d() == KeyEvent.VK_ENTER then e.consume
System.out.println(e.toString());
method keyPressed(e=KeyEvent) public
System.out.println(e.toString());
method keyReleased(e=KeyEvent) public
System.out.println(e.toString())
method MultipleChoice(filename)
say
"multiple choide"
FN
= filename
QandAgui(FN)
class CloseWindowAdapter extends WindowAdapter
/*-------------------------------------------------------------------------------
The CloseWindowAdapter exits the application
when the window is closed.
WindowAdapter is an abstract class which
implements a WindowListener interface.
The windowClosing() method is called
when the window is closed.
-----------------------------------------------------------------------------*/
method
windowClosing( e=WindowEvent )
trace all
say "Closing the window from the CloseWindowAdapter
class. Bye."
exit
0
/*NetRexx */
options replace comments java crossref
savelog symbols verbose4 trace1 logo
-- package BJCP
--import java.awt.List
import java.io.Reader
import java.io.BufferedReader
import java.text.
-- Needed for the SimpleDateFormat
class
import java.util.
-- Needed for integer
math
import netrexx.lang.Rexx
import java.awt.
import java.awt.event.
import javax.swing.
import java.awt.TextComponent
-- import org.netrexx.runtime.compatibility
-- the above import is thanks to Thomas
Schneider
-- this is our main class
class QandAgui
Properties inheritable static -- some
vars for the whole class
question1 = Rexx[99]
answerX = Rexx[99,5]
RorW = Rexx[99,5]
ans_done = int[99]
rightones = int 0
wrongones = int 0
try_cnt = int 0
sub_k = int 75
Random_Int = int 0
My_Int = rexx
response1 = Rexx
fileName = Rexx
--
bufferIn = Rexx
method main(s=String[]) static
trace results
-- QandAgui(sub_k)
--
--
--
-- method QandAgui(total_lines = int)
if question1[0] == null then do
loop label PickFile Until response1.upper
= "M" | response1.upper = "T"
say
say 'Enter a "T" for the true and
false questions.'
say
say 'Enter a "M" for the multiple
choice questions.'
say
say
response1=ask
end PickFile
if
response1.upper = "T" then fileName='TandF.txt'
if
response1.upper = "M" then fileName='QandA.txt'
LoadTable(fileName)
end
QandAgui(sub_k)
--
--
Method LoadTable(aFileName = Rexx) static
SIGNALS IOException --, FileNotFoundException
trace results
/* Open and check the files
*/
do
bufferIn=BufferedReader(FileReader(afileName))
say 'Processing infile.'
catch Z=IOException --, X=FileNotFoundException
say '#
error opening file' Z.getMessage
--
say
'# File not found.' X.getMessage
--
return inhandle
end
/* The processing loop to load our table from
the txt file. ***/
loop sub_k = 0 by 1
line =
bufferIn.readLine
-- get next line as
Rexx string
if line=null
then leave sub_k -- normal end
of file
parse
line 'Q1 ' question_in
question1[sub_k]
= question_in
line =
bufferIn.readLine
-- get next line as
Rexx string
if line=null
then leave sub_k -- normal end
of file
parse
line -
A1 '<>' answer_in1 '<>' -
A2 '<>' answer_in2 '<>' -
A3 '<>' answer_in3 '<>' -
A4 '<>' answer_in4 '<>' -
A5 '<>' answer_in5 '<>' . ;
answerX[sub_k,0]
= answer_in1
answerX[sub_k,1]
= answer_in2
answerX[sub_k,2]
= answer_in3
answerX[sub_k,3]
= answer_in4
answerX[sub_k,4]
= answer_in5
RorW[sub_k,0]
= A1
RorW[sub_k,1]
= A2
RorW[sub_k,2]
= A3
RorW[sub_k,3]
= A4
RorW[sub_k,4]
= A5
end sub_k
--
loop label checkarray sub_i = 0 to (sub_k - 1)
-- say
-- say sub_i question1[sub_i]
-- loop label innerloop sub_j = 0 to 4
-- say
sub_i sub_j "-->" answerX[sub_i,sub_j] RorW[sub_i,sub_j]
-- end innerloop
-- say
--
end checkarray
--
--
say 'Total questions to be asked =' sub_k "Press enter to continue..."
--
response1=ask
--
if response1.upper == "Q" | response1 == "X"
then exit
--
--
method QandAgui(total_lines = int)
trace results
try_cnt = try_cnt + 1
say try_cnt "<-- try_cnt."
if try_cnt >= total_lines then do
--
DisplayScore
exit
end
method reset() public static returns
Rexx
start = System.currenttimemillis
return start
method elapsed() public static returns
Rexx
current=System.currenttimemillis
numeric digits 16
delta = current - start
delta=delta/1000
numeric digits 9
delta=delta.format(NULL,3)
return delta
method GetRand(sub_l = int) static returns
int
I
= (sub_l * Math.random()) % 1 -- %1 make result to integer
RETURN
I
class GuiApp extends KeyAdapter
-- uses ScoreBoardApp
Properties
constant
keySet
= Rexx ' &#\'/.-()0123456789abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ'
Properties
inheritable
window = JFrame
Ananswer = JTextField
InputText = JTextarea
mytrue = boolean 1
myfalse = boolean 0
keystyped = Rexx 0
keysaccepted = Rexx 1
length1 = Rexx 1
A_question = Rexx
A_answer = Rexx
method GuiApp(my_question = string,
my_answer = string)
A_question
= my_question
A_answer
= my_answer
-- Create a frame window
window
= JFrame('Fill in the blanks quiz.')
-- Set the size of the window
window.setSize(800,300)
-- Set the window position to the middle
of the screen
d
= window.getToolkit().getScreenSize()
s
= window.getSize()
window.setLocation((d.width
- s.width) % 2,(d.height - s.height)%2)
-- Create a label with the question.
window.setLayout(
GridLayout( 3,3 ))
QBox_1
= JTextarea( my_question)
QBox_1.setForeground(
Color.blue )
QBox_1.setFont(Font("Arial",
Font.BOLD, 14))
QBox_1.setEditable(myfalse)
QBox_1.setLineWrap(mytrue);
QBox_1.setWrapStyleWord(mytrue);
InputText
= JTextarea(" <-- Type your answer here.")
InputText.setForeground(
Color.red )
InputText.setFont(
Font( "Arial", Font.BOLD, 14) )
InputText.addKeyListener(this)
f
= SimpleDateFormat("H:mm:ss" ) -- Formats hours:minutes:seconds
text3
= Label("Currently: " f.format(Date()) ,Label.CENTER)
window.add( QBox_1 )
window.add(
InputText )
window.add("South"
, text3)
-- show the window
window.setVisible(1)
InputText.requestFocusinWindow()
-- add the window event listener to
the window for close window events
window.addWindowListener(
CloseWindowAdapter() )
method keyTyped(e=Keyevent)
keystyped = keystyped + 1
key = Rexx e.getKeyChar()
-- make key of type
Rexx for further use
if key.c2d() == KeyEvent.VK_BACK_SPACE then
return
key = key.upper()
if keyset.pos(key) == 0 then
e.consume
else
if
key \= A_answer.substr(keysaccepted,length1) then
e.consume
else do
e.setKeyChar(key)
keysaccepted = keysaccepted + 1
end
Random_Int = GetRand(sub_k)
loop label findundone while ans_done[Random_Int] == 1
if Random_Int
< sub_k then Random_Int = Random_Int + 1
if Random_Int
>= sub_k then Random_Int = 0
end findundone
ans_done[Random_Int] = 1
this_question='Question' Random_Int || ')'
question1[Random_Int]
abf=AboutFrame(this_question,answerX[Random_Int,0],RorW[Random_Int,0],answerX[Random_Int,1],RorW[Random_Int,1],answerX[Random_Int,2],RorW[Random_Int,2],answerX[Random_Int,3],RorW[Random_Int,3],answerX[Random_Int,4],RorW[Random_Int,4],try_cnt)
abf.SetTitle('BJCP Training')
/* Set a title */
abf.Set_Question(this_question)
abf.Set_Pos_Answer(answerX[Random_Int,0],RorW[Random_Int,0])
abf.Set_Pos_Answer(answerX[Random_Int,1],RorW[Random_Int,1])
abf.Set_Pos_Answer(answerX[Random_Int,2],RorW[Random_Int,2])
abf.Set_Pos_Answer(answerX[Random_Int,3],RorW[Random_Int,3])
abf.Set_Pos_Answer(answerX[Random_Int,4],RorW[Random_Int,4])
abf.SelectQuestion(0) /* Select first
Question */
abf.ShowAbout() /* Show it */
abf.LabelRight.setText('Correct: ' QandAgui.rightones)
abf.LabelWrong.setText('Wrong: ' QandAgui.wrongones)
abf.LabelPercent.setText('Percent: '
(100 * QandAgui.rightones / (QandAgui.rightones + QandAgui.wrongones)))
method GetRand(total_lines = int) returns
rexx static
My_int
= (total_lines*Math.random()) % 1 -- %1 make result to integer
RETURN
My_Int
-- method DisplayScore
--
JOptionPane.showMessageDialog(, "Score: \n" -
-- 'Correct: ' QandAgui.rightones -
-- 'Wrong: ' QandAgui.wrongones -
-- 'Percent: ' (100 * QandAgui.rightones /
(QandAgui.rightones + QandAgui.wrongones -
-- )
class AboutFrame extends Frame
Properties inheritable
NbrFrames = 0
TxtWho = TextArea(' ',400,999,TextArea.SCROLLBARS_NONE)
List_Question = java.awt.List(5)
-- define a List Box
TxtAppl = Label
-- declare read-only text
PbtCncl1 = Button('Exit the quiz')
-- define a push button
LabelRight = Label('Correct: 0')
-- define a
LabelWrong = Label('Wrong: 0')
-- define
a
LabelPercent = Label('Percent: 0')
--
define a
myint = int 1
-- declare number of
questions
questions = int
-- declare number of questions
Possible_Answer = String[]
-- declare this
array
Possible_AnswerL = String[]
win = Frame
Method AboutFrame(Here_Question = String,
-
Here_answer1 = String, -
Here_RW1 = String, -
Here_answer2 = String, -
Here_RW2 = String, -
Here_answer3 = String, -
Here_RW3 = String, -
Here_answer4 = String, -
Here_RW4 = String, -
Here_answer5 = String, -
Here_RW5 = String, -
Total_trys = int) -
public
myint
= Total_trys
say
myint "=" Total_trys
nbrFrames
= nbrFrames+1
if
nbrFrames > 10 then exit
--
As our class is a frame extension, we should not call Frame()
--
else we'd create yet another frame
win = Frame("About")
-- should not be coded
win
= this
-- "win" is nicer
than "this"
--
We can call the parent class to set a frame title.
super.SetTitle(Here_Question)
-- define default frame title
Possible_Answer
= String[5]
-- create this array
Possible_AnswerL
= String[5]
-- create this array
questions
= -1 -- no questions defined yet
--
To close the window from the system menu work with WindowListener
anObject
= AboutFrameController() -- Create this object
--
Because "we" are a frame,
no need to write "win.add"
--
but it may be clearer for some readers.
win.addWindowListener(anObject)
--
To be able to react to end-user frame events
pbtCncl1.addActionListener(AboutActionClass(this,'pbtCncl1')
)
List_Question.addActionListener(AboutActionClass(this,'List_Question')
)
List_Question.addItemListener(AboutActionClass(this,'List_Question')
)
--
add the visible objects to the frame
TxtAppl
= Label('The application has been written by')
TxtWho.setEditable(0)
-- make this area read only
win.add("North"
, TxtAppl) -- add these objects to
the frame
win.add("West"
, List_Question)
win.add("Center"
, TxtWho)
p
= Panel()
-- Host the button in a "panel"
to keep it small
win.add("South"
, p)
-- add the "panel"
to the frame
p.add(PbtCncl1)
-- place
the button in the "panel"
p.add(LabelRight)
-- place
the button in the "panel"
p.add(LabelWrong)
-- place
the button in the "panel"
p.add(LabelPercent)
-- place
the button in the "panel"
-- use some colors
hYell
= color(255,255,128) -- define a color object
TxtAppl.setBackground(color.white)
-- color of application text
setBackground(color.white)
-- color of our frame
pbtCncl1.setBackground(color.lightGray)
-- color of our button
List_Question.setBackground(hYell)
-- color of our LISTBOX
TxtWho.setBackground(hYell)
-- color of our text area
----- calculate a good place for our
frame ---------------
setSize(1100,200)
-- define size of window.
offset
= (NbrFrames-1) *10 -- don't place all at same place
d
= getToolkit().getScreenSize() -- get size of the screen
s
= getSize() -- get size of our frame
SetLocation(
(d.width - s.width) %6 + offset, -
(d.height - s.height)%6 + offset )
Method SetTitle(t = String) -- Define
title of the window
super.setTitle(t)
-- Must be preceeded by "super" else
we
-- call ourselves
Method Set_Question(t = String) -- Define
the title of the window
TxtAppl.setText(t)
Method Set_Pos_Answer(My_Answer = String,Descript
= String)
questions
= questions+1
-- add an element to the questions list box
List_Question.add(My_Answer)
Possible_Answer[questions]
= Descript -- add his description to
array
--
say questions My_Answer Descript
Method Set_Pos_Answer(My_Answer = String,Descript
= String,DescLong = String)
questions
= questions+1
List_Question.add(My_Answer)
Possible_Answer[questions]
= Descript
Possible_AnswerL[questions]
= DescLong
Method SelectQuestion(ix = int)
if
ix<= questions then List_Question.select(ix)
Method ShowAbout()
--
As "we" the object are in fact a frame, no need to code
this.setVisible(1)
--
setVisible(1)
--------- This class handles events
on the frame itself ----------
class AboutFrameController extends WindowAdapter
method
windowClosing(e = WindowEvent)
Say 'Closed by system menu'
exit
--------- This class handles Action
Events with objects in the frame
class AboutActionClass implements ActionListener,ItemListener
Properties
inheritable
frm = AboutFrame
-- frm is an object of class AboutFrame
myEventName = String
-- a string is
passed and available in the class
int_I = int 0
--
Constructor
method AboutActionClass(x = AboutFrame,
anEvent = String)
frm = x
myEventName = String anEvent
method actionPerformed(e = ActionEvent)
Say 'Event happened for:' myEventName
Select
when
myEventName = 'pbtCncl1' then do
Say 'Closed by Cancel button'
frm.dispose()
return
end
when
myEventName = 'List_Question' then do -- double click in List Box
-- Beware: testing if ..[] = '' is dangerous,
it may yield a
-- null pointer exception. So test for
"null"
ix = frm.List_Question.getSelectedIndex()
-- Get the selected line
t = ''
if frm.Possible_AnswerL[ix] <>
null then
if
frm.Possible_AnswerL[ix] <> '' then
t = frm.Possible_AnswerL[ix]
if t<>'' then do
frm.TxtWho.setForeground(color.black)
frm.TxtWho.setText(t)
end
else do
frm.TxtWho.setForeground(color.red)
frm.TxtWho.setText('More
information about' -
frm.List_Question.getSelectedItem()-
'is not available')
end
end
Otherwise
Say 'Problem:' myEventName 'is unknown'
end
method itemStateChanged(e = ItemEvent)
--
Apparently we warp to this point when the answer item is clicked.
ix = frm.List_Question.getSelectedIndex()
-- Get the selected line -if any
if frm.Possible_Answer[ix] = 'Right'
then do
QandAgui.rightones
= QandAgui.rightones + 1
frm.LabelRight.setText('Correct:
' QandAgui.rightones)
frm.LabelPercent.setText('Percent:
' (100 * QandAgui.rightones / (QandAgui.rightones + QandAgui.wrongones)))
frm.dispose()
QandAgui(QandAgui.sub_k)
end
else
if frm.Possible_Answer[ix] = 'Wrong'
then do
-- increment
the counter wrongones
QandAgui.wrongones
= QandAgui.wrongones + 1
frm.labelWrong.setText('Wrong:
' QandAgui.wrongones)
frm.LabelPercent.setText('Percent:
' (100 * QandAgui.rightones / (QandAgui.rightones + QandAgui.wrongones)))
end
else do
say "Found
a line in the .txt file that is not formatted correctly."
say frm.List_Question
exit
end
frm.TxtWho.setForeground(color.black)
if ix >= 0 then frm.TxtWho.setText(frm.Possible_Answer[ix])
Kenneth Klein
Systems Specialist
[hidden email]
Ken,
That would be awesome. I was and still am very weak in the java gui.
Anything you post to this list would be reviewed and most welcomed.
On 01/06/12 13:20, [hidden email] wrote:
> Sorry, that was my frustration showing. I did get quite a bit of value
out
> of his chapter on classes and such.
>
> My "stepping" will soon be an offer of some programs as
example code in
> the use of java gui classes and methods with netrexx. Where
might be the
> best place to post some lines of working code?
>
>
> Kenneth Klein
>
> [hidden email]
>
>
>
> Jerry McBride <[hidden email]>
> Sent by: [hidden email]
> 01/05/2012 05:44 PM
> Please respond to
> IBM Netrexx <[hidden email]>
>
>
> To
> IBM Netrexx <[hidden email]>
> cc
>
> Subject
> Re: [Ibm-netrexx] The requested URL /examples/tvec3ds.nrx was not
found on
> this server.
>
>
>
>
>
>
> Ken,
>
>
> This is the code...
>
>
>
> On 01/04/12 09:24, [hidden email] wrote:
>> Here ya' go...
>
>> +----------------------------------------------------------------------+
>> | -- tvec3ds.nrx |01
>> | |02
>> | a = vector3d(1,1,1) -- define a vector |03
>> | say 'Vector "a" components:' a.components()'.' |04
>> | |05
>> | a.inverse() -- inverse
it |06
>> | say 'Vector "a.inverse()" is' a.components()'.' |07
>> | exit 0 |08
>> | |09
>> +----------------------------------------------------------------------+
>>
tvec3ds.nrx
>
>
> _______________________________________________
> Ibm-netrexx mailing list
> [hidden email]
> Online Archive : http://ibm-netrexx.215625.n3.nabble.com/
>
>
>
>
>
>
> _______________________________________________
> Ibm-netrexx mailing list
> [hidden email]
> Online Archive : http://ibm-netrexx.215625.n3.nabble.com/
>
_______________________________________________
Ibm-netrexx mailing list
[hidden email]
Online Archive : http://ibm-netrexx.215625.n3.nabble.com/
_______________________________________________
Ibm-netrexx mailing list
[hidden email]
Online Archive : http://ibm-netrexx.215625.n3.nabble.com/
|
Locked
