"Programas VIsual Basic"

"Programas VIsual Basic"

1° programa
"Suma y Resta"

"suma"

rivate Sub Button1_Click(ByVal sender As System.Object, ByVal e AsSystem.EventArgs) Handles Button1.Click

  TextBox3.Text = Val(TextBox1.Text) + Val(TextBox2.Text)

End Sub 

"Resta"
  
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e AsSystem.EventArgs) Handles Button2.Click

  TextBox3.Text = Val(TextBox1.Text) - Val(TextBox2.Text)

End Sub 

"salir"

Private Sub Button3_Click(ByVal sender As System.Object, ByVal e AsSystem.EventArgs) Handles Button3.Click

End

End Sub

"Borrar"

Private Sub Button4_Click(ByVal sender As System.Object, ByVal e AsSystem.EventArgs) Handles Button4.Click

 TextBox1.Text = ""

 TextBox2.Text = ""
 TextBox3.Text = ""

 End Sub
           

SUMA

RESTA

WebRep

currentVote

noRating

noWeight

2° programa

"Suma, Resta, Multiplicacion y Division"

"suma"

 Private Sub Button1_Click(ByValsender As System.Object,ByVal e AsSystem.EventArgs)HandlesButton1.Click

TextBox3.Text = Val(TextBox1.Text) + Val(TextBox2.Text)

End Sub

"Resta"

Private Sub Button5_Click(ByVal sender As System.Object, ByVal e AsSystem.EventArgs) Handles Button5.Click

 TextBox3.Text = Val(TextBox1.Text) - Val(TextBox2.Text)

  End Sub

 "Multiplicacion"

 Private Sub Button4_Click(ByVal sender As System.Object, ByVal e AsSystem.EventArgs) Handles Button4.Click

        TextBox3.Text = Val(TextBox1.Text) * Val(TextBox2.Text)

    End Sub

"Division"

Private Sub Button3_Click(ByValsender As System.Object,ByVal e AsSystem.EventArgs) HandlesButton3.Click

TextBox3.Text = Val(TextBox1.Text) / Val(TextBox2.Text)

End Sub

 

"Borrar"

Private Sub Button2_Click(ByValsender As System.Object,ByVal e AsSystem.EventArgs) HandlesButton2.Click

Textbox1.text = ""

textbox2.text = ""

textbox3.text = ""

 End Sub

 "Salir"

Private Sub Button6_Click(ByVal sender As System.Object, ByVal e AsSystem.EventArgs) Handles Button6.Click

  End

  End Sub

 End Class

suma

resta

multiplicacion

division

WebRep

currentVote

noRating

noWeight

3° programa 
"Horas, Minutos y Segundos"

WebRep

currentVote

noRating

noWeight

4° programa
"Promedio de Calificaciones"

Public Class Form1

"suma de las calificaciones y su division"

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

TextBox4.Text = (Val(TextBox1.Text) + Val(TextBox2.Text) + Val(TextBox3.Text) / 3)

End Sub

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click

End

End Sub

Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click

TextBox1.Text = ""

TextBox2.Text = ""

TextBox3.Text = ""

TextBox4.Text = ""

End Sub

End Class

 

 

 

4  programas vectores y arreglos 


PROGRAMA 1

#include "stdafx.h"

#include <stdio.h>

#include <conio.h>

void llenar (int V[],int d)

{

       for (int i=1; i<=d;i++)

{

       printf("inserte pos.[%d]:",i);

scanf("%d",&V[i]);

}

}

void mostrar(int V[],int d)

{

for(int i=1;i<=d;i++)

{

printf("[%d]", V[i]);

}

}

void invierte (int V[],int d)

{

int aux1;

int fin1=d/2;

for(int i=1;i<=(d/2)/2;i++)

{

aux1=V[i];

V[i]=V[fin1];

V[fin1]=aux1;

fin1--;

}

fin1=d;

for(int j=(d/2)+1;j <=(d/2)+1;j++)

{

aux1=V [j];

V[j]=V[fin1];

V [fin1]=aux1;

fin1--;

}

}

int main ()

{

int V[20];

int d;

printf("inserte dimen.del vector:");

scanf("%d",&d);

llenar(V,d);

printf("\n VECTOR ORIGINAL: \n");

mostrar(V,d);

printf("\n \n VECTOR LUEGO DE LA VERSION: \n");

invierte(V,d);

mostrar(V,d);

getch();

}

PROGRAMA 2

#include<stdio.h>

#include<conio.h>

void llenar(int m[20][20], int f, int c)

{

int k =1;

for (int i =1;i<=f;i++)

{

if (i%2!=0)

{

for (int j=1;j<=c;j++)

{

m[i][j]=k;k++;

}

}

else

{

for(int j=c;j>1;j~~)

{

m[i][j]=k,k++;

}

}

}

}

void mostrar (int m [20][20], int f, int c)

{

for (int i=1;i<=f;i++)

{

printf(“\n”);

for(int j=1;j<=c;j++)

{

printf(“[%d]”, m [i][j]);

}

}

}

int main()

{

int f, c;

int m[20][20];

printf(“inserte filas de m:”); scanf( “%d”,&f);

printf(“inserte cols. de m:”); scanf( “%d”,&c);

llenar(m, f, c);

mostrar(m, f, c,);

getch();

}

WebRep

currentVote

noRating

noWeight

Programa 3

#include <stdio.h>

#include <conio.h>

void llenar (int M[20][20],int d)

{

int cont=1;

for(int i=1;i<=d;j++)

{

       for(int j=1;j<=d;j++)

       {

             if((i+j)<=(d+1))

             {M[i][j]=cont;cont++;}

             else

                    M[i][j]=0;

       }

}

}

for(int i=1;i<=d;i++)

{

       printf("\n");

       for(int j=1j;<=d;j++)

       {

             printf("[%d]",M[i][j]);

       }

}

}

int main()

{int d;

int M[20][20];

printf("Insert dimen:");scanf("%d",&d);

llenar(M,d);

mostrar(M,d);

getch();

}

WebRep

currentVote

noRating

noWeight

#include<stdio.h>

#include<conio.h>

void llenar(int m[20] [20], int d)

{

int cont=1;

for(int j=1;i<=d;i++)

{

for(int j =1;j<=d;j++)

{

if((i+j)<=(d+1))

{

if((i+j)<=d+1))

{m[i][j]=cont;cont++;}

else

m[i][j]=0;

}

}

}

void mostra(int m[20][20], int d)

for (int i =1;i<=d;i++)

{

printf (“\n”);

for (int j =1;j<=d;j++)

{

printf(“[%d]”, m[i][j]);

}

}

}

int main()

{

int d;

int m [20][20];

printf(“inserte dimen:”);scanf(“%d”,&d);

llenar(m,d);

mostrar(m,d);

getch();

}

WebRep

currentVote

noRating

noWeight