using System.Collections.Generic;
using System.IO;
using System.Linq;
using Windows.Foundation;
using Windows.Foundation.Collections;
using Windows.UI.Xaml;
using Windows.UI.Xaml.Controls;
using Windows.UI.Xaml.Controls.Primitives;
using Windows.UI.Xaml.Data;
using Windows.UI.Xaml.Input;
using Windows.UI.Xaml.Media;
using Windows.UI.Xaml.Navigation;
// The Grouped Items Page item template is documented at http://go.microsoft.com/fwlink/?LinkId=234231
namespace LCDV4
{
//"APERTURE1" "[1.000] .,-:;//;:=, "
//"APERTURE2" "[1.000] . :H@@@MM@M#H/.,+%;, "
//"APERTURE3" "[1.000] ,/X+ +M@@M@MM%=,-%HMMM@X/, "
//"APERTURE4" "[1.000] -+@MM; $M@@MH+-,;XMMMM@MMMM@+- "
//"APERTURE5" "[1.000] ;@M@@M- XM@X;. -+XXXXXHHH@M@M#@/. "
//"APERTURE6" "[1.000] ,%MM@@MH ,@%= .---=-=:=,. "
//"APERTURE7" "[1.000] =@#@@@MX ., -%HX$$%%%+; "
//"APERTURE8" "[1.000] =-./@M@M$ .;@MMMM@MM: "
//"APERTURE9" "[1.000] X@/ -$MM/ .+MM@@@M$ "
//"APERTURE10" "[1.000],@M@H: :@: .=X#@@@@-"
//"APERTURE11" "[1.000],@@@MMX, . /H- ;@M@M="
//"APERTURE12" "[1.000].H@@@@M@+, %MM+..%#$."
//"APERTURE13" "[1.000] /MMMM@MMH/. XM@MH; =; "
//"APERTURE14" "[1.000] /%+%$XHH@$= , .H@@@@MX, "
//"APERTURE15" "[1.000] .=--------. %H.,@@@@@MX, "
//"APERTURE16" "[1.000] .%MM@@@HHHXX$$$%+- .:MMX =M@@MM%. "
//"APERTURE17" "[1.000] =XMMM@MM@MM#H;-+HMM@M+ /MMMX= "
//"APERTURE18" "[1.000] =%@M@M#@$-.$@MM@@@M; %M%= "
//"APERTURE19" "[1.000] ,:+$+-,/#MMMMMMM@= =, "
//"APERTURE20" "[1.000] =+%%%%+/:-. "
public sealed partial class GroupedItemsPage : LCDV4.Common.LayoutAwarePage
{
//Variables variantes
String cfg = " ", codigoASM = " ", Display = "\r\n", ASCII = "\r\n", a, Envio, Retardo,Comandos,Detenmensaje, b;
int[,] ASC2 = new int[9, 16];
protected override void OnNavigatedTo(NavigationEventArgs e)
{
this.DefaultViewModel["Groups"] = e.Parameter;
}
void Header_Click(object sender, RoutedEventArgs e)
{
var group = (sender as FrameworkElement).DataContext;
}
void ItemView_ItemClick(object sender, ItemClickEventArgs e)
{
}
public GroupedItemsPage()
{
this.InitializeComponent();
}
private void itemGridView_SelectionChanged(object sender, SelectionChangedEventArgs e)
{
TextBlock1.Text = (" ");
}
//Boton de inicio
private void Button_Click_1(object sender, RoutedEventArgs e)
{
for (int i = 0; i < 9; i++)
{
for (int j = 0; j < 16; j++)
{
ASC2[i, j] = 0;
}
}
a = " ";
ASC2[0, 0] = 1;
}
//FFFFFeo
private void Button_Click_3(object sender, RoutedEventArgs e)
{
//Mayusculas
if (ASC2[0, 0] == 1)
{
TextBlock1.Text = (TextBlock1.Text + "F");
Display = (Display + "CALL FM\r\n");
if (ASC2[4, 6] < 1)
{
ASCII = (ASCII + "FM MOVLW 46H ; F\r\nMOVWF PORTB ;\r\nCALL Envio ;\r\nRETURN ;\r\n");
ASC2[4, 6] = ASC2[4, 6] + 1;
}
}
//Minusculas
if (ASC2[0, 1] == 1)
{
TextBlock1.Text = (TextBlock1.Text + "f");
Display = (Display + "CALL fm\r\n");
if (ASC2[6, 6] < 1)
{
ASCII = (ASCII + "fm MOVLW 66H ; f\r\nMOVWF PORTB ;\r\nCALL Envio ;\r\nRETURN ;\r\n");
ASC2[6, 6] = ASC2[6, 6] + 1;
}
}
//Numeros
if (ASC2[0, 2] == 1)
{
TextBlock1.Text = (TextBlock1.Text + "3");
Display = (Display + "CALL N3\r\n");
if (ASC2[3, 3] < 1)
{
ASCII = (ASCII + "N3 MOVLW 33H ;3\r\nMOVWF PORTB ;\r\nCALL Envio ;\r\nRETURN ;\r\n");
ASC2[3, 3] = ASC2[3, 3] + 1;
}
}
}
private void Button_Click_2(object sender, RoutedEventArgs e)
{
for (int i = 0; i < 9; i++)
{
for (int j = 0; j < 16; j++)
{
b = (" " + ASC2[i, j].ToString());
a = a + b;
}
}
textBox1.Text = a;
}
// Teclado Pantalla tactil
//QWERTYUIOP
//////Tecla Q
private void TeclaQ_Click(object sender, RoutedEventArgs e)
{
//Mayusculas
if (ASC2[0, 0] == 1)
{
TextBlock1.Text = (TextBlock1.Text + "Q");
Display = (Display + "CALL Q\r\n");
if (ASC2[5, 1] < 1)
{
ASCII = (ASCII + "Q MOVLW 51H ; Q\r\nMOVWF PORTB ;\r\nCALL Envio ;\r\nRETURN ;\r\n");
ASC2[5, 1] = ASC2[5, 1] + 1;
}
}
//Minusculas
if (ASC2[0, 1] == 1)
{
TextBlock1.Text = (TextBlock1.Text + "q");
Display = (Display + "CALL q\r\n");
if (ASC2[7,1] < 1)
{
ASCII = (ASCII + "q MOVLW 71H ; q\r\nMOVWF PORTB ;\r\nCALL Envio ;\r\nRETURN ;\r\n");
ASC2[7, 1] = ASC2[7, 1] + 1;
}
}
//Numeros
if (ASC2[0, 2] == 1)
{
TextBlock1.Text = (TextBlock1.Text + "!");
Display = (Display + "CALL signodeadmiracion\r\n");
if (ASC2[2, 1] < 1)
{
ASCII = (ASCII + "signodeadmiracion MOVLW 21H ; !\r\nMOVWF PORTB ;\r\nCALL Envio ;\r\nRETURN ;\r\n");
ASC2[2, 1] = ASC2[2, 1] + 1;
}
}
///Comandos
if (ASC2[0, 4] == 1)
{
TextBlock1.Text = ("");
Display = (Display + "CALL BorrarDisplay\r\n");
if (ASC2[8, 0] < 1)
{
Comandos = (Comandos + "\r\nBorrarDisplay\r\nBCF PORTA,0 ;\r\nMOVLW 01H ; Borrar Display\r\nMOVWF PORTB ;\r\nCALL Envio ;\r\nBSF PORTA,0 ;\r\nRETURN");
ASC2[8, 0] = ASC2[8, 0] + 1;
}
}
}
//////Tecla W
private void TeclaW_Click(object sender, RoutedEventArgs e)
{
//Mayusculas
if (ASC2[0, 0] == 1)
{
TextBlock1.Text = (TextBlock1.Text + "W");
Display = (Display + "CALL WM\r\n");
if (ASC2[5, 7] < 1)
{
ASCII = (ASCII + "WM MOVLW 57H ; W\r\nMOVWF PORTB ;\r\nCALL Envio ;\r\nRETURN ;\r\n");
ASC2[5, 7] = ASC2[5, 7] + 1;
}
}
//Minusculas
if (ASC2[0, 1] == 1)
{
TextBlock1.Text = (TextBlock1.Text + "w");
Display = (Display + "CALL wm\r\n");
if (ASC2[7, 7] < 1)
{
ASCII = (ASCII + "wm MOVLW 77H ; w\r\nMOVWF PORTB ;\r\nCALL Envio ;\r\nRETURN ;\r\n");
ASC2[7, 7] = ASC2[7, 7] + 1;
}
}
//Numeros
if (ASC2[0, 2] == 1)
{
TextBlock1.Text = (TextBlock1.Text + " ");
Display = (Display + "CALL comitas\r\n");
if (ASC2[2, 2] < 1)
{
ASCII = (ASCII + "comitas MOVLW 22H ; \r\nMOVWF PORTB ;\r\nCALL Envio ;\r\nRETURN ;\r\n");
ASC2[2, 2] = ASC2[2, 2] + 1;
}
}
///Comandos
if (ASC2[0, 4] == 1)
{
TextBlock1.Text = ("H");
Display = (Display + "CALL Inicio\r\n");
if (ASC2[8, 1] < 1)
{
Comandos = (Comandos + "\r\nInicio BCF PORTA,0 ;\r\nMOVLW 02H ; Ir al primer caracter\r\nMOVWF PORTB ;\r\nCALL Envio ;\r\nBSF PORTA,0 ;\r\nRETURN");
ASC2[8, 1] = ASC2[8, 1] + 1;
}
}
}
//////Tecla E
private void TeclaE_Click(object sender, RoutedEventArgs e)
{
//Mayusculas
if (ASC2[0, 0] == 1)
{
TextBlock1.Text = (TextBlock1.Text + "E");
Display = (Display + "CALL E\r\n");
if (ASC2[4, 5] < 1)
{
ASCII = (ASCII + "E MOVLW 45H ; E\r\nMOVWF PORTB ;\r\nCALL Envio ;\r\nRETURN ;\r\n");
ASC2[4, 5] = ASC2[4, 5] + 1;
}
}
//Minusculas
if (ASC2[0, 1] == 1)
{
TextBlock1.Text = (TextBlock1.Text + "e");
Display = (Display + "CALL e\r\n");
if (ASC2[6, 5] < 1)
{
ASCII = (ASCII + "e MOVLW 65H ; e\r\nMOVWF PORTB ;\r\nCALL Envio ;\r\nRETURN ;\r\n");
ASC2[6, 5] = ASC2[6, 5] + 1;
}
}
//Numeros
if (ASC2[0, 2] == 1)
{
TextBlock1.Text = (TextBlock1.Text + "#");
Display = (Display + "CALL gato\r\n");
if (ASC2[2, 3] < 1)
{
ASCII = (ASCII + "gato MOVLW 23H ;#\r\nMOVWF PORTB ;\r\nCALL Envio ;\r\nRETURN ;\r\n");
ASC2[2, 3] = ASC2[2, 3] + 1;
}
}
///Comandos
if (ASC2[0, 4] == 1)
{
TextBlock1.Text = ("Izq");
Display = (Display + "CALL MovertodoalaIzquierda\r\n");
if (ASC2[8, 2] < 1)
{
Comandos = (Comandos + "\r\nMovertodoalaIzquierda\r\nBCF PORTA,0 ;\r\nMOVLW 18H ; Mover a la Izquierda\r\nMOVWF PORTB ;\r\nCALL Envio ;\r\nBSF PORTA,0 ;\r\nRETURN");
ASC2[8, 2] = ASC2[8, 2] + 1;
}
}
}
//////Tecla R
private void TeclaR_Click(object sender, RoutedEventArgs e)
{
//Mayusculas
if (ASC2[0, 0] == 1)
{
TextBlock1.Text = (TextBlock1.Text + "R");
Display = (Display + "CALL R\r\n");
if (ASC2[5, 2] < 1)
{
ASCII = (ASCII + "R MOVLW 52H ; R\r\nMOVWF PORTB ;\r\nCALL Envio ;\r\nRETURN ;\r\n");
ASC2[5, 2] = ASC2[5, 2] + 1;
}
}
//Minusculas
if (ASC2[0, 1] == 1)
{
TextBlock1.Text = (TextBlock1.Text + "r");
Display = (Display + "CALL r\r\n");
if (ASC2[7, 2] < 1)
{
ASCII = (ASCII + "r MOVLW 72H ; r\r\nMOVWF PORTB ;\r\nCALL Envio ;\r\nRETURN ;\r\n");
ASC2[7, 2] = ASC2[7, 2] + 1;
}
}
//Numeros
if (ASC2[0, 2] == 1)
{
TextBlock1.Text = (TextBlock1.Text + "$");
Display = (Display + "CALL pesos\r\n");
if (ASC2[2, 4] < 1)
{
ASCII = (ASCII + "pesos MOVLW 24H ;$\r\nMOVWF PORTB ;\r\nCALL Envio ;\r\nRETURN ;\r\n");
ASC2[2, 4] = ASC2[2, 4] + 1;
}
}
///Comandos
if (ASC2[0, 4] == 1)
{
TextBlock1.Text = ("Der");
Display = (Display + "CALL MovertodoalaDerecha\r\n");
if (ASC2[8, 3] < 1)
{
Comandos = (Comandos + "\r\nMovertodoalaDerecha ;\r\nBCF PORTA,0 ;\r\nMOVLW 1CH ; Mover a la derecha \r\nMOVWF PORTB ;\r\nCALL Envio ;\r\nBSF PORTA,0 ;\r\nRETURN");
ASC2[8, 3] = ASC2[8, 3] + 1;
}
}
///Retardo
if (ASC2[0, 5] == 1)
{
TextBlock1.Text = ("4s");
Display = (Display + "CALL RETARDO\r\nCALL RETARDO\r\nCALL RETARDO\r\nCALL RETARDO\r\nCALL RETARDO\r\nCALL RETARDO\r\nCALL RETARDO\r\nCALL RETARDO\r\nCALL RETARDO\r\nCALL RETARDO\r\nCALL RETARDO\r\nCALL RETARDO\r\nCALL RETARDO\r\nCALL RETARDO\r\nCALL RETARDO\r\nCALL RETARDO\r\n");
}
}
//////Tecla T
private void TeclaT_Click(object sender, RoutedEventArgs e)
{
//Mayusculas
if (ASC2[0, 0] == 1)
{
TextBlock1.Text = (TextBlock1.Text + "T");
Display = (Display + "CALL T\r\n");
if (ASC2[5, 4] < 1)
{
ASCII = (ASCII + "T MOVLW 54H ; T\r\nMOVWF PORTB ;\r\nCALL Envio ;\r\nRETURN ;\r\n");
ASC2[5, 4] = ASC2[5, 4] + 1;
}
}
//Minusculas
if (ASC2[0, 1] == 1)
{
TextBlock1.Text = (TextBlock1.Text + "t");
Display = (Display + "CALL t\r\n");
if (ASC2[7, 4] < 1)
{
ASCII = (ASCII + "t MOVLW 74H ; t\r\nMOVWF PORTB ;\r\nCALL Envio ;\r\nRETURN ;\r\n");
ASC2[7, 4] = ASC2[7, 4] + 1;
}
}
//Numeros
if (ASC2[0, 2] == 1)
{
TextBlock1.Text = (TextBlock1.Text + "%");
Display = (Display + "CALL porciento\r\n");
if (ASC2[2, 5] < 1)
{
ASCII = (ASCII + "porciento MOVLW 25H ;%\r\nMOVWF PORTB ;\r\nCALL Envio ;\r\nRETURN ;\r\n");
ASC2[2, 5] = ASC2[2, 5] + 1;
}
}
}
//////Tecla Y
private void TeclaY_Click(object sender, RoutedEventArgs e)
{
//Mayusculas
if (ASC2[0, 0] == 1)
{
TextBlock1.Text = (TextBlock1.Text + "Y");
Display = (Display + "CALL Y\r\n");
if (ASC2[5, 9] < 1)
{
ASCII = (ASCII + "Y MOVLW 59H ; Y\r\nMOVWF PORTB ;\r\nCALL Envio ;\r\nRETURN ;\r\n");
ASC2[5, 9] = ASC2[5, 9] + 1;
}
}
//Minusculas
if (ASC2[0, 1] == 1)
{
TextBlock1.Text = (TextBlock1.Text + "y");
Display = (Display + "CALL y\r\n");
if (ASC2[7, 9] < 1)
{
ASCII = (ASCII + "y MOVLW 79H ; y\r\nMOVWF PORTB ;\r\nCALL Envio ;\r\nRETURN ;\r\n");
ASC2[7, 9] = ASC2[7, 9] + 1;
}
}
//Numeros
if (ASC2[0, 2] == 1)
{
TextBlock1.Text = (TextBlock1.Text + "&");
Display = (Display + "CALL ygreenga\r\n");
if (ASC2[2, 6] < 1)
{
ASCII = (ASCII + "ygreenga MOVLW 26H ;&\r\nMOVWF PORTB ;\r\nCALL Envio ;\r\nRETURN ;\r\n");
ASC2[2, 6] = ASC2[2, 6] + 1;
}
}
}
//////Tecla U
private void TeclaU_Click(object sender, RoutedEventArgs e)
{
//Mayusculas
if (ASC2[0, 0] == 1)
{
TextBlock1.Text = (TextBlock1.Text + "U");
Display = (Display + "CALL U\r\n");
if (ASC2[5, 5] < 1)
{
ASCII = (ASCII + "U MOVLW 55H ; U\r\nMOVWF PORTB ;\r\nCALL Envio ;\r\nRETURN ;\r\n");
ASC2[5, 5] = ASC2[5, 5] + 1;
}
}
//Minusculas
if (ASC2[0, 1] == 1)
{
TextBlock1.Text = (TextBlock1.Text + "u");
Display = (Display + "CALL u\r\n");
if (ASC2[7, 5] < 1)
{
ASCII = (ASCII + "u MOVLW 75H ; u\r\nMOVWF PORTB ;\r\nCALL Envio ;\r\nRETURN ;\r\n");
ASC2[7, 5] = ASC2[7, 5] + 1;
}
}
//Numeros
if (ASC2[0, 2] == 1)
{
TextBlock1.Text = (TextBlock1.Text + "'");
Display = (Display + "CALL comita\r\n");
if (ASC2[2, 7] < 1)
{
ASCII = (ASCII + "comita MOVLW 27H ;'\r\nMOVWF PORTB ;\r\nCALL Envio ;\r\nRETURN ;\r\n");
ASC2[2, 7] = ASC2[2, 7] + 1;
}
}
}
//////Tecla I
private void TeclaI_Click(object sender, RoutedEventArgs e)
{
//Mayusculas
if (ASC2[0, 0] == 1)
{
TextBlock1.Text = (TextBlock1.Text + "I");
Display = (Display + "CALL I\r\n");
if (ASC2[4, 9] < 1)
{
ASCII = (ASCII + "I MOVLW 49H ; I\r\nMOVWF PORTB ;\r\nCALL Envio ;\r\nRETURN ;\r\n");
ASC2[4, 9] = ASC2[4, 9] + 1;
}
}
//Minusculas
if (ASC2[0, 1] == 1)
{
TextBlock1.Text = (TextBlock1.Text + "i");
Display = (Display + "CALL i\r\n");
if (ASC2[6, 9] < 1)
{
ASCII = (ASCII + "i MOVLW 69H ; i\r\nMOVWF PORTB ;\r\nCALL Envio ;\r\nRETURN ;\r\n");
ASC2[6, 9] = ASC2[6, 9] + 1;
}
}
//Numeros
if (ASC2[0, 2] == 1)
{
TextBlock1.Text = (TextBlock1.Text + "(");
Display = (Display + "CALL AbroParentesis\r\n");
if (ASC2[2, 8] < 1)
{
ASCII = (ASCII + "AbroParentesis MOVLW 28H ;(\r\nMOVWF PORTB ;\r\nCALL Envio ;\r\nRETURN ;\r\n");
ASC2[2, 8] = ASC2[2, 8] + 1;
}
}
}
//////Tecla O
private void TeclaO_Click(object sender, RoutedEventArgs e)
{
//Mayusculas
if (ASC2[0, 0] == 1)
{
TextBlock1.Text = (TextBlock1.Text + "O");
Display = (Display + "CALL O\r\n");
if (ASC2[4, 15] < 1)
{
ASCII = (ASCII + "O MOVLW 4FH ; O\r\nMOVWF PORTB ;\r\nCALL Envio ;\r\nRETURN ;\r\n");
ASC2[4, 15] = ASC2[4, 15] + 1;
}
}
//Minusculas
if (ASC2[0, 1] == 1)
{
TextBlock1.Text = (TextBlock1.Text + "o");
Display = (Display + "CALL o\r\n");
if (ASC2[6, 15] < 1)
{
ASCII = (ASCII + "o MOVLW 6FH ; o\r\nMOVWF PORTB ;\r\nCALL Envio ;\r\nRETURN ;\r\n");
ASC2[6, 15] = ASC2[6, 15] + 1;
}
}
//Numeros
if (ASC2[0, 2] == 1)
{
TextBlock1.Text = (TextBlock1.Text + ")");
Display = (Display + "CALL CierroParentesis\r\n");
if (ASC2[2, 9] < 1)
{
ASCII = (ASCII + "CierroParentesis MOVLW 29H ;)\r\nMOVWF PORTB ;\r\nCALL Envio ;\r\nRETURN ;\r\n");
ASC2[2, 9] = ASC2[2, 9] + 1;
}
}
}
//////Tecla P
private void TeclaP_Click(object sender, RoutedEventArgs e)
{
//Mayusculas
if (ASC2[0, 0] == 1)
{
TeclaP.Content = "P";
TextBlock1.Text = (TextBlock1.Text + "P");
Display = (Display + "CALL P\r\n");
if (ASC2[5, 0] < 1)
{
ASCII = (ASCII + "P MOVLW 50H ; P\r\nMOVWF PORTB ;\r\nCALL Envio ;\r\nRETURN ;\r\n");
ASC2[5, 0] = ASC2[5, 0] + 1;
}
}
//Minusculas
if (ASC2[0, 1] == 1)
{
TextBlock1.Text = (TextBlock1.Text + "p");
Display = (Display + "CALL p\r\n");
if (ASC2[7, 0] < 1)
{
ASCII = (ASCII + "p MOVLW 70H ; p\r\nMOVWF PORTB ;\r\nCALL Envio ;\r\nRETURN ;\r\n");
ASC2[7, 0] = ASC2[7, 0] + 1;
}
}
//Numeros
if (ASC2[0, 2] == 1)
{
TextBlock1.Text = (TextBlock1.Text + "*");
Display = (Display + "CALL estrella\r\n");
if (ASC2[2, 10] < 1)
{
ASCII = (ASCII + "estrella MOVLW 2AH ;%\r\nMOVWF PORTB ;\r\nCALL Envio ;\r\nRETURN ;\r\n");
ASC2[2, 10] = ASC2[2, 10] + 1;
}
}
}
//Generar codigo, Aqui es la magia...bueno la verdad no.
private void FinalASM_Click(object sender, RoutedEventArgs e)
{
cfg = "STATUS EQU 03H\r\nPORTB EQU 06H\r\nTRISB EQU 06H\r\nTRISA EQU 05H\r\nPORTA EQU 05H\r\nCUENTA1 EQU 0DH\r\nCUENTA2 EQU 0EH\r\nCUENTA3 EQU 0FH\r\nW EQU 0\r\nF EQU 1\r\n\r\nORG 00H\r\nBSF STATUS,5\r\nMOVLW 00H\r\nMOVWF TRISB\r\nMOVLW 00H\r\nMOVWF TRISA\r\nBCF STATUS,5\r\n\r\n;;CFG 8Bits\r\nMOVLW 00H ;Zero\r\nMOVWF PORTA ;\r\nMOVLW 00H ;\r\nMOVWF PORTB ;\r\nCALL RETARDO;\r\n\r\nMOVLW 01H ;Registro de control\r\nMOVWF PORTA ;y \r\nMOVLW 02H ;regresar a\r\nMOVWF PORTB ;primera \r\nCALL RETARDO;casilla\r\nMOVLW 00H ;\r\nMOVWF PORTA ;\r\nCALL RETARDO;\r\n\r\n;;Funcion SET \r\nBSF PORTB,0 ;\r\nBSF PORTB,1 ; No usadas\r\nBSF PORTB,2 ; 1= Car?cter de 5x10 puntos,0= Car?cter de 5x7 puntos.\r\nBSF PORTB,3 ; 1=Usar 2 lineas, 0=, 1 Linea\r\nBSF PORTB,4 ; 1=Longitud 8, 0=4 Bits\r\nBSF PORTB,5 ; funcion cfg\r\nBCF PORTB,6\r\nBCF PORTB,7\r\nCALL Envio ;\r\n\r\n;Entri mode SET\r\nBCF PORTB,0 ; S = 1 Desplaza la visualizaci?n cada vez que se escribe un dato,0 Modo normal.\r\nBSF PORTB,1 ; I/D = 1 Incremento del cursor, 0 Decremento del cursor.\r\nBSF PORTB,2 ; Entri mode SET \r\nBCF PORTB,3 ; \r\nBCF PORTB,4 ; \r\nBCF PORTB,5 ; \r\nBCF PORTB,6 ;\r\nBCF PORTB,7 ;\r\nCALL Envio ;\r\n\r\n;Display Control\r\nBSF PORTB,0 ; B = 1 Cursor parpadea, Cursor tiene canser\r\nBSF PORTB,1 ; C = 1 cursor encendido, 0 = apagar cursor\r\nBSF PORTB,2 ; D = 1 Display encendido, 0 = apagado\r\nBSF PORTB,3 ; Display Control\r\nBCF PORTB,4 ; \r\nBCF PORTB,5 ; \r\nBCF PORTB,6 ;\r\nBCF PORTB,7 ;\r\nCALL Envio ;\r\n\r\nBSF PORTA,0 ; Modo Escritura\r\nCALL RETARDO\r\n;;Fin CFG 8Bits\r\n\r\n";
Detenmensaje = "\r\nvicki\r\nGOTO vicki\r\n";
Envio = ("\r\nEnvio CALL RETARDO\r\nBSF PORTA,1\r\nCALL RETARDO\r\nBCF PORTA,1\r\nCALL RETARDO\r\nRETURN\r\n");
Retardo = ("\r\nRETARDO MOVLW 01H\r\nMOVWF CUENTA1\r\nR03 MOVLW 90H\r\nMOVWF CUENTA2\r\nR02 MOVLW 90H\r\nMOVWF CUENTA3\r\nR01 DECFSZ CUENTA3,F\r\nGOTO R01\r\nDECFSZ CUENTA2,F\r\nGOTO R02\r\nDECFSZ CUENTA1,F\r\nGOTO R03\r\nRETURN\r\n\r\nEND");
codigoASM = " ";
codigoASM = ("" + cfg + Display + Detenmensaje + ASCII + Comandos + Envio + Retardo);
textBox1.Text = (codigoASM);
}
private void Info_TextChanged(object sender, TextChangedEventArgs e)
{
}
///
// Teclado Pantalla tactil
//ASDFGHJKLÑ
//////Tecla A
private void TeclaA_Click(object sender, RoutedEventArgs e)
{
//Mayusculas
if (ASC2[0, 0] == 1)
{
TextBlock1.Text = (TextBlock1.Text + "A");
Display = (Display + "CALL A\r\n");
if (ASC2[4, 1] < 1)
{
ASCII = (ASCII + "A MOVLW 41H ; A\r\nMOVWF PORTB ;\r\nCALL Envio ;\r\nRETURN ;\r\n");
ASC2[4, 1] = ASC2[4, 1] + 1;
}
}
//Minusculas
if (ASC2[0, 1] == 1)
{
TextBlock1.Text = (TextBlock1.Text + "a");
Display = (Display + "CALL a\r\n");
if (ASC2[6, 1] < 1)
{
ASCII = (ASCII + "a MOVLW 61H ; a\r\nMOVWF PORTB ;\r\nCALL Envio ;\r\nRETURN ;\r\n");
ASC2[6, 1] = ASC2[6, 1] + 1;
}
}
//Numeros
if (ASC2[0, 2] == 1)
{
TextBlock1.Text = (TextBlock1.Text + "0");
Display = (Display + "CALL N0\r\n");
if (ASC2[3, 0] < 1)
{
ASCII = (ASCII + "N0 MOVLW 30H ;0\r\nMOVWF PORTB ;\r\nCALL Envio ;\r\nRETURN ;\r\n");
ASC2[3, 0] = ASC2[3, 0] + 1;
}
}
}
//////Tecla S
private void TeclaS_Click(object sender, RoutedEventArgs e)
{
//Mayusculas
if (ASC2[0, 0] == 1)
{
TextBlock1.Text = (TextBlock1.Text + "S");
Display = (Display + "CALL S\r\n");
if (ASC2[5, 3] < 1)
{
ASCII = (ASCII + "S MOVLW 53H ; S\r\nMOVWF PORTB ;\r\nCALL Envio ;\r\nRETURN ;\r\n");
ASC2[5, 3] = ASC2[5, 3] + 1;
}
}
//Minusculas
if (ASC2[0, 1] == 1)
{
TextBlock1.Text = (TextBlock1.Text + "s");
Display = (Display + "CALL s\r\n");
if (ASC2[7, 3] < 1)
{
ASCII = (ASCII + "s MOVLW 73H ; s\r\nMOVWF PORTB ;\r\nCALL Envio ;\r\nRETURN ;\r\n");
ASC2[7, 3] = ASC2[7, 3] + 1;
}
}
//Numeros
if (ASC2[0, 2] == 1)
{
TextBlock1.Text = (TextBlock1.Text + "1");
Display = (Display + "CALL N1\r\n");
if (ASC2[3, 1] < 1)
{
ASCII = (ASCII + "N1 MOVLW 31H ;1\r\nMOVWF PORTB ;\r\nCALL Envio ;\r\nRETURN ;\r\n");
ASC2[3, 1] = ASC2[3, 1] + 1;
}
}
}
//////Tecla D
private void TeclaD_Click(object sender, RoutedEventArgs e)
{
//Mayusculas
if (ASC2[0, 0] == 1)
{
TextBlock1.Text = (TextBlock1.Text + "D");
Display = (Display + "CALL D\r\n");
if (ASC2[4, 4] < 1)
{
ASCII = (ASCII + "D MOVLW 44H ; D\r\nMOVWF PORTB ;\r\nCALL Envio ;\r\nRETURN ;\r\n");
ASC2[4, 4] = ASC2[4, 4] + 1;
}
}
//Minusculas
if (ASC2[0, 1] == 1)
{
TextBlock1.Text = (TextBlock1.Text + "d");
Display = (Display + "CALL d\r\n");
if (ASC2[6, 4] < 1)
{
ASCII = (ASCII + "d MOVLW 64H ; d\r\nMOVWF PORTB ;\r\nCALL Envio ;\r\nRETURN ;\r\n");
ASC2[6, 4] = ASC2[6, 4] + 1;
}
}
//Numeros
if (ASC2[0, 2] == 1)
{
TextBlock1.Text = (TextBlock1.Text + "2");
Display = (Display + "CALL N2\r\n");
if (ASC2[3, 2] < 1)
{
ASCII = (ASCII + "N2 MOVLW 32H ;2\r\nMOVWF PORTB ;\r\nCALL Envio ;\r\nRETURN ;\r\n");
ASC2[3, 2] = ASC2[3, 2] + 1;
}
}
}
//////Tecla F
private void TeclaF_Click(object sender, RoutedEventArgs e)
{
//Mayusculas
if (ASC2[0, 0] == 1)
{
TextBlock1.Text = (TextBlock1.Text + "F");
Display = (Display + "CALL FM\r\n");
if (ASC2[4, 6] < 1)
{
ASCII = (ASCII + "FM MOVLW 46H ; F\r\nMOVWF PORTB ;\r\nCALL Envio ;\r\nRETURN ;\r\n");
ASC2[4, 6] = ASC2[4, 6] + 1;
}
}
//Minusculas
if (ASC2[0, 1] == 1)
{
TextBlock1.Text = (TextBlock1.Text + "f");
Display = (Display + "CALL fm\r\n");
if (ASC2[6, 6] < 1)
{
ASCII = (ASCII + "fm MOVLW 66H ; f\r\nMOVWF PORTB ;\r\nCALL Envio ;\r\nRETURN ;\r\n");
ASC2[6, 6] = ASC2[6, 6] + 1;
}
}
//Numeros
if (ASC2[0, 2] == 1)
{
TextBlock1.Text = (TextBlock1.Text + "3");
Display = (Display + "CALL N3\r\n");
if (ASC2[3, 3] < 1)
{
ASCII = (ASCII + "N3 MOVLW 33H ;3\r\nMOVWF PORTB ;\r\nCALL Envio ;\r\nRETURN ;\r\n");
ASC2[3, 3] = ASC2[3, 3] + 1;
}
}
}
//////Tecla G
private void TeclaG_Click(object sender, RoutedEventArgs e)
{
//Mayusculas
if (ASC2[0, 0] == 1)
{
TextBlock1.Text = (TextBlock1.Text + "G");
Display = (Display + "CALL G\r\n");
if (ASC2[4, 7] < 1)
{
ASCII = (ASCII + "G MOVLW 47H ; G\r\nMOVWF PORTB ;\r\nCALL Envio ;\r\nRETURN ;\r\n");
ASC2[4, 7] = ASC2[4, 7] + 1;
}
}
//Minusculas
if (ASC2[0, 1] == 1)
{
TextBlock1.Text = (TextBlock1.Text + "g");
Display = (Display + "CALL g\r\n");
if (ASC2[6, 7] < 1)
{
ASCII = (ASCII + "g MOVLW 67H ; g\r\nMOVWF PORTB ;\r\nCALL Envio ;\r\nRETURN ;\r\n");
ASC2[6, 7] = ASC2[6, 7] + 1;
}
}
//Numeros
if (ASC2[0, 2] == 1)
{
TextBlock1.Text = (TextBlock1.Text + "4");
Display = (Display + "CALL N4\r\n");
if (ASC2[3, 4] < 1)
{
ASCII = (ASCII + "N4 MOVLW 34H ;4\r\nMOVWF PORTB ;\r\nCALL Envio ;\r\nRETURN ;\r\n");
ASC2[3, 4] = ASC2[3, 4] + 1;
}
}
}
//////Tecla H
private void TeclaH_Click(object sender, RoutedEventArgs e)
{
//Mayusculas
if (ASC2[0, 0] == 1)
{
TextBlock1.Text = (TextBlock1.Text + "H");
Display = (Display + "CALL H\r\n");
if (ASC2[4, 8] < 1)
{
ASCII = (ASCII + "H MOVLW 48H ; H\r\nMOVWF PORTB ;\r\nCALL Envio ;\r\nRETURN ;\r\n");
ASC2[4, 8] = ASC2[4, 8] + 1;
}
}
//Minusculas
if (ASC2[0, 1] == 1)
{
TextBlock1.Text = (TextBlock1.Text + "h");
Display = (Display + "CALL h\r\n");
if (ASC2[6, 8] < 1)
{
ASCII = (ASCII + "h MOVLW 68H ; h\r\nMOVWF PORTB ;\r\nCALL Envio ;\r\nRETURN ;\r\n");
ASC2[6, 8] = ASC2[6, 8] + 1;
}
}
//Numeros
if (ASC2[0, 2] == 1)
{
TextBlock1.Text = (TextBlock1.Text + "5");
Display = (Display + "CALL N5\r\n");
if (ASC2[3, 5] < 1)
{
ASCII = (ASCII + "N5 MOVLW 35H ;5\r\nMOVWF PORTB ;\r\nCALL Envio ;\r\nRETURN ;\r\n");
ASC2[3, 5] = ASC2[3, 5] + 1;
}
}
}
//////Tecla J
private void TeclaJ_Click(object sender, RoutedEventArgs e)
{
//Mayusculas
if (ASC2[0, 0] == 1)
{
TextBlock1.Text = (TextBlock1.Text + "J");
Display = (Display + "CALL J\r\n");
if (ASC2[4, 10] < 1)
{
ASCII = (ASCII + "J MOVLW 4AH ; J\r\nMOVWF PORTB ;\r\nCALL Envio ;\r\nRETURN ;\r\n");
ASC2[4, 10] = ASC2[4, 10] + 1;
}
}
//Minusculas
if (ASC2[0, 1] == 1)
{
TextBlock1.Text = (TextBlock1.Text + "j");
Display = (Display + "CALL j\r\n");
if (ASC2[6, 10] < 1)
{
ASCII = (ASCII + "j MOVLW 6AH ;jt\r\nMOVWF PORTB ;\r\nCALL Envio ;\r\nRETURN ;\r\n");
ASC2[6, 10] = ASC2[6, 10] + 1;
}
}
//Numeros
if (ASC2[0, 2] == 1)
{
TextBlock1.Text = (TextBlock1.Text + "6");
Display = (Display + "CALL N6\r\n");
if (ASC2[3, 6] < 1)
{
ASCII = (ASCII + "N6 MOVLW 36H ;6\r\nMOVWF PORTB ;\r\nCALL Envio ;\r\nRETURN ;\r\n");
ASC2[3, 6] = ASC2[3, 6] + 1;
}
}
}
//////Tecla K
private void TeclaK_Click(object sender, RoutedEventArgs e)
{
//Mayusculas
if (ASC2[0, 0] == 1)
{
TextBlock1.Text = (TextBlock1.Text + "K");
Display = (Display + "CALL K\r\n");
if (ASC2[4, 11] < 1)
{
ASCII = (ASCII + "K MOVLW 4BH ; K\r\nMOVWF PORTB ;\r\nCALL Envio ;\r\nRETURN ;\r\n");
ASC2[4, 11] = ASC2[4, 11] + 1;
}
}
//Minusculas
if (ASC2[0, 1] == 1)
{
TextBlock1.Text = (TextBlock1.Text + "k");
Display = (Display + "CALL k\r\n");
if (ASC2[6, 11] < 1)
{
ASCII = (ASCII + "k MOVLW 6BH ; k\r\nMOVWF PORTB ;\r\nCALL Envio ;\r\nRETURN ;\r\n");
ASC2[6, 11] = ASC2[6, 11] + 1;
}
}
//Numeros
if (ASC2[0, 2] == 1)
{
TextBlock1.Text = (TextBlock1.Text + "7");
Display = (Display + "CALL N7\r\n");
if (ASC2[3, 7] < 1)
{
ASCII = (ASCII + "N7 MOVLW 37H ;7\r\nMOVWF PORTB ;\r\nCALL Envio ;\r\nRETURN ;\r\n");
ASC2[3, 7] = ASC2[3, 7] + 1;
}
}
}
//////Tecla L
private void TeclaL_Click(object sender, RoutedEventArgs e)
{
//Mayusculas
if (ASC2[0, 0] == 1)
{
TextBlock1.Text = (TextBlock1.Text + "L");
Display = (Display + "CALL L\r\n");
if (ASC2[4, 12] < 1)
{
ASCII = (ASCII + "L MOVLW 4CH ; L\r\nMOVWF PORTB ;\r\nCALL Envio ;\r\nRETURN ;\r\n");
ASC2[4, 12] = ASC2[4, 12] + 1;
}
}
//Minusculas
if (ASC2[0, 1] == 1)
{
TextBlock1.Text = (TextBlock1.Text + "l");
Display = (Display + "CALL l\r\n");
if (ASC2[6, 12] < 1)
{
ASCII = (ASCII + "l MOVLW 6CH ; l\r\nMOVWF PORTB ;\r\nCALL Envio ;\r\nRETURN ;\r\n");
ASC2[6, 12] = ASC2[6, 12] + 1;
}
}
//Numeros
if (ASC2[0, 2] == 1)
{
TextBlock1.Text = (TextBlock1.Text + "8");
Display = (Display + "CALL N8\r\n");
if (ASC2[3, 8] < 1)
{
ASCII = (ASCII + "N8 MOVLW 38H ;8\r\nMOVWF PORTB ;\r\nCALL Envio ;\r\nRETURN ;\r\n");
ASC2[3, 8] = ASC2[3, 8] + 1;
}
}
}
//ZXCVBNM
//////Tecla Z
private void TeclaZ_Click(object sender, RoutedEventArgs e)
{
//Mayusculas
if (ASC2[0, 0] == 1)
{
TextBlock1.Text = (TextBlock1.Text + "Z");
Display = (Display + "CALL Z\r\n");
if (ASC2[5, 10] < 1)
{
ASCII = (ASCII + "Z MOVLW 5AH ; Z\r\nMOVWF PORTB ;\r\nCALL Envio ;\r\nRETURN ;\r\n");
ASC2[5, 10] = ASC2[5, 10] + 1;
}
}
//Minusculas
if (ASC2[0, 1] == 1)
{
TextBlock1.Text = (TextBlock1.Text + "z");
Display = (Display + "CALL z\r\n");
if (ASC2[7, 10] < 1)
{
ASCII = (ASCII + "z MOVLW 7AH ;zt\r\nMOVWF PORTB ;\r\nCALL Envio ;\r\nRETURN ;\r\n");
ASC2[7, 10] = ASC2[7, 10] + 1;
}
}
//Numeros
if (ASC2[0, 2] == 1)
{
TextBlock1.Text = (TextBlock1.Text + "9");
Display = (Display + "CALL N9\r\n");
if (ASC2[3, 9] < 1)
{
ASCII = (ASCII + "N9 MOVLW 39H ;9\r\nMOVWF PORTB ;\r\nCALL Envio ;\r\nRETURN ;\r\n");
ASC2[3, 9] = ASC2[3, 9] + 1;
}
}
}
//////Tecla X
private void TeclaX_Click(object sender, RoutedEventArgs e)
{
//Mayusculas
if (ASC2[0, 0] == 1)
{
TextBlock1.Text = (TextBlock1.Text + "X");
Display = (Display + "CALL X\r\n");
if (ASC2[5, 8] < 1)
{
ASCII = (ASCII + "X MOVLW 58H ; X\r\nMOVWF PORTB ;\r\nCALL Envio ;\r\nRETURN ;\r\n");
ASC2[5, 8] = ASC2[5, 8] + 1;
}
}
//Minusculas
if (ASC2[0, 1] == 1)
{
TextBlock1.Text = (TextBlock1.Text + "x");
Display = (Display + "CALL x\r\n");
if (ASC2[7, 8] < 1)
{
ASCII = (ASCII + "x MOVLW 78H ;x\r\nMOVWF PORTB ;\r\nCALL Envio ;\r\nRETURN ;\r\n");
ASC2[7, 8] = ASC2[7, 8] + 1;
}
}
//Numeros
if (ASC2[0, 2] == 1)
{
TextBlock1.Text = (TextBlock1.Text + "0");
Display = (Display + "CALL N0\r\n");
if (ASC2[3, 0] < 1)
{
ASCII = (ASCII + "N0 MOVLW 30H ;0\r\nMOVWF PORTB ;\r\nCALL Envio ;\r\nRETURN ;\r\n");
ASC2[3, 0] = ASC2[3, 0] + 1;
}
}
}
//////Tecla C
private void TeclaC_Click(object sender, RoutedEventArgs e)
{
//Mayusculas
if (ASC2[0, 0] == 1)
{
TextBlock1.Text = (TextBlock1.Text + "C");
Display = (Display + "CALL C\r\n");
if (ASC2[4, 3] < 1)
{
ASCII = (ASCII + "C MOVLW 43H ; C\r\nMOVWF PORTB ;\r\nCALL Envio ;\r\nRETURN ;\r\n");
ASC2[4, 3] = ASC2[4, 3] + 1;
}
}
//Minusculas
if (ASC2[0, 1] == 1)
{
TextBlock1.Text = (TextBlock1.Text + "c");
Display = (Display + "CALL c\r\n");
if (ASC2[6, 3] < 1)
{
ASCII = (ASCII + "c MOVLW 63H ; c\r\nMOVWF PORTB ;\r\nCALL Envio ;\r\nRETURN ;\r\n");
ASC2[6, 3] = ASC2[6, 3] + 1;
}
}
//Numeros
if (ASC2[0, 2] == 1)
{
TextBlock1.Text = (TextBlock1.Text + "+");
Display = (Display + "CALL mas\r\n");
if (ASC2[2, 11] < 1)
{
ASCII = (ASCII + "mas MOVLW 2BH ;+\r\nMOVWF PORTB ;\r\nCALL Envio ;\r\nRETURN ;\r\n");
ASC2[2, 11] = ASC2[2, 11] + 1;
}
}
}
//////Tecla V
private void TeclaV_Click(object sender, RoutedEventArgs e)
{
//Mayusculas
if (ASC2[0, 0] == 1)
{
TextBlock1.Text = (TextBlock1.Text + "V");
Display = (Display + "CALL V\r\n");
if (ASC2[5, 6] < 1)
{
ASCII = (ASCII + "V MOVLW 56H ; V\r\nMOVWF PORTB ;\r\nCALL Envio ;\r\nRETURN ;\r\n");
ASC2[5, 6] = ASC2[5, 6] + 1;
}
}
//Minusculas
if (ASC2[0, 1] == 1)
{
TextBlock1.Text = (TextBlock1.Text + "v");
Display = (Display + "CALL v\r\n");
if (ASC2[7, 6] < 1)
{
ASCII = (ASCII + "v MOVLW 76H ; v\r\nMOVWF PORTB ;\r\nCALL Envio ;\r\nRETURN ;\r\n");
ASC2[7, 6] = ASC2[7, 6] + 1;
}
}
//Numeros
if (ASC2[0, 2] == 1)
{
TextBlock1.Text = (TextBlock1.Text + ",");
Display = (Display + "CALL coma\r\n");
if (ASC2[2, 12] < 1)
{
ASCII = (ASCII + "coma MOVLW 2CH ; ,\r\nMOVWF PORTB ;\r\nCALL Envio ;\r\nRETURN ;\r\n");
ASC2[2, 12] = ASC2[2, 12] + 1;
}
}
}
//////Tecla B
private void TeclaB_Click(object sender, RoutedEventArgs e)
{
//Mayusculas
if (ASC2[0, 0] == 1)
{
TextBlock1.Text = (TextBlock1.Text + "B");
Display = (Display + "CALL BM\r\n");
if (ASC2[4, 2] < 1)
{
ASCII = (ASCII + "BM MOVLW 42H ; B\r\nMOVWF PORTB ;\r\nCALL Envio ;\r\nRETURN ;\r\n");
ASC2[4, 2] = ASC2[4, 2] + 1;
}
}
//Minusculas
if (ASC2[0, 1] == 1)
{
TextBlock1.Text = (TextBlock1.Text + "b");
Display = (Display + "CALL bm\r\n");
if (ASC2[6, 2] < 1)
{
ASCII = (ASCII + "bm MOVLW 62H ; b\r\nMOVWF PORTB ;\r\nCALL Envio ;\r\nRETURN ;\r\n");
ASC2[6, 2] = ASC2[6, 2] + 1;
}
}
//Numeros
if (ASC2[0, 2] == 1)
{
TextBlock1.Text = (TextBlock1.Text + "-");
Display = (Display + "CALL menos\r\n");
if (ASC2[2, 13] < 1)
{
ASCII = (ASCII + "menos MOVLW 2DH ;-\r\nMOVWF PORTB ;\r\nCALL Envio ;\r\nRETURN ;\r\n");
ASC2[2, 13] = ASC2[2, 13] + 1;
}
}
}
//////Tecla N
private void TeclaN_Click(object sender, RoutedEventArgs e)
{
//Mayusculas
if (ASC2[0, 0] == 1)
{
TextBlock1.Text = (TextBlock1.Text + "N");
Display = (Display + "CALL N\r\n");
if (ASC2[4, 14] < 1)
{
ASCII = (ASCII + "N MOVLW 4EH ; N\r\nMOVWF PORTB ;\r\nCALL Envio ;\r\nRETURN ;\r\n");
ASC2[4, 14] = ASC2[4, 14] + 1;
}
}
//Minusculas
if (ASC2[0, 1] == 1)
{
TextBlock1.Text = (TextBlock1.Text + "n");
Display = (Display + "CALL n\r\n");
if (ASC2[6, 14] < 1)
{
ASCII = (ASCII + "n MOVLW 6EH ; n\r\nMOVWF PORTB ;\r\nCALL Envio ;\r\nRETURN ;\r\n");
ASC2[6, 14] = ASC2[6, 14] + 1;
}
}
//Numeros
if (ASC2[0, 2] == 1)
{
TextBlock1.Text = (TextBlock1.Text + ":");
Display = (Display + "CALL dospuntos\r\n");
if (ASC2[3, 10] < 1)
{
ASCII = (ASCII + "dospuntos MOVLW 3AH ;:\r\nMOVWF PORTB ;\r\nCALL Envio ;\r\nRETURN ;\r\n");
ASC2[3, 10] = ASC2[3, 10] + 1;
}
}
}
//////Tecla M
private void TeclaM_Click(object sender, RoutedEventArgs e)
{
//Mayusculas
if (ASC2[0, 0] == 1)
{
TextBlock1.Text = (TextBlock1.Text + "M");
Display = (Display + "CALL M\r\n");
if (ASC2[4, 13] < 1)
{
ASCII = (ASCII + "M MOVLW 4DH ; M\r\nMOVWF PORTB ;\r\nCALL Envio ;\r\nRETURN ;\r\n");
ASC2[4, 13] = ASC2[4, 13] + 1;
}
}
//Minusculas
if (ASC2[0, 1] == 1)
{
TextBlock1.Text = (TextBlock1.Text + "m");
Display = (Display + "CALL m\r\n");
if (ASC2[6, 13] < 1)
{
ASCII = (ASCII + "m MOVLW 6DH ; m\r\nMOVWF PORTB ;\r\nCALL Envio ;\r\nRETURN ;\r\n");
ASC2[6, 13] = ASC2[6, 13] + 1;
}
}
//Numeros
if (ASC2[0, 2] == 1)
{
TextBlock1.Text = (TextBlock1.Text + ";");
Display = (Display + "CALL puntoycoma\r\n");
if (ASC2[3, 11] < 1)
{
ASCII = (ASCII + "puntoycoma MOVLW 3BH ;;\r\nMOVWF PORTB ;\r\nCALL Envio ;\r\nRETURN ;\r\n");
ASC2[3, 11] = ASC2[3, 11] + 1;
}
}
}
//////Tecla SPACEEEEEE!!!!
private void Espacio_Click(object sender, RoutedEventArgs e)
{
TextBlock1.Text = (TextBlock1.Text + " ");
Display = (Display + "CALL Espacio\r\n");
if (ASC2[2, 0] < 1)
{
ASCII = (ASCII + "Espacio MOVLW 20H ; Space\r\nMOVWF PORTB ;\r\nCALL Envio ;\r\nRETURN ;\r\n");
ASC2[2, 0] = ASC2[2, 0] + 1;
}
}
private void Mayusculas_Click(object sender, RoutedEventArgs e)
{
//1era linea
TeclaQ.Content = "Q";
TeclaW.Content = "W";
TeclaE.Content = "E";
TeclaR.Content = "R";
TeclaT.Content = "T";
TeclaY.Content = "Y";
TeclaU.Content = "U";
TeclaI.Content = "I";
TeclaO.Content = "O";
TeclaP.Content = "P";
//2da linea
TeclaA.Content = "A";
TeclaS.Content = "S";
TeclaD.Content = "D";
TeclaF.Content = "F";
TeclaG.Content = "G";
TeclaH.Content = "H";
TeclaJ.Content = "J";
TeclaK.Content = "K";
TeclaL.Content = "L";
//3era linea
TeclaZ.Content = "Z";
TeclaX.Content = "X";
TeclaC.Content = "C";
TeclaV.Content = "V";
TeclaB.Content = "B";
TeclaN.Content = "N";
TeclaM.Content = "M";
//Mayusculas (SI)
ASC2[0, 0] = 1;
//Minusculas (NO)
ASC2[0, 1] = 0;
//Numeros (NO)
ASC2[0, 2] = 0;
//Japos (NO)
ASC2[0, 3] = 0;
}
private void Minusculas_Click(object sender, RoutedEventArgs e)
{
//1era linea
TeclaQ.Content = "q";
TeclaW.Content = "w";
TeclaE.Content = "e";
TeclaR.Content = "r";
TeclaT.Content = "t";
TeclaY.Content = "y";
TeclaU.Content = "u";
TeclaI.Content = "i";
TeclaO.Content = "o";
TeclaP.Content = "p";
//2da linea
TeclaA.Content = "a";
TeclaS.Content = "s";
TeclaD.Content = "d";
TeclaF.Content = "f";
TeclaG.Content = "g";
TeclaH.Content = "h";
TeclaJ.Content = "j";
TeclaK.Content = "k";
TeclaL.Content = "l";
//3era linea
TeclaZ.Content = "z";
TeclaX.Content = "x";
TeclaC.Content = "c";
TeclaV.Content = "v";
TeclaB.Content = "b";
TeclaN.Content = "n";
TeclaM.Content = "m";
//Mayusculas (NO)
ASC2[0, 0] = 0;
//Minusculas (SI)
ASC2[0, 1] = 1;
//Numeros (NO)
ASC2[0, 2] = 0;
//Japos (NO)
ASC2[0, 3] = 0;
//comandos
ASC2[0, 4] = 0;
}
private void SimbolosyNumeros_Click(object sender, RoutedEventArgs e)
{
//1era linea
TeclaQ.Content = "!";
TeclaW.Content = " ";
TeclaE.Content = "#";
TeclaR.Content = "$";
TeclaT.Content = "%";
TeclaY.Content = "&";
TeclaU.Content = "'";
TeclaI.Content = "(";
TeclaO.Content = ")";
TeclaP.Content = "*";
//2da linea
TeclaA.Content = "0";
TeclaS.Content = "1";
TeclaD.Content = "2";
TeclaF.Content = "3";
TeclaG.Content = "4";
TeclaH.Content = "5";
TeclaJ.Content = "6";
TeclaK.Content = "7";
TeclaL.Content = "8";
//3era linea
TeclaZ.Content = "9";
TeclaX.Content = "0";
TeclaC.Content = "+";
TeclaV.Content = ",";
TeclaB.Content = "-";
TeclaN.Content = ":";
TeclaM.Content = ";";
//Mayusculas (NO)
ASC2[0, 0] = 0;
//Minusculas (SI)
ASC2[0, 1] = 0;
//Numeros (NO)
ASC2[0, 2] = 1;
//Japos (NO)
ASC2[0, 3] = 0;
//comandos
ASC2[0, 4] = 0;
//Retardos
ASC2[0, 5] = 0;
}
private void CaracteresJapo_Click(object sender, RoutedEventArgs e)
{
//1era linea
TeclaQ.Content = "D";
TeclaW.Content = "i";
TeclaE.Content = "s";
TeclaR.Content = "p";
TeclaT.Content = "o";
TeclaY.Content = "n";
TeclaU.Content = "i";
TeclaI.Content = "b";
TeclaO.Content = "l";
TeclaP.Content = "e";
//2da linea
TeclaA.Content = "e";
TeclaS.Content = "n";
TeclaD.Content = " ";
TeclaF.Content = "l";
TeclaG.Content = "a";
TeclaH.Content = " ";
TeclaJ.Content = "s";
TeclaK.Content = "i";
TeclaL.Content = "g";
//3era linea
TeclaZ.Content = "v";
TeclaX.Content = "e";
TeclaC.Content = "r";
TeclaV.Content = "s";
TeclaB.Content = "i";
TeclaN.Content = "o";
TeclaM.Content = "n";
//Mayusculas (NO)
ASC2[0, 0] = 0;
//Minusculas (SI)
ASC2[0, 1] = 0;
//Numeros (NO)
ASC2[0, 2] = 0;
//Japos (Si)
ASC2[0, 3] = 1;
textBox1.Text = ("Disponible en la proxima revision");
//comandos
ASC2[0, 4] = 0;
//Retardos
ASC2[0, 5] = 0;
}
private void TeclaComandos_Click(object sender, RoutedEventArgs e)
{
//1era linea
TeclaQ.Content = "BD";
TeclaW.Content = "H";
TeclaE.Content = "I";
TeclaR.Content = "D";
TeclaT.Content = " ";
TeclaY.Content = " ";
TeclaU.Content = " ";
TeclaI.Content = " ";
TeclaO.Content = " ";
TeclaP.Content = " ";
//2da linea
TeclaA.Content = " ";
TeclaS.Content = " ";
TeclaD.Content = " ";
TeclaF.Content = " ";
TeclaG.Content = " ";
TeclaH.Content = " ";
TeclaJ.Content = " ";
TeclaK.Content = " ";
TeclaL.Content = " ";
//3era linea
TeclaZ.Content = " ";
TeclaX.Content = " ";
TeclaC.Content = " ";
TeclaV.Content = " ";
TeclaB.Content = " ";
TeclaN.Content = " ";
TeclaM.Content = " ";
//Mayusculas (NO)
ASC2[0, 0] = 0;
//Minusculas (SI)
ASC2[0, 1] = 0;
//Numeros (NO)
ASC2[0, 2] = 0;
//Japos (Si)
ASC2[0, 3] = 1;
textBox1.Text = ("Disponible en la proxima revision");
//comandos
ASC2[0, 4] = 1;
//Retardos
ASC2[0, 5] = 0;
}
private void TiempodeRetardos_Click(object sender, RoutedEventArgs e)
{
//1era linea
TeclaQ.Content = "1s";
TeclaW.Content = "2s";
TeclaE.Content = "3s";
TeclaR.Content = "4s";
TeclaT.Content = "5s";
TeclaY.Content = "6s";
TeclaU.Content = "7s";
TeclaI.Content = "8s";
TeclaO.Content = "9s";
TeclaP.Content = "10s";
//2da linea
TeclaA.Content = " ";
TeclaS.Content = " ";
TeclaD.Content = " ";
TeclaF.Content = " ";
TeclaG.Content = " ";
TeclaH.Content = " ";
TeclaJ.Content = " ";
TeclaK.Content = " ";
TeclaL.Content = " ";
//3era linea
TeclaZ.Content = " ";
TeclaX.Content = " ";
TeclaC.Content = " ";
TeclaV.Content = " ";
TeclaB.Content = " ";
TeclaN.Content = " ";
TeclaM.Content = " ";
//Mayusculas (NO)
ASC2[0, 0] = 0;
//Minusculas (SI)
ASC2[0, 1] = 0;
//Numeros (NO)
ASC2[0, 2] = 0;
//Japos (NO)
ASC2[0, 3] = 1;
textBox1.Text = ("Disponible en la proxima revision");
//comandos
ASC2[0, 4] = 0;
//Retardos
ASC2[0, 5] = 1;
}
}
}
No hay comentarios:
Publicar un comentario