Iniciar sesión
Crear cuenta
Crear cuentaCrear cuenta| Hay un total de 266 Preguntas. | << >> |
| Pregunta: | 67323 - CALCULO DE UNA RAIZ CUADRADA |
| Autor: | andrea |
| Holaa. quiero desarrollar paso a paso el algoritmo para el calculo de una raiz cuadrada pero no entiendo como organizo todo esos datos en pseint ayuudaa | |
| Contestar |
| Pregunta: | 67324 - CALCULO DE UNA RAIZ CUADRADA EN PSEINT |
| Autor: | andreaaa |
| holaa necesito desarrollar el algoritmo para el calculo de una raiz cuadrada de un numero no necesito el comando RC tengo que aserlo paso a paso segun el algoritmo que se encuentra en la red | |
| Contestar |
| Pregunta: | 67326 - COMO HACER UNA CALCULADORA IP EN PSEINT |
| Autor: | andrea d |
| deseo crear una calculadora ip en pseint | |
| Contestar |
| Pregunta: | 67332 - AUTOCAD CERRAR PLANOS CORRECTAMENTE |
| Autor: | Enrique Larrosa |
| Hola
he creado una macro VBA en un plano autocad. Podria crear una aplicacion escritorio con Vb Studio y ejecutar desde esta los comandos Excel y Autocad. Adjunto codigo para mas informacion: Public ExcelApp As Excel.Application Dim FullaExcel As String Public Wrkbook As Excel.Workbooks Dim llistaDWG As AcadDocuments Dim dwg As AcadDocument Dim rutaFitxerDWG As String Dim nomFixerDWG As String Dim rutaNomDWG As String Dim StrnumDWG As String Dim IntnumDWG As Integer Dim numTotalDWG As Integer Dim StrNumPagNomemclatures As String Dim StrIndexBlocksEnDWG As String Dim indexBlocksDWGArray() As String Dim contadorFullesExcel As Variant Dim acEntidad As AcadEntity Dim acadBlkRef As AcadBlockReference Dim varAttributes As Variant '============================================ Public Sub CreanomBlockArray() 'convertimos contenido string a Array siendo el valor de cada posición el que hay entre el separador / StrIndexBlocksEnDWG = "2/1/4/5/6/7/8/9/10/11/12/13/14/15/16/17/18/19/20/21/22/23/24/25/26/" StrIndexBlocksEnDWG = StrIndexBlocksEnDWG + "27/28/29/30/31/32/33/34/35/36/37/38/39/40/41/42/43/44/45/46/47/48/49/50" indexBlocksDWGArray = Split(StrIndexBlocksEnDWG, "/") End Sub '================================================= Function ExcelConnect() ' This function connects excel with autocad On Error Resume Next Set ExcelApp = GetObject(, "Excel.Application") If Err Then Err.Clear Set ExcelApp = CreateObject("Excel.Application") ExcelApp.Visible = True If Err Then MsgBox Err.Description Exit Function End If End If End Function '================================================== Function ExcelClose() 'cerramos fichero Excel ' Application.DisplayAlerts = False Application.Quit ' cierra conexion entre Autocad y excel Set ExcelApp = Nothing End Function '=================================================== Public Sub CreaStocklist() rutaFitxerDWG = ThisDrawing.Path nomFixerDWG = AutoCAD.ActiveDocument.Name rutaNomDWG = rutaFitxerDWG & "/" & nomFitxerDWG CreanomBlockArray ExcelConnect Workbooks.Open FileName:="C:dwgStocklist_N.xlsx" contadorFullesExcel = ActiveWorkbook.Worksheets.Count For numFullaExcel = 1 To contadorFullesExcel FullaExcel = "hoja" & CStr(numFullaExcel) Excel.Worksheets(FullaExcel).Activate If numFullaExcel = 1 Then IntnumDWG = CInt(Excel.Worksheets(FullaExcel).Cells(1, 9).Value) numTotalDWG = CInt(Excel.Worksheets(FullaExcel).Cells(1, 9).Value) + (contadorFullesExcel - 1) Else IntnumDWG = (IntnumDWG + 1) End If If IntnumDWG < 100 Then StrnumDWG = "0" & CStr(IntnumDWG) Else StrnumDWG = CStr(IntnumDWG) End If StrNumPagNomemclatures = Excel.Worksheets(FullaExcel).Cells(1, 3).Value 'recorremos el array de todos los bloques que hay en el dibujo For recorrer = LBound(indexBlocksDWGArray) To UBound(indexBlocksDWGArray) 'guardamos el bloque en un objeto entidad Set acEntidad = ThisDrawing.ModelSpace.Item(CInt(indexBlocksDWGArray(recorrer))) Set acadBlkRef = acEntidad 'como estoy modificando atributos hago una funcion 'acadBlkRef = OmplirBlock(acadBlkRef, recorrer) varAttributes = acadBlkRef.GetAttributes varAttributes(0).TextString = CStr(ExcelApp.ActiveSheet.Cells(recorrer + 1, 1)) varAttributes(1).TextString = CStr(ExcelApp.ActiveSheet.Cells(recorrer + 1, 2)) varAttributes(2).TextString = CStr(ExcelApp.ActiveSheet.Cells(recorrer + 1, 3)) varAttributes(3).TextString = CStr(ExcelApp.ActiveSheet.Cells(recorrer + 1, 4)) varAttributes(4).TextString = CStr(ExcelApp.ActiveSheet.Cells(recorrer + 1, 5)) varAttributes(5).TextString = CStr(ExcelApp.ActiveSheet.Cells(recorrer + 1, 6)) varAttributes(6).TextString = CStr(ExcelApp.ActiveSheet.Cells(recorrer + 1, 7)) varAttributes(7).TextString = CStr(ExcelApp.ActiveSheet.Cells(recorrer + 1, 8)) Next recorrer ThisDrawing.Regen (acActiveViewport) AutoCAD.AcadApplication.ZoomExtents ThisDrawing.SaveAs (StrnumDWG) If numFullaExcel > contadorFullesExcel Then Set dwg = acad.ActiveDocument dwg.Open rutaNomDWG End If Next numFullaExcel ActiveWindow.Close Workbooks.Close Set llistaDWG = AutoCAD.Application.Documents For Each dwg In llistaDWG dwg.Close Next AutoCAD.AcadApplication.Quit End Sub la intención de todo esto es que todo el codigo este en la aplicacion y las plantillas de autocad de y excel no tengan codigo VBA. que es como las enttrega el cliente. | |
| Contestar |
| Pregunta: | 67338 - PROBLEMA TIMER PHYTON |
| Autor: | Arnold Bazaldua |
| El codigo es:
import thread import time import timeit t1 = time.time() t2 = time.time() t3 = time.time() t4 = time.time() listadeimp = [] def imp1(b1,t1): for x in range(0,b1): b1=x*x+7*x+10 listadeimp.append(b1) print(time.time() - t1,"seg") def imp2(c1,t2): for x in range(b1,c1): c1=x*x+7*x+10 listadeimp.append(c1) print(time.time() - t2,"seg") def imp3(d1,t3): for x in range(c1,d1): d1=x*x+7*x+10 listadeimp.append(d1) print(time.time() - t3,"seg") def imp4(e1,t4): for x in range(d1,e1): e1=x*x+7*x+10 listadeimp.append(e1) print(time.time() - t4,"seg") def main(): global b1,c1,d1,e1,t1,t2,t3,t4 b1=26 c1=51 d1=76 e1=101 thread.start_new_thread(imp1,(b1,t1)) thread.start_new_thread(imp2,(c1,t2)) thread.start_new_thread(imp3,(d1,t3)) thread.start_new_thread(imp4,(e1,t4)) print(listadeimp) #print(thread.isAlive) main() Que puedo hacer para que imprima el tiempo de ejecucion de cada hilo cuando TERMINE el hilo o MINTRAS se sta ejecutando?? Supongo que es con isAlive pero me dirian como puedo implementarlo?? gracias | |
| Contestar |
| Pregunta: | 67339 - CRYSTALREPORTVIWER EN WPF |
| Autor: | Carlos Z |
| Tengo una aplcación de VS2010 con WPF, EF. EL asunto es que instale en CR for VS2010 y todo me funciona perfecto en mi maquina de desarrollo pero cuando voy a una estación a colocar mi aplicación no abre ningun reporte de CR de hecho cree una ventana únicamente con el CrystalReportViwer sin asociar ningun reporte y en mi maquina de desarrollo abre vacio cllaro pero abre sin embargo en cualquier otra maquina donde tenga instalado el redistributable de CR2010 no abre da un error y se sale simplemente.
Si pueden coloborarme se lo agradecería mucho. No se si debo instalar algo adicional en la estación de trabajo no lo se. | |
| Contestar |
| Pregunta: | 67341 - ALGORITMOS CON LPP |
| Autor: | ESUS UTRIA |
| EL LABORE UN ALGORITMO QUE PERMITA CONVERTIR UN VALOR EN PESOS $ A UN VALOR EN DOLARES U$ ,TENIENDO EN CUENTA QUE UN U$ ES EQUIVALENTE A $1890 PESOS. | |
| Contestar |
| Pregunta: | 67355 - ARREGLOS |
| Autor: | Juan Carlos Martinez |
| Realizar un programa que realice lo siguiente: Crear un arrglO que pida la calificación de los 40 alumnos de distancia, y te indique lo siguiente, a) Cuántos pasan, b) cuántos reprueban, la media de las calificaciones y la moda. | |
| Contestar |
| Pregunta: | 67356 - CREAR ARREGLOS EN DEV C++ |
| Autor: | Juan Carlos Martinez |
| Realizar un algoritmo y programa que realice lo siguiente: Crear un arreglo que pida la calificación de los 40 alumnos de distancia, y te indique lo siguiente, a) Cuántos pasan, b) cuántos reprueban, la media de las calificaciones y la moda. | |
| Contestar |
| Pregunta: | 67379 - PROGRAMADOR CON XBASE++ |
| Autor: | Adolfo Fernandez Martinez |
| Ayuda para guardar los datos de un lector de codigos en una base de datos DBF. tambien si pueden orientarme sobre el funcionamiento de estos lectores, quedare eternamente agradecido. | |
| Contestar |
| |< << 13 14 15 16 17 18 19 20 21 22 23 >> >| |