Mensajes

Muchas gracias, y con un:

Código [Seleccionar] Expandir

On Error Goto noexcel
...
...
noexcel:
msgbox "Para usar esta bonita opción debes tener instalado EXCEL", vBOk
¿Estaría todo solucionado?, mi programa no depende de más cosas porque he intentado que sea lo más "natural" posible, he pensado que haya una opción de introducir datos en txt y otra en excel pero si intentan usar excel y no hay que pegue error y fuera, ¿Crees que no daría problemas?
Me da miedo que todo lo demás que hace el programa falle por añadir esta característica en el caso de exportar datos simplemente.

Hola, ¿que tal?, escribo este mensaje para preguntar sobre la compatibilidad que existen al crear objetos excel en visual basic 6, quiero crear una aplicación que dependa al mínimo de que ordenador nos encontramos para funcionar. Y mi duda es, el siguiente código para crear el objeto que requisitos necesita el ordendor para que no de error.

Código [Seleccionar] Expandir

   Dim oExcel As Object
   Dim oBook As Object
   Dim oSheet As Object

   'Start a new workbook in Excel
   Set oExcel = CreateObject("Excel.Application")
   Set oBook = oExcel.Workbooks.Add

Muchas Gracias

Pues porque durante casi mil años han sido sustancias que la sociedad ha consumido como algo normal por ello a través del tiempo culturalmente no hay aprobación social ninguna para su ilegalización.
Además, por ejemplo en el caso del alcohol, gran parte de la gastronomía en todas las culturas ha ido acompañada de alguna bebida alcoholica, vino, cava, cerveza etc.., si no como un cumplemento en sabor. Y el disfrute de un plato gastrónomico resulta extremadamente extraño si no es en acompañamiento de algunas de estas bebidas. Aparte de todo esto dejo lo que podría llamarse licores pero la gastronomía sin bebidas alcoholicas hoy en día carece de sentido, inclusive para cocinar se usan licores (aunque todo el alcohol se evapora).

Luego el tabaco, yo solo he fumado cachimba y más que perjudicarme me abría los pulmones, era tabaco sabor menta y sin nicotina. El tabaco como tal no es lo mismo que los cigarros que elaboran hoy en día en los cuales le hechan mil mierdas y respirar el humo es super perjudicial, por algo en un bar es legal fumar una cachimba en interior pero no fumar un cigarro.

Legalizar más drogas, pues a mi no me importaría, más impuestos para el estado pero ya estas drogas, que de momento no les encuentro un objetivo más alla que meterse el "colocón", deben estar mucho más vigiladas, tratadas y controladas. No me haría gracia ninguna encontrarme a un chaval de 14 años en un botellón en coma porque el amigo mayor de 18 años le ha pasado coca que ha comprado legalmente en un mercado de pueblo, tendría que estar supervigilado, hacer un curso antes sobre drogas y despues firmar como que eres plenamente consciente de lo que significa.
Porque vuelvo a repetir, meterse una raya de coca no le veo lo que puede aportar más alla del colocón pero si vas a favorecer a mafias, que sea más fácil conseguirlo legalmente en un establecimiento con todos los impuestos al estado que darle el dinero a mafias.
Y finalmente en España, creo que es completamente legal que tu te plantes tu plantita de Maria (la venta de semillas y todo es legal) y de ahí cojas lo que tu quieras para autoconsumo, por lo que el estado tampoco te hace una prohibición bestial de no consumas drogas ilegales, lo que no está bien es que te lucres por ello, pero es completamente legal consumirlo en casa.

Las dos cargas en el eje Y se contrarestan por lo que, te olvidas de ella, luego la carga del medio sería:
F=-CONSTANTE*q*Q/r^2 ux

Luego las siguientes, si no me equivoco por las horas que te escribo la componente en el eje Y estaría anulada, por lo que solo tendrías componente X, obviamente en la dirección -x.
Pero necesito saber que ángulo forman ambas cargas, voy a suponer que forman un ángulo de 45º y de -45º con respecto el eje X.
Entonces tendremos:
F=-2*CONSTANTE*q*Q*cos45/r^2 ux

que sumado todo sería:
F=-CONSTANTE*q*Q(2*cos45+1)/r^2 ux


Aunque no estoy 100% seguro, porque no lo he hecho a papel, pero no debe andar muy lejos

Al final resolvi el problema, dejo parte del código por si a alguien le es útil, este código se encarga de ver cuantos puntos existen en el fichero para poder tomar los datos en una matriz posteriormente de esos elementos:

Código [Seleccionar] Expandir

leerpcateter = False
filasmatriz = 0
Open directorio & "\LiveLoading.cha" For Input As #2
Do While Not EOF(2)
Line Input #2, linea


If leerpcateter = True Then
pcateter = CDbl(linea)

leerpcateter = False
End If
If InStr(linea, "Number of Points") > 0 Then
leerpcateter = True
End If

If pcateter > 0 Then
filasmatriz = filasmatriz + pcateter
pcateter = 0
End If
Loop

Close #2

C = filasmatriz

Código [Seleccionar] Expandir

Open App.Path & "\Datos\test.cha" For Input As #1
leercoordenadas = False
leertiempos = False
buscartiempos = False
  Do While Not EOF(1)
       
        'Lee la linea
        Line Input #1, linea
       
          If leertiempos = True Then
       
     
       List2.AddItem linea
     
       leertiempos = False
       End If
       If InStr(linea, "Weight") > 0 And buscartiempos = True Then
       leertiempos = True
       buscartiempos = False
       End If
     
         
         If leercoordenadas = True Then
       List1.AddItem Trim(linea)
       leercoordenadas = False
       buscartiempos = True
       End If
       If InStr(linea, "Coordinates") > 0 Then
       leercoordenadas = True
       End If
       
     
    Loop

Con el siguiente código consigo que me aparezcan un listado de las coordenadas, hay unas 400

67.336888 52.054878 -2.064480

Y otro listado de los tiempos:

0.303272

Y uso la función trim para quitar los espacios en blanco pero no consigo hacerlos desaparecer, ni tratar el texto ni nada no entiendo :S
Porque ya teniendo esas cadenas deberían ser fáciles de tratar, ¿No?

Me refiero a un fichero con ese formato el cual elabora un programa planificador, poder desde un programa mio leerlo y obtener posiciones de la fuente radiactiva y tiempo en dicha posición.
Hay aproximadamente 111 posiciiones con su tiempo, y quiero leer todo eso pasando practicamente de otros datos.

Hola, ¿que tal?
He puesto este mensaje por si me podriaís dar referencia de instrucciones o código de como puedo leer en un fichero con cosas asi:

Catheter 6
   Begin
      Number of Points
         39

      Point 0
      Begin
         Coordinates
            67.336888 52.054878 -2.064480
         Status
            Active
         Weight
            0.303272
      End
End

Necesito tomar esos datos del fichero para trabajar en ellos, realmente es una parte de un trabajo en un problema físico de calculo de dosis en tratamientos de cancer. (Son varios cateter y por cateter 39 puntos con ese formato)
Y bueno si me podeís dar bibliografía de acceso a ficheros o códigos para leer datos como estos estaría muy agradecido.
Muchas gracias

Yo haría cualquiera, tal y como está la crisis es muy posible que antes de encontrar trabajos puedas hacer el otro, son 4 años en total como mucho una carrera. No lo veo tan dificil tal y como están las cosas.

El ajuste lo hace excel automáticamente, pues ajustar puntos a través de un polinomio conlleva un trabajo estadístico enorme, en la universad solo se enseña y como curiosidad (no lo usamos apenas en la vida real) a los físicos como se ajusta linealmente analíticamente. Obviamente investigando se puede sacar, aunque ese trabajo es más de un matemático.

Pero un caso particular es el tuyo el cual estamos ajustando tres puntos, si me das todos los puntos que puedas sacar te ajusto la curva en un momento, a lo mejor no a segundo orden pero al orden necesario.

Ahora mismo no recuerdo que método era el de la fórmula analítica, por lo que en la vida real apenas se usa, es muy raro que un experimento solo tengamos tres puntos y más raro que se ajuste perfectamente. Solo recordaba que existe un teorema por el cual tres puntos siempre pueden ser ajustados por un polinomio de segundo orden pero no recuerdo ahora mismo cual era la fórmula.

Si no entiendes excel solo te puedo ofrecer que me pases todos los puntos y te los ajusto en un momento. Otra opción es que investigues en excel, es muy sencillo, le das a dispersión X-Y, seleccionas los datos que tienes, le das en la gráfica a ajustar datos y excel te dice si quieres el ajuste lineal, polinómico, exponencial, logarítmico, etc..., le das a mostrar ecuación y fuera. No está mal que para un futuro sepas usar esta herramienta.

Un Saludo