Vectores.vb

  1. ' Vectores.vb — ProInf.net — feb-2012
  2. '
  3. ' Almacenan la información estadística de los recursos "array_*.csv"
  4.  
  5. Public Class VectorNombres
  6. Inherits VectorAzarAbstracto(Of ValorNombre)
  7.  
  8. Public Sub New(ByVal recurso As String)
  9. MyBase.New(recurso)
  10. End Sub
  11.  
  12. End Class
  13.  
  14. Public Class VectorApellidos
  15. Inherits VectorAzarAbstracto(Of ValorApellido)
  16.  
  17. Public Sub New(ByVal recurso As String)
  18. MyBase.New(recurso)
  19. End Sub
  20.  
  21. End Class
  22.  
  23. Public Class VectorMunicipios
  24. Inherits VectorAzarAbstracto(Of ValorMunicipio)
  25.  
  26. Public Sub New(ByVal recurso As String)
  27. MyBase.New(recurso)
  28. End Sub
  29.  
  30. End Class
  31.  
  32. Public Class VectorProvincias
  33. Inherits VectorAzarAbstracto(Of ValorProvincia)
  34.  
  35. Public Sub New(ByVal recurso As String)
  36. MyBase.New(recurso)
  37. End Sub
  38.  
  39. Protected Overrides Sub CalcularSumatorioFrecuencias()
  40. ObtenerFrecuenciasDesdeMunicipios()
  41. MyBase.CalcularSumatorioFrecuencias()
  42. End Sub
  43.  
  44. Private Sub ObtenerFrecuenciasDesdeMunicipios()
  45. For indice = 0 To Recursos.municipios.Count - 1
  46. Dim frecuenciaMunicipio = Recursos.municipios(indice).Frecuencia
  47. Dim numeroProvincia = Recursos.municipios(indice).NumeroProvincia
  48. Me(numeroProvincia).Frecuencia += frecuenciaMunicipio
  49. Next
  50. End Sub
  51.  
  52. End Class
  53.  
  54. Public Class VectorPalabrasComunes
  55. Inherits VectorAzarAbstracto(Of ValorPalabraComun)
  56.  
  57. Public Sub New(ByVal recurso As String)
  58. MyBase.New(recurso)
  59. End Sub
  60.  
  61. Private ultimaPalabra As String = ""
  62.  
  63. Public Function FraseAleatoria(ByVal numeroPalabras As Integer) As String
  64. Dim sb As New System.Text.StringBuilder()
  65. For i = 1 To numeroPalabras
  66. Dim palabra = PalabraAleatoria()
  67. If i = 1 Then palabra = Utilidades.Capitalizar(palabra)
  68. sb.Append(palabra)
  69. If i < numeroPalabras Then sb.Append(" ")
  70. Next
  71. sb.Append(".")
  72. Return sb.ToString()
  73. End Function
  74.  
  75. Private Function PalabraAleatoria() As String
  76. Dim palabra As String
  77. Do : palabra = AleatorioPonderado().Texto
  78. Loop Until palabra <> ultimaPalabra
  79. ultimaPalabra = palabra
  80. Return palabra
  81. End Function
  82.  
  83. End Class
  84.  
  85. Public Class VectorPalabras
  86. Inherits VectorAzarAbstracto(Of ValorPalabra)
  87.  
  88. Public Sub New(ByVal recurso As String)
  89. MyBase.New(recurso)
  90. End Sub
  91.  
  92. End Class
  93.  
  94. Public Class VectorAdjetivos
  95. Inherits VectorAzarAbstracto(Of ValorAdjetivo)
  96.  
  97. Public Sub New(ByVal recurso As String)
  98. MyBase.New(recurso)
  99. End Sub
  100.  
  101. End Class
  102.  
  103. Public Class VectorDefinidosPredeterminados
  104. Inherits VectorAzarAbstracto(Of ValorCampoDefinido)
  105.  
  106. Public Sub New(ByVal recurso As String)
  107. MyBase.New(recurso)
  108. End Sub
  109.  
  110. End Class

Proinf.net