Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- /* prac09.cpp
- Practica basada en la practica 2/CALIFICACIONES USA del Cuaderno de Ejercicios
- de Programacion I. pag. 70.
- Por: LSC Sergio Hugo Sanchez O.
- Fecha: 08/05/2011 */
- #include <radc++.h>
- float vNota;
- Form Form1("Calificaciones USA",86,166,430,312,RCP_SIMPLE);
- TableView TableView1("",AUTO_ID,14,7,200,100,Form1);
- Label lblQuestion("Introduzca su nota en Programacion II:",AUTO_ID,28,133,202,25,Form1);
- TextBox txtNota("0",AUTO_ID,245,126,49,25,Form1);
- Button cmdConvertir("Convertir",AUTO_ID,308,126,100,25,Form1);
- TextBox txtMsg("NOTA EQUIVALENTE EN STANDARD GRADING SYSTEM",AUTO_ID,21,161,387,25,Form1,false,false,false,false);
- //TextBox txtInfo("RECOMENDACIONES: Excelente si continua asi usted es un genio",AUTO_ID,21,196,385,68,Form1);
- TextBox txtInfo("RECOMENDACIONES: Excelente si continua asi usted es un genio",AUTO_ID,21,196,385,68,Form1,true,true,false,true,WS_EX_CLIENTEDGE);
- FormProcedure Form1_Procedure(FormProcArgs) {
- ON_CLOSE() {
- /* [X] Code when form is closed . */
- Application.close(); //remove this line if it is not main form of application
- }
- ON_FOCUS() {
- /* When form receives focus */
- }
- ON_LEFT_CLICK() {
- /* When left mouse button is clicked */
- }
- ON_MOUSEMOVE() {
- /* When mouse cursor moves over surface of form */
- }
- ON_PAINT() {
- /* When surface of form is redrawn */
- }
- ON_RESIZE() {
- /* Code when form is resized. */
- }
- ON_RIGHT_CLICK() {
- /* When right mouse button is clicked */
- }
- ON_OBJECTSELECT(TableView1) {
- /* Code when an Row in Tableview is selected. */
- }
- ON_COMMAND_BY(lblQuestion) {
- /* Code when label is clicked. */
- }
- ON_TEXT_CHANGED(txtNota) {
- /* Code when text is changed. */
- }
- ON_COMMAND_BY(cmdConvertir) {
- /* Code when button is clicked. */
- txtMsg.visible = true;
- txtInfo.visible = true;
- vNota = val(txtNota.text);
- if (vNota >=9) {
- txtMsg.text = "NOTA EQUIVALENTE EN STANDARD GRADING SYSTEM A";
- txtInfo.text = "RECOMENDACIONES: Excelente si continua asi usted es un genio";}
- if (vNota >= 8.5 && vNota <=8.9) {
- txtMsg.text = "NOTA EQUIVALENTE EN STANDARD GRADING SYSTEM B+";
- txtInfo.text = "RECOMENDACIONES: Muy bien, su nivel es impresionante";}
- if (vNota >= 8.0 && vNota <=8.4) {
- txtMsg.text = "NOTA EQUIVALENTE EN STANDARD GRADING SYSTEM B";
- txtInfo.text = "RECOMENDACIONES: Bien, su nivel es muy bueno";}
- if (vNota >= 7.5 && vNota <=7.9) {
- txtMsg.text = "NOTA EQUIVALENTE EN STANDARD GRADING SYSTEM C+";
- txtInfo.text = "RECOMENDACIONES: Usted esta dentro del promedio, trate de no bajar";}
- if (vNota >= 7.0 && vNota <=7.4) {
- txtMsg.text = "NOTA EQUIVALENTE EN STANDARD GRADING SYSTEM C";
- txtInfo.text = "RECOMENDACIONES: Usted la va pasando, pero trate de elevar su promedio";}
- if (vNota >= 6.0 && vNota <=6.9) {
- txtMsg.text = "NOTA EQUIVALENTE EN STANDARD GRADING SYSTEM D";
- txtInfo.text = "RECOMENDACIONES: Usted esta en la cuerda floja, un pequeño descuido\n lo pone en problemas";}
- if (vNota >= 0.0 && vNota <=5.9) {
- txtMsg.text = "NOTA EQUIVALENTE EN STANDARD GRADING SYSTEM F";
- txtInfo.text = "RECOMENDACIONES: Su nota sicenramente es mala, \nbusque nuevas tecnicas de estudio";}
- }
- ON_TEXT_CHANGED(txtMsg) {
- /* Code when text is changed. */
- }
- ON_TEXT_CHANGED(txtNota) {
- /* Code when text is changed. */
- }
- return 0;
- }
- rad_main()
- Form1.procedure = Form1_Procedure;
- TableView1.addColumn("Calificacion");
- TableView1.addColumn("USA Calif");
- TableView1.addRow("9 -> 10");
- TableView1.addCell(1,0,"A");
- TableView1.addRow("8.5 -> 8.9");
- TableView1.addCell(1,1,"B+");
- TableView1.addRow("8.0 -> 8.4");
- TableView1.addCell(1,2,"B");
- TableView1.addRow("7.5 -> 7.9");
- TableView1.addCell(1,3,"C+");
- TableView1.addRow("7.0 -> 7.4");
- TableView1.addCell(1,4,"C+");
- TableView1.addRow("6.0 -> 6.9");
- TableView1.addCell(1,5,"D");
- TableView1.addRow("0.0 -> 5.9");
- TableView1.addCell(1,6,"F");
- txtNota.setLimit(4);
- txtMsg.visible = false;
- txtInfo.visible = false;
- rad_end()
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement