(old)Puppy Linux Discussion Forum

Code: Select all

#include<lib.h>
#include<stdio.h>

void nuevo();
void abrir();
void gravar();
void caja(int modo, char msg[45], int y);

struct music
	{
		int grava0[530];
		int grava1[530];
		int grava2[530];
	};

int cargado = 0;
int gravado = 0;
int abierto = 0;
char nombremus[9];
struct music datos;

main()
	{
		char resp;
		int a, f, d, num;
		int i, x, y, x2, y2, x3, y3, cont, cont2, gravando = 0, tec_esp = 0;
		f = 10; d = 5000;
inicio:
		textbackground(7);
		clrscr();
		textcolor(1);
		cuadro(1,29,23,1,2);
		cuadro(1,24,23,29,2);
		cuadro(1,29,23,52,2);
		gotoxy(1,8);
		for (i = 1; i <= 29; i++)
			cprintf("Ä");
		gotoxy(1,8); cprintf("Ã");
		gotoxy(29,8); cprintf("´");

		textcolor(0);
		gotoxy(10,8); cprintf("TECLAS");
		gotoxy(3,10); cprintf("(A-Z, a-z) Sonidos");
		gotoxy(3,11); cprintf("+ Aumentar frecuencia");
		gotoxy(3,12); cprintf("- Disminir frecuencia");
		gotoxy(3,13); cprintf("> Aumentar duraci¢n");
		gotoxy(3,14); cprintf("< Disminuir duraci¢n");
		gotoxy(3,15); cprintf("* Inicio/Detener gravaci¢n");
		gotoxy(3,16); cprintf("/ Escuchar gravaci¢n");
		gotoxy(3,17); cprintf("= Borrar pantalla");
		gotoxy(3,19); cprintf("F2 Gravar");
		gotoxy(3,20); cprintf("F3 Abrir");
		gotoxy(3,21); cprintf("F4 Nuevo");
		gotoxy(3,22); cprintf("ESC Salir");
		if (abierto)
			{
				i = 0;
				textcolor(0);
				for (y = 3; datos.grava0[i] != '\f'; y++)
					for (x = 53; x <= 80 && datos.grava0[i] != '\f'; x++)
						{
							gotoxy(x,y);
							cprintf("%c", datos.grava0[i]);
							i++;
						}
			}
		cont = 0;
		x = 30; y = 3;
		if (!abierto)
			{
				num = cont2 = 0;
				x2 = 53; y2 = 3;
				for (i = 0; i < 530; i++)
					datos.grava0[i] = datos.grava1[i] = datos.grava2[i] = 0;
			}
		do
			{
				textcolor(0);
				gotoxy(10,2); cprintf("INFORMACION");
				gotoxy(62,2); cprintf("GRAVACION");
				if (cargado)
					{
						gotoxy(30,2);
						cprintf("%s", nombremus);
					}
				gotoxy(3,3);
				cprintf("Frecuencia: %d", f);
				gotoxy(3,4);
				cprintf("Duracion(seg): %d", d / 1000);
				textcolor(4);
				gotoxy(4,6);
				if (gravando)
					textcolor(-12);
				else
					textcolor(7);
				cprintf("GRAVANDO");
				textcolor(0);
				gotoxy(x,y);
				resp = getche();
				if (resp == '\x0')
					{
						resp = getch();
						tec_esp = 1;
					}
				else
					if (gravando)
						{
							textcolor(0);
							gotoxy(x2,y2); cprintf("%c", resp);
							datos.grava0[cont2] = resp;
							datos.grava1[cont2] = f;
							datos.grava2[cont2] = d;
							datos.grava0[cont2+1] = '\f';
							cont2++;
							x2++;
							if (x2 == 80)
								{
									x2 = 53;
									y2++;
								}
						}
				if (!tec_esp)
					{
						switch (resp)
							{
								case '+': f += 10; break;
								case '-': if (f > 10) f -= 10; break;
								case '>': d += 1000; break;
								case '<': d -= 1000; break;
								case '*':
									if (gravando) gravando = 0;
									else gravando = 1;
									break;
								case '/':
									x3 = 53; y3 = 3;
									for (i = 0; i <= num+1; i++)
										{
											textbackground(3);
											gotoxy(x3,y3); cprintf("%c", datos.grava0[i]);
											if (datos.grava0[i] >= 65 && datos.grava0[i] <= 122 || datos.grava0[i] == 32)
												{
													a = datos.grava0[i] - 65;
													a *= datos.grava1[i];
													sound(a);
													delay(datos.grava2[i]);
													nosound();
												}
                                 textbackground(7);
											gotoxy(x3,y3); cprintf("%c", datos.grava0[i]);
                                 x3++;
											if (x3 == 80)
												{
													x3 = 53;
													y3++;
												}
										}
									break;
								case '=':
									goto inicio;
								default:
									a = resp - 65;
									a *= f;
									sound(a);
									delay(d);
									nosound();
									break;
							}
						x++;
						cont++;
						num++;
					}
				else
					{
						switch (resp)
							{
								case '<': gravar(); goto inicio;
								case '=':
									abrir();
                           num = cont2 = 0;
									for (y2 = 3; y2 <= 20; y2 ++)
										{
											for (x2 = 53; x2 <= 81; x2++)
												{
													cont2++;
													num++;
													if (datos.grava0[cont2] == '\f')
														break;
												}
											if (datos.grava0[cont2] == '\f')
												break;
										}
									goto inicio;
								case '>': nuevo(); goto inicio;
							}
						tec_esp = 0;
					}

				if (x == 51)
					{
						x = 30;
						y ++;
					}
				if (y == 24)
					goto inicio;
			}
		while (resp != 27);

	}
void nuevo()
	{
		char resp;
		if (gravado)
			{
				abierto = 0;
				cargado = 0;
				gravado = 0;
			}
		else
			{
				printf("\a");
				caja(1,"Musica no Gravada",12);
				caja(0,"¨Gravar ahora?",13);
				resp = toupper(getche());
				if (resp == 'S')
					{
						gravar();
                  abierto = 0;
						cargado = 0;
						gravado = 0;
					}
				else
					return;
			}
	}
void abrir()
	{
		FILE *arch;
		int i;
		char resp,nombre[9];
nombre:
		caja(1,"ABRIR",9);
		caja(0,"Nombre del archivo:",10);
		gotoxy(31,11);
		textbackground(3);
		strcpy(nombre,captura(8));
		textbackground(7);
		for (i = 0; i < strlen(nombre); i++)
			if (nombre[i] == '.')
				goto abrir_arch;
		strcat(nombre,".mus");
abrir_arch:
		if ((arch = fopen(nombre, "rb")) == NULL)
			{
				printf("\a");
				caja(0,"No se encontr¢",12);
				getche();
				goto nombre;
			}
		nuevo();

		for (i = 0; i < 530; i++)
			datos.grava0[i] = datos.grava1[i] = datos.grava2[i] = 0;
		fread(&datos, sizeof(struct music), 1, arch);

		fclose(arch);
		for (i = 0; i <= strlen(nombre); i++)
			nombremus[i] = nombre[i];
		cargado = gravado = abierto = 1;
	}
void gravar()
	{
		int i;
		FILE *arch;
		char nombre[9], resp;
		abierto = 1;
		textcolor(4);
nombre:
		caja(1, "GRAVAR", 9);
		textcolor(1);
		caja(0, "Nombre del archivo:", 10);
		gotoxy(31,11);
		textbackground(3);
		strcpy(nombre,captura(8));
		textbackground(7);
		for (i = 0; i < strlen(nombre); i++)
			if (nombre[i] == '.')
				goto abrir_arch;
		strcat(nombre,".mus");
abrir_arch:
		if ((arch = fopen(nombre, "rb")) != NULL)
			{
				printf("\a");
				caja(0,"Archivo ya existe",12);
				caja(0,"¨Quieres",13);
				caja(0,"sobrescribirlo?",14);
				caja(0,"[S/N]:",15);
				textbackground(3);
				resp = toupper(getche());
				textbackground(7);
				if (resp == 'N')
					goto nombre;
				fclose(arch);
			}
		if ((arch = fopen(nombre, "wb")) == NULL)
			{
				printf("\a");
				caja(0,"Error al tratar",12);
				caja(0,"de abrir archivo.",13);
				getche();
				return;
			}
		fwrite(&datos, sizeof(struct music), 1, arch);
		gravado = 1;
		cargado = 1;
		for (i = 0; i <= strlen(nombre); i++)
			nombremus[i] = nombre[i];
		fclose(arch);
	}
void caja(int modo, char msg[45], int y)
	{
		int x;
		if (modo == 1)
			{
				textcolor(0);
				textbackground(4);
				cuadro(2,22,10,30,8);
				textcolor(3);
				fondo(30,8,21,9);
			}
		x = (20-strlen(msg))/2+31;
		gotoxy(x,y);
		textcolor(1);
		textbackground(3);
		cprintf("%s", msg);
		textbackground(7);
	}
//Por Aurelio Márquez

Code: Select all

#include <stdio.h>
#include <conio.h>
#include <dos.h>
#define N 500
void main(){

char x;
do{
x=getch();
sound(x*10);
delay(50);
nosound();
}while(x!=27);

}

Code: Select all

#bzr branch http://mamalibre.2.je/bzr/xrec

Code: Select all

#! /bin/bash

FILE="/usr/share/doc/gtkdialog/copyright"

export SCRIPT='
<vbox>
  <menubar>
    <menu>      
	<menuitem>
	  <label>Ver Archivo</label>
	  <input file stock="gtk-open"></input>	  
	  <action>geany '"$FILE"'</action> 	  
	</menuitem>
	<label>Label</label>
    </menu>
  </menubar>
  <hbox>
    <button cancel></button>
    <button ok></button>
  </hbox>
</vbox>
'

gtkdialog --program=SCRIPT

Code: Select all

#!/bin/bash


export MAIN_DIALOG='
<window title="pTerminal" default_height="500" default_width="600" icon-name="gtk-no">
<vbox>
 <menubar>
  <menu>
   <menuitem icon="gtk-file">
    <label>Abrir</label>
    <input file stock="gtk-open"></input>
    <variable>FILE</variable>
    <action type="fileselect">FILE</action> 
    </menuitem>
  </menu>
 </menubar>
   
</vbox>
 <action signal="hide">exit:Exit</action> 
</window>'

gtkdialog3 --program=MAIN_DIALOG