• Sábado 7 de Diciembre de 2024, 19:26

Mostrar Mensajes

Esta sección te permite ver todos los posts escritos por este usuario. Ten en cuenta que sólo puedes ver los posts escritos en zonas a las que tienes acceso en este momento.


Mensajes - ezequielminor

Páginas: [1]
1
Diseño de Algoritmos / Re: Ayuda Con Algoritmo Para Calificaciones
« en: Martes 2 de Octubre de 2007, 00:46 »
algoritmo calificaciones

DE: cal1,cal2,cal3
DS: promedio

si cal1 > 6
  entonces
    aprobadas = aprobadas  + 1
   
si cal2 > 6
  entonces
    aprobadas = aprobadas  + 1

 si cal3 > 6
  entonces
    aprobadas = aprobadas  + 1

si aprobadas = 0
entonces
  no muestro nada

si aprobadas > 1
entonces
  sumo las notas y saco promedio


es una ayuda que te doy para que puedas verlo de otra manera y asi poder realizar vos mismo el algoritmo  ;)

2
Visual Basic para principiantes / Re: Error '13'
« en: Martes 2 de Octubre de 2007, 00:36 »
la sintaxis de la funcion es :

OpenReport(ReportName, View, FilterName, WhereCondition, WindowMode, OpenArgs)

un ejemplo:

DoCmd.OpenReport "I_Envios_Recibidos", acViewPreview, , crit

3
Visual Basic 6.0 e inferiores / Re: Abrir Un Archivo De Power Point
« en: Martes 2 de Octubre de 2007, 00:28 »
la función ShellExecute() de API de Windows inicia la aplicación asociada a una extensión de un archivo dado sin conocer el nombre de la aplicación asociada. Por ejemplo, al pasar el nombre de archivo ARCADE.BMP a la función ShellExecute(). Inicia la aplicacion para poder visualizarlo.

 :D

4
Visual Basic 6.0 e inferiores / Re: Apagar, Reiniciar Windows Con Vb6
« en: Martes 2 de Octubre de 2007, 00:24 »
proba con
    Dim comando As String
   comando = Shell("shutdown -r")


reemplaza el comando por el que necesites.

5
Visual Basic 6.0 e inferiores / Re: Ocx Visual Basic
« en: Martes 2 de Octubre de 2007, 00:18 »
para comparar los elementos de un arreglo solo basta con recorrerlo y compararlo con el 2do arreglo . por ejemplo

dim MiArreglo(15) as string
dim Numero as integer, i as integer
dim Coincidencias as integer
Numero = 0
Coincidencias = 0

For i = 0 to 15
 For Numero = 0 to 15
    if Numero = MiArreglo(i) Then
    Coincidencias = Coincidencias + 1
    End If
         If Coincidencias > 1 Then
         MsgBox("Se Repite el numero" & Numero)
  Next Numero
Next i

no estoy muy seguro de su funcionamiento, cuando vuelva  a tener contacto con mi computadora , te traigo un codigo fuente  :hola:

6
Visual Basic 6.0 e inferiores / Re: 2 Modem Con Caller.id En Una Mquina
« en: Martes 2 de Octubre de 2007, 00:01 »
no puedo ayudarte mucho sin ver el codigo del programa, lo que puedo decirte es que intentes con otros sistemas de identificaion de llamadas, hay muchisimos que te seran de ayuda como por ejemplo:

Active Phone Server

Advanced Call Center

Call Soft

aunque no estoy seguro de que se trate de un sistema de identificacion de llamadas comunes como vienen estos "empaquetados"

7
Visual Basic 6.0 e inferiores / Re: Abrir Un Archivo De Power Point
« en: Lunes 1 de Octubre de 2007, 23:48 »
una de las maneras puede ser la que respondio mollense, aunque con Shell lo que lograrias es ejecutar la aplicacion powerpoint, si lo que buscas es crear tu propia aplicacion para visualizar los documentos relacionados con este programa, podes probar con las referencias de Microsoft Office y tambien sus componentes.

podes consultar en el soporte de microsoft.

8
una posible respuesta podria ser la siguiente:

'Código para transmitir
Dim FileName As String: FileName = "C:\BinFiles\Test.Exe"
Dim Offset As Long
Dim FileData As Byte
Open FileName For Binary Access Read As #1
For Offset = 1 To FileLen(FileName)
Get #1, Offset, FileData
MSComm1.Output = Chr$(FileData)
Next Offset
Close #1
'Código para recibir
'Se asume que File #1 ya ha sido abierto en alguna parte del código y
'que ByteCount ha sido declarado como Long e inicializado a 0.
Private Sub MSComm1_OnComm()
Dim TmpStr As String
Dim StrLen As Long, I As Long
Dim FileData As Byte
If MSComm1.CommEvent = comEvReceive Then
While MSComm1.InBufferCount > 0
TmpStr = MSComm1.Input
StrLen = Len(TmpStr)
For I = 1 To StrLen
FileData = CByte(Asc(Mid(TmpStr, I, 1)))
ByteCount = ByteCount + 1
Put #1, ByteCount, FileData
Next I
TmpStr = ""
Wend
End If
End Sub


para mas informacion visita Este enlace

9
Redes y Comunicaciones / Re: Chat Lan??
« en: Lunes 1 de Octubre de 2007, 23:33 »
si lo que queres hacer es simplemente un chat en Lan (red local) , con un Winsock te basta y te sobra.

no vas a tener problemas con puertos locales, (me refiero a bloqueos,firewalls,etc.) que podrian ser tediosos a la hora de programar para algun sistema de comunicacion en linea (wan).

utilizando funciones tan sencillas del winsock como SendData, GetData, Connect, Listen, etc. podes lograr un chat sencillo en muy pocas lineas de codigo.

cualquier duda, no dejes de postearlo.

Páginas: [1]