PSEINT
- Suma De 3 Números
Proceso Ejercicio
R<-0;
E<-0;
A<-0;
Escribir "Ingrese un Numero";
Leer R;
Escribir "Ingrese Un Numero";
Leer E;
Escribir "Ingrese Un Numero";
Leer A;
L<-R+E+A;
Escribir "El Resultado de la Suma es"," ", L;
FinProceso
- Para el Día del Cariño
Proceso Dia_del_Carino
Escribir "Ingrese su nombre";
Leer nombre;
Escribir "Ingrese su Edad";
Leer edad;
Escribir "Ingrese como le gusta que le digan";
Leer digan;
Escribir "Hola", nombre, "se que tu edad es ", edad, "pero te diremos con cariño",digan, "", "y te queremos desear un Feliz Dia del Cariño, pasala bien";
FinProceso
- Ingresar Numero y aparece el mes
n<-0;
Escribir "Ingrese un Numero del 1 al 12";
Leer n;
Segun n hacer
1:
Escribir "Enero";
2:
Escribir "Febrero";
3:
Escribir "Marzo";
4:
Escribir "Abril";
5:
Escribir "Mayo";
6:
Escribir "Junio";
7:
Escribir "Julio";
8:
Escribir "Agosto";
9:
Escribir "Septiembre";
10:
Escribir "Octubre";
11:
Escribir "Noviembre";
12:
Escribir "Diciembre";
De Otro Modo:
Escribir "Su numero no esta en el Rango";
FinSegun
FinProceso
- Truncar/Redondear
Proceso Ejercicio6
Escribir "Ingrese un Numero";
Leer numero1;
Escribir "Ingrese un Numero";
Leer numero2;
d<-numero1/numero2;
Escribir d;
Escribir 'Truncar:',trunc(d);
Escribir 'Redondear:',redon(d);
FinProceso
- Divisible dentro de 3
Proceso Tarea2
R<-0;
escribir "Ingrese Un Numero";
leer R;
si (R %3 =0) entonces
escribir "El Numeron Es Divible Dentro De 3";
sino
escribir "El Numero No es Divisible dentro de 3, intentelo de nuevo";
FinSi
FinProceso
VISUAL BASIC 2010
- Muestra Nombre
Public Class Form1
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Lbl_2.Text = ""
TextBox1.Text = ""
End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Lbl_2.Text = "Hola " & UCase(TextBox1.Text)
End Sub
End Class
- Positivo/Negativo & Par/Impar
Public Class Form1
Dim Numero As Integer
Dim Numero2 As Integer
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Numero = Val(Txt_Numero.Text)
Numero2 = Val(Txt_Numero.Text)
If Numero <= -1 Then
Lbl_PoN.Text = "Negativo"
End If
If Numero >= 1 Then
Lbl_PoN.Text = "Positivo"
End If
If Numero = 0 Then
Lbl_PoN.Text = "Neutro"
End If
End Sub
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
If (Numero2 / 2 = 0) Then
Lbl_PoI.Text = "Par"
End If
If (Numero2 / 1 = 1) Then
Lbl_PoI.Text = "Impar"
End If
End Sub
End Class
- Codigo ASCII
Public Class Form1
Private Sub HScrollBar1_Scroll(ByVal sender As System.Object, ByVal e As System.Windows.Forms.ScrollEventArgs) Handles HScrollBar1.Scroll
Lbl_2.Text = Format(HScrollBar1.Value)
Lbl_4.Text = Chr(HScrollBar1.Value)
End Sub
End Class
Public Class Form1
- Bienvenida a Visual
Public Class Form1
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
MsgBox("Hola Bienvenidos a Visual Basic 2010")
End Sub
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
End
End Sub
End Class
Public Class Form1
Dim nombre As Integer
Dim codigo As Integer
Dim precio As String
Dim cantidad As String
Dim pagar As String
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Lbl_Pagar.Text = Txt_Precio.Text * Txt_Cantidad.Text
Lbl_SinIva.Text = Lbl_Pagar.Text / 1.12
Lbl_IVA.Text = Lbl_Pagar.Text * 0.12
End Sub
- Sacar el IVA
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
Txt_Nombre.Text = ""
Txt_Codigo.Text = ""
Txt_Precio.Text = ""
Txt_Cantidad.Text = ""
Lbl_Pagar.Text = ""
Lbl_SinIva.Text = ""
Lbl_IVA.Text = ""
End Sub
No hay comentarios:
Publicar un comentario