Mensajes

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)

Código [Seleccionar] Expandir

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

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

Código (python) [Seleccionar] Expandir

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

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 [Seleccionar] Expandir

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
   

necesito ayuda con esto miren

Código [Seleccionar] Expandir

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

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 ?

Código [Seleccionar] Expandir

#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 [Seleccionar] Expandir

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

gracias funciona

alguna idea para hacer esto
me dice no coinciden los tipos no se pueden 2 al mismo tiempo?

Código [Seleccionar] Expandir

If InStr(Text1, "mercancia" "deber") > 0 Then MsgBox "acredor"