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.
using System;Cita de: #!drvy en 24 Marzo 2014, 21:13 PM
Lo que me hace gracia es que algunos han empezado a escoger el iconito de resuelto para crear el post.. vamos no para marcar que esta resuelto sino simplemente para crear el post...
Ejemplo
En el siguiente ejemplo se utiliza la función Rnd para generar un valor entero aleatorio en el intervalo entre 1 y 6.
VB
' Initialize the random-number generator.
Randomize()
' Generate random value between 1 and 6.
Dim value As Integer = CInt(Int((6 * Rnd()) + 1))
Cita de: ale95121 en 24 Marzo 2014, 20:21 PM
Disculpa en verdad le pongo demasiada atencion pero como podras ver mi logica es algo lenta disculpa creo que ya te entendi hasta el for mira (por favor tenme paciencia);Código (java) [Seleccionar][import javax.swing.JOptionPane;
public class InicArreglo{
public static void main (String args[]){
int arreglo[]={1,2,3,4,5,6,7,8,9,10};
int opc=Integer.parseInt(JOptionPane.showInputDialog("Dame un numero"));
for(int indice=0; indice<=arreglo.length; indice++);
if(opc==arreglo[indice]){
System.out.println("El numero se encuentra en el arreglo");
break;
}else{
System.out.println("El numero no se encuentra en el arreglo");
}
}
}/code]
<=arreglo.length
arreglo[indice]
for (int contador=0;contador<arreglo.length;contador++)
int opc=Integer.parseInt(JOptionPane.showInputDialog("Dame un numero"));Cita de: 1mpuls0 en 24 Marzo 2014, 17:44 PM
Con solo ver su código se nota que no tiene idea de que está haciendo.
dato = lee_valor //lees tu dato
para(indice = 0, indice<tamano_arreglo, incrementa_indice) //realizas el ciclo para ir recorriendo el arreglo
si dato == arreglo(indice) //realizas comparación
imprime "si se encuentra en el arreglo" //si son iguales muestras el mensaje.
rompre_ciclo //si son iguales, además rompes el ciclo para que ya no continue recorriendo el arreglo.
Arrays.asList(numeros).indexOf(3)
if(arreglo.length>=opc){
System.out.printf("El numero: "+opc+" se encuentra en el arreglo ");
for (int contador=1
CREATE TABLE Users
(
[ID] AUTOINCREMENT,
[Name] TEXT(50),
[LastName] TEXT(50),
[DateCreate] DATETIME
);
Imports System.Data.OleDb
Public Class Users
Dim fileName As String = "Users.mdb"
Dim stringConnection As String = "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & fileName
Private Sub Users_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Dim connectionFields As New System.Data.OleDb.OleDbConnection(stringConnection)
connectionFields.Open()
Dim dataTable As DataTable = connectionFields.GetOleDbSchemaTable(OleDbSchemaGuid.Columns, New Object() {Nothing, Nothing, "Users", Nothing})
dataTable.DefaultView.Sort = "ORDINAL_POSITION"
Dim columns(dataTable.Rows.Count - 1) As String
For fieldNumber As Integer = 0 To dataTable.Rows.Count - 1
columns(fieldNumber) = dataTable.Rows(fieldNumber)(3)
MessageBox.Show(columns(fieldNumber))
Next
End Sub
End Class
Imports System.Data.OleDb
Public Class Users
Dim fileName As String = "Users.mdb"
Dim stringConnection As String = "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & fileName
Private Sub Users_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Dim connectionFields As New System.Data.OleDb.OleDbConnection(stringConnection)
Dim str2$(0)
connectionFields.Open()
Dim dataTable As DataTable = connectionFields.GetOleDbSchemaTable(OleDbSchemaGuid.Columns, New Object() {Nothing, Nothing, "Users", Nothing})
Dim columns(dataTable.Rows.Count - 1) As String
For fieldNumber As Integer = 0 To dataTable.Rows.Count - 1
ReDim Preserve str2(fieldNumber)
str2(fieldNumber) = dataTable.Rows(fieldNumber)!COLUMN_NAME.ToString
MessageBox.Show(str2(fieldNumber))
Next
End Sub
End Class
Imports System.Data.OleDb
Public Class Users
Dim fileName As String = "Users.mdb"
Dim stringConnection As String = "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & fileName
Private Sub Users_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Dim connectionFields As New System.Data.OleDb.OleDbConnection(stringConnection)
connectionFields.Open()
Dim dataTable As DataTable = connectionFields.GetOleDbSchemaTable(OleDbSchemaGuid.Columns, New Object() {Nothing, Nothing, "Users", Nothing})
Dim DataRowArray() As DataRow = dataTable.Select(Nothing, "ORDINAL_POSITION", DataViewRowState.CurrentRows)
For Each dr As DataRow In DataRowArray
MsgBox(dr.Item("COLUMN_NAME"))
Next
End Sub
End Class