mirror of
https://github.com/KeymonSoft/Ruteador-NonUI.git
synced 2026-04-17 21:06:16 +00:00
36 lines
802 B
QBasic
36 lines
802 B
QBasic
B4J=true
|
|
Group=Default Group
|
|
ModulesStructureVersion=1
|
|
Type=Class
|
|
Version=2.18
|
|
@EndOfDesignText@
|
|
'Class module
|
|
Sub Class_Globals
|
|
End Sub
|
|
|
|
Public Sub Initialize
|
|
|
|
End Sub
|
|
|
|
Sub Handle(req As ServletRequest, resp As ServletResponse)
|
|
Try
|
|
If req.GetSession.HasAttribute("myNumber") = False Then
|
|
req.GetSession.SetAttribute("myNumber", Rnd(0, 101))
|
|
End If
|
|
Dim myNumber As Int = req.GetSession.GetAttribute("myNumber")
|
|
Dim n As String = req.GetParameter("number")
|
|
If IsNumber(n) = False Then
|
|
resp.Write("Please enter a valid number.")
|
|
Else
|
|
If n > myNumber Then
|
|
resp.Write("My number is smaller.")
|
|
Else If n < myNumber Then
|
|
resp.Write("My number is larger.")
|
|
Else
|
|
resp.Write("Well done!!!")
|
|
End If
|
|
End If
|
|
Catch
|
|
resp.SendError(500, "error....")
|
|
End Try
|
|
End Sub |