Advertisement
idsystems

CPP2_Practica09_CalifUSA

Aug 5th, 2015
223
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
C++ 4.21 KB | None | 0 0
  1. /* prac09.cpp
  2. Practica basada en la practica 2/CALIFICACIONES USA del Cuaderno de Ejercicios
  3. de Programacion I. pag. 70.
  4. Por: LSC Sergio Hugo Sanchez O.
  5. Fecha: 08/05/2011 */
  6. #include <radc++.h>
  7.  
  8. float vNota;
  9.  
  10.  
  11. Form Form1("Calificaciones USA",86,166,430,312,RCP_SIMPLE);
  12. TableView   TableView1("",AUTO_ID,14,7,200,100,Form1);
  13. Label   lblQuestion("Introduzca su nota en Programacion II:",AUTO_ID,28,133,202,25,Form1);
  14. TextBox txtNota("0",AUTO_ID,245,126,49,25,Form1);
  15. Button  cmdConvertir("Convertir",AUTO_ID,308,126,100,25,Form1);
  16. TextBox txtMsg("NOTA EQUIVALENTE EN STANDARD GRADING SYSTEM",AUTO_ID,21,161,387,25,Form1,false,false,false,false);
  17. //TextBox   txtInfo("RECOMENDACIONES: Excelente si continua asi usted es un genio",AUTO_ID,21,196,385,68,Form1);
  18. 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);
  19.  
  20. FormProcedure Form1_Procedure(FormProcArgs) {
  21.     ON_CLOSE() {
  22.         /* [X] Code when form is closed . */
  23.         Application.close(); //remove this line if it is not main form of application
  24.     }
  25.  
  26.     ON_FOCUS() {
  27.         /* When form receives focus */
  28.     }
  29.  
  30.     ON_LEFT_CLICK() {
  31.         /* When left mouse button is clicked */
  32.     }
  33.  
  34.     ON_MOUSEMOVE() {
  35.         /* When mouse cursor moves over surface of form */
  36.     }
  37.  
  38.     ON_PAINT() {
  39.         /* When surface of form is redrawn */
  40.     }
  41.  
  42.     ON_RESIZE() {
  43.         /* Code when form is resized. */
  44.     }
  45.  
  46.     ON_RIGHT_CLICK() {
  47.         /* When right mouse button is clicked */
  48.     }
  49.  
  50.     ON_OBJECTSELECT(TableView1) {
  51.         /* Code when an Row in Tableview is selected. */
  52.     }
  53.  
  54.     ON_COMMAND_BY(lblQuestion) {
  55.         /* Code when label is clicked. */
  56.     }
  57.  
  58.     ON_TEXT_CHANGED(txtNota) {
  59.         /* Code when text is changed. */
  60.     }
  61.  
  62.     ON_COMMAND_BY(cmdConvertir) {
  63.         /* Code when button is clicked. */
  64.         txtMsg.visible = true;
  65.         txtInfo.visible = true;
  66.         vNota = val(txtNota.text);
  67.           if  (vNota >=9) {
  68.              txtMsg.text = "NOTA EQUIVALENTE EN STANDARD GRADING SYSTEM A";
  69.              txtInfo.text = "RECOMENDACIONES: Excelente si continua asi usted es un genio";}
  70.           if (vNota >= 8.5 && vNota <=8.9) {
  71.              txtMsg.text = "NOTA EQUIVALENTE EN STANDARD GRADING SYSTEM B+";
  72.              txtInfo.text = "RECOMENDACIONES: Muy bien, su nivel es impresionante";}
  73.           if (vNota >= 8.0 && vNota <=8.4) {
  74.              txtMsg.text = "NOTA EQUIVALENTE EN STANDARD GRADING SYSTEM B";
  75.              txtInfo.text = "RECOMENDACIONES: Bien, su nivel es muy bueno";}
  76.           if (vNota >= 7.5 && vNota <=7.9) {
  77.              txtMsg.text = "NOTA EQUIVALENTE EN STANDARD GRADING SYSTEM C+";
  78.              txtInfo.text = "RECOMENDACIONES: Usted esta dentro del promedio, trate de no bajar";}
  79.           if (vNota >= 7.0 && vNota <=7.4) {
  80.              txtMsg.text = "NOTA EQUIVALENTE EN STANDARD GRADING SYSTEM C";
  81.              txtInfo.text = "RECOMENDACIONES: Usted la va pasando, pero trate de elevar su promedio";}
  82.           if (vNota >= 6.0 && vNota <=6.9) {
  83.              txtMsg.text = "NOTA EQUIVALENTE EN STANDARD GRADING SYSTEM D";
  84.              txtInfo.text = "RECOMENDACIONES: Usted esta en la cuerda floja, un pequeño descuido\n lo pone en problemas";}
  85.           if (vNota >= 0.0 && vNota <=5.9) {
  86.              txtMsg.text = "NOTA EQUIVALENTE EN STANDARD GRADING SYSTEM F";
  87.              txtInfo.text = "RECOMENDACIONES: Su nota sicenramente es mala, \nbusque nuevas tecnicas de estudio";}
  88.          
  89.     }
  90.  
  91.     ON_TEXT_CHANGED(txtMsg) {
  92.         /* Code when text is changed. */
  93.     }
  94.  
  95.     ON_TEXT_CHANGED(txtNota) {
  96.         /* Code when text is changed. */
  97.     }
  98.  
  99.     return 0;
  100. }
  101.  
  102.  
  103. rad_main()
  104.     Form1.procedure = Form1_Procedure;
  105.     TableView1.addColumn("Calificacion");
  106.     TableView1.addColumn("USA Calif");
  107.    
  108.     TableView1.addRow("9 -> 10");
  109.     TableView1.addCell(1,0,"A");
  110.     TableView1.addRow("8.5 -> 8.9");
  111.     TableView1.addCell(1,1,"B+");
  112.     TableView1.addRow("8.0 -> 8.4");
  113.     TableView1.addCell(1,2,"B");
  114.     TableView1.addRow("7.5 -> 7.9");
  115.     TableView1.addCell(1,3,"C+");
  116.     TableView1.addRow("7.0 -> 7.4");
  117.     TableView1.addCell(1,4,"C+");
  118.     TableView1.addRow("6.0 -> 6.9");
  119.     TableView1.addCell(1,5,"D");
  120.     TableView1.addRow("0.0 -> 5.9");
  121.     TableView1.addCell(1,6,"F");
  122.  
  123.     txtNota.setLimit(4);
  124.     txtMsg.visible = false;
  125.     txtInfo.visible = false;
  126.  
  127. rad_end()
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement