no es mala la idea solo habria que ver quienes pueden o si quieren mas que nada.
Esta sección te permite ver todos los mensajes escritos por este usuario. Ten en cuenta que sólo puedes ver los mensajes escritos en zonas a las que tienes acceso en este momento.
Mostrar Mensajes Menúimport java.util.*;
public class Main {
/**
* @param args
*/
public static void main(String[] args)
{
int precio, color;
double pagar = 0;
String color0 = "";
Scanner Leer = new Scanner(System.in);
System.out.println("Precio del producto?");
precio = Leer.nextInt();
Random rnd = new Random();
color = (int)(rnd.nextDouble() * 5.0);
switch(color)
{
case 0:
pagar = pago(0,precio);
color0 = "Blanco";
break;
case 1:
pagar = pago(0.10,precio);
color0 = "Verde";
break;
case 2:
pagar = pago(0.25,precio);
color0 = "Amarilla";
break;
case 3:
pagar = pago(0.50,precio);
color0 = "Azul";
break;
case 4:
pagar = pago(1,precio);
color0 = "Roja";
break;
}
System.out.println("El Cliente debera pagar: $" + pagar + " - Bola: " + color0);
}
private static double pago(double desc, int precio)
{
return (precio-(precio*desc));
}
}
Public Class Form1
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim a1, m1, d1, a2, m2, d2 As Integer
Dim fecha As DateTime = DateTime.Today
a1 = año1.Text
m1 = mes1.Text
d1 = dia1.Text
a2 = fecha.Year
m2 = fecha.Month
d2 = fecha.Day
If (m2 > m1) Then
Label1.Text = "Cumpliste "
ElseIf (m2 < m1) Then
Label1.Text = "Cumpliras "
ElseIf (m2 = m1) Then
If (d2 > d1) Then
Label1.Text = "Cumpliste "
ElseIf (d2 < d1) Then
Label1.Text = "Cumpliras "
Else
Label1.Text = "Cumples "
End If
End If
Label1.Text = Label1.Text + (a2 - a1).ToString + " años"
End Sub
End Class
Cita de: Shell Root en 3 Marzo 2011, 23:57 PM
@Feedeex, o son todos $_GET o son todos $_POST. Pero las 2 a la misma vez no.
DIM S as SqlDataAdapter
dim dt as datatable
for i = 0 to datagrid.rows.count - 1
Dim mySql as String = "INSERT INTO Tabla blablabla"
S = New SQLiteDataAdapter(mySql, cnnl)
dt = new datatable
S.Fill(dt)
S.Update(Ctype(dt,datatable))
next