[Fork] PRM - Mr E version | C# Online Compiler

[Fork] PRM - Mr E version by Jack.Netfiddle

Imports System
				
Public Module Module1	
	Dim anymore as char
			dim total as decimal
	dim totalmulti as decimal
	Public Sub Main()
	
		Dim UserChoice As Integer		
		Console.WriteLine("MENU OF OPTIONS")		
		Do
			Console.WriteLine("Task 1")
			Console.WriteLine("Task 2")			
			Console.WriteLine("Task 3")
			Console.WriteLine("Enter number 1 - 3")
			
			UserChoice = Console.ReadLine()
			
		Loop Until UserChoice >= 1 And UserChoice <= 3
		
		Select Case UserChoice
			
			Case Is = 1 
				Call Task1
			Case Is = 2
				Call Task2
			Case Is = 3
				Call Task3
		End Select

		
		' Return to main menu
		Call Main()	
	End Sub	
	
	Public Sub Task1
			Dim PhoneName(6) as string 
	Dim PhoneItemCode(6) as string
	Dim PhonePrice(6) as decimal
	Dim TabletName(4) as string 
	Dim TabletItemCode(4) as string
	dim TabletDescription(4) as string
	Dim tabletPrice(4) as decimal
		dim SimCardName(2) as string
		Dim SimCardCode(2) as string
	Dim SimCardPrice(2) as decimal
		dim CaseName(2) as String
		dim CaseCode(2) as string
		dim	CasePrice(2) as Decimal
		dim CaseChoice as integer
		dim ChargerName(2) as String
		dim ChargerCode(2) as string
		dim	ChargerPrice(2) as Decimal
		dim ChargerChoice as Char
		dim simcardchoice as integer
	'	dim total as decimal
		Dim correct as Char
		
				PhoneName(1) = "Compact"
				PhoneName(2) = "Clam Shell"
				PhoneName(3) = "RoboPhone – 5-inch screen and 64GB memory"
				PhoneName(4) = "RoboPhone – 6-inch screen and 256GB memory"
				PhoneName(5) = "Y-Phone Standard – 6-inch screen and 64GB memory"
				PhoneName(6) = "Y-Phone Deluxe – 6-inch screen and 256GB memory"
		
				PhoneItemCode(1) = "BPCM"
				PhoneItemCode(2) = "BPSH"
				PhoneItemCode(3) = "RPSS"
				PhoneItemCode(4) = "RPLL"
				PhoneItemCode(5) = "YPLS"
				PhoneItemCode(6) = "YPLL"
		
				PhonePrice(1) = 29.99
				PhonePrice(2) = 49.99
				PhonePrice(3) = 199.99
				PhonePrice(4) = 499.99
				PhonePrice(5) = 549.99
				PhonePrice(6) = 649.99
		
				TabletName(1) = "RoboTab – 8-inch screen and 64GB memory"
				TabletName(2) = "RoboTab – 10-inch screen and 128GB memory"
				TabletName(3) = "Y-Tab Standard – 10-inch screen and 128GB memory"
				TabletName(4) = "Y-Tab Deluxe – 10-inch screen and 256GB memory"
		
				TabletItemCode(1) = "RTMS"
				TabletItemCode(2) = "RTLM"
				TabletItemCode(3) = "YTLM"
				TabletItemCode(4) = "YTLL" 
		
				tabletPrice(1) = 149.99
				tabletPrice(2) = 299.99
				tabletPrice(3) = 499.99 
				tabletPrice(4) = 599.99
		
		SimCardName(1) = "SIM Free (no SIM card purchased)"
		SimCardName(2) = "Pay As You Go (SIM card purchased"

		SimCardCode(1) = "SMNO"
		SimCardCode(2) = "SMPG"
		
		SimCardPrice(1) = 0.00
		SimCardPrice(2) = 9.99
		
		CaseName(1) = "Standard"
		CaseCode(1) = "CSST"
		CasePrice (1) = 0.00
		CaseName(2) = "Luxuary"
		CaseCode(2) = "CSLX"
		CasePrice (2) = 50.00
		
		ChargerName(1) = "Car"
		ChargerCode(1) = "CGCR"
		ChargerPrice (1) = 19.99
		ChargerName(2) = "Home"
		ChargerCode(2) = "CGCM"
		ChargerPrice (2) = 15.99

		' Insert code for Task 1
			Dim PhoneOrTablet as char
		Dim phoneChoice as integer
		dim Tabletchoice as integer
		Total = 0 
		do
		do 
		Console.WriteLine("Are you looking for a Phone Or Tablet")
			Console.Writeline("If you want a Tablet enter T")
			Console.writeline("If you want a Phone enter P")
			PhoneOrTablet = Console.readline()
			loop Until PhoneOrTablet = "P" or PhoneOrTablet = "T"
			
			If PhoneOrTablet = "P"
				For i = 1 to 6
			Console.writeline( i & " " & PhoneName(i) & " " & PhoneItemCode(i) & " $" & PhonePrice(i) )
				next 
		Else if PhoneOrTablet = "T"
					For i = 1 to 4
		Console.writeline( i & " " & TabletName(i) & " " & TabletItemCode(i) & " $" & TabletPrice(i) )
			next 
end if 
	If PhoneOrTablet = "P"
	Console.writeline("Please enter the Number of the Phone you want")
		PhoneChoice = Console.readline()
	End if 
	If PhoneOrTablet = "T"
	Console.writeline("Please enter the Number of the Tablet you want")
		TabletChoice = Console.readline()
	End if 
	If PhoneOrTablet = "P"
		For i = 1 to 2
		Console.writeline(i & " " & SimCardName(i) & " " & SimCardCode(i) & " $" & SimCardPrice(i)) 
	Next
		SimCardChoice = console.readline
		end if 

	for i = 1 to 2
		console.writeline(i & " " & CaseName(i) & " " & CaseCode(i) & " $" & CasePrice(i))
	next
		Console.Writeline("Please choose a Case")
		CaseChoice = console.readline

	for i = 1 to 2
		console.writeline(i & " " & ChargerName(i) & " " & ChargerCode(i) & " $" & ChargerPrice(i))
next
Console.Writeline("Please choose a Charger, Either 1,2,(B)oth or (N)one")
		ChargerChoice = console.readline

	If PhoneOrTablet = "p"
Console.writeline( PhoneChoice & " " & PhoneName(PhoneChoice) & " " & PhoneItemCode(PhoneChoice) & " $" & PhonePrice(PhoneChoice) )
Console.writeline(SimCardChoice & " " & SimCardName(SimCardChoice) & " " & SimCardCode(SimCardChoice) & " $" & SimCardPrice(SimCardChoice)) 
console.writeline(CaseChoice & " " & CaseName(CaseChoice) & " " & CaseCode(CaseChoice) & " $" & CasePrice(CaseChoice))
Total = Total + PhonePrice(PhoneChoice)
Total = total + SimCardPrice(SimCardChoice)
Total = Total + CasePrice(CaseChoice)
Select Case Chargerchoice
case is = "1"
console.writeline(1 & " " & ChargerName(1) & " " & ChargerCode(1) & " $" & ChargerPrice(1))
Total = Total + ChargerPrice(1)
Case is = "2"
console.writeline(2 & " " & ChargerName(2) & " " & ChargerCode(2) & " $" & ChargerPrice(2))
Total = Total + ChargerPrice(2)
Case is = "B"
console.writeline(1 & " " & ChargerName(1) & " " & ChargerCode(1) & " $" & ChargerPrice(1))
console.writeline(2 & " " & ChargerName(2) & " " & ChargerCode(2) & " $" & ChargerPrice(2))
Total = Total + ChargerPrice(1)
Total = Total + ChargerPrice(2)
case is = "N"
Console.writeline("No charger's selected")
end select 
	end if 
If PhoneOrTablet = "T"
Console.writeline( PhoneChoice & " " & PhoneName(TabletChoice) & " " & PhoneItemCode(TabletChoice) & " $" & PhonePrice(TabletChoice) )
console.writeline(CaseChoice & " " & CaseName(CaseChoice) & " " & CaseCode(CaseChoice) & " $" & CasePrice(CaseChoice))
Total = Total + PhonePrice(TabletChoice)
Total = Total + CasePrice(CaseChoice)
Select Case Chargerchoice
case is = "1"
console.writeline(1 & " " & ChargerName(1) & " " & ChargerCode(1) & " $" & ChargerPrice(1))
Total = Total + ChargerPrice(1)
Case is = "2"
console.writeline(2 & " " & ChargerName(2) & " " & ChargerCode(2) & " $" & ChargerPrice(2))
Total = Total + ChargerPrice(2)
Case is = "B"
console.writeline(1 & " " & ChargerName(1) & " " & ChargerCode(1) & " $" & ChargerPrice(1))
console.writeline(2 & " " & ChargerName(2) & " " & ChargerCode(2) & " $" & ChargerPrice(2))
Total = Total + ChargerPrice(1)
Total = Total + ChargerPrice(2)
case is = "N"
Console.writeline("No charger's selected")
end select 
	end if 
Console.writeline("This is your total " & Total)

Console.writeline("Is this correct, (Y)es Or (N)o")
correct = console.readline
Loop until Correct = "Y" or Correct = "N"
End Sub

	
	Public Sub Task2		
		' Insert code for Task 2
		'	Dim anymore as char
				Do
					Call Task1
						Console.writeline("Any More devicies (Y/N)")
							AnyMore = Console.readline()
				Loop until Anymore = "N"
	End Sub	
	
	Public Sub Task3		
		' Insert code for Task 3	

dim counter as integer
dim DISCOUNT
			Do
					Call Task1
						Console.writeline("Any More devicies (Y/N)")
							AnyMore = Console.readline()
counter = 0
DISCOUNT = total
DISCOUNT = DISCOUNT * (counter / 10)
total = total - DISCOUNT
totalmulti = total + totalmulti

counter = counter + 1


				Loop until Anymore = "N"
Console.writeline(Totalmulti)
	End Sub
	
End Module

​x
 
Imports System
                
Public Module Module1   
    Dim anymore as char
            dim total as decimal
    dim totalmulti as decimal
    Public Sub Main()
    
        Dim UserChoice As Integer       
        Console.WriteLine("MENU OF OPTIONS")        
        Do
            Console.WriteLine("Task 1")
            Console.WriteLine("Task 2")         
            Console.WriteLine("Task 3")
            Console.WriteLine("Enter number 1 - 3")
            
            UserChoice = Console.ReadLine()
            
        Loop Until UserChoice >= 1 And UserChoice <= 3
        
        Select Case UserChoice
            
            Case Is = 1 
                Call Task1
            Case Is = 2
                Call Task2
            Case Is = 3
                Call Task3
        End Select
​
        
        ' Return to main menu
        Call Main() 
    End Sub 
    
    Public Sub Task1
            Dim PhoneName(6) as string 
    Dim PhoneItemCode(6) as string
    Dim PhonePrice(6) as decimal
    Dim TabletName(4) as string 
    Dim TabletItemCode(4) as string
    dim TabletDescription(4) as string
    Dim tabletPrice(4) as decimal
        dim SimCardName(2) as string
        Dim SimCardCode(2) as string
    Dim SimCardPrice(2) as decimal
        dim CaseName(2) as String
        dim CaseCode(2) as string
        dim CasePrice(2) as Decimal
        dim CaseChoice as integer
        dim ChargerName(2) as String
        dim ChargerCode(2) as string
        dim ChargerPrice(2) as Decimal
        dim ChargerChoice as Char
        dim simcardchoice as integer
    '   dim total as decimal
        Dim correct as Char
        
                PhoneName(1) = "Compact"
                PhoneName(2) = "Clam Shell"
                PhoneName(3) = "RoboPhone – 5-inch screen and 64GB memory"
                PhoneName(4) = "RoboPhone – 6-inch screen and 256GB memory"
                PhoneName(5) = "Y-Phone Standard – 6-inch screen and 64GB memory"
                PhoneName(6) = "Y-Phone Deluxe – 6-inch screen and 256GB memory"
        
                PhoneItemCode(1) = "BPCM"
                PhoneItemCode(2) = "BPSH"
                PhoneItemCode(3) = "RPSS"
                PhoneItemCode(4) = "RPLL"
                PhoneItemCode(5) = "YPLS"
                PhoneItemCode(6) = "YPLL"
        
                PhonePrice(1) = 29.99
                PhonePrice(2) = 49.99
                PhonePrice(3) = 199.99
                PhonePrice(4) = 499.99
                PhonePrice(5) = 549.99
                PhonePrice(6) = 649.99
        
                TabletName(1) = "RoboTab – 8-inch screen and 64GB memory"
                TabletName(2) = "RoboTab – 10-inch screen and 128GB memory"
                TabletName(3) = "Y-Tab Standard – 10-inch screen and 128GB memory"
                TabletName(4) = "Y-Tab Deluxe – 10-inch screen and 256GB memory"
        
                TabletItemCode(1) = "RTMS"
                TabletItemCode(2) = "RTLM"
                TabletItemCode(3) = "YTLM"
                TabletItemCode(4) = "YTLL" 
        
                tabletPrice(1) = 149.99
                tabletPrice(2) = 299.99
                tabletPrice(3) = 499.99 
                tabletPrice(4) = 599.99
        
        SimCardName(1) = "SIM Free (no SIM card purchased)"
        SimCardName(2) = "Pay As You Go (SIM card purchased"
​
        SimCardCode(1) = "SMNO"
        SimCardCode(2) = "SMPG"
        
        SimCardPrice(1) = 0.00
        SimCardPrice(2) = 9.99
        
        CaseName(1) = "Standard"
        CaseCode(1) = "CSST"
        CasePrice (1) = 0.00
        CaseName(2) = "Luxuary"
        CaseCode(2) = "CSLX"
        CasePrice (2) = 50.00
        
        ChargerName(1) = "Car"
        ChargerCode(1) = "CGCR"
        ChargerPrice (1) = 19.99
        ChargerName(2) = "Home"
        ChargerCode(2) = "CGCM"
        ChargerPrice (2) = 15.99
​
        ' Insert code for Task 1
            Dim PhoneOrTablet as char
        Dim phoneChoice as integer
        dim Tabletchoice as integer
        Total = 0 
        do
        do 
        Console.WriteLine("Are you looking for a Phone Or Tablet")
            Console.Writeline("If you want a Tablet enter T")
            Console.writeline("If you want a Phone enter P")
            PhoneOrTablet = Console.readline()
            loop Until PhoneOrTablet = "P" or PhoneOrTablet = "T"
            
            If PhoneOrTablet = "P"
                For i = 1 to 6
            Console.writeline( i & " " & PhoneName(i) & " " & PhoneItemCode(i) & " $" & PhonePrice(i) )
                next 
        Else if PhoneOrTablet = "T"
                    For i = 1 to 4
        Console.writeline( i & " " & TabletName(i) & " " & TabletItemCode(i) & " $" & TabletPrice(i) )
            next 
end if 
    If PhoneOrTablet = "P"
    Console.writeline("Please enter the Number of the Phone you want")
        PhoneChoice = Console.readline()
    End if 
    If PhoneOrTablet = "T"
    Console.writeline("Please enter the Number of the Tablet you want")
        TabletChoice = Console.readline()
    End if 
    If PhoneOrTablet = "P"
        For i = 1 to 2
        Console.writeline(i & " " & SimCardName(i) & " " & SimCardCode(i) & " $" & SimCardPrice(i)) 
    Next
        SimCardChoice = console.readline
        end if 
​
    for i = 1 to 2
        console.writeline(i & " " & CaseName(i) & " " & CaseCode(i) & " $" & CasePrice(i))
    next
        Console.Writeline("Please choose a Case")
        CaseChoice = console.readline
​
    for i = 1 to 2
        console.writeline(i & " " & ChargerName(i) & " " & ChargerCode(i) & " $" & ChargerPrice(i))
next
Console.Writeline("Please choose a Charger, Either 1,2,(B)oth or (N)one")
        ChargerChoice = console.readline
​
    If PhoneOrTablet = "p"
Console.writeline( PhoneChoice & " " & PhoneName(PhoneChoice) & " " & PhoneItemCode(PhoneChoice) & " $" & PhonePrice(PhoneChoice) )
Console.writeline(SimCardChoice & " " & SimCardName(SimCardChoice) & " " & SimCardCode(SimCardChoice) & " $" & SimCardPrice(SimCardChoice)) 
console.writeline(CaseChoice & " " & CaseName(CaseChoice) & " " & CaseCode(CaseChoice) & " $" & CasePrice(CaseChoice))
Total = Total + PhonePrice(PhoneChoice)
Total = total + SimCardPrice(SimCardChoice)
Total = Total + CasePrice(CaseChoice)
Select Case Chargerchoice
case is = "1"
console.writeline(1 & " " & ChargerName(1) & " " & ChargerCode(1) & " $" & ChargerPrice(1))
Total = Total + ChargerPrice(1)
Case is = "2"
console.writeline(2 & " " & ChargerName(2) & " " & ChargerCode(2) & " $" & ChargerPrice(2))
Total = Total + ChargerPrice(2)
Case is = "B"
console.writeline(1 & " " & ChargerName(1) & " " & ChargerCode(1) & " $" & ChargerPrice(1))
console.writeline(2 & " " & ChargerName(2) & " " & ChargerCode(2) & " $" & ChargerPrice(2))
Total = Total + ChargerPrice(1)
Total = Total + ChargerPrice(2)
case is = "N"
Console.writeline("No charger's selected")
end select 
    end if 
If PhoneOrTablet = "T"
Console.writeline( PhoneChoice & " " & PhoneName(TabletChoice) & " " & PhoneItemCode(TabletChoice) & " $" & PhonePrice(TabletChoice) )
console.writeline(CaseChoice & " " & CaseName(CaseChoice) & " " & CaseCode(CaseChoice) & " $" & CasePrice(CaseChoice))
Total = Total + PhonePrice(TabletChoice)
Total = Total + CasePrice(CaseChoice)
Select Case Chargerchoice
case is = "1"
console.writeline(1 & " " & ChargerName(1) & " " & ChargerCode(1) & " $" & ChargerPrice(1))
Total = Total + ChargerPrice(1)
Case is = "2"
console.writeline(2 & " " & ChargerName(2) & " " & ChargerCode(2) & " $" & ChargerPrice(2))
Total = Total + ChargerPrice(2)
Case is = "B"
console.writeline(1 & " " & ChargerName(1) & " " & ChargerCode(1) & " $" & ChargerPrice(1))
console.writeline(2 & " " & ChargerName(2) & " " & ChargerCode(2) & " $" & ChargerPrice(2))
Total = Total + ChargerPrice(1)
Total = Total + ChargerPrice(2)
case is = "N"
Console.writeline("No charger's selected")
end select 
    end if 
Console.writeline("This is your total " & Total)
​
Console.writeline("Is this correct, (Y)es Or (N)o")
correct = console.readline
Loop until Correct = "Y" or Correct = "N"
End Sub
​
    
    Public Sub Task2        
        ' Insert code for Task 2
        '   Dim anymore as char
                Do
                    Call Task1
                        Console.writeline("Any More devicies (Y/N)")
                            AnyMore = Console.readline()
                Loop until Anymore = "N"
    End Sub 
    
    Public Sub Task3        
        ' Insert code for Task 3    
​
dim counter as integer
dim DISCOUNT
            Do
                    Call Task1
                        Console.writeline("Any More devicies (Y/N)")
                            AnyMore = Console.readline()
counter = 0
DISCOUNT = total
DISCOUNT = DISCOUNT * (counter / 10)
total = total - DISCOUNT
totalmulti = total + totalmulti
​
counter = counter + 1
​
​
                Loop until Anymore = "N"
Console.writeline(Totalmulti)
    End Sub
    
End Module
​
​
​
​

Valor inicial de la variable a: 10
Valor inicial de la variable b: 25

Intercambio sin variable temporal....
a = a + b: 35
b = a - b: 10
a = a + b: 25

Intercambio de variable ....
a: 25
b: 10

Last Run:	11:18:24 am
Compile:	0.104s
Execute:	0s
Memory:	8kb
CPU:	0s

View IL Code