loc_51F4E0: 283CFF0100 LitVarI2 var_C4, 1 loc_51F4E5: 046CFF FLdRfVar var_94 loc_51F4E8: 284CFF0500 LitVarI2 var_B4, 5 loc_51F4ED: FE681CFFA800 ForVar var_E4 loc_51F4F3: 0414FF FLdRfVar var_EC loc_51F4F6: 046CFF FLdRfVar var_94 loc_51F4F9: 55 CI2Var loc_51F4FA: 051B00 ImpAdLdRf MemVar_6321B0 loc_51F4FD: 241C00 NewIfNullPr mdiMain loc_51F500: 0F6003 VCallAd Control_ID_mnufilearray loc_51F503: 1918FF FStAdFunc var_E8 loc_51F506: 0818FF FLdPr var_E8 loc_51F509: 0D40000D00 Set from_stack_2 = mdiMain(from_stack_1) loc_51F50E: 5114FF FLdZeroAd var_EC loc_51F511: 5B10FF FStAdFuncNoPop loc_51F514: 051D00 ImpAdLdRf MemVar_634604 loc_51F517: 241E00 NewIfNullPr Global loc_51F51A: 0D0C001F00 Global.Load from_stack_1 loc_51F51F: 2918FF FFreeAd var_E8 = "" loc_51F526: 1B0000 LitStr vbNullString loc_51F529: 0414FF FLdRfVar var_EC loc_51F52C: 046CFF FLdRfVar var_94 loc_51F52F: 55 CI2Var loc_51F530: 051B00 ImpAdLdRf MemVar_6321B0 loc_51F533: 241C00 NewIfNullPr mdiMain loc_51F536: 0F6003 VCallAd Control_ID_mnufilearray loc_51F539: 1918FF FStAdFunc var_E8 loc_51F53C: 0818FF FLdPr var_E8 loc_51F53F: 0D40000D00 Set from_stack_2 = mdiMain(from_stack_1) loc_51F544: 0814FF FLdPr var_EC loc_51F547: 0D64000E00 Me.Caption = from_stack_1 loc_51F54C: 2918FF FFreeAd var_E8 = "" loc_51F553: F400 LitI2_Byte 0 loc_51F555: 0414FF FLdRfVar var_EC loc_51F558: 046CFF FLdRfVar var_94 loc_51F55B: 55 CI2Var loc_51F55C: 051B00 ImpAdLdRf MemVar_6321B0 loc_51F55F: 241C00 NewIfNullPr mdiMain loc_51F562: 0F6003 VCallAd Control_ID_mnufilearray loc_51F565: 1918FF FStAdFunc var_E8 loc_51F568: 0818FF FLdPr var_E8 loc_51F56B: 0D40000D00 Set from_stack_2 = mdiMain(from_stack_1) loc_51F570: 0814FF FLdPr var_EC loc_51F573: 0D5C000E00 Me.Visible = from_stack_1b loc_51F578: 2918FF FFreeAd var_E8 = "" loc_51F57F: 046CFF FLdRfVar var_94 loc_51F582: FE7E1CFF1300 NextStepVar var_E4 loc_51F588: 283CFF0100 LitVarI2 var_C4, 1 loc_51F58D: 046CFF FLdRfVar var_94 loc_51F590: 284CFF0500 LitVarI2 var_B4, 5 loc_51F595: FE68F0FE8801 ForVar var_110 loc_51F59B: 080800 FLdPr arg_8 loc_51F59E: 063800 MemLdRfVar from_stack_1.global_56 loc_51F5A1: 3A5CFF6000 LitVarStr var_A4, "FILE" loc_51F5A6: 046CFF FLdRfVar var_94 loc_51F5A9: FBEFDCFE ConcatVar var_124 loc_51F5AD: 60 CStrVarTmp loc_51F5AE: FDC7D4FE PopTmpLdAdStr loc_51F5B2: 1B6100 LitStr "FILESOPENED" loc_51F5B5: F3E607 LitI2 2022 loc_51F5B8: FBFD CStrUI1 loc_51F5BA: 23ECFE FStStrNoPop var_114 loc_51F5BD: 2A ConcatStr loc_51F5BE: FDC7D8FE PopTmpLdAdStr loc_51F5C2: 0B62000C00 ImpAdCallI2 Call Proc_7_2_519878(, ) loc_51F5C7: F400 LitI2_Byte 0 loc_51F5C9: DA GtI2 loc_51F5CA: 32ECFED8FE FFreeStr var_114 = "": var_128 = "" loc_51F5D3: 35DCFE FFree1Var var_124 = "" loc_51F5D6: 1C7F01 BranchF loc_51F65F loc_51F5D9: 080800 FLdPr arg_8 loc_51F5DC: 8A3800 MemLdStr global_56 loc_51F5DF: 0414FF FLdRfVar var_EC loc_51F5E2: 046CFF FLdRfVar var_94 loc_51F5E5: 55 CI2Var loc_51F5E6: 051B00 ImpAdLdRf MemVar_6321B0 loc_51F5E9: 241C00 NewIfNullPr mdiMain loc_51F5EC: 0F6003 VCallAd Control_ID_mnufilearray loc_51F5EF: 1918FF FStAdFunc var_E8 loc_51F5F2: 0818FF FLdPr var_E8 loc_51F5F5: 0D40000D00 Set from_stack_2 = mdiMain(from_stack_1) loc_51F5FA: 0814FF FLdPr var_EC loc_51F5FD: 0D64000E00 Me.Caption = from_stack_1 loc_51F602: 2918FF FFreeAd var_E8 = "" loc_51F609: F4FF LitI2_Byte &HFF loc_51F60B: 0414FF FLdRfVar var_EC loc_51F60E: 046CFF FLdRfVar var_94 loc_51F611: 55 CI2Var loc_51F612: 051B00 ImpAdLdRf MemVar_6321B0 loc_51F615: 241C00 NewIfNullPr mdiMain loc_51F618: 0F6003 VCallAd Control_ID_mnufilearray loc_51F61B: 1918FF FStAdFunc var_E8 loc_51F61E: 0818FF FLdPr var_E8 loc_51F621: 0D40000D00 Set from_stack_2 = mdiMain(from_stack_1) loc_51F626: 0814FF FLdPr var_EC loc_51F629: 0D5C000E00 Me.Visible = from_stack_1b loc_51F62E: 2918FF FFreeAd var_E8 = "" loc_51F635: F4FF LitI2_Byte &HFF loc_51F637: 0414FF FLdRfVar var_EC loc_51F63A: F400 LitI2_Byte 0 loc_51F63C: 051B00 ImpAdLdRf MemVar_6321B0 loc_51F63F: 241C00 NewIfNullPr mdiMain loc_51F642: 0F6003 VCallAd Control_ID_mnufilearray loc_51F645: 1918FF FStAdFunc var_E8 loc_51F648: 0818FF FLdPr var_E8 loc_51F64B: 0D40000D00 Set from_stack_2 = mdiMain(from_stack_1) loc_51F650: 0814FF FLdPr var_EC loc_51F653: 0D5C000E00 Me.Visible = from_stack_1b loc_51F658: 2918FF FFreeAd var_E8 = "" loc_51F65F: 046CFF FLdRfVar var_94 loc_51F662: FE7EF0FEBB00 NextStepVar var_110 loc_51F668: 13 ExitProcHresult loc_51F669: 0000 LargeBos loc_51F669 'Ignore this loc_51F66B: 0034 LargeBos loc_51F69F 'Ignore this
Write, Run & Share VB.net code online using OneCompiler's VB.net online compiler for free. It's one of the robust, feature-rich online compilers for VB.net language, running on the latest version 16. Getting started with the OneCompiler's VB.net compiler is simple and pretty fast. The editor shows sample boilerplate code when you choose language as VB.net. OneCompiler also has reference programs, where you can look for the sample code to get started with.
OneCompiler's VB.net online editor supports stdin and users can give inputs to programs using the STDIN textbox under the I/O tab. Following is a sample VB.net program which takes name as input and prints hello message with your name.
Public Module Program
Public Sub Main(args() As string)
Dim name as String = Console.ReadLine() ' Reading input from STDIN
Console.WriteLine("Hello " & name) ' Writing output to STDOUT
End Sub
End Module
Visual Basic is a event driven programming language by Microsoft, first released in the year 1991.
Variable is a name given to the storage area in order to identify them in our programs.
Simple syntax of Variable declaration is as follows
Dim variableName [ As [ New ] dataType ] [ = initializer ]
variableName = value
If condition-expression Then
'code
End If
If(conditional-expression)Then
'code if the conditional-expression is true
Else
'code if the conditional-expression is false
End If
If(conditional-expression)Then
'code if the above conditional-expression is true
Else If(conditional-expression) Then
'code if the above conditional-expression is true
Else
'code if the above conditional-expression is false
End If
If(conditional-expression)Then
'code if the above conditional-expression is true
If(conditional-expression)Then
'code if the above conditional-expression is true
End If
End If
Select [ Case ] expression
[ Case expressionlist
'code ]
[ Case Else
'code ]
End Select
For counter [ As datatype ] = begin To end [ Step step ]
'code
[ Continue For ]
'code
[ Exit For ]
'code
Next [ counter ]
For Each element [ As datatype ] In group
'code
[ Continue For ]
'code
[ Exit For ]
'code
Next [ element ]
While conditional-expression
'Code
[ Continue While ]
'Code
[ Exit While ]
'Code
End While
Do { While | Until } conditional-expression
'Code
[ Continue Do ]
'Code
[ Exit Do ]
'Code
Loop
Do
'Code
[ Continue Do ]
'Code
[ Exit Do ]
'Code
Loop { While | Until } conditional-expression
Procedure is a sub-routine which contains set of statements. Usually Procedures are written when multiple calls are required to same set of statements which increases re-usuability and modularity.
Procedures are of two types.
Functions return a value when they are called.
[accessModifiers] Function functionName [(parameterList)] As returnType
'code
End Function
Sub-procedures are similar to functions but they don't return any value.
Sub ProcedureName (parameterList)
'Code
End Sub