Temas

Buenas vagando mucho por internet y no encontrar nada al respecto me gustaria ponerlo aqui,
es una aplicacion para crear un celular con teclado alfanumerico en visual basic
esta incompleto me gustaria hacer unas preguntas para poder completarla o que alguien me heche una mano, esta la mayoria del codigo ya hecho solo hacen falta pequeños detalles para que parezca un teclado de celular funcional de tipo Alfanumerico (2 abc, 3 def, etc...)

pongo el codigo que da visual basic para crear la interfase tambien adjunto una imagen antes del codigo:

Código (vb) [Seleccionar] Expandir

Public Class Form1
   Dim nombreB As String = ""
   Public Sub ControlSetFocus(ByVal control As Control)
       ' Set focus to the control, if it can receive focus.
       If control.CanFocus Then
           control.Focus()
       End If
   End Sub

   Private Sub btnBorrar(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button13.Click
       Dim resultado
       Dim borrar = txtPantalla.Text.Length - 1
       resultado = txtPantalla.Text.Substring(0, borrar)
       txtPantalla.Text = resultado

       txtPantalla.Focus()
       Dim Posicion = txtPantalla.Text.Length
       txtPantalla.SelectionStart = Posicion
   End Sub

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

       Dim Cars() As String = {"a", "b", "c", "2"}
       Static I As Integer = 0
       Dim ObjButton As Button = CType(sender, Button)
       If I >= Cars.Length Then
           I = 0
       End If
       If nombreB <> ObjButton.Text Then
           I = 0
           nombreB = ObjButton.Text
       Else
           txtPantalla.Text = Mid(txtPantalla.Text, 1, Len(txtPantalla.Text) - 1)
       End If
       txtPantalla.Text = txtPantalla.Text & Cars(I)
       I = I + 1

       'Funcion MID
       'If txtPantalla.Text Then
       'txtPantalla.Text = Mid(txtPantalla.Text, 1, Len(txtPantalla.Text) - 1)
       'End If


       Dim Posicion = txtPantalla.Text.Length
       txtPantalla.Focus()
       txtPantalla.SelectionStart = Posicion
   End Sub


   Private Sub btnTres_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
       Dim Cars() As String = {"d", "e", "f", "3"}
       Static I As Integer = 0
       Dim ObjButton As Button = CType(sender, Button)
       If I >= Cars.Length Then
           I = 0
       End If
       If nombreB <> ObjButton.Text Then
           I = 0
           nombreB = ObjButton.Text
       Else
           txtPantalla.Text = Mid(txtPantalla.Text, 1, Len(txtPantalla.Text) - 1)
       End If
       txtPantalla.Text = txtPantalla.Text & Cars(I)
       I = I + 1

       txtPantalla.Focus()
       Dim Posicion = txtPantalla.Text.Length
       txtPantalla.SelectionStart = Posicion
   End Sub

   Private Sub btnCuatro_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
       Dim Cars() As String = {"g", "h", "i", "4"}
       Static I As Integer = 0
       Dim ObjButton As Button = CType(sender, Button)
       If I >= Cars.Length Then
           I = 0
       End If
       If nombreB <> ObjButton.Text Then
           I = 0
           nombreB = ObjButton.Text
       Else
           txtPantalla.Text = Mid(txtPantalla.Text, 1, Len(txtPantalla.Text) - 1)
       End If
       txtPantalla.Text = txtPantalla.Text & Cars(I)
       I = I + 1

       txtPantalla.Focus()
       Dim Posicion = txtPantalla.Text.Length
       txtPantalla.SelectionStart = Posicion
   End Sub

   Private Sub btnCinco_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button5.Click
       Dim Cars() As String = {"j", "k", "l", "5"}
       Static I As Integer = 0
       Dim ObjButton As Button = CType(sender, Button)
       If I >= Cars.Length Then
           I = 0
       End If
       If nombreB <> ObjButton.Text Then
           I = 0
           nombreB = ObjButton.Text
       Else
           txtPantalla.Text = Mid(txtPantalla.Text, 1, Len(txtPantalla.Text) - 1)
       End If
       txtPantalla.Text = txtPantalla.Text & Cars(I)
       I = I + 1

       txtPantalla.Focus()
       Dim Posicion = txtPantalla.Text.Length
       txtPantalla.SelectionStart = Posicion
   End Sub

   Private Sub btnSeis_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button6.Click
       Dim Cars() As String = {"m", "n", "o", "6"}
       Static I As Integer = 0
       Dim ObjButton As Button = CType(sender, Button)
       If I >= Cars.Length Then
           I = 0
       End If
       If nombreB <> ObjButton.Text Then
           I = 0
           nombreB = ObjButton.Text
       Else
           txtPantalla.Text = Mid(txtPantalla.Text, 1, Len(txtPantalla.Text) - 1)
       End If
       txtPantalla.Text = txtPantalla.Text & Cars(I)
       I = I + 1

       txtPantalla.Focus()
       Dim Posicion = txtPantalla.Text.Length
       txtPantalla.SelectionStart = Posicion
   End Sub

   Private Sub btnSiete_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button7.Click
       Dim Cars() As String = {"p", "q", "r", "s", "7"}
       Static I As Integer = 0
       Dim ObjButton As Button = CType(sender, Button)
       If I >= Cars.Length Then
           I = 0
       End If
       If nombreB <> ObjButton.Text Then
           I = 0
           nombreB = ObjButton.Text
       Else
           txtPantalla.Text = Mid(txtPantalla.Text, 1, Len(txtPantalla.Text) - 1)
       End If
       txtPantalla.Text = txtPantalla.Text & Cars(I)
       I = I + 1

       txtPantalla.Focus()
       Dim Posicion = txtPantalla.Text.Length
       txtPantalla.SelectionStart = Posicion
   End Sub

   Private Sub btnOcho_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button8.Click
       Dim Cars() As String = {"t", "u", "v", "8"}
       Static I As Integer = 0
       Dim ObjButton As Button = CType(sender, Button)
       If I >= Cars.Length Then
           I = 0
       End If
       If nombreB <> ObjButton.Text Then
           I = 0
           nombreB = ObjButton.Text
       Else
           txtPantalla.Text = Mid(txtPantalla.Text, 1, Len(txtPantalla.Text) - 1)
       End If
       txtPantalla.Text = txtPantalla.Text & Cars(I)
       I = I + 1

       txtPantalla.Focus()
       Dim Posicion = txtPantalla.Text.Length
       txtPantalla.SelectionStart = Posicion
   End Sub

   Private Sub btnNueve_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button9.Click
       Dim Cars() As String = {"w", "x", "y", "z", "9"}
       Static I As Integer = 0
       Dim ObjButton As Button = CType(sender, Button)
       If I >= Cars.Length Then
           I = 0
       End If
       If nombreB <> ObjButton.Text Then
           I = 0
           nombreB = ObjButton.Text
       Else
           txtPantalla.Text = Mid(txtPantalla.Text, 1, Len(txtPantalla.Text) - 1)
       End If
       txtPantalla.Text = txtPantalla.Text & Cars(I)
       I = I + 1

       txtPantalla.Focus()
       Dim Posicion = txtPantalla.Text.Length
       txtPantalla.SelectionStart = Posicion
   End Sub

End Class



Considero que se le deben agregar mas botones para el correcto parecido a un teclado de Celular

Cosas faltantes:

Al momento de presionar el mismo boton por ejemplo:
Se presiona "2 abc" en pantalla aparece: abc2abc2 en lugar de cambiar la primera a por una b
para que en pantalla solo salga: "b" al presionar por segunda vez el boton "2 abc"

Falta poder hacer un cambio entre minusculas y mayusculas asi como agregar los caracteres del boton 1 que son en la mayoria de celulares estos: " . , / ? ! - : ' " 1 "

Falta agregar un timer para que pasados 3 segundos el puntero avance automaticamente en caso de querer escribir una misma tecla en un espacio aparte

si alguien quiere aportar algo sientase libre de hacerlo y si se debe hacer algun cambio en alguna parte que tambien lo diga y modificare el post principal.

Saludos.

hola D:
es mi primer tema y vengo pidiendo algo de ayuda
con un programa en c++
el compilador que yo uso es el Dev C++
el programa en si debe:
mediante una funcion capturar datos y guardarlos en un arreglo
despues con esos datos debo extraer datos que cumplan con una condicion previamente en la que los datos sean menores a "n" numero dado por el usuario
despues de eso debo guardar los datos que cumplen con la condicion en un nuevo arreglo que debe estar declarado en main
llevo esto del programa:

#include <iostream>
using namespace std;
#include <conio.h>
#include <string.h>

class EXTRACCION
{
      public:
             int n,i,da[30],d,f[30],no;
             
             int capturar ()
             {
                 cout << "Cuantos datos? "; cin >> n;
                 for (i=0;i<n;i++)
                 {cout << "Dato: "; cin >> da;}
                 }
                 
             int extraccion ()
             {cout << "No. para la condicion: "; cin >> no;
             for (i=0;i<no;i++)
             {
                 if (da==no);}
             cin >> f[30];
             return f[30];
             getch ();}
             };
             
int main ()
{EXTRACCION EX;
           int op,dr,da[30];
           do
           {    cout << "Bienvenido\n\n";
                cout << "1.- Introducir datos\n";
                cout << "2.- Condicion\n";
                cout << "3.- Salir\n"; cin >> op;
                switch (op)
               
                {case 1:{EX.capturar();break;}
                case 2:{dr=EX.extraccion(); cin >> da[30];}
                }
                }while (op!=3);
                }

creo que voy bien hasta esta parte pero ya nose
como extraer los datos y guardarlos en otro arreglo.
de antemano gracias.
Simplemente con saber como extraer los datos creo poder continuar yo solo con el resto del programa