fork download
copy 
  1. class foo
  2.  
  3. Public Property Get ID() As Integer
  4. ID = customerDBSheet.Range("L3").Value
  5. End Property
  6.  
  7. Public Property Get FirstName() As String
  8. FirstName = txtFName.Text
  9. End Property
  10.  
  11. Public Property Get LastName() As String
  12. LastName = txtLName.Text
  13. End Property
  14.  
  15. Public Property Get Address1() As String
  16. Address1 = txtAddress1.Text
  17. End Property
  18.  
  19. Public Property Get Address2() As String
  20. If txtAddress2.Text = "Address Line 2" Then
  21. Address2 = ""
  22. Else
  23. Address2 = txtAddress2.Text
  24. End If
  25. End Property
  26.  
  27. Public Property Get Town() As String
  28. Town = txtTown.Text
  29. End Property
  30.  
  31. Public Property Get Postcode() As String
  32. Postcode = txtPostcode.Text
  33. End Property
  34.  
  35. Public Property Get Phone() As String
  36. Phone = txtPhone.Text
  37. End Property
  38.  
  39. Public Property Get Email() As String
  40. Email = txtEmail.Text
  41. End Property
  42.  
  43. Public Property Get Sex() As String
  44. If (rdMale.Value = True) Then
  45. Sex = Male
  46. Else
  47. Sex = Female
  48. End If
  49. End Property
  50.  
  51. Public Property Get Username() As String
  52. Username = FirstName + LastName
  53. End Property
  54.  
  55. Public Property Get PasswordHash() As String
  56. PasswordHash = mdlSHA.SHA1HASH(txtPassword.Text)
  57. End Property
  58.  
  59.  
  60. end class
Success #stdin #stdout 0.01s 2780KB
comments (?)
stdin
copy 
Standard input is empty
stdout
copy 
Standard output is empty
https://ideone.com/1Twtg
language:
Unlambda (unlambda 0.1.4.2)
created:
12 years ago
visibility:
secret

Share or Embed source code

Discover > Sphere Engine API

The brand new service which powers Ideone!

Discover > IDE Widget

Widget for compiling and running the source code in a web browser!