SuperNotepad (Mejor que el de Windows)
-
**Aquí traigo un notepad bastante currado, en el que llevo mucho tiempo trabajando, al fin está terminado
Unas imagencitas ^^
**
-
Gracias tio, ahora mismo me lo bajo ^^
-
El fondo se ve negro?? xDD esta muy bien, peroprueba a intentar hacer uno con los BBcodes del foro y la interfaz del foro, a ver que tal sale, me parece que seria el mas utilizado por todos los de UJ
-
Por que no lee el texto? U_U xD
-
Hola, bueno cada vez que 'Lanzas' un programa me haces un poco mas de reir, son aplicaciones bastante útiles pero no estan programadas ninguna de ellas por ti, todavía no he visto ningun video tuyo donde programes desde cero alguna aplicación con mas de 30 lineas de código, explicando paso a paso el desarrollo de las instrucciones, las variables, las matrices, tipos de objetos entre otros muchos ejemplos de código.
Ahora me ha dado por estudiar visual basic y he comprado varios libros y te das cuenta quien sabe y quien no sabe programar, ya que copias los sources de las aplicaciones creadas por otros, podrias poner los derechos del mismo.
Ya te digo que lo unico que haces es traducir las aplicaciones y nada mas.
Por cierto te recomiendo un buen libro para aprender a programar de Juan Diego Gutierrez Gallardo : VisualBasic 2008 de Manuales Imprescindibles, si va al corte ingles estan muy baratos.
-
@axav said:
Hola, bueno cada vez que 'Lanzas' un programa me haces un poco mas de reir, son aplicaciones bastante útiles pero no estan programadas ninguna de ellas por ti, todavía no he visto ningun video tuyo donde programes desde cero alguna aplicación con mas de 30 lineas de código, explicando paso a paso el desarrollo de las instrucciones, las variables, las matrices, tipos de objetos entre otros muchos ejemplos de código.
Ahora me ha dado por estudiar visual basic y he comprado varios libros y te das cuenta quien sabe y quien no sabe programar, ya que copias los sources de las aplicaciones creadas por otros, podrias poner los derechos del mismo.
Ya te digo que lo unico que haces es traducir las aplicaciones y nada mas.
Por cierto te recomiendo un buen libro para aprender a programar de Juan Diego Gutierrez Gallardo : VisualBasic 2008 de Manuales Imprescindibles, si va al corte ingles estan muy baratos.
Esta misma tarde tienes el video superinformático
-
si tanto sabes, como es que al pasar el raton por encima de cada aplicación restala la creacion verdadera de la aplicacion ?
Te pongo varios casos de tus "Aplicaciones".
Juego Conquistame (segun el nombre que le as asignado):
Up's Se te olvido cambiarle las propiedades del nombre al programa.. Suerte que conocia el juego y habia jugado en los recreativos de mi barrio, el mas conocido como reversi. (Tu mismo te delatas.)El "supernotepad" mejor que windows ? (Lo dudo ya que ni tiene instalador, ni asocia las extensiones de los archivos, aparte muchas de las opciones ni funcionan, como el texto a voz. Así que si eres tan programador, arreglalo.)
Que raro que tambien se te olvido cambiarle las propiedades del nombre al programa, entre eses defecto varia tambien su versión, tu dices que es la 3.5 y en el tip indica la 1.0.0.0 para variar. El nombre real de la aplicación es composition, seguro que buscamos el source en google con ese nombre y nos aparece la misma aplicación.
Y luego los tips de referencia en el notepado indican los textos en ingles, up's se te olvido tambien traducirlo.
Si no sabes programar o quieres copiar los sources de otros programadores al menos pon los creditos del autor.
Se te pilla en todas. =))
-
@axav said:
si tanto sabes, como es que al pasar el raton por encima de cada aplicación restala la creacion verdadera de la aplicacion ?
Te pongo varios casos de tus "Aplicaciones".
Juego Conquistame (segun el nombre que le as asignado):
Me parece patetico chaval xDDDDDDDDDDDDDDDD
Aquí tienes:
Voy a hacer un programa que cuando lo pases por encima se llame así. Que importa si yo empecé a hacer un programa, no me salia de las narices terminarlo y hice otro? Como si le pongo SuperLanRemaker y es un notepad
¿Es un problema?@axav said:
Que raro que tambien se te olvido cambiarle las propiedades del nombre al programa, entre eses defecto varia tambien su versión, tu dices que es la 3.5 y en el tip indica la 1.0.0.0 para variar. El nombre real de la aplicación es composition, seguro que buscamos el source en google con ese nombre y nos aparece la misma aplicación.
Y luego los tips de referencia en el notepado indican los textos en ingles, up's se te olvido tambien traducirlo.
Bueh, este tema me gusta mas
Mira la proxima versión que voy a sacar del programa según tu, se me "olvidó" cambiarla, pero no es problema si la dejo por defecto ¿O dañaría tus ojos?
Que la envidia es mala campeón.@axav said:
Y luego los tips de referencia en el notepado indican los textos en ingles, up's se te olvido tambien traducirlo.
Si no sabes programar o quieres copiar los sources de otros programadores al menos pon los creditos del autor.
Se te pilla en todas.
Mira este programa, se va a llamar Composition1, y va o iva a ser un ChangeIP Es un problema que el VB2008 sin fixear no se le pueda cambiar el nombre de la variable.
Edito:
Zampate el Source A ver si ves algo sin "traducir", que los Exit, son autos de Close()... Pero bueno, tu termina de leerte el libro xDDDImports System.io Imports SpeechLib Imports system.Text Imports System.Text.RegularExpressions Imports System.Drawing.printing Public Class composition Dim sel1 As Integer Dim sel2 As Integer Private stringtoprint As String Private printpagesettings As New PageSettings Dim savetf As Boolean = True Private Sub composition_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load My.Application.SaveMySettingsOnExit = True RichTextBox1.AllowDrop = True End Sub Private Sub composition_FormClosing(ByVal sender As Object, ByVal e As System.Windows.Forms.FormClosingEventArgs) Handles Me.FormClosing Try Dim dire As DialogResult If savetf = False Then dire = MessageBox.Show("¿Desea guardar los cambios?", "SuperNotepad v3.5", MessageBoxButtons.YesNo, MessageBoxIcon.Warning, MessageBoxDefaultButton.Button1) End If If dire = Windows.Forms.DialogResult.Yes Then SaveToolStripMenuItem_Click(sender, e) ElseIf dire = Windows.Forms.DialogResult.No Then End End If Catch MessageBox.Show("Error al salir de la aplicación.", "SuperNotepad v3.5", MessageBoxButtons.OK, MessageBoxIcon.Error, MessageBoxDefaultButton.Button1) End Try End Sub Private Sub NewToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles NewToolStripMenuItem.Click Dim comp2 As New composition comp2.Show() End Sub Private Sub HelpToolStripMenuItem1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Beep() End Sub Private Sub AboutToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) End Sub Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick ToolStripStatusLabel1.Text = Now.ToLongDateString ToolStripStatusLabel2.Text = Now.ToLongTimeString End Sub Private Sub RichTextBox1_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RichTextBox1.TextChanged savetf = False End Sub Private Sub RichTextBox1_DragDrop(ByVal sender As Object, ByVal e As System.Windows.Forms.DragEventArgs) Handles RichTextBox1.DragDrop If RichTextBox1.SelectionStart < sel1 Then Dim selStart As Int16 = RichTextBox1.SelectionStart RichTextBox1.SelectedRtf = e.Data.GetData(DataFormats.Text).ToString() RichTextBox1.SelectionStart = sel1 + sel2 RichTextBox1.SelectionLength = sel2 RichTextBox1.SelectedText = "" RichTextBox1.SelectionStart = selStart End If If RichTextBox1.SelectionStart > sel1 + sel2 Then RichTextBox1.SelectedRtf = e.Data.GetData(DataFormats.Text).ToString() RichTextBox1.SelectionStart = sel1 RichTextBox1.SelectionLength = sel2 RichTextBox1.SelectedText = "" End If End Sub Private Sub RichTextBox1_DragEnter(ByVal sender As Object, ByVal e As System.Windows.Forms.DragEventArgs) Handles RichTextBox1.DragEnter e.Effect = DragDropEffects.Move End Sub Private Sub RichTextBox1_MouseDown(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles RichTextBox1.MouseDown If RichTextBox1.SelectedText <> "" And e.Clicks <> 2 Then sel1 = RichTextBox1.SelectionStart sel2 = RichTextBox1.SelectionLength RichTextBox1.DoDragDrop(RichTextBox1.SelectedRtf, DragDropEffects.Move) End If End Sub Private Sub OpenToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles OpenToolStripMenuItem.Click Try Dim comp1 As String With OpenFileDialog1 .InitialDirectory = "C:|" .Title = "Abrir archivo" .ShowDialog() comp1 = OpenFileDialog1.FileName Dim openreader As New StreamReader(comp1) RichTextBox1.Text = openreader.ReadToEnd openreader.Close() openreader = Nothing End With ToolStripStatusLabel3.Text = OpenFileDialog1.FileName Catch MessageBox.Show("Error al abrir el archivo", "Error", MessageBoxButtons.OK, MessageBoxIcon.Error, MessageBoxDefaultButton.Button1) End Try End Sub Private Sub SaveToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles SaveToolStripMenuItem.Click Try Dim comp1 As String With SaveFileDialog1 .FileName = "SuperNotepad" .Title = "Guardar archivo" .ShowDialog() comp1 = SaveFileDialog1.FileName Dim savewriter As New StreamWriter(comp1) savewriter.Write(RichTextBox1.Text) savewriter.Close() savewriter = Nothing End With Catch MessageBox.Show("Error al guardar el documento.", "Error", MessageBoxButtons.OK, MessageBoxIcon.Error, MessageBoxDefaultButton.Button1) End Try savetf = True End Sub Private Sub SaveAsToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles SaveAsToolStripMenuItem.Click Try Dim comp1 As String With SaveFileDialog1 .FileName = "SuperNotepad" .Title = "Guardar archivo" .ShowDialog() comp1 = SaveFileDialog1.FileName Dim savewriter As New StreamWriter(comp1) savewriter.Write(RichTextBox1.Text) savewriter.Close() savewriter = Nothing End With Catch MessageBox.Show("Error al guadar el archivo.", "Error", MessageBoxButtons.OK, MessageBoxIcon.Error, MessageBoxDefaultButton.Button1) End Try savetf = True End Sub Private Sub PrintToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PrintToolStripMenuItem.Click Try PrintDocument1.DefaultPageSettings = printpagesettings stringtoprint = RichTextBox1.Text printdialog1.document = PrintDocument1 Dim res As DialogResult = PrintDialog1.ShowDialog If res = Windows.Forms.DialogResult.OK Then PrintDocument1.Print() End If Catch MessageBox.Show("Error al imprimir el documento.", "Error!", MessageBoxButtons.OK, MessageBoxIcon.Error, MessageBoxDefaultButton.Button1) End Try End Sub Private Sub PrintDocument1_PrintPage(ByVal sender As Object, ByVal e As System.Drawing.Printing.PrintPageEventArgs) Handles PrintDocument1.PrintPage Try Dim horiprintlocation As Single = e.MarginBounds.Left Dim vertprintlocation As Single = e.MarginBounds.Top Dim letsize As Single = RichTextBox1.Font.GetHeight e.Graphics.DrawString(RichTextBox1.Text, RichTextBox1.Font, Brushes.Black, horiprintlocation, vertprintlocation) vertprintlocation += letsize Catch MessageBox.Show("Error al imprimir el documento.", "Error!", MessageBoxButtons.OK, MessageBoxIcon.Error, MessageBoxDefaultButton.Button1) End Try End Sub Private Sub PrintPreviewToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PrintPreviewToolStripMenuItem.Click Try PrintDocument1.DefaultPageSettings = printpagesettings stringtoprint = RichTextBox1.Text PrintPreviewDialog1.Document = PrintDocument1 PrintPreviewDialog1.ShowDialog() Catch MessageBox.Show("Error al imprimir una selección.", "Error", MessageBoxButtons.OK, MessageBoxIcon.Error, MessageBoxDefaultButton.Button1) End Try End Sub Private Sub PageSetupToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PageSetupToolStripMenuItem.Click Try PageSetupDialog1.PageSettings = printpagesettings PageSetupDialog1.ShowDialog() Catch ex As Exception MessageBox.Show("Forma de Instalacion fallida", "Error", MessageBoxButtons.OK, MessageBoxIcon.Error, MessageBoxDefaultButton.Button1) End Try End Sub Private Sub ExitToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ExitToolStripMenuItem.Click Try Dim dire As DialogResult If savetf = False Then dire = MessageBox.Show("¿Quieres guardar los cambios?", "SuperNotepad v3.5", MessageBoxButtons.YesNo, MessageBoxIcon.Warning, MessageBoxDefaultButton.Button1) End If If dire = Windows.Forms.DialogResult.Yes Then SaveToolStripMenuItem_Click(sender, e) ElseIf dire = Windows.Forms.DialogResult.No Then End End If If savetf = True Then Me.Close() End If Catch MessageBox.Show("Error al salir de la aplicación", "SuperNotepad v3.5", MessageBoxButtons.OK, MessageBoxIcon.Error, MessageBoxDefaultButton.Button1) End Try End Sub Private Sub ReadSelectedTextFileToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ReadSelectedTextFileToolStripMenuItem.Click Try Dim vc As New SpeechLib.SpVoice Dim tell As String = " " tell = RichTextBox1.SelectedText vc.Speak(tell) Catch MessageBox.Show("Por favor, seleccione un texto para que hable.", "Error", MessageBoxButtons.OK, MessageBoxIcon.Error, MessageBoxDefaultButton.Button1) End Try End Sub Private Sub ReadAllTextToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ReadAllTextToolStripMenuItem.Click Try Dim vc As New SpeechLib.SpVoice Dim tell2 As String = " " tell2 = RichTextBox1.Text vc.Speak(tell2) Catch MessageBox.Show("El archivo del texto no puede estar en blanco.", "Error", MessageBoxButtons.OK, MessageBoxIcon.Error, MessageBoxDefaultButton.Button1) End Try End Sub Private Sub ColorToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ColorToolStripMenuItem.Click With ColorDialog1 .ShowDialog() RichTextBox1.ForeColor = .Color End With End Sub Private Sub BackgroundColorToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BackgroundColorToolStripMenuItem.Click With ColorDialog1 .ShowDialog() RichTextBox1.BackColor = .Color End With End Sub Private Sub FontToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles FontToolStripMenuItem.Click With FontDialog1 .ShowDialog() RichTextBox1.Font = .Font End With End Sub Private Sub FindToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles FindToolStripMenuItem.Click Try Dim found As String found = InputBox("Introduce una palabra para buscar.", "Buscar") If found Is "" Then Exit Sub End If RichTextBox1.Find(found) Catch MessageBox.Show("Error al buscar los caracteres.", "Error", MessageBoxButtons.OK, MessageBoxIcon.Error, MessageBoxDefaultButton.Button1) End Try End Sub Private Sub ReplaceToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ReplaceToolStripMenuItem.Click Form4.Show() End Sub Private Sub ToUpperToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ToUpperToolStripMenuItem.Click Dim upperstring As String upperstring = StrConv(RichTextBox1.Text, VbStrConv.Uppercase) RichTextBox1.Text = upperstring End Sub Private Sub ToLowerToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ToLowerToolStripMenuItem.Click Dim lowerstring As String lowerstring = StrConv(RichTextBox1.Text, VbStrConv.Lowercase) RichTextBox1.Text = lowerstring End Sub Private Sub ToProperToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ToProperToolStripMenuItem.Click Dim properstring As String properstring = StrConv(RichTextBox1.Text, VbStrConv.ProperCase) RichTextBox1.Text = properstring End Sub Private Sub TimeToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TimeToolStripMenuItem.Click Dim timetxt As String = TimeString RichTextBox1.AppendText(timetxt) End Sub Private Sub DateToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles DateToolStripMenuItem.Click Dim datetxt As String = DateString RichTextBox1.AppendText(datetxt) End Sub Private Sub DateTimeToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles DateTimeToolStripMenuItem.Click Dim date1 As String = DateString Dim time1 As String = TimeString Dim blank1 As String = ", " Dim okill As String = date1 + blank1 + time1 RichTextBox1.AppendText(okill) End Sub Private Sub RightAlignToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RightAlignToolStripMenuItem.Click RichTextBox1.SelectionAlignment = HorizontalAlignment.Right End Sub Private Sub LeftAlignToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles LeftAlignToolStripMenuItem.Click RichTextBox1.SelectionAlignment = HorizontalAlignment.Left End Sub Private Sub CenterToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CenterToolStripMenuItem.Click RichTextBox1.SelectionAlignment = HorizontalAlignment.Center End Sub Private Sub SelectAllToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles SelectAllToolStripMenuItem.Click RichTextBox1.SelectAll() End Sub Private Sub CutToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CutToolStripMenuItem.Click RichTextBox1.Cut() End Sub Private Sub CopyToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CopyToolStripMenuItem.Click RichTextBox1.Copy() End Sub Private Sub PasteToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PasteToolStripMenuItem.Click RichTextBox1.Paste() End Sub Private Sub UndoToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles UndoToolStripMenuItem.Click RichTextBox1.Undo() End Sub Private Sub RedoToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RedoToolStripMenuItem.Click RichTextBox1.Redo() End Sub Private Sub BoldToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BoldToolStripMenuItem.Click Dim bfont As Font bfont = New Font(RichTextBox1.SelectionFont.Name, RichTextBox1.SelectionFont.Size, FontStyle.Bold) RichTextBox1.SelectionFont = bfont BoldToolStripMenuItem.Checked = True RegularToolStripMenuItem.Checked = False ItalicToolStripMenuItem.Checked = False UnderlineToolStripMenuItem.Checked = False StrikeoutToolStripMenuItem.Checked = False End Sub Private Sub ItalicToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ItalicToolStripMenuItem.Click Dim ifont As Font ifont = New Font(RichTextBox1.SelectionFont.Name, RichTextBox1.SelectionFont.Size, FontStyle.Italic) RichTextBox1.SelectionFont = ifont BoldToolStripMenuItem.Checked = False RegularToolStripMenuItem.Checked = False ItalicToolStripMenuItem.Checked = True UnderlineToolStripMenuItem.Checked = False StrikeoutToolStripMenuItem.Checked = False End Sub Private Sub RegularToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RegularToolStripMenuItem.Click Dim rfont As Font rfont = New Font(RichTextBox1.SelectionFont.Name, RichTextBox1.SelectionFont.Size, FontStyle.Regular) RichTextBox1.SelectionFont = rfont BoldToolStripMenuItem.Checked = False RegularToolStripMenuItem.Checked = True ItalicToolStripMenuItem.Checked = False UnderlineToolStripMenuItem.Checked = False StrikeoutToolStripMenuItem.Checked = False End Sub Private Sub StrikeoutToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles StrikeoutToolStripMenuItem.Click Dim sfont As Font sfont = New Font(RichTextBox1.SelectionFont.Name, RichTextBox1.SelectionFont.Size, FontStyle.Strikeout) RichTextBox1.SelectionFont = sfont BoldToolStripMenuItem.Checked = False RegularToolStripMenuItem.Checked = False ItalicToolStripMenuItem.Checked = False UnderlineToolStripMenuItem.Checked = False StrikeoutToolStripMenuItem.Checked = True End Sub Private Sub UnderlineToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles UnderlineToolStripMenuItem.Click Dim ufont As Font ufont = New Font(RichTextBox1.SelectionFont.Name, RichTextBox1.SelectionFont.Size, FontStyle.Underline) RichTextBox1.SelectionFont = ufont BoldToolStripMenuItem.Checked = False RegularToolStripMenuItem.Checked = False ItalicToolStripMenuItem.Checked = False UnderlineToolStripMenuItem.Checked = True StrikeoutToolStripMenuItem.Checked = False End Sub Private Sub CharacterCountToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CharacterCountToolStripMenuItem.Click Dim twiddle As Integer = 0 Dim cnt1 As String = RichTextBox1.Text twiddle = GenerateCharacterCount(RichTextBox1.Text) MessageBox.Show("El total de las palabras es: " & GenerateCharacterCount(cnt1).ToString(), "Nombre del caracter", MessageBoxButtons.OK, MessageBoxIcon.Information, MessageBoxDefaultButton.Button1) End Sub Private Sub WordCountToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles WordCountToolStripMenuItem.Click Dim countme As String = RichTextBox1.Text Dim totwords As Integer Dim thiswhite As Boolean Dim prevwhite As Boolean countme = countme.Trim Dim ans As New System.Text.StringBuilder(countme.Length) Dim add As Integer For add = 0 To countme.Length - 1 prevwhite = thiswhite thiswhite = Char.IsWhiteSpace(countme.Chars(add)) If thiswhite = True Then If prevwhite = True AndAlso ans.Length > 0 Then ans.Append(Space(1)) ans.Append(countme.Chars(add)) End If End If Next add totwords = Split(countme, Space(1)).Length MessageBox.Show("El total de las palabras es:" & vbNewLine & vbNewLine & totwords.ToString, "Contador de palabras", MessageBoxButtons.OK, MessageBoxIcon.Information, MessageBoxDefaultButton.Button1) End Sub Public Function GenerateCharacterCount(ByVal allText As String) As Integer Dim rtn As Integer = 0 Dim sTemp As String = allText sTemp = sTemp.Replace(Environment.NewLine, String.Empty) sTemp = sTemp.Trim() Dim splitSentences As String() = _ Regex.Split(sTemp, _ "(?
-
Buah que persona mas prepotente eres, te creia de otro calibre, quien te lea la estupidez que has puesto aqui se rie, bueno tu haz lo que te plazca, yo sigo teniendo mi absoluta opinion de que plagias los programas y no explicas nada y presumes sin saber, yo envidia no tengo ninguna, ademas me importa un pepino lo que hagas, como si te tiras por un puente.
jaja fijate lo que has dicho jaja: RECALCO
Mira este programa, se va a llamar Composition1, y va o iva a ser un ChangeIP Es un problema que el VB2008 sin fixear no se le pueda cambiar el nombre de la variable.
Primero que lo que quieres cambiar no es una variable y segundo si se puede cambiar.
Y hablando de variables, todas las variables de tus "programas" estan declaradas en ingles y muchos de los hack de metin, las variables estan declaradas en italiano, jaja tio, haz lo que quieras, pero queda demostrado que tu mismo te muerdes por dentro.
Por cierto no soy infomartico, soy aficcionado y lo que se lo demuestro enseñando...
SIGAMOS
Zampate el Source A ver si ves algo sin "traducir", que los Exit, son autos de Close()... Pero bueno, tu termina de leerte el libro xDDD
jajaj, eso que es ? jajaja autos de close() ??? hola? eso que es un nuevo lenguaje jajajaj, anda comprate un buen libro que lo necesitas, te recomiendo otro mira, la biblia de visual basic 2008, no tienes ni idea
Y por ultimo te pongo algo, haber si aciertas y me explicas que es este codigo paso a paso:
If dire = Windows.Form.DialogResult Then
-
@axav said:
Primero que lo que quieres cambiar no es una variable y segundo si se puede cambiar.
Y hablando de variables, todas las variables de tus "programas" estan declaradas en ingles y muchos de los hack de metin, las variables estan declaradas en italiano, jaja tio, haz lo que quieras, pero queda demostrado que tu mismo te muerdes por dentro.
Por cierto no soy infomartico, soy aficcionado y lo que se lo demuestro enseñando...
1º: Si, es una variable. Búscalo donde quieras, no es mi problema que no estés bien informado.
Una variable es un símbolo que representa un elemento no especificado de un conjunto dado. Dicho conjunto es llamado conjunto universal de la variable, universo o dominio de la variable, y cada elemento del conjunto es un valor de la variable. Sea x una variable cuyo universo es el conjunto {1,3,5,7,9,11,13}; entonces x puede tener cualquiera de esos valores: 1,3,5,7,9,11,13. En otras palabras x puede reemplazarse por cualquier entero positivo impar menor que 14. Por esta razón, a menudo se dice que una variable es un reemplazo de cualquier elemento de su universo.
Una variable es un elemento de una fórmula, proposición o algoritmo que puede adquirir o ser sustituido por un valor cualquiera (siempre dentro de su universo). Los valores que una variable es capaz de recibir, pueden estar definidos dentro de un rango, y/o estar limitados por criterios o condiciones de pertenencia, al universo que les corresponde (en estos casos, el universo de la variable pasa a ser un subconjunto de un universo mayor, el que tendría sin las restricciones).
CopyPasteado eso, solo queda decir, que como digo, esa variable no la puedo cambiar desde el programa, mayormente por que no está fixeado (te vas pispando ya?)También, me sorprende que el lenguaje común que usa el VB2008(.NET) es ingles, ni frances, ni italiano ni hostias. DOWN.
3º- Tu super código (MAL ESCRITO ENCIMA) no existe a no ser que crees un module.vb y dentro hagas varias Strings y Booleans
Ejemplo:Module Module1 Public AtkMode As Boolean = False Public rgatkkMode As Boolean = False Public hitmode As Boolean = False Public InviMode As Boolean = False Public MovMode As Boolean = False Public processHandle As IntPtr Public value As String End Module
Tu sabrás
Y por cierto, no soy tan subnormal que copiar sources. ¿Que gano con eso? ¿Confianza en un foro? Si supieras por donde me paso yo eso... xD
En fin, y si, si pongo créditos
[http://foro.universojuegos.es/viewtopic.php?f=19&t=4243][0]">viewtopic.php?f=19&t=4243Y fin del la conversación, acusar sin pruebas, no está permitido. Y digamos que no estamos dando un claro ejemplo de un sistema de convivencia.
Edito: Si y encima el tio hace tutoriales, no vengas de listillo xD
[0]: <a href=