Si volem despertar a Barney, pot ser podem començar un compte enrere. Farem servir un for i un step -1, es a dir, en lloc d'avançar anirem pas a pas cap enrere.
dilluns, 30 de novembre del 2009
Compte enrere
Si volem despertar a Barney, pot ser podem començar un compte enrere. Farem servir un for i un step -1, es a dir, en lloc d'avançar anirem pas a pas cap enrere.
dissabte, 28 de novembre del 2009
Milutest V51 Disponible
Se puede mejorar, evidentementes, pero quien lo desee, que me deje un comentario y su mail y le enviaré un zip que contendrá:
- el ejecutable con extensión eje. Solamente es necesario canviar eje por exe para que funcione. Gmail no permite enviar ficheros ejecutables, con lo que hay que engañarlo un poco.
- 25 ejercicios en formato txt
- Una carpeta con iconos de Tintín
Funcionamiento:
Descomprime el zip y cambia la extensión del fichero eje por exe. Crea un acceso directo y ponle un icono de la carpeta de iconos.
Ejecuta el fichero exe. Verás que el botón de la parte superior derecha, a diferencia de la imagen de esta entrada está activado. Púlsalo y se creará la carpeta c:\temp\examen
Pulsa el ejercicio que quieras
Para salir del programa:
Pulsa la cruz de la parte superior derecha o el botón Adéu-Guau
Si te equivocas, aparecerá un Milú-demonio que siempre podrás corregir.
Si aciertas, apareceráun Milú-angelito que te dará un punto.
Al final, pulsa el botón Nota para saber tu puntuación.
Editar (cambiar) los ficheros txt de preguntas y respuestas
Han de tener once líneas: la primera de título, las siguientes de preguntas y respuestas separadas por una coma. Ejemplo:
Para cualquier duda, ... un comentario.CODI
1. FORM1.FRM
2. FORM2.FRM
3. MODULE1.BAS
1. FORM1.FRM
###############
Option Explicit
Private Sub cmd00_Click()
'Ruta = InputBox("Indica el fitxer dins c:\temp\Examen. Per exemple:" & _
' vbCrLf & "Angles01.txt", "El profesor Milú")
'PintaRuta
End Sub
Private Sub cmd11_Click()
Ruta = "C:\Temp\Examen\Angles01.txt"
PintaRuta
End Sub
Private Sub cmd21_Click()
Ruta = "C:\Temp\Examen\Mates01.txt"
PintaRuta
End Sub
Private Sub cmd31_Click()
Ruta = "C:\Temp\Examen\Castellano01.txt"
PintaRuta
End Sub
Private Sub cmd41_Click()
Ruta = "C:\Temp\Examen\Catala01.txt"
PintaRuta
End Sub
Private Sub cmd12_Click()
Ruta = "C:\Temp\Examen\Angles02.txt"
PintaRuta
End Sub
Private Sub cmd22_Click()
Ruta = "C:\Temp\Examen\Mates02.txt"
PintaRuta
End Sub
Private Sub cmd32_Click()
Ruta = "C:\Temp\Examen\Castellano02.txt"
PintaRuta
End Sub
Private Sub cmd42_Click()
Ruta = "C:\Temp\Examen\Catala02.txt"
PintaRuta
End Sub
Private Sub cmd13_Click()
Ruta = "C:\Temp\Examen\Angles03.txt"
PintaRuta
End Sub
Private Sub cmd23_Click()
Ruta = "C:\Temp\Examen\Mates03.txt"
PintaRuta
End Sub
Private Sub cmd33_Click()
Ruta = "C:\Temp\Examen\Castellano03.txt"
PintaRuta
End Sub
Private Sub cmd43_Click()
Ruta = "C:\Temp\Examen\Catala03.txt"
PintaRuta
End Sub
Private Sub cmd14_Click()
Ruta = "C:\Temp\Examen\Angles04.txt"
PintaRuta
End Sub
Private Sub cmd24_Click()
Ruta = "C:\Temp\Examen\Mates04.txt"
PintaRuta
End Sub
Private Sub cmd34_Click()
Ruta = "C:\Temp\Examen\Castellano04.txt"
PintaRuta
End Sub
Private Sub cmd44_Click()
Ruta = "C:\Temp\Examen\Catala04.txt"
PintaRuta
End Sub
Private Sub cmd15_Click()
Ruta = "C:\Temp\Examen\Angles05.txt"
PintaRuta
End Sub
Private Sub cmd25_Click()
Ruta = "C:\Temp\Examen\Mates05.txt"
PintaRuta
End Sub
Private Sub cmd35_Click()
Ruta = "C:\Temp\Examen\Castellano05.txt"
PintaRuta
End Sub
Private Sub cmd45_Click()
Ruta = "C:\Temp\Examen\Catala05.txt"
PintaRuta
End Sub
Private Sub PintaRuta()
Load frm2
frm2.Show
Open Ruta For Input As #1
Input #1, Dato00
frm2.txtCabecera = Dato00
Materia = Left(Dato00, 4)
If Materia = "ANGL" Or Materia = "INGL" Then
frm2.imgANGL.Visible = True
ElseIf Materia = "MATE" Then
frm2.imgMATE.Visible = True
frm2.txtQry01.Font.Size = 18
frm2.txtQry02.Font.Size = 18
frm2.txtQry03.Font.Size = 18
frm2.txtQry04.Font.Size = 18
frm2.txtQry05.Font.Size = 18
frm2.txtQry06.Font.Size = 18
frm2.txtQry07.Font.Size = 18
frm2.txtQry08.Font.Size = 18
frm2.txtQry09.Font.Size = 18
frm2.txtQry10.Font.Size = 18
ElseIf Materia = "CAST" Then
frm2.imgCAST.Visible = True
ElseIf Materia = "CATA" Then
frm2.imgCATA.Visible = True
Else
frm2.imgALTR.Visible = True
End If
Input #1, Dato01, Solucion01
frm2.txtQry01 = Dato01
Input #1, Dato01, Solucion02
frm2.txtQry02 = Dato01
Input #1, Dato01, Solucion03
frm2.txtQry03 = Dato01
Input #1, Dato01, Solucion04
frm2.txtQry04 = Dato01
Input #1, Dato01, Solucion05
frm2.txtQry05 = Dato01
Input #1, Dato01, Solucion06
frm2.txtQry06 = Dato01
Input #1, Dato01, Solucion07
frm2.txtQry07 = Dato01
Input #1, Dato01, Solucion08
frm2.txtQry08 = Dato01
Input #1, Dato01, Solucion09
frm2.txtQry09 = Dato01
Input #1, Dato01, Solucion10
frm2.txtQry10 = Dato01
Close
End Sub
Private Sub cmdPath_Click()
MkDir ("C:\Temp\Examen")
End Sub
Private Sub Form_Load()
Dim listadodir As String
Dim listadofile As String
Dim miruta As String
miruta = "C:\temp\Examen"
listadodir = Dir(miruta, vbDirectory)
If listadodir = "Examen" Then
frm1.cmdPath.Enabled = False
Else
frm1.cmdPath.Enabled = True
End If
'Dim numeret As String
numeret = 1
listadofile = Dir("c:\temp\examen\Angles0" & numeret & ".txt")
If listadofile = "Angles0" & numeret & ".txt" Then
frm1.cmd11.Enabled = True
Else
frm1.cmd11.Enabled = False
End If
listadofile = Dir("c:\temp\examen\Mates0" & numeret & ".txt")
If listadofile = "Mates0" & numeret & ".txt" Then
frm1.cmd21.Enabled = True
Else
frm1.cmd21.Enabled = False
End If
listadofile = Dir("c:\temp\examen\Castellano0" & numeret & ".txt")
If listadofile = "Castellano0" & numeret & ".txt" Then
frm1.cmd31.Enabled = True
Else
frm1.cmd31.Enabled = False
End If
listadofile = Dir("c:\temp\examen\Catala0" & numeret & ".txt")
If listadofile = "Catala0" & numeret & ".txt" Then
frm1.cmd41.Enabled = True
Else
frm1.cmd41.Enabled = False
End If
numeret = numeret + 1
listadofile = Dir("c:\temp\examen\Angles0" & numeret & ".txt")
If listadofile = "Angles0" & numeret & ".txt" Then
frm1.cmd12.Enabled = True
Else
frm1.cmd12.Enabled = False
End If
listadofile = Dir("c:\temp\examen\Mates0" & numeret & ".txt")
If listadofile = "Mates0" & numeret & ".txt" Then
frm1.cmd22.Enabled = True
Else
frm1.cmd22.Enabled = False
End If
listadofile = Dir("c:\temp\examen\Castellano0" & numeret & ".txt")
If listadofile = "Castellano0" & numeret & ".txt" Then
frm1.cmd32.Enabled = True
Else
frm1.cmd32.Enabled = False
End If
listadofile = Dir("c:\temp\examen\Catala0" & numeret & ".txt")
If listadofile = "Catala0" & numeret & ".txt" Then
frm1.cmd42.Enabled = True
Else
frm1.cmd42.Enabled = False
End If
numeret = numeret + 1
listadofile = Dir("c:\temp\examen\Angles0" & numeret & ".txt")
If listadofile = "Angles0" & numeret & ".txt" Then
frm1.cmd13.Enabled = True
Else
frm1.cmd13.Enabled = False
End If
listadofile = Dir("c:\temp\examen\Mates0" & numeret & ".txt")
If listadofile = "Mates0" & numeret & ".txt" Then
frm1.cmd23.Enabled = True
Else
frm1.cmd23.Enabled = False
End If
listadofile = Dir("c:\temp\examen\Castellano0" & numeret & ".txt")
If listadofile = "Castellano0" & numeret & ".txt" Then
frm1.cmd33.Enabled = True
Else
frm1.cmd33.Enabled = False
End If
listadofile = Dir("c:\temp\examen\Catala0" & numeret & ".txt")
If listadofile = "Catala0" & numeret & ".txt" Then
frm1.cmd43.Enabled = True
Else
frm1.cmd43.Enabled = False
End If
numeret = numeret + 1
listadofile = Dir("c:\temp\examen\Angles0" & numeret & ".txt")
If listadofile = "Angles0" & numeret & ".txt" Then
frm1.cmd14.Enabled = True
Else
frm1.cmd14.Enabled = False
End If
listadofile = Dir("c:\temp\examen\Mates0" & numeret & ".txt")
If listadofile = "Mates0" & numeret & ".txt" Then
frm1.cmd24.Enabled = True
Else
frm1.cmd24.Enabled = False
End If
listadofile = Dir("c:\temp\examen\Castellano0" & numeret & ".txt")
If listadofile = "Castellano0" & numeret & ".txt" Then
frm1.cmd34.Enabled = True
Else
frm1.cmd34.Enabled = False
End If
listadofile = Dir("c:\temp\examen\Catala0" & numeret & ".txt")
If listadofile = "Catala0" & numeret & ".txt" Then
frm1.cmd44.Enabled = True
Else
frm1.cmd44.Enabled = False
End If
numeret = numeret + 1
listadofile = Dir("c:\temp\examen\Angles0" & numeret & ".txt")
If listadofile = "Angles0" & numeret & ".txt" Then
frm1.cmd15.Enabled = True
Else
frm1.cmd15.Enabled = False
End If
listadofile = Dir("c:\temp\examen\Mates0" & numeret & ".txt")
If listadofile = "Mates0" & numeret & ".txt" Then
frm1.cmd25.Enabled = True
Else
frm1.cmd25.Enabled = False
End If
listadofile = Dir("c:\temp\examen\Castellano0" & numeret & ".txt")
If listadofile = "Castellano0" & numeret & ".txt" Then
frm1.cmd35.Enabled = True
Else
frm1.cmd35.Enabled = False
End If
listadofile = Dir("c:\temp\examen\Catala0" & numeret & ".txt")
If listadofile = "Catala0" & numeret & ".txt" Then
frm1.cmd45.Enabled = True
Else
frm1.cmd45.Enabled = False
End If
End Sub
2. FORM2.FRM
###############Option Explicit
Private Sub cmdExit_Click()
End
End Sub
Private Sub cmdNota_Click()
If frm2.txtAns01 = Solucion01 Then
Resultado01 = 1
img11.Visible = True
Else
Resultado01 = 0
img21.Visible = True
End If
If frm2.txtAns02 = Solucion02 Then
Resultado01 = Resultado01 + 1
img12.Visible = True
Else
Resultado01 = Resultado01 + 0
img22.Visible = True
End If
If frm2.txtAns03 = Solucion03 Then
Resultado01 = Resultado01 + 1
img13.Visible = True
Else
Resultado01 = Resultado01 + 0
img23.Visible = True
End If
If frm2.txtAns04 = Solucion04 Then
Resultado01 = Resultado01 + 1
img14.Visible = True
Else
Resultado01 = Resultado01 + 0
img24.Visible = True
End If
If frm2.txtAns05 = Solucion05 Then
Resultado01 = Resultado01 + 1
img15.Visible = True
Else
Resultado01 = Resultado01 + 0
img25.Visible = True
End If
If frm2.txtAns06 = Solucion06 Then
Resultado01 = Resultado01 + 1
img16.Visible = True
Else
Resultado01 = Resultado01 + 0
img26.Visible = True
End If
If frm2.txtAns07 = Solucion07 Then
Resultado01 = Resultado01 + 1
img17.Visible = True
Else
Resultado01 = Resultado01 + 0
img27.Visible = True
End If
If frm2.txtAns08 = Solucion08 Then
Resultado01 = Resultado01 + 1
img18.Visible = True
Else
Resultado01 = Resultado01 + 0
img28.Visible = True
End If
If frm2.txtAns09 = Solucion09 Then
Resultado01 = Resultado01 + 1
img19.Visible = True
Else
Resultado01 = Resultado01 + 0
img29.Visible = True
End If
If frm2.txtAns10 = Solucion10 Then
Resultado01 = Resultado01 + 1
img20.Visible = True
Else
Resultado01 = Resultado01 + 0
img30.Visible = True
End If
Close #1
NotaNum = Resultado01
If NotaNum > 8 Then
Nota = "Excelente"
ElseIf NotaNum > 6 Then
Nota = "Notable"
ElseIf NotaNum > 5 Then
Nota = "Bién"
ElseIf NotaNum > 4 Then
Nota = "Suficiente"
Else
Nota = "Insuficiente"
End If
txtNota.Text = Nota
End Sub
Private Sub Image1_Click()
End Sub
3. MODULE1.BAS
###############
La dignitat de Catalunya
L’expectació és alta i la inquietud no és escassa davant l’evidència que el Tribunal Constitucional ha estat empès pels esdeveniments a actuar com una quarta cambra, confrontada amb el Parlament de Catalunya, les Corts Generals i la voluntat ciutadana lliurement expressada a les urnes.
Repetim, es tracta d’una situació inèdita en democràcia. Hi ha, no obstant, més motius de preocupació. Dels dotze magistrats que componen el tribunal, només deu podran emetre sentència, ja que un (Pablo Pérez Tremps) està recusat després d’una tèrbola maniobra clarament orientada a modificar els equilibris del debat, i un altre (Roberto García-Calvo) ha mort. Dels deu jutges amb dret a vot, quatre continuen en el càrrec després del venciment del seu mandat, com a conseqüència del sòrdid desacord entre el govern central i l’oposició sobre la renovació d’un organisme definit recentment per José Luis Rodríguez Zapatero com el “cor de la democràcia”. Un cor amb les vàlvules obturades, ja que només la meitat dels seus integrants estan avui lliures de contratemps o de pròrroga. Aquesta és la cort de cassació que està a punt de decidir sobre l’Estatut de Catalunya. Per respecte al tribunal –un respecte sens dubte superior al que en diverses ocasions aquest s’ha mostrat a ell mateix– no farem més al·lusió a les causes del retard en la sentència.
La definició de Catalunya com a nació al preàmbul de l’Estatut, amb la consegüent emanació de “símbols nacionals” (¿que potser no reconeix la Constitució, al seu article 2, una Espanya integrada per regions i nacionalitats?); el dret i el deure de conèixer la llengua catalana; l’articulació del Poder Judicial a Catalunya, i les relacions entre l’Estat i la Generalitat són, entre altres, els punts de fricció més evidents del debat, d’acord amb les seves versions, ja que una part significativa del tribunal sembla que està optant per posicions irreductibles. Hi ha qui torna a somiar amb cirurgies de ferro que tallin de soca-rel la complexitat espanyola. Aquesta podria ser, lamentablement, la pedra de toc de la sentència.
No ens confonguem, el dilema real és avanç o retrocés; acceptació de la maduresa democràtica d’una Espanya plural, o el seu bloqueig. No només estan en joc aquest o aquell article, està en joc la mateixa dinàmica constitucional: l’esperit de 1977, que va fer possible la pacífica Transició. Hi ha motius seriosos per a la preocupació, ja que podria estar madurant una maniobra per transformar la sentència sobre l’Estatut en un verdader tancament amb pany i forrellat institucional. Un enroc contrari a la virtut màxima de la Constitució, que no és altra que el seu caràcter obert i integrador. El Tribunal Constitucional, per tant, no decidirà únicament sobre el plet interposat pel Partit Popular contra una llei orgànica de l’Estat (un PP que ara es reaproxima a la societat catalana amb discursos constructius i actituds afalagadores). L’alt tribunal decidirà sobre la dimensió real del marc de convivència espanyol, és a dir, sobre el més important llegat que els ciutadans que van viure i van protagonitzar el canvi de règim a finals dels anys setanta transmetran a les joves generacions, educades en llibertat, plenament inserides en la complexa supranacionalitat europea i confrontades als reptes d’una globalització que relativitza les costures més rígides del vell Estat nació. Estan en joc els pactes profunds que han fet possible els trenta anys més virtuosos de la història d’Espanya. I arribats a aquest punt és imprescindible recordar un dels principis vertebradors del nostre sistema jurídic, d’arrel romana: Pacta sunt servanda, els pactes s’han de complir.
Hi ha preocupació a Catalunya i cal que tot Espanya ho sàpiga. Hi ha alguna cosa més que preocupació. Hi ha un creixent atipament per haver de suportar la mirada irada dels que continuen percebent la identitat catalana (institucions, estructura econòmica, idioma i tradició cultural) com el defecte de fabricació que impedeix a Espanya assolir una somiada i impossible uniformitat. Els catalans paguen els seus impostos (sense privilegi foral); contribueixen amb el seu esforç a la transferència de rendes a l’Espanya més pobra; afronten la internacionalització econòmica sense els quantiosos beneficis de la capitalitat de l’Estat; parlen una llengua amb més pes demogràfic que el de diversos idiomes oficials a la Unió Europea, una llengua que en lloc de ser estimada, resulta sotmesa tantes vegades a l’obsessiu escrutini de l’espanyolisme oficial. I acaten les lleis, per descomptat, sense renunciar a la seva pacífica i provada capacitat d’aguant cívic. Aquests dies, els catalans pensen, sobretot, en la seva dignitat; convé que se sàpiga.
Estem en vigílies d’una resolució molt important. Esperem que el Constitucional decideixi atenent les circumstàncies específiques de l’assumpte que té entre mans –que no és sinó la demanda de millora de l’autogovern d’un vell poble europeu–, recordant que no existeix la justícia absoluta, sinó només la justícia del cas concret, raó per la qual la virtut jurídica per excel·lència és la prudència. Tornem a recordar-ho: l’Estatut és fruit d’un doble pacte polític sotmès a referèndum. Que ningú es confongui, ni malinterpreti les inevitables contradiccions de la Catalunya actual. Que ningú erri el diagnòstic, per molts que siguin els problemes, les desafeccions i les contrarietats. No som davant d’una societat feble, postrada i disposada a assistir impassible al deteriorament de la seva dignitat. No desitgem pressuposar un desenllaç negatiu i confiem en la probitat dels jutges, però ningú que conegui Catalunya posarà en dubte que el reconeixement de la identitat, la millora de l’autogovern, l’obtenció d’un finançament just i un salt qualitatiu en la gestió de les infraestructures són i continuaran sent reclamacions tenaçment plantejades amb un amplíssim suport polític i social. Si és necessari, la solidaritat catalana tornarà a articular la legítima resposta d’una societat responsable.
divendres, 27 de novembre del 2009
Retard en VB6
Concretament tenia, dins un directori uns 150 PDFs i volia llistar-los -amb un dir- en un txt.
Com que, en realitat, l'únic que volia era el txt amb el llistat dels PDF, la idea era que un cop omplert el txt s'esborressin els PDF:
1 escric el llistat
2 borro els pdf
El problema es que l'escriptura la fa Windows i, mentre ho vol començar a fer, Visual ja ha arribat a la segona línia i, com borra els PDF, Windows no té temps de escriure..
Total que necessitava quelcom per fer retardar el espai entre els dos pasos. La meva companya de feina em va suggerir el delay o el sleep, però aquestes funcions són pròpies de C++ i altres programes dels que no tinc ni idea.
Buscant, buscant he trobat http://support.microsoft.com/kb/96069/es i ho he aplicat en un miniprograma que al polsar un botó, al cap de 10 segons, escriu en un label "hola maco".
dimecres, 25 de novembre del 2009
Jupiter tocant la lluna
No puc posar accents, Virus
Pensava que era un tema de desconfiguració del teclat però no ho trobava. En Google ben aviat vaig veure que a alguns usuaris també els havia passat i reportaven enormes logs de programes antivirus... Total que vaig pensar en el meu estimat Malwarebytes i... novament en un plis m'ha trobat 6 fitxers infectats que tot seguit ha eliminat i, com es pot veure, ha resolt el tema dels accents.
Impost de successions. Quim Monzó.
En la cama, un anciano francamente demacrado tiene la mirada fija en la pared de enfrente. Su hijo mantiene la mano izquierda entre las suyas y susurra:
–Papá...
Entra la enfermera, con ese aire forzadamente pizpireto que utilizan. Lo hacen con el sano objetivo de insuflar un poco de optimismo a la situación, que, en general, en los hospitales no está como para tirar cohetes.
–¿Qué tal vamos hoy, Daniel?
Al hijo le fascina cómo, de forma metódica, las enfermeras siempre incluyen en el saludo el nombre del paciente: para que se sienta reconocido y apreciado, para que perciba un trato personalizado.
–Ay, mal, muy mal... –dice el anciano.
–¡No diga esas cosas, Daniel! A ver si me voy a enfadar... Si está usted como un pimpollo.
–Ay, no. ¿Para qué engañarnos? Yo noto que esto ya se acaba...
–¡Vaya cosas de decir, Daniel! –finge indignarse la enfermera, mientras cambia una de las dos bolsas del soporte para los dispositivos de perfusión–. Bueno, esto ya está. ¡Hasta luego, Daniel!
–Hasta luego –dice el hijo.
–Ay... –dice el anciano.
–¿Estás bien, papá?
El hombre gira la mirada hacia su hijo. Sabe que, para él, ya no es más que una carga, y por eso mismo piensa que lo mejor sería que todo acabase ya. Fuerza una sonrisa, pero a penas consigue una mueca lúgubre.
–No, no estoy bien. Ya sabes tú que no estoy bien, que esto se acaba. Y no me quejo... –Tose repetidamente–. No me quejo porque, al fin y al cabo, he vivido una vida bastante feliz. –Le cuesta hablar–. Os tengo a ti y a Teresa..., y a mi nieto..., pero sabes que desde que mamá murió yo ya no he sido el mismo.
–Ya verás como todo irá bien. De aquí a un par de semanas volverás a casa y...
–No. No volveré a casa. Te lo digo en serio... –Vuelve a toser–. Yo sé que de aquí no salgo... Sé que voy a morirme aquí, y pronto.
–Pero, papá, no digas eso. ¡No puedes morirte ahora!
–¿Cómo que no...? –El hombre vuelve a toser.
–¡Tienes que resistir, papá!
–Resistir, no... ¿Por qué?
–Pues porque... Porque aún tienes vida por delante. ¡Tienes que resistir, tienes que vivir! Hazlo por mí y por Teresa, ¡y por tu nieto!
–A Navidad no llego, que te lo digo yo. El anciano encadena un acceso de tos tras otro, y agita la mano en busca de la pera para llamar a la enfermera. Su hijo la encuentra bajo la almohada y, mientras la aprieta una y otra vez, le dice:
–Aguanta, papá, ¡sé fuerte!, aguanta al menos un año más, hasta que aprueben la reforma del impuesto de sucesiones.
Com fer servir el Recordset
Aqui tenim el codi (perdo pels accents, he de resoldre algun problema amb el meu teclat). Si el feu servir veureu que les variables ..A1 fins A4 -com si fos excel- contenen la primera linia, de B1 fins a B4 la segona linea...
dimarts, 24 de novembre del 2009
UneText
I el codi pla:
'#####MODUL#####
Option Explicit
Public fichero As String
Public resultado As String
Public volumen As Integer
'#####FORMULARI#####
Option Explicit
Private Sub Form_Load()
End Sub
Private Sub txtVolum_Change()
volumen = txtVolum.Text
Calculo
lblJaEsta.Visible = True
End Sub
Private Sub Calculo()
Dim i As Integer
i = 1
resultado = "C:\temp\UneText\resultado.txt"
Dim linea As String
For i = 1 To volumen
fichero = "C:\temp\UneText\" & i & ".txt"
Open fichero For Input As #1
Open resultado For Append As #10
While Not EOF(1)
Line Input #1, linea$
Print #10, linea$
Wend
Close
Next i
Close
End Sub
dilluns, 16 de novembre del 2009
Victoriano Crémer
Dulce amor
Las cosas suceden así,
sencillamente:
Vuelven del trabajo
con sabor de cal viva entre los dientes.
la esposa les contempla con costumbre.
-¿Quién dice amor, si la palabra estalla?-.
Y cogen del pan,
como si fuera barro y arena,
un puñado tan sólo.
(Es pan de pobres, desalado y negro
y triste como el silencio de la casa toda.)
Y se marchan.
(La esposa les oye cerrar la puerta,
pero no dice nada. ¡Está tan cansada!
Prefiere aquella fría soledad
con olor de abandono.
Pudiera recordar su juventud y dormir,
pero ¿quién sueña o duerme?
Los pobres no recuerdan;
mueren como las piedras roídas de las murallas.
Ellos, en tanto, beben
un agrio vino con sabor de azufre;
y si ríen y gritan y golpean,
es porque -¡Dios, qué vida!-
da rabia beber sin alegría.
Acaso entonces lleguen hombres
de esos que velan por la paz de las familias,
y les hablen del dulce amor de las esposas
y del descanso junto al fuego,
escuchando, por la radio, una dulce canción,
mientras los niños buscan en el atlas
países coronados de yedras o corales...
Si esto sucede, gritan con más fuerza
y beben más vino agrio con sabor de azufre,
hasta que ya no saben dónde tienen los ojos,
ni por qué les duele el corazón.
Les arrojan con prisa.
La calle es larga, y en el firmamento
las estrellas relucen.
Regresan a la casa -¡oh dulce hogar!- llorando.
La esposa les contempla con costumbre.
-¿Quién dice amor, si la palabra estalla?-.
Monty Python. El millor acudit del món.
Tal i com queda provat en aquest documental -totalment verídic-, aquest acudit pot provocar la mort.
diumenge, 15 de novembre del 2009
Accelerar Firefox
Tinc la impressió que, seguint aquestes intruccions de Xavier Vidal amb el Mozilla Firefox, es pot guanyar molta velocitat.
http://versiorac.blogspot.com/2009/11/accelerar-firefox-la-maxima-velocitat.html
dissabte, 14 de novembre del 2009
Logon.exe resolt amb Malwarebytes
He anat buscant per Internet i, com sempre, tothom deia la seva. Finalment, en un foro de http://www.infospyware.com/ a banda dels 11 pasos per desinfectar la màquina, concretament a http://www.forospyware.com/t8.html suggerien instalar antiSpayWares (programes anti-espietes)
Un dels mes recomanats era el Malwarebytes: http://www.infospyware.com/antispyware/malwarebytes-antimalware/
Ho he fet i, en un plis (un plis de 6 minuts) m'ha trobat el trojà i me l'ha netejat.
divendres, 13 de novembre del 2009
Efectes especials
dijous, 12 de novembre del 2009
dimecres, 11 de novembre del 2009
Monty Python. La inquisició espanyola
dimarts, 10 de novembre del 2009
El asombroso viaje de Pomponio Flato
En una recuperació de l'estil del Laberinto i El Misterio barrejada amb La Vida de Brian aquesta novela d'intriga policiaca té moments delirants.
Algunes frases cèlebres:
No sé cuánto tiempo estuve así, hasta que desperté y me vi rodeado de un numeroso grupo de árabes que me miraban con extrañeza, preguntándose los unos a los otros quién podía ser aquel individuo y cómo podía haber llegado hasta allí por sus propios medios. Con un hilo de voz les dije que era un ciudadano romano, de familia patricia y de nombre Pomponio Flato, y que de resultas de una ligera indisposición me había caído del caballo.
Habiendo escuchado atentamente mi relato, deliberaron un rato sobre cómo proceder, hasta que uno dijo:
—Propongo que le robemos lo que todavía lleva encima, que le demos por el culo reiteradamente y que luego le cortemos la cabeza como suele hacer con los viajeros nuestra pérfida raza.
—Pues yo propongo —dice otro— que le demos agua y alimentos, lo subamos a un camello y lo llevemos con nosotros hasta encontrar quien pueda curarle y hacerse cargo de él.
—Bueno —dicen los demás con voluble facundia."
(...)
"Antes que entregarse a los romanos y ver sus templos profanados, los judíos prefieren darse muerte unos a otros y dejar que el último, antes de suicidarse, incendie la población y cuanto ésta contiene. A menudo es tal su precipitación por matarse entre sí que al final no queda nadie para aplicar la antorcha."
diumenge, 8 de novembre del 2009
Música i poesia de primària
Intentaré anar recopilant les boniques i edificants rimes i cançons -un xic heterodoxes- que es canten en els patis i gimnasos catalans, totes, per cert, en castellà.
Queden reflectides en color coincident amb el fons. Qui les vulgui llegir, sols té -sota la seva responsabilitat- que pasar per sobre el cursor.
(poesia sense música)
En un lugar de la Mancha
donde el semen no mancha
vivía Juan de Troya
con sus tres metros de poya
Tenía cien esposas
todas ellas eran putas
se folló noventa y nueve
y una la dejó para el jueves
####################
(música típica de marxa militar americana)
En el cielo manda Dios
En el cielo manda Dios
en el mar los marineros
en el mar los marineros
y en los campos españoles
y en los campos españoles
manda el Barça con dos cojones
manda el Barça con dos cojones
####################
(música típica de marxa militar americana)
De la mili me han echa[d]o
De la mili me han echa[d]o
y un paquete les he deja[d]o
y un paquete les he deja[d]o
a la hija del coronel
a la hija del coronel
en medio del pasillo yo me la tiré
en medio del pasillo yo me la tiré
####################
(música del himno del Barça)
Tot el camp
ple de fang
on pasturen les vaques
és el camp del Madrid
fastigòs i pudrit
Madrid, pudrit, que es caga sota el llit, a les dotze de la nit
1961-1989 El mur
Rafael Poch Corresponsal en Berlín 08/11/2009
"Con el régimen paralizado y la calle revuelta, en Berlín Este el poder estaba en el suelo. Dependía más de la calle que de los despachos, pero aun no se sabía. Desde principios de junio la apertura húngara propiciaba un multitudinario éxodo de ciudadanos hacia Austria, con embajadas de la RFA llenas de refugiados y un flujo creciente de manifestaciones y desafíos. El cancerbero moscovita no hacía nada contra aquello y aplicaba la Doctrina Sinatra ("haz lo que quieras"). En Berlín Este el poder estaba desconcertado, paralizado, deprimido.
En julio Eric Honecker, 77 años, el jefe del Partido de Estado (SED), enfermó y fue hospitalizado. Con el país hecho unos zorros, el 15 de agosto se fue de vacaciones para cinco semanas. Desde 1984 su compañero Günter Mitag le suplía en esos casos. No en esa ocasión. Honecker prohibió toda discusión sobre la situación política en su ausencia. Regresó de vacaciones con un "buen discurso" para celebrar el 40 aniversario de la RDA, como si nada, entre manifestaciones reprimidas que coreaban Gorby, Gorby al paso de Gorbachov, y una frase errática pero clara del líder soviético, que luego fue muy distorsionada, y que decía textualmente; "el peligro sólo amenaza a quien no reacciona a la vida".
Honecker no reaccionaba. El 17 de octubre fue destituido por una votación unánime del Politburó, resultado de una tardía conjura animada por varios de sus compañeros. (...) Egon Krenz, de 52 años, le sustituyó. Krenz hablaba de "cambio", pero carecía de toda credibilidad.(...) Mientras tanto, las manifestaciones crecían; el 9 de octubre habían sido 70.000 en Leipzig, el 4 de noviembre fueron medio millón en la Alexanderplatz de Berlín. El poder seguía en la calle, pero ahora la calle comenzaba a darse cuenta.
El régimen tenía aun una gran carta que jugar: abrir el odiado e infame Muro. La jugó tan mal que la convirtió en una nueva prueba de su desbarajuste. Tras aprobar una nueva libertad de viajar, previa obtención de un pasaporte ante la policía, el portavoz y miembro del politburó Günter Schabowski informó, el 9 de noviembre, al término de una conferencia de prensa anodina de la nueva norma sobre libertad de viaje sin dar detalles. A las 18,53 el corresponsal de la agencia italiana Ansa le preguntó, "¿cuando entra en vigor?". Schabowski, con las gafas puestas consultó el desordenado montón de papeles que manejaba, y respondió, como improvisando; "...tal como yo lo entiendo..., a partir de ya, inmeditamente". Comenzaba la estampida.
Bernd Wolterstädt, 39 años, padre de familia y funcionario del ayuntamiento de Berlín Este, escuchaba aquella conferencia de prensa retransmitida en directo por la radio y la tele. Oyó, pero no comprendió."Era como si nos hubieran dicho que el Papa estaba embarazado, simplemente no podía ser." Una doctora en físicas, cuatro años más joven que él, también escuchó aquello. Llamó a su madre por teléfono para comentarlo, y como cada jueves por la tarde se fue con una amiga a la sauna de la piscina del Thälmann Park. Su nombre era Ángela Merkel. Regresaban las dos amigas a casa con la bolsa de baño y pasaron por delante de la Bornholmerstrasse, donde se había abierto el muro. "Me mezclé enseguida con la gente para pasar a Berlín Oeste. Lo que sentí no se puede describir con palabras", ha explicado al rememorarlo.
Heinz Schäfer, oficial guardafronteras, dice que fue su puesto de la Avenida Walterdorfer, en el sector sur este del Muro, y no el de la Bornholmer, el primero en abrir. Cuando oyó la noticia en casa se fue corriendo a su puesto, confiscó toda la munición a sus soldados y les instruyó para que dejaran pasar a la gente". Miles de personas se concentraban en los puestos fronterizos. Había gran confusión, pero al final el asunto se resolvió según el mejor escenario. Aquella noche se cantó y se bailó sobre el Muro y a ambos lados de el. La Kudamm, el paseo burgués de Berlín Oeste por excelencia se llenó de "Trabant" y Wartburg", los utilitarios de la RDA, una estampa surrealista. El Canciller Kohl, que se encontraba en Varsovia, recibió incrédulo la noticia e interrumpió su visita oficial.
Al día siguiente en las autopistas en dirección al Oeste había hasta cien kilómetros de cola, la gente se amontonaba ante los bancos y cajas para recibir los 100 marcos (50 euros) de "dinero de bienvenida" que, astutamente, el gobierno federal de Bonn concedía a cualquier ciudadano de la RDA que presentara su pasaporte en el Oeste.(...)"
La Vanguardia 08 Noviembre 2009
Fotos d'abans i desprès (http://www.spiegel.de/international/germany/0,1518,660190,00.html)
dimecres, 4 de novembre del 2009
MiluTest03. Codi menys lamentable
La nova versió s'ha reduit a 2623 caràcters. Coses a destacar:
1) L'usuari escull el txt que conté les preguntes i les respostes
2) Sols hi ha un fitxer. Abans hi havia un de preguntes i un de respostes
3) He descobert com declarar variables de tipus Public mitjançant la creació d'un mòdul
4) En alguns casos sol hi ha una declaració per les 10 entrades.
5) Fracàs en l'ús del for - to
6) El tractament de la suma de les notes es bastant més digne.
7) No he treballat el tema de matrius. Probablement evitaria moltes línies.
Us poso una captura dels fitxers de preguntes i respostes i un parell d'imatges del programa funcionant. En la segona imatge, l'usuari ha corregit dues errades, la qual cosa li ha fet pujar nota.
Nota per generar els fitxers de preguntes i respostes:
a) ha de tenir 11 línies
b) la primera línia ha de contenir,a principi de línia, les paraules MATEMATICAS o INGLES o CASTELLANO (ho anire ampliant)
c) des de la segona fins a la decena linia, separem pregunta i resposta amb una coma.
dimarts, 3 de novembre del 2009
MiluTest 02. Codi lamentable (782)
Private Sub Form_Load()
Dim ruta As String
ruta = "C:\LearnVisual\MiluTest_01\PlantillaPregunta.txt"
Dim Dato00 As String
Dim Materia As String
Dim Dato01 As String
Dim Dato02 As String
Dim Dato03 As String
Dim Dato04 As String
Dim Dato05 As String
Dim Dato06 As String
Dim Dato07 As String
Dim Dato08 As String
Dim Dato09 As String
Dim Dato10 As String
Open ruta For Input As #1
Input #1, Dato00
txtDato00 = Dato00
Materia = Left(Dato00, 4)
If Materia = "CAST" Then
ImgCAST.Visible = True
ElseIf Materia = "ANGL" Then
imgANGL.Visible = True
End If
Input #1, Dato01
txtDato01 = Dato01
Input #1, Dato02
txtDato02 = Dato02
Input #1, Dato03
txtDato03 = Dato03
Input #1, Dato04
txtDato04 = Dato04
Input #1, Dato05
txtDato05 = Dato05
Input #1, Dato06
txtDato06 = Dato06
Input #1, Dato07
txtDato07 = Dato07
Input #1, Dato08
txtDato08 = Dato08
Input #1, Dato09
txtDato09 = Dato09
Input #1, Dato10
txtDato10 = Dato10
Close
End Sub
Private Sub cmdNota_Click()
Dim ruta2 As String
Dim Solucion01 As String
Dim Solucion02 As String
Dim Solucion03 As String
Dim Solucion04 As String
Dim Solucion05 As String
Dim Solucion06 As String
Dim Solucion07 As String
Dim Solucion08 As String
Dim Solucion09 As String
Dim Solucion10 As String
ruta2 = "C:\LearnVisual\MiluTest_01\PlantillaSolucion.txt"
Open ruta2 For Input As #2
Input #2, Solucion01
Input #2, Solucion02
Input #2, Solucion03
Input #2, Solucion04
Input #2, Solucion05
Input #2, Solucion06
Input #2, Solucion07
Input #2, Solucion08
Input #2, Solucion09
Input #2, Solucion10
Close
Dim NotaNum As Integer
Dim Nota As String
Dim Respuesta01 As String
Dim Respuesta02 As String
Dim Respuesta03 As String
Dim Respuesta04 As String
Dim Respuesta05 As String
Dim Respuesta06 As String
Dim Respuesta07 As String
Dim Respuesta08 As String
Dim Respuesta09 As String
Dim Respuesta10 As String
Dim Resultado01 As Integer
Dim Resultado02 As Integer
Dim Resultado03 As Integer
Dim Resultado04 As Integer
Dim Resultado05 As Integer
Dim Resultado06 As Integer
Dim Resultado07 As Integer
Dim Resultado08 As Integer
Dim Resultado09 As Integer
Dim Resultado10 As Integer
Respuesta01 = txtRespuesta01
Respuesta02 = txtRespuesta02
Respuesta03 = txtRespuesta03
Respuesta04 = txtRespuesta04
Respuesta05 = txtRespuesta05
Respuesta06 = txtRespuesta06
Respuesta07 = txtRespuesta07
Respuesta08 = txtRespuesta08
Respuesta09 = txtRespuesta09
Respuesta10 = txtRespuesta10
If Respuesta01 = Solucion01 Then
Resultado01 = 1
img11.Visible = True
Else
Resultado01 = 0
img21.Visible = True
End If
If Respuesta02 = Solucion02 Then
Resultado02 = 1
img12.Visible = True
Else
Resultado02 = 0
img22.Visible = True
End If
If Respuesta03 = Solucion03 Then
Resultado03 = 1
img13.Visible = True
Else
Resultado03 = 0
img23.Visible = True
End If
If Respuesta04 = Solucion04 Then
Resultado04 = 1
img14.Visible = True
Else
Resultado04 = 0
img24.Visible = True
End If
If Respuesta05 = Solucion05 Then
Resultado05 = 1
img15.Visible = True
Else
Resultado05 = 0
img25.Visible = True
End If
If Respuesta06 = Solucion06 Then
Resultado06 = 1
img16.Visible = True
Else
Resultado06 = 0
img26.Visible = True
End If
If Respuesta07 = Solucion07 Then
Resultado07 = 1
img17.Visible = True
Else
Resultado07 = 0
img27.Visible = True
End If
If Respuesta08 = Solucion08 Then
Resultado08 = 1
img18.Visible = True
Else
Resultado08 = 0
img28.Visible = True
End If
If Respuesta09 = Solucion09 Then
Resultado09 = 1
img19.Visible = True
Else
Resultado09 = 0
img29.Visible = True
End If
If Respuesta10 = Solucion10 Then
Resultado10 = 1
img20.Visible = True
Else
Resultado10 = 0
img30.Visible = True
End If
NotaNum = Resultado01 + Resultado02 + Resultado03 + Resultado04 + Resultado05 + Resultado06 + Resultado07 + Resultado08 + Resultado09 + Resultado10
If NotaNum > 8 Then
Nota = "Excelente"
ElseIf NotaNum > 6 Then
Nota = "Notable"
ElseIf NotaNum > 5 Then
Nota = "Bién"
ElseIf NotaNum > 4 Then
Nota = "Suficiente"
Else
Nota = "Insuficiente"
End If
txtNota.Text = Nota
End Sub