CODIGO BASICO PARA HACER UN COMBO EN JAVA CON NETBEANS

import java.awt.event.ItemEvent;
import java.awt.event.ItemListener;
import javax.swing.JComboBox;
import javax.swing.JFrame;
/**
 *
 * @author Fermin
 */
public class Combo extends JFrame implements ItemListener {
        private final JComboBox combo1;
        public Combo(){
        setLayout(null);
        combo1 = new JComboBox();
        combo1.setBounds(10,10,80,20);
        add(combo1);
        for(int contador=1;contador <=1000;contador++){
            combo1.addItem(contador);
            }
        }
    public static void main(String[] args) {
       Combo x = new Combo();
        x.setBounds(50,50,200,150);
        x.setLocation(350, 360);
        x.setVisible(true);
    }

Como Arreglar Xampp

video

la manera más rápida y facil de arreglar algún embrollo con los puertos del Xampp, a veces pasa, sobre todo si estamos trabajando con WebMatrix que usa el mismo puerto (80).
video

A veces instalamos algo de Softonic o UpToDown o cualquier otra pagina de descargas (y otras veces ni siquiera sabemos como) y nos cambia la configuración por defecto de las pestañas de Firefox, el video de arriba explica como arreglar tal desaguisado.
about:config
browser.newtab.url
dos sentencias imporantes a tener en cuenta.






con este sencillo codigo haces que el Netbeans te devuelva todos los elementos del Código Ascii por si lo necesitas para cualquier evento.
video

en la pestaña "Videotutos" pondre el enlace de descarga porque aqui no se ve bien el video, y eso que lo hago con bastante calidad, pero no lo veo.









aqui teneis las capturas de los formularios del juego de SUDOKU que he realizado en Visual Estudio 2010 y que os lo dejo en la sección de descargas. El código es abierto y podeis analizarlo y aprender bastante de él.

Asteriscos en JavaScript

Programa que escribe en el navegador con Javascript el número de asteriscos que introducimos en el textbox.

IMAGEN:


Esta es la imagen que ofrece el navegador firefox, a continuacion os pongo el...

CODIGO:






solo es un ejercicio sencillo como otro cualquiera, importante para comprender la lógica de programación, nada mas.



Conversor de Numeros Romanos

Otro Programilla made in Nino para el personal, el conversor que hice en visual basic version 6 y version 10 ahora lo traigo en Gambas para ubuntu, que me sobra el tiempo libre...

CARCASA

 y para que no os canseis tambien os dejo el codigo, pero ya sabeis, si sois tan señoritos que ni siquiera los escribis, cuidado con el copu/paste que cambia las comillas, en fin, ya sois grandes...

CODIGO:

' Gambas class file
PUBLIC SUB btnSalir_Click()
    DIM mensaje AS String
 
    mensaje = Message.Warning("¿Seguro que quieres salir?", "Si", "No", "Cancelar")
    IF mensaje = 1 THEN
      Message.Info("Gracias por usar mi segundo programa en gambas", "Aceptar")
      ME.Close
    ELSE
      Message.Info("Tas tonta", "Aceptar")
    END IF
  END
PUBLIC SUB btnTransformador_Click()
    DIM num, col AS Integer
   
      Label3.Caption = ""
      TextBox1.SetFocus
      'num = Val(TextBox1.Text) aqui no se puede asignar el valor a la variable
     
      col = 15
      IF IsNumber(Val(TextBox1.Text)) = FALSE THEN
         Message.Info("Debe ser un numero del 1 al 5000", "Aceptar")
         ME.Close
      ELSE
      num = Val(TextBox1.Text) 'mucho cuidado, esta linea debe ir aqui
      WHILE num >= 1000
         Label3.Caption = Label3.Caption & "M"
               num = num - 1000
               col = col + 1
      WEND
      WHILE num >= 900
              Label3.Caption = Label3.Caption & "CM"
              num = num - 900
              col = col + 2
      WEND
      WHILE num >= 500
             Label3.Caption = Label3.Caption & "D"
             num = num - 500
             col = col + 1
      WEND
      WHILE num >= 100
            Label3.Caption = Label3.Caption & "C"
            num = num - 100
            col = col + 1
      WEND
      WHILE num >= 90
           Label3.Caption = Label3.Caption & "XC"
           num = num - 90
           col = col + 2
      WEND
      WHILE num >= 50
           Label3.Caption = Label3.Caption & "L"
           num = num - 50
           col = col + 1
      WEND
      WHILE num >= 40
          Label3.Caption = Label3.Caption & "XL"
          num = num - 40
          col = col + 2
      WEND
      WHILE num >= 10
          Label3.Caption = Label3.Caption & "X"
          num = num - 10
          col = col + 1
      WEND
      WHILE num >= 9
          Label3.Caption = Label3.Caption & "IX"
          num = num - 9
          col = col + 2
      WEND
      WHILE num >= 5
          Label3.Caption = Label3.Caption & "V"
          num = num - 5
          col = col + 1
      WEND
      WHILE num >= 4
          Label3.Caption = Label3.Caption & "IV"
          num = num - 4
          col = col + 2
      WEND
      WHILE num > 0
          Label3.Caption = Label3.Caption & "I"
          num = num - 1
          col = col + 1
      WEND
      END IF
END
PUBLIC SUB opc_rojo_Click()
  FMain.BackColor = &C10A41&
  TextBox1.BackColor = &062805&
  TextBox1.ForeColor = &EBE7E9&
END
PUBLIC SUB opc_azul_Click()
  FMain.Refresh
  FMain.BackColor = &1C33FF&
END
PUBLIC SUB opc_verde_Click()
  FMain.BackColor = &1FBF19&
END
 

Queridos seguidores, voy a seguir con mis cosillas, me voy a poner un poquito de Eric Clapton y algo de Kansas y a crear programillas. Me acabo de acordar de la calculadora que hice en visual y voy a ver si es muy dificil hacerla en gambas... ya os dire.

Asteriscos en Gambas para Ubuntu






El IDE gambas para ubuntu es otra ayuda mas para los desarrolladores, esta vez si lo que quereis es usar una plataforma opensource, a continuacion os dejo el CODIGO:

' Gambas class file
PUBLIC SUB Button1_Click()
  DIM i, j AS Integer
  Label2.Caption = ""
IF IsNumber(Val(TextBox1.Text))
  FOR i = 1 TO Val(TextBox1.Text)
      FOR j = 1 TO i
        Label2.Caption = Label2.Caption & "*"
      NEXT
      Label2.Caption = Label2.Caption & "\n"
  NEXT
  TextBox1.Clear
  TextBox1.SetFocus
ELSE
  Message.Info("Debe ser un numero del 1 al 20")
  Label2.Caption = ""
  TextBox1.Clear
  TextBox1.SetFocus
ENDIF
END


PUBLIC SUB Button2_Click()
  DIM mensajeFinal AS String
      mensajeFinal = Message.Question("¿Seguro que quieres salir?", "Si", "No", "Cancelar")
   IF mensajeFinal = 1 THEN
      Message.Info("Gracias por usar mi primer programa")
      ME.Close
   ELSE
      Message.Info("a ver si te aclaras, guapa")
   ENDIF
END

Ya sabeis, para usar este programa, primero necesitais tener instalado el SO ubuntu, luego instalar gambas, y es suficiente para ver como funciona.

Eric Clapton (Tears in Heaven)

video

Que me gusta a mi esta musica...