Si tienes algún problema para registrarte en el foro o para escribir mensajes ponte en contacto con nosotros a través del formulario de contacto de aprenderaprogramar.com
Mostrar Mensajes
Esta sección te permite ver todos los posts escritos por este usuario. Ten en cuenta que sólo puedes ver los posts escritos en zonas a las que tienes acceso en este momento.
Imports Excel = Microsoft.Office.Interop.Excel
Public Class Form1
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Label1.Text = ""
Label1.AutoSize = False
End Sub
Private Sub Button1_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim objXLApp As Excel.Application
Dim intLoopCounter As Integer
Dim objXLWb As Excel.Workbook
Dim objXLWs As Excel.Worksheet
Dim objRange As Excel.Range
objXLApp = New Excel.Application
objXLApp.Workbooks.Open("C:\Users\Cesar\CursoVB\ejemplo.xlsx")
objXLWb = objXLApp.Workbooks(1)
objXLWs = objXLWb.Worksheets(1)
MsgBox("Ahora la celda A5 contiene: " & objXLWs.Cells(5, 1).value)
For intLoopCounter = 1 To CInt(objXLWs.Cells.SpecialCells(Excel.XlCellType.xlCellTypeLastCell).Row)
objRange = objXLWs.Range("A" & intLoopCounter)
Label1.Text = Label1.Text & vbCrLf & objRange.Value
objRange = objXLWs.Range("B" & intLoopCounter)
Label1.Text = Label1.Text & " -- > " & objRange.Value
Next intLoopCounter
'Escribimos en el fichero
objXLWs.Cells(5, 1) = "Esto es una prueba"
MsgBox("Ahora la celda A5 contiene: " & objXLWs.Cells(5, 1).value)
objXLApp.Quit()
End Sub
End Class
Option Explicit On
Public Class Form1
Private Sub Form1_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
End Sub
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
Dim texto As String
Dim i As Integer
Dim continuar As Boolean
texto = Text1.text
continuar = True
MsgBox(texto)
i = 1
Do
If (Val(Mid(texto, i, 1)) Mod 2 = 0) Then
MsgBox(Mid(texto, i, 1) & " : es par")
Else
MsgBox(Mid(texto, i, 1) & " : es impar")
End If
i = i + 1
Loop While (i <= Text1.TextLength)
End Sub
End Class
Option Explicit On
Public Class Form1
Private Sub Form1_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
End Sub
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
Dim numero As Integer
Dim modulo As Integer
Dim restante As Integer
numero = Val(Text1.Text)
modulo = numero Mod 10
restante = (numero - modulo) / 10
Do While (modulo <> 0)
MsgBox("El numero es " & numero & " el modulo es " & modulo & " restante es " & restante)
modulo = restante Mod 10
restante = (restante - modulo) / 10
Loop
End Sub
End Class
Recomendaciones generales para consultas: no hagas consultas sobre problemas muy extensos o fragmentos de código muy extensos. Antes de hacer una consulta, intenta resolver tú mismo el problema. Cuando no sepas cómo avanzar, prepara el código o pseudocódigo necesario y pégalo, indicando dónde obtienes un error o no sabes avanzar. Describe cuáles son los objetivos que persigues de una forma clara y breve. Ten en cuenta que las personas que participan respondiendo voluntariamente en los foros en general responden cuestiones concretas y bien definidas, pero no resuelven ejercicios completos ni analizan consignas, enunciados o código de gran extensión porque sería demasiado costoso.
var nombre = false;
var apellidos = false;
var correo = false;
function verificarNombre(){
if(/^\D{1,15}$/.test(formulario.nombre.value)==false){
error1.style.backgroundColor = 'orange';
error1.style.color = 'black';
error1.innerHTML = 'El nombre es obligatorio y debe ser menos de 15 carácteres';
}else{
error1.innerHTML = '';
nombre = true;
}
}
spl_autoload_register( 'autoload' );
/**
* autoload
*
* @author Joe Sexton
* @param string $class
* @param string $dir
* @return bool
*/
function autoload( $class, $dir = null ) {
if ( is_null( $dir ) )
$dir = '/path/to/project';
foreach ( scandir( $dir ) as $file ) {
// directory?
if ( is_dir( $dir.$file ) && substr( $file, 0, 1 ) !== '.' )
autoload( $class, $dir.$file.'/' );
// php file?
if ( substr( $file, 0, 2 ) !== '._' && preg_match( "/.php$/i" , $file ) ) {
// filename matches class?
if ( str_replace( '.php', '', $file ) == $class || str_replace( '.class.php', '', $file ) == $class ) {
include $dir . $file;
}
}
}
}
Creo que ya te he entendido, hay dos cuestiones a tener en cuenta. Se podría pensar en leer el contenido de un archivo en el servidor (esto es lo más habitual) y para ello la forma de acceso habitual sería usar Ajax, se explica en http://aprenderaprogramar.com/index.php?option=com_content&view=category&id=83&Itemid=212
Dim DesignScreenWidth As Integer = 1280
Dim DesignScreenHeight As Integer = 1024
Dim CurrentScreenWidth As Integer = Screen.PrimaryScreen.Bounds.Width
Dim CurrentScreenHeight As Integer = Screen.PrimaryScreen.Bounds.Height
Dim RatioX as Double = CurrentScreenWidth / DesignScreenWidth
Dim RatioY as Double = CurrentScreenHeight / DesignScreenHeight
For Each iControl In Me.Controls
With iControl
If (.GetType.GetProperty("Width").CanRead) Then .Width = CInt(.Width * RatioX)
If (.GetType.GetProperty("Height").CanRead) Then .Height = CInt(.Height * RatioY)
If (.GetType.GetProperty("Top").CanRead) Then .Top = CInt(.Top * RatioX)
If (.GetType.GetProperty("Left").CanRead) Then .Left = CInt(.Left * RatioY)
End With
Next
echo '<script type="text/javascript">'
, 'jsfunction();'
, '</script>'
;
<?php
// aquí código php
?>
<script type="text/javascript">
jsFunction();
</script>
$.get(
'wait.php'
, {}
, function( returnedData )
{
document.getElementById("txt").innerHTML = returnedData;
// Aquí podemos invocar que se ejecute una función javascript
funcionALaQueSeQuiereLlamar();
// Pero si lo prefieres no tienes que llamar a una función
// Basta con poner el código javascript a ejecutar directamente aquí
}
, 'text'
);
function funcionALaQueSeQuiereLlamar()
{
// lo que sea
}
//Esto es el select que se crea al pulsar el boton
provincias = document.getElementById('provincia');
var arrayOriginal=['Moto','soto','Abaco','abeja','Sapo','nieve','Zumba','barco'];
var miArray=['Moto','soto','Abaco','abeja','Sapo','nieve','Zumba','barco'];
Sobre la educación, sólo puedo decir que es el tema más importante en el que nosotros, como pueblo, debemos involucrarnos.
Abraham Lincoln (1808-1865) Presidente estadounidense.
aprenderaprogramar.com: Desde 2006 comprometidos con la didáctica y divulgación de la programación
RSS -
WAP2