Jabaco Source |
|
1 2 3 4 5 6 7 8 9 10 11 |
'Public Form1 As New Form1 Public Sub main(ByJava args() As String) Dim myArgs() As String myArgs = args MsgBox(Exp(InputBox("base:"))) ' Form1.SetDefaultClose() ' Form1.Show() End Sub |
Source code |
|
1 2 3 4 5 6 7 8 9 10 11 12 13 14 |
Sub sample() bullet = Chr(10) & " " & Chr(149) & " " Do response = InputBox("Please enter the gender:" & Chr(10) & bullet & "1.) Male" & bullet & "2.) Female", "Select gender") If response = "" Then WScript.Quit Else If IsNumeric(response) Then Exit do Else MsgBox "You must enter a numeric value.", 48, "Invalid Entry" End if End if loopEnd Sub |
This post has been edited 1 times, last edit by "woz" (Oct 12th 2012, 11:51am)
Jabaco Source |
|
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 |
'Public Form1 As New Form1 Public Sub main(ByJava args() As String) Dim myArgs() As String myArgs = args sample() ' Form1.SetDefaultClose() ' Form1.Show() End Sub Public Sub sample() MsgBox(Exp(InputBox("Exp:"))) log1Enter: Dim log1 As String = InputBox("log:") If IsNumeric(log1)= False Then MsgBox("please enter a number!") : Goto log1Enter baseEnter: Dim base As String = InputBox("base:") If IsNumeric(base)= False Then MsgBox("please enter a number!") : Goto baseEnter MsgBox(Log(CDbl(log1))/CDbl(base)) End Sub |
This post has been edited 2 times, last edit by "Dani" (Oct 12th 2012, 2:14pm)