últimos mensajes de: asdexiva

Mostrar Mensajes
Páginas: 1 2 3 [4] 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 ... 22

31	Programación / Programación Visual Basic / Re: problema hexadecimal	en: 14 Febrero 2015, 16:40 pm
aun asi sale lo mismo necesito que me salga 0.06 por que tengo ver cual es el mas alto de los valores y si no sale asi el mas alto seria este 6,00000000000001E-02 y el mas alto deberia ser 0.25 ya pude gracias de todas formas si alguien le pasa lo mismo utilizen FormatNumber(value)

32	Programación / Programación Visual Basic / problema hexadecimal	en: 14 Febrero 2015, 03:28 am
Código: Text1 = 5 / 5 - 0.94 por que en vez de que el resultado sea 0.06 da 6,00000000000001E-02 , no se puede corregir esto ? agradeceria mucho que me ayudaran

33	Programación / Scripting / Re: cambiar valor variable ciclo for duda	en: 7 Febrero 2015, 21:31 pm
Cita de: engel lex en 7 Febrero 2015, 21:15 pm supondré que es python por la primer linea... tu error está en "elevado1" si tu valor es muy grande no entra a los if en la primera vuelta xad vale 44302336 por lo tanto en la sgunda vuelta cuadrado vale 1962696975056896 que es mucho más largo que 7... varias recomendaciones... 1- usa else if (elif) ya que así el programa se salta los casos innecesarios 2- range por defecto es desde 0 así que puedes hacer range(valor) realmente no se que desastre intentas hacer con los 0 o lograr... pero si arreglas elevado1 resuelves tu problema los 0 son por la formula metodo cuadrado medio, pero aun asi cuando imprime sigue mostrando solo la primera cifra al cuadrado las demas no :S y a proposito de que el valor es largo no importa que sea largo por que se lo salta y lo tendria que imprimir no necesito entrar a los ifs a menos que sea menor a 8 es la regla del metodo

Programación / Scripting / cambiar valor variable ciclo for duda

en: 7 Febrero 2015, 20:41 pm

Código

valor = input ('Ingrese cantidad a repetir: ')
valor1 = 2160
 
# se inicia el ciclo
for i in range(0,valor):
 
    #se eleva al cuadrado
    cuadrado=valor1** 2
    # se guarda en otra variable llamada elevado
    elevado=cuadrado
    #se mide el tamaño
    tamano=len(str(elevado))
    if tamano==7:
        elevado1= "0" + str(elevado)
    if tamano==6:
        elevado= "00" + str(elevado)
    if tamano==5:
        elevado1= "000" + str(elevado)
    if tamano==4:
        elevado1= "0000" + str(elevado)
    if tamano==5:
        elevado1= "000" + str(elevado)
    if tamano==4:
        elevado1= "0000" + str(elevado)
    if tamano==3:
        elevado1= "00000" + str(elevado)
        #se acorta
    xd = elevado1[2:-2]
   #se convierte a numero
    lol=int(xd)
    #se eleva al cuadrado
    xad=lol** 2
    valor1=xad
    print  xd

espero y me puedan ayudar se supone que en cada vuelta tiene que agarrar el valor elevado al cuadrado y acortarlo e imprimirlo
pero lo unico que hace es repetir el mismo valor inicial :S

Programación / Programación Visual Basic / Re: marca de agua simple vb6

en: 26 Diciembre 2014, 22:59 pm

gracias flamer asi quedo pero tengo una duda ay una forma de utilizar este for each como contador ejemplo en la vuelta primera se le vaya agregando un 1

SavePicture Picture1, "c:\ejemplo" & variable & ".jpg"

quedaria asi ejemplo1.jpg

Código:

Dim fso, f, f1, fc
Set fso = CreateObject("Scripting.FileSystemObject")
Set f = fso.GetFolder("C:\lol")
Set fc = f.Files
   For Each f1 In fc
     MsgBox f1.Name
      With Picture1
      .Picture = LoadPicture("C:\lol\" & f1.Name)
      .Font.Name = " Verdana"
        .Font.Size = 5
        .ForeColor = vbRed
  
        .AutoRedraw = True
          .CurrentX = 100
          .CurrentY = 100
        Picture1.Print " Hola Mundo "
          
        .Picture = Picture1.Image
        
          
     End With
     
     
    SavePicture Picture1, "c:\ejemplo.jpg"
  
    MsgBox " Gráfico BMP salvado en c: ", vbInformation
  
    Next

36	Programación / Programación Visual Basic / marca de agua simple vb6	en: 26 Diciembre 2014, 21:43 pm
necesito ayuda con esto miren Código: With Picture1 .Picture = LoadPicture("C:\xd.jpg") .Font.Name = " Verdana" .Font.Size = 7 .ForeColor = vbRed .AutoRedraw = True .CurrentX = 100 .CurrentY = 100 Picture1.Print " Hola Mundo " .Picture = Picture1.Image End With SavePicture Picture1, "c:\ejemplo.jpg" MsgBox " jpg salvado en c: ", vbInformation ay alguna forma de que con un ciclo for cargue todas las imagenes de una carpeta y que 1 por 1 vaya escribiendoles ese mensaje y guardandolas ? me podrian dar una idea gracias e estado leyendo que se puede hacer con filesystemobject pero no entiendo agradezco la ayuda o si alguien conoce una forma mas simple me la podria decir gracias

37	Programación / Programación Visual Basic / generador de texto y numero	en: 24 Diciembre 2014, 02:18 am
por que al usar la aplicacion desde vb6 corre bien pero al momento de usarla sin vb6 se traba creo que el problema es en los listbox ayuda aqui esta el source aver si alguien me puede decir por que ç:S http://www15.zippyshare.com/v/21348220/file.html ya vi donde es el error es que si no escribo en los otros cuadros de texto no funciona ay alguna forma de que sirva sin escribir en los otros cuadros de texto ?

Programación / Programación C/C++ / multipllicacion matrices ciclo for

en: 4 Diciembre 2014, 15:05 pm

Código:

#include<stdio.h>

void main()

{

printf("Datos de la Matriz A :\n");
            
int i,j,k;

int matriz [3][3];
    int matriz1 [3][3];    
     int c [3][3];
        
              for(i=0;i<=2;i++){
             for (j=0;j<=2;j++){
                 printf("Escribir valor %d en %d:",i,j);
                 scanf("%d",&matriz[i][j]);
                }
            }
                 printf("Datos de la Matriz B :\n");
            
            for (i=0; i<=2; i++){
             for (j=0; j<=2; j++){
                  printf("Escribir valor %d en %d:",i,j);
                scanf("%d",&matriz1[i][j]);
                }
            }
                   for (i=0; i<=2; i++){
				   for (j=0; j<=2; j++){
				   c[i][j]=0;
				   for (k=0; k<=2; k++){
             	  		
						c[i][j]=c[i][j]+(matriz[i][k]*matriz1[k][j]);
                 
        }
    }
}
            
        
                   printf("Matriz resultante  :");

    for (i=0;i<=2;i++){
    	printf("\n");
            for (j=0;j<=2;j++) {
              
                printf(" %d\t",c[i][j]);
                 }
                  }
              
                 printf("\n");
           
          
            
    }

alguien que me pueda ayudar a comprender esta parte

Código:

 for (i=0; i<=2; i++){
				   for (j=0; j<=2; j++){
				   c[i][j]=0;
				   for (k=0; k<=2; k++){
             	  		
						c[i][j]=c[i][j]+(matriz[i][k]*matriz1[k][j]);

que hace k ? por que no solo i y j podrian explicarme esta parte

39	Programación / Programación Visual Basic / Re: identificar varias palabras en una oracion	en: 27 Noviembre 2014, 22:56 pm
gracias funciona

40	Programación / Programación Visual Basic / Re: identificar varias palabras en una oracion	en: 27 Noviembre 2014, 22:14 pm
alguna idea para hacer esto me dice no coinciden los tipos no se pueden 2 al mismo tiempo? Código: If InStr(Text1, "mercancia" "deber") > 0 Then MsgBox "acredor"

Páginas: 1 2 3 [4] 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 ... 22