Menú

Mostrar Mensajes

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

Mostrar Mensajes Menú

Temas - do-while1

#1
Hola, verán estoy haciendo una práctica la cuál consiste en leer las palabras y números de un archivo de texto, así como guardarlo en otra ubicación (diferente a la de su origen).
Tengo la primer parte que es leer, más no se me ocurre que implementar para que guarde el archivo en otra ubicación.

import java.io.FileReader;
import java.io.IOException;
import java.io.StreamTokenizer;


public class Palabras {

int cont_pal =0;
int cont_num =0;

public Palabras()throws IOException
{
StreamTokenizer st = new StreamTokenizer(new FileReader("C:/Users/T800/Desktop/perro.txt"));
while(st.nextToken() != StreamTokenizer.TT_EOF){

if(st.ttype == StreamTokenizer.TT_WORD){
cont_pal++;
}
else if(st.ttype == StreamTokenizer.TT_NUMBER){
cont_num++;
}

}

System.out.println("Numero de palabras: "+cont_pal);
System.out.println("Numero de palabras: "+cont_num);
}

public static void main(String[] args) throws IOException {

new Palabras();


}

}


no sé si con un output podría funcionar.  :huh:
#2
El programa compara los días que hay entre dos fechas:

#include<stdio.h>
#include<stdlib.h>

struct fecha
{
  int dia, mes, year;
} fechauno, fechados;

int main (void)
{
  int a, m, d, total;
   
  printf("Dame la primera fecha más reciente (dd/mm/aa):\n");
  scanf("%d*%d*%d", &fechauno.dia , &fechauno.mes, &fechauno.year);
  printf("Dame la segunda fecha (dd/mm/aa):\n");
  scanf("%d*%d*%d", &fechados.dia , &fechados.mes, &fechados.year);
   
  a = (fechauno.year - fechados.year) * 365;
  m = (fechauno.mes - fechados.mes) * 30;
  d = fechauno.dia - fechados.dia;
 
  total = a + m + d;
   
  printf("\n\nHay %d días entre las dos fechas insertadas.\n");
  system(" pause ");
  return 0;
}


cualquier cosa que escriba me arroja como resultado "4210716"
#3
Tengo un digitador el cual si recibe una cifra determinada muestra un formulario diferente, de lo contrario lanza un mensaje de error y permanece igual, no cambia de formulario.

El problema viene a la hora de poner el código:


Private Sub Command1_Click()
Text1.Text = Text1.Text + "1"
End Sub

Private Sub Command4_Click()
Text1.Text = Text1.Text + "2"
End Sub

....

Private Sub Command2_Click()
If Text1.Text = "1111" Then
Form2.Show
Else: MsgBox "error de clave"
End If

If Text1.Text = "3312" Then
Form3.Show
Else: MsgBox "error de clave"
End If
End Sub




Cada que escribo "3312" me manda sin problema al formulario, mismo caso con "1111" pero el msgbox me saldrá forzosamente ya que a pesar de ser la cifra correcta no coincidé una con la otra.

Cuál sería el método para que el msgbox aparezca cuando no digite las cifras predeterminadas?

"3312" - muestra formulario 3
"1111" - muesrta formulario 2

"otro" - mensaje de error
#4
borrar tema
#5
Buen día, tengo una duda. En el instituto nos han pedido un programa que nos de la media aritmética de varios valores. Hice el siguiente código:

#include<stdio.h>
#include<conio.h>
#include<stdlib.h>
#include<math.h>
main()
{
    int n,i;
    float c,ma,*a;
     

    printf("Introduce n\n");
    scanf("%d",&n);
    a=(float*)malloc(sizeof(float)*n);
    printf("Digita los %d numeros\n",n);
    for(i=0;i<n;i++){
                     scanf("%f",&a[i]);
                     }
    printf("Los %d numeros que ingresaste son:\n",n);
    for(i=0;i<n;i++){
                     printf("%f\n",a[i]);
                     }
    c=0;
    for(i=0;i<n;i++){
                       c+=a[i];
                       }
    ma=c/n;
    printf("La media es: %f\n",ma);
                                                       
getch();
}


El programa ya está funcionando como el profesor quería, excepto por una cosa, a pesar de que me aplaudió el uso del arreglo de números no me ha permitido usar la función sizeof así como tampoco  la función malloc dentro del programa pues dice "aun no las hemos implementado junto al resto de la clase" ^^ y me ha obligado a cambiar el código con funciones que ya he usado en clase, pero,  el problema es que no encuentro función alguna que le pueda quedar al programa.
Se podría usar algo más básico y que no genere muchos cambios en el código?
#6
Programación Visual Basic / Generar .exe
26 Noviembre 2012, 19:41 PM
Recuerdo que una vez hice un programa con dos formularios y al generar el .exe lo corría en la computadora pero aparecían dos ventanas correspondientes a los dos formularios.

Ahora, hice un nuevo programa con 56 formularios. Se puede hacer algo para que al generarlo a .exe se mantenga en una sola ventana y no despliegue 56?

Usé Visual Basic 6.
#7
Estoy haciendo un sistema de banco, en el cual se escoge un servicio que después de seleccionado envía al formulario correspondiente (al servicio). En el formulario del servicio hay variados campos para rellenar, por ejemplo: Nombre, Domicilio, Ciudad, etc.

Lo que quiero saber es si se puede ingresar los datos, después hacer un boton de "guardar" (que después lanzará un msgbox con la confirmación) y que después los haga aparecer en un nuevo formulario o algún otro recurso pero que muestre "Nombre:xxxxxxx" "Domicilio:xxxxxxxxxxx", etc. No estoy usando base de datos.

Por el momento, lo que llevo del programa, además del acceso (user, pass) y del menú principal es lo siguiente:


Código:

Private Sub Command1_Click()
II_Menú_Servicios.Show
End Sub

Private Sub Command2_Click()
If (List1.List(List1.ListIndex) = "Avalúos") Then
III_P_AVALUOS.Show
End If
If (List1.List(List1.ListIndex) = "Banca por Celular") Then
IV_EMPRESAS.Show
End If
If (List1.List(List1.ListIndex) = "Crédito") Then
IV_EMPRESAS.Show
End If
If (List1.List(List1.ListIndex) = "Crédito Hipotecario") Then
IV_EMPRESAS.Show
End If
If (List1.List(List1.ListIndex) = "Inversiones") Then
IV_EMPRESAS.Show
End If
If (List1.List(List1.ListIndex) = "Cajero Automático") Then
IV_EMPRESAS.Show
End If
If (List1.List(List1.ListIndex) = "Tarjeta de Crédito") Then
IV_EMPRESAS.Show
End If
If (List1.List(List1.ListIndex) = "Banca por Internet") Then
IV_EMPRESAS.Show
End If
End Sub

Aquí por ejemplo al seleccionar de la lista el elemento "Avalúos" mandará al formulario "Avaluos" que es donde mostrará los campos para ser ingresados los datos antes mencionados.

Saludos

___________

Acceso:

Private Sub Command1_Click()
If Text1.Text = "Brad" And Text2.Text = "Maddox" Then
MsgBox ("BIENVENIDO AL SISTEMA")
II_Menú_Servicios.Show
Else: MsgBox ("NOMBRE DE USUARIO O CONTRASEÑA INCORRECTOS")
End If
End Sub

Private Sub Command2_Click()
Text1.Text = ""
Text2.Text = ""
End Sub

Private Sub Command3_Click()
If MsgBox("¿Está seguro que quiere salir del sistema?", vbExclamation + vbYesNo, "Advertencia") = vbYes Then
End
End If
End Sub