Creación de perfiles de viento

El contenido de los ficheros de ráfagas de viento (con extensión "*.wgt") tiene un formato específico binario, que se corresponde con el siguiente programa de ejemplo. Este código de VBA está contenido en el fichero "CreateWGTFile.xlsm"

-------------------------------------------

Option Explicit

Public Type WindGustEntry

    Time As Double

    Wind As Double

End Type

Texto disponible con la licencia. Available only with license

Texto disponible con la licencia. Available only with license

Dim nWGEntry As WindGustEntry

    fileNumber = FreeFile(0)

    Open iFileName For Random As #fileNumber Len = Len(nWGEntry)

    For I = 2 To UBound(iRange.Value2)

        nWGEntry.Time = iRange.Value2(I, 1)

        nWGEntry.Wind = iRange.Value2(I, 2)

        Put #fileNumber, I - 1, nWGEntry  

    Next I

Texto disponible con la licencia. Available only with license

Texto disponible con la licencia. Available only with license

---------------------------------

El libro de Excel 2007 "CreateWGFfile.xlsm" contiene el código anterior y un formulario ("UserForm1") que contiene el botón que crea el fichero con el nombre y la localización mostrada, y cuyo contenido corresponde a la zona selecciona, la cual tiene también un gráfico asociado, de forma que modificando dicha zona se puede ver la repercusión directamente en el gráfico.

Los valores que se guardan en el fichero creado corresponde con los asociados con el "Range" "WindGust".

Para que sean tomados en cuenta los ficheros de ráfagas de viento deben colocarse en el directorio "..\WindFarmSimulator\windgusts"