Статьи о программировании, все о программировании, исходники программ

Пьяньчуга – Моделирование движения пьяного человека на C#

evteev — Thu, 28 Jan 2010 14:59:09 +0000

Надоели скучные и однообразные программы? Давайте немного пофантазируем и напишем программу, которая будет моделировать движение пьяного человека, и представим все это графически.

Суть программы будет заключаться в следующем:

Будем моделировать движение пьяного человека (он пьян до того, что не знает что делает, но лежать ему не хочется). В начальный момент времени задается положение человека в некотором дворе с непроницаемыми стенками и одним выходом. Кроме того даются 5 вероятностей – остаться на месте и перемещаться в 4 стороны. Если появляется попытка переместиться через стенку, то «пьяньчуга» остается на месте. Сумма вероятностей строго равно 1. Если «пьяньчуга» нашел выход или попал в один из люков, то моделирование заканчивается и выводится соответствующее сообщение.

И так, в Visual Studio в C# создайте форму, и объекты как показано на рисунке «Рисунок 1.1». Соответственно, к каждому объекту подписано его имя.

После создания формы и всех ее объектов приступим к написанию кода программы.
Для начала я перечислю, какие библиотеки и глобальные переменные необходимы для работы программы.
Библиотеки:

using System;
using System.Collections.Generic;
using System.ComponentModel;
using System.Data;
using System.Drawing;
using System.Linq;
using System.Text;
using System.Windows.Forms;
using System.Drawing.Drawing2D;

Глобальные переменные:

Point[,] coord = new Point[11, 11];
Point[] coord_courses;
coord_points[] mass_points;
Point PointUser = new Point();
Point PointUser_For_searche = new Point();
int shag = 5;
Graphics Line;
Rectangle EllipseDraw = new Rectangle();
Rectangle EllipseDraw2 = new Rectangle();
GraphicsPath GraphicsPathEllipse;

Для того чтобы запоминать сколько раз «пьяньчуга» попадал в ту или иную точку, мы будем использовать структуру «coord_points», которая включает в себя координаты точки x и y и количество попаданий «Count». Структуру объявляем глобально.

public struct coord_points
{
	int x;
	int y;
	int Count;
	public coord_points(int X, int Y, int count)
	{
		x = X;
		y = Y;
		Count = count;
	}
	public int X
	{
		get { return x; }
		set { x = value; }
	}
	public int Y
	{
		get { return y; }
		set { y = value; }
	}
	public int count
	{
		get { return Count; }
		set { Count = value; }
	}
};

Теперь напишем код для кнопки «Нарисовать местность».

	pictureBox.Refresh(); //Обновить область для рисования
	listBox1.Items.Clear(); // Очищаем ListBox с координатами
	isleovanie.Text = ""; // Очищаем значение исследования
	Line = Graphics.FromHwnd(pictureBox.Handle); // Создаем объект для рисования на pictureBox

	count_iter.Text = 0.ToString();//Обнуляем поле «Кол-во итераций»
	distance.Text = 0.ToString();//Обнуляем поле «Расстояние (пиксеметры)»

	count_courses.Text = 0.ToString();//Обнуляем поле «Общее кол-во шагов»
	count_down.Text = 0.ToString();//Обнуляем поле количество шагов «Вниз»
	count_up.Text = 0.ToString();//Обнуляем поле количество шагов «Вверх»
	count_l.Text = 0.ToString();//Обнуляем поле количество шагов «Влево»
	count_r.Text = 0.ToString();//Обнуляем поле количество шагов «Вправо»

	System.Drawing.Pen red = new Pen(Color.Red, 1);
	SolidBrush EllipseBrush = new SolidBrush(Color.Black);
	Graphics Ellipse = Graphics.FromHwnd(pictureBox.Handle);
	Graphics Ellipse2 = Graphics.FromHwnd(pictureBox.Handle);
	GraphicsPathEllipse = new GraphicsPath();
	Random rnd = new Random();
	int max_h = pictureBox.Height / 2 + pictureBox.Height / 4;
	int max_w = pictureBox.Width / 2 + pictureBox.Width / 4;
	int temp = 0;

	Point start1 = new Point(10, 10);
	Point start2 = new Point(10, 10);
	Point end1 = new Point(10, pictureBox.Height - 50);
	Point end2 = new Point(pictureBox.Width - 10, 10);
	Point end3 = new Point(pictureBox.Width - 10, pictureBox.Height - 50);
	//Координаты помещения
	coord[0, 0].X = end2.X - rnd.Next(pictureBox.Width / 3, pictureBox.Width / 2);
	coord[0, 0].Y = start1.Y;
	coord[0, 1].X = end2.X - rnd.Next(5, pictureBox.Width / 3);
	coord[0, 1].Y = end2.Y;
	//Слева линия
	coord[1, 0].X = start1.X;
	coord[1, 0].Y = start1.Y;
	coord[1, 1].X = end1.X;
	coord[1, 1].Y = end1.Y;
	//Верхняя
	coord[2, 0].X = start1.X;
	coord[2, 0].Y = start1.Y;
	coord[2, 1].X = coord[0, 0].X;
	coord[2, 1].Y = end2.Y;
	//Верхняя 2
	coord[6, 0].X = coord[0, 1].X;
	coord[6, 0].Y = start1.Y;
	coord[6, 1].X = end2.X;
	coord[6, 1].Y = end2.Y;
	//Правая
	coord[3, 0].X = end2.X;
	coord[3, 0].Y = end2.Y;
	coord[3, 1].X = end3.X;
	coord[3, 1].Y = end3.Y;
	//Нижняя
	coord[4, 0].X = end1.X;
	coord[4, 0].Y = end1.Y;
	coord[4, 1].X = end3.X - pictureBox.Width / 2 - pictureBox.Width / 3 - rnd.Next(0, 30);
	coord[4, 1].Y = end3.Y;
	//Нижняя
	coord[7, 0].X = end3.X - pictureBox.Width / 4 - pictureBox.Width / 2 - rnd.Next(0, 50);
	coord[7, 0].Y = end1.Y;
	coord[7, 1].X = end3.X;
	coord[7, 1].Y = end3.Y;
	//Нижняя 2
	coord[8, 0].X = coord[4, 1].X;
	coord[8, 0].Y = end3.Y;
	coord[8, 1].X = coord[4, 1].X;
	coord[8, 1].Y = end3.Y + 40;
	//Нижняя 2
	coord[9, 0].X = coord[7, 0].X;
	coord[9, 0].Y = end3.Y;
	coord[9, 1].X = coord[7, 0].X;
	coord[9, 1].Y = coord[8, 1].Y;
	//Нижняя 3
	coord[10, 0].X = coord[8, 1].X;
	coord[10, 0].Y = coord[8, 1].Y;
	coord[10, 1].X = coord[9, 1].X;
	coord[10, 1].Y = coord[9, 1].Y;
	//Координаты для эллипса
	coord[5, 0].X = rnd.Next(50, max_w);
	coord[5, 0].Y = rnd.Next(50, max_h);
	coord[5, 1].X = rnd.Next(50, max_w);
	coord[5, 1].Y = rnd.Next(50, max_h);
	for (; ; )
	{
		if (coord[5, 1].X == 0 || coord[5, 1].Y == 0)
		{
			temp = rnd.Next(50, max_w);
			if (temp != coord[5, 0].X)
				coord[5, 1].X = temp;

			temp = rnd.Next(50, max_w);
			if (temp != coord[5, 0].Y)
				coord[5, 1].Y = temp;
		}
		else
			break;
	}
	//////////////////
	EllipseDraw = new Rectangle(coord[5, 0].X, coord[5, 0].Y, 10, 10);
	EllipseDraw2 = new Rectangle(coord[5, 1].X, coord[5, 1].Y, 10, 10);

	Line.DrawLine(red, start1.X, start1.Y, end1.X, end1.Y); //Левая

	Line.DrawLine(red, coord[2, 0].X, coord[2, 0].Y, coord[2, 1].X, coord[2, 1].Y); //Верхняя
	Line.DrawLine(red, coord[6, 0].X, coord[6, 0].Y, coord[6, 1].X, coord[6, 1].Y); //Верхняя

	Line.DrawLine(red, end2, end3); //Правая

	Line.DrawLine(red, coord[4, 0].X, coord[4, 0].Y, coord[4, 1].X, coord[4, 1].Y); //Нижняя прямая
	Line.DrawLine(red, coord[7, 0].X, coord[7, 0].Y, coord[7, 1].X, coord[7, 1].Y); //Нижняя прямая

	Line.DrawLine(red, coord[8, 0].X, coord[8, 0].Y, coord[8, 1].X, coord[8, 1].Y); //Нижняя 2 слева

	Line.DrawLine(red, coord[9, 0].X, coord[9, 0].Y, coord[9, 1].X, coord[9, 1].Y); //Нижняя 2 справа

	Line.DrawLine(red, coord[10, 0].X, coord[10, 0].Y, coord[10, 1].X, coord[10, 1].Y); //Нижняя 3 прямая

	int el_x1 = rnd.Next(50, max_w);
	int el_y1 = rnd.Next(50, max_h);

	GraphicsPathEllipse.AddEllipse(new Rectangle(el_x1, el_y1, 10, 10));//Рисуем первый люк
	Ellipse.FillEllipse(EllipseBrush, new Rectangle(el_x1, el_y1, 10, 10));
	//Рисуем случайно все остальные люки (kolvolukov.Text – кол-во люков)
	for (int i = 2; i < = Convert.ToInt32(kolvolukov.Text); i++)
	{
		int el_x2 = rnd.Next(50, max_w);
		int el_y2 = rnd.Next(50, max_h);
		for (; ; )
		{
			if (el_x2 == 0 || el_y2 == 0)
			{
				temp = rnd.Next(50, max_w);
				if (temp != el_x1)
					el_x2 = temp;

				temp = rnd.Next(50, max_w);
				if (temp != el_y1)
					el_y2 = temp;
			}
			else
				break;
		}
		el_x1 = el_x2;
		el_y1 = el_y2;

		GraphicsPathEllipse.AddEllipse(new Rectangle(el_x2, el_y2, 10, 10));
		Ellipse.FillEllipse(EllipseBrush, new Rectangle(el_x2, el_y2, 10, 10));
	}
	searching.Enabled = true; //Активируем кнопку «Провести исследование»

Напишем метод «MessageShow», который будет выводить сообщение на экран при завершении моделирования.
void MessageShow(int type)
{
if(type == 1)
MessageBox.Show(«Моделирование закончено!»);
else
MessageBox.Show(«Пьянчуга попал в люк»);
}
Теперь напишем объект «check», который осуществляет ряд проверок движения «пьяньчуги». Если «пьяньчуга» нашел выход или попал в один из люков, выводится соответствующее сообщение и моделирование прекращается.

int check(int type)
{
	//Конец пути пьянчуги
	if (PointUser.X >= coord[0, 0].X && PointUser.X < = coord[0, 1].X && PointUser.Y <= coord[0, 1].Y)
	{
		if(type == 1)
			MessageShow(1);
		return -1;
	}
	//Пьянчуга попал в люк
	if (GraphicsPathEllipse.IsVisible(PointUser))
	{
		if(type == 1)
			MessageShow(2);
		return -1;
	}
	//Слева линия
	if (PointUser.X <= coord[1, 0].X && PointUser.Y >= coord[1, 0].Y && PointUser.Y < = coord[1, 1].Y)
	{
		PointUser.X += shag;
	}
	//Верхняя
	if(PointUser.X >= coord[2, 0].X && PointUser.X < = coord[2, 1].X && PointUser.Y <= coord[2, 0].Y)
	{
		PointUser.Y += shag;
	}
	//Верхняя 2
	if (PointUser.X >= coord[6, 0].X && PointUser.X < = coord[6, 1].X && PointUser.Y <= coord[6, 0].Y)
	{
		PointUser.Y += shag;
	}
	//Правая линия
	if (PointUser.X >= coord[3, 0].X && PointUser.Y >= coord[3, 0].Y && PointUser.Y < = coord[3, 1].Y)
	{
		PointUser.X -= shag;
	}
	//Нижняя
	if ((PointUser.X >= coord[4, 0].X && PointUser.X < = coord[4, 1].X) && PointUser.Y >= coord[4, 1].Y)
	{
		PointUser.Y -= shag;
	}
	if ((PointUser.X >= coord[7, 0].X && PointUser.X < = coord[7, 1].X) && PointUser.Y >= coord[7, 1].Y)
	{
		PointUser.Y -= shag;
	}
	if (PointUser.X < = coord[8, 0].X && PointUser.Y >= coord[8, 0].Y && PointUser.Y < = coord[8, 1].Y)
	{
		PointUser.X += shag;
	}
	if ((PointUser.X >= coord[10, 0].X && PointUser.X < = coord[10, 1].X) && PointUser.Y >= coord[10, 1].Y)
	{
		PointUser.Y -= shag;
	}
	if (PointUser.X >= coord[9, 0].X && PointUser.Y >= coord[9, 0].Y && PointUser.Y < = coord[9, 1].Y)//Нижняя 2 справа
	{
		PointUser.X -= shag;
	}
	return 0;
}

Следующие объекты и методы необходимы для проверки правильного указания коэффициентов вероятности перемещения и количества люков.

bool check_ver()
{
	double sum = Convert.ToDouble(go_up.Text) + Convert.ToDouble(go_down.Text) + Convert.ToDouble(go_right.Text) + Convert.ToDouble(go_left.Text);

	if (sum > 1 || sum < 1)
		MessageBox.Show("Сумма коэффициентов направленности превышает допустимое значение равное 1.");
	else if (Convert.ToInt32(kolvolukov.Text) < 1 || Convert.ToInt32(kolvolukov.Text) > 50)
		MessageBox.Show("Количество люков не может быть меньше 1 или больше 50.");
	else
		return true;

	return false;
}
//Запускается, когда происходит изменение Вероятности перемещения «Вверх»
private void go_up_TextChanged(object sender, EventArgs e)
{
	check_ver();
}
//Запускается, когда происходит изменение Вероятности перемещения «Вниз»
private void go_down_TextChanged(object sender, EventArgs e)
{
	check_ver();
}
//Запускается, когда происходит изменение Вероятности перемещения «Вправо»
private void go_right_TextChanged(object sender, EventArgs e)
{
	check_ver();
}
//Запускается, когда происходит изменение Вероятности перемещения «Влево»
private void go_left_TextChanged(object sender, EventArgs e)
{
	check_ver();
}
//Запускается, когда происходит изменение поля Количество люков
private void kolvolukov_TextChanged(object sender, EventArgs e)
{
	check_ver();
}

Напишем методы, которые изменяют шаг движения. Если на объект выводятся «точки», шаг составляет 5, если цифры – 15. Создано для удобства вывода на экран.

private void pic_point_CheckedChanged(object sender, EventArgs e)
{
	shag = 5;
}
private void pic_char_CheckedChanged(object sender, EventArgs e)
{
	shag = 15;
}
//Объект «isPoint» возвращает положение координаты точки, если она есть в массиве mass_points
int isPoint(Point mass_nums, coord_points[] mass_points)
{
	for (int i = 0; i < mass_points.Count(); i++)
	{
		if (mass_points[i].X == mass_nums.X && mass_points[i].Y == mass_nums.Y)
			return i;
	}
	return -1;
}
//Метод «setCount» увеличивает счетчик попадания человека в точку на 1
void setCount(coord_points[] mass_points, int index)
{
	mass_points[index].count = mass_points[index].count + 1;
}
// Метод «listBox1_MouseDoubleClick» вызывается при двойном клике на объект «listBox1», где хранятся координаты перемещения «пьяньчуги». Метод выделяет красным цветом точку по указанной координате.
private void listBox1_MouseDoubleClick(object sender, MouseEventArgs e)
{
	System.Drawing.Pen red = new Pen(Color.Red, 2);
	Graphics Ellipse = Graphics.FromHwnd(pictureBox.Handle);

	Ellipse.DrawEllipse(red, new Rectangle(mass_points[listBox1.Items.IndexOf(listBox1.Text)].X, mass_points[listBox1.Items.IndexOf(listBox1.Text)].Y, 2, 2));

}

Наконец, метод «pictureBox_MouseDown», который осуществляет моделирование движения пьяного человека.

private void pictureBox_MouseDown(object sender, MouseEventArgs e)
{
	if (check_ver() == true)//Если все проверки прошли
	{
		PointUser.X = e.X; //Получаем X-координату точки
		PointUser.Y = e.Y; //Получаем Y-координату точки

		PointUser_For_searche.X = e.X;
		PointUser_For_searche.Y = e.Y;

		Line = Graphics.FromHwnd(pictureBox.Handle);
		System.Drawing.Graphics graph = Graphics.FromHwnd(pictureBox.Handle);

		System.Drawing.Pen WhiteSmoke = new Pen(Color.WhiteSmoke, 1);
		System.Drawing.Pen Black = new Pen(Color.Black, 2);
		EllipseDraw = new Rectangle(PointUser.X, PointUser.Y, 2, 2);
		Graphics Ellipse = Graphics.FromHwnd(pictureBox.Handle);
		Ellipse.DrawEllipse(Black, EllipseDraw);

		Random rnd = new Random();
		int count = 0, countiter = 0, c_left = 0, c_right = 0, c_up = 0, c_down = 0;
		double hod, left, right, up, down;
		coord_courses = new Point[Convert.ToInt32(count_steps.Text)];

		List mass_nums = new List();

		for (int i = 1; i < = Convert.ToInt32(count_steps.Text); i++)
		{
			if (rnd.Next(1, 5) != 1)//Если вероятность не «стоять на месте»
			{
				coord_courses[count] = PointUser;
				mass_nums.Add(PointUser);

				hod = rnd.NextDouble();
				up = Convert.ToDouble(go_up.Text);
				down = Convert.ToDouble(go_down.Text);
				right = up + down;
				left = up + down + Convert.ToDouble(go_right.Text);
//Если вероятность «идти влево»
				if (hod > left && hod < left + Convert.ToDouble(go_left.Text))
				{
					PointUser.X -= shag;
					if (check(1) == -1)
						break;
					else
					{
						if (pic_point.Checked)
							Ellipse.DrawEllipse(Black, new Rectangle(PointUser.X, PointUser.Y, 2, 2));
					}
					c_left++;
				}
				else if (hod > 0 && hod < up) //Если вероятность «идти вверх»
				{
					PointUser.Y -= shag;
					if (check(1) == -1)
						break;
					else
					{
						if (pic_point.Checked)
							Ellipse.DrawEllipse(Black, new Rectangle(PointUser.X, PointUser.Y, 2, 2));
					}
					c_up++;
				}
				else if (hod > right && hod < right + Convert.ToDouble(go_right.Text)) //вправо
				{
					PointUser.X += shag;
					if (check(1) == -1)
						break;
					else
					{
						if (pic_point.Checked)
							Ellipse.DrawEllipse(Black, new Rectangle(PointUser.X, PointUser.Y, 2, 2));
					}
					c_right++;
				}
				else if (hod > up && hod < up + down) //вниз
				{
					PointUser.Y += shag;
					if (check(1) == -1)
						break;
					else
					{
						if (pic_point.Checked)
							Ellipse.DrawEllipse(Black, new Rectangle(PointUser.X, PointUser.Y, 2, 2));
					}
					c_down++;
				}
			}
			countiter++;
		}
		count = c_down + c_left + c_right + c_up;

		count_iter.Text = countiter.ToString();
		distance.Text = (count).ToString();

		count_courses.Text = count.ToString();
		count_down.Text = c_down.ToString();
		count_up.Text = c_up.ToString();
		count_l.Text = c_left.ToString();
		count_r.Text = c_right.ToString();

		up = Convert.ToDouble(go_up.Text);
		down = Convert.ToDouble(go_down.Text);
		right = Convert.ToDouble(go_right.Text);
		left = Convert.ToDouble(go_left.Text);

		if (up > down && up > right && up > left)
			isleovanie.Text = "При к.н. (Вверх) пьянчуга прошел " + Math.Round(((double)c_up / (double)count) * 100) + "% пути";
		else if (down > up && down > right && down > right)
			isleovanie.Text = "При к.н. (Вниз) пьянчуга прошел " + Math.Round(((double)c_down / (double)count) * 100) + "% пути";
		else if (right > up && right > left && right > down)
			isleovanie.Text = "При к.н. (Вправо) пьянчуга прошел " + Math.Round(((double)c_right / (double)count) * 100) + "% пути";
		else if (left > up && left > right && left > down)
			isleovanie.Text = "При к.н. (Влево) пьянчуга прошел " + Math.Round(((double)c_left / (double)count) * 100) + "% пути";

		mass_points = new coord_points[mass_nums.Count];
		Point[] coord_courses2 = new Point[mass_nums.Count];
		int index = 0, j = 0;
		for (int i = 0; i < mass_nums.Count; i++)
			if ((index = isPoint(mass_nums[i], mass_points)) > -1)
			{
				setCount(mass_points, index);
			}
			else
			{
				mass_points[j].X = mass_nums[i].X;
				mass_points[j].Y = mass_nums[i].Y;
				mass_points[j].count = 1;
				j++;
			}

		for (int i = j - 1; i >= 0; i--)
		{
			if (!pic_point.Checked)
			{
				if (i + 1 == j)
					graph.DrawString(mass_points[i].count.ToString(), new Font("Times New Roman", 8), new SolidBrush(Color.Red), mass_points[i].X - 3, mass_points[i].Y - 8);
				else
					graph.DrawString(mass_points[i].count.ToString(), new Font("Times New Roman", 8), new SolidBrush(Color.Black), mass_points[i].X - 3, mass_points[i].Y - 8);
			}
			listBox1.Items.Add("X:" + mass_points[i].X + "; Y:" + mass_points[i].Y + "; Кол-во:" + mass_points[i].count);
		}
	}
}

Напишем последний метод «searching_Click», чтобы завершить написание программы. Здесь выполняется исследование.

private void searching_Click(object sender, EventArgs e)
{
	Random rnd = new Random();
	int count = 0, countiter = 0, c_left = 0, c_right = 0, c_up = 0, c_down = 0;
	double hod, left, right, up, down;

	for (int sch = 1; sch < = 10; sch++)
	{
		PointUser = PointUser_For_searche;
		for (int i = 1; i <= Convert.ToInt32(count_steps.Text); i++)
		{
			if (rnd.Next(1, 5) != 1)
			{
				hod = rnd.NextDouble();
				up = Convert.ToDouble(go_up.Text);
				down = Convert.ToDouble(go_down.Text);
				right = up + down;
				left = up + down + Convert.ToDouble(go_right.Text);

				if (hod > left && hod < left + Convert.ToDouble(go_left.Text)) //влево
				{
					PointUser.X -= shag;

					if (check(2) == -1)
						break;
					c_left++;
				}
				else if (hod > 0 && hod < up) //вверх
				{
					PointUser.Y -= shag;

					if (check(2) == -1)
						break;
					c_up++;
				}
				else if (hod > right && hod < right + Convert.ToDouble(go_right.Text)) //вправо
				{
					PointUser.X += shag;
					if (check(2) == -1)
						break;
					c_right++;
				}
				else if (hod > up && hod < up + down) //вниз
				{
					PointUser.Y += shag;
					if (check(2) == -1)
						break;
					c_down++;
				}
			}
			countiter++;
		}
	}
	count = c_down + c_left + c_right + c_up;

	count_iter.Text = countiter.ToString();
	distance.Text = (count).ToString();

	count_courses.Text = count.ToString();
	count_down.Text = c_down.ToString();
	count_up.Text = c_up.ToString();
	count_l.Text = c_left.ToString();
	count_r.Text = c_right.ToString();

	up = Convert.ToDouble(go_up.Text);
	down = Convert.ToDouble(go_down.Text);
	right = Convert.ToDouble(go_right.Text);
	left = Convert.ToDouble(go_left.Text);

	if (up > down && up > right && up > left)
	{
		isleovanie.Text = "При к.н. (Вверх) пьянчуга прошел " + Math.Round(((double)c_up / (double)count) * 100) + "% пути";
		label10.Text = "Среднее значение: " + Math.Round((double)c_up / (double)count, 2).ToString();
	}
	else if (down > up && down > right && down > right)
	{
		isleovanie.Text = "При к.н. (Вниз) пьянчуга прошел " + Math.Round(((double)c_down / (double)count) * 100) + "% пути";
		label10.Text = "Среднее значение: " + Math.Round((double)c_down / (double)count, 2).ToString();
	}
	else if (right > up && right > left && right > down)
	{
		isleovanie.Text = "При к.н. (Вправо) пьянчуга прошел " + Math.Round(((double)c_right / (double)count) * 100) + "% пути";
		label10.Text = "Среднее значение: " + Math.Round((double)c_right / (double)count, 2).ToString();
	}
	else if (left > up && left > right && left > down)
	{
		isleovanie.Text = "При к.н. (Влево) пьянчуга прошел " + Math.Round(((double)c_left / (double)count) * 100) + "% пути";
		label10.Text = "Среднее значение: " + Math.Round((double)c_left / (double)count, 2).ToString();
	}
}

После написание кода программы проверим ее работу:

Указать вероятности перемещения
Указать количество люков и тактов
Выбрать метод представления пути перемещения («Точки» или «Цифры»)
Кликнуть по кнопке «Нарисовать местность»
Кликнуть мышкой по области рисования «pictureBox»
Посмеяться над «пьяньчугой»
Кликнуть по кнопке «Провести исследование»

Примеры работы программы:

«Пьяньчуга» попал в люк:

«Пьяньчуга» нашел выход:

Данную статью Вы можете скачать в формате doc
Скачать Пьяньчуга – Моделирование движения пьяного человека на C#

Автор: Евтеев Евгений Александрович

Email: evteev_e2003@mail.ru

Построить треугольник, описать и вписать окружность на C#

evteev — Sun, 29 Nov 2009 18:16:27 +0000

В статье мы займемся рисованием, рисовать будем треугольник, вписанную и описанную окружность. Конечно, рисовать будет программа, код которой мы сейчас напишем.
Координаты вершин треугольника будут находиться в структуре “Pt”. Для этого создадим переменные для работы со структурой и саму структуру.

Pt m1, m2, v1, v2, b1, b2;
public struct Pt
{
	double x;
	double y;
	public Pt(double a, double b)
	{
		x = a;
		y = b;
	}
	public double X
	{
		get { return x; }
		set { x = value; }
	}
	public double Y
	{
		get { return y; }
		set { y = value; }
	}
};

Далее напишем функции для вычисления длин, углов треугольника и т.д. и процедуру для вывода графики на форму.
Пишем функцию нахождения длины строны треугольника по заданным координатам. Будем использовать формулу нахождения расстояния между двумя точками.
S = ((x2 – x1) ^2+ (y2-y1) ^2) ^ (1/2), где (x1, y1) и (x2, y2) – это координаты начала и конца отрезка.

double SideLength(double x1, double y1, double x2, double y2)
{
	double a = Math.Sqrt((x2 - x1) / 10 * (x2 - x1) / 10 + (y2 - y1) / 10 * (y2 - y1) / 10);
	return a * 10;
}

Чтобы найти углы треугольника воспользуемся формулой скалярного произведения векторов
cos(ang) = a/(s1*s2), где a – скалярное произведение векторов s1 и s2,а s1 и s2 – стороны треугольника (абсолютные величины векторов).

double Angles(Pt p1, Pt p2, Pt p3)
{
	double a = (p2.X - p1.X) * (p3.X - p1.X) + (p2.Y - p1.Y) * (p3.Y - p1.Y);
	double exp = a / SideLength(p1.X, p1.Y, p2.X, p2.Y) / SideLength(p1.X, p1.Y, p3.X, p3.Y);
	return Math.Acos(exp);
}

Периметр находим как сумма длин трех сторон треугольника.

double Perimetr(double s1, double s2, double s3)
{
	return (s1 + s2 + s3);
}

Площадь треугольника находится с помощью формулы Герона:

Sqr = (p * (p - s1) * (p - s2) * (p - s3)) ^ (1 / 2), где p - полупериметр треугольника.
double Sqare(double s1, double s2, double s3)
{
	double p;
	p = (Perimetr(s1, s2, s3)) / 2;
	return Math.Sqrt((p * (p - s1) * (p - s2) * (p - s3)));
}

Теперь найдем радиусы вписанной и описанной окружности.

double radius(double S, double p)
{
	return S / p;
}

double Radius(double S, double s1, double s2, double s3)
{
	return (s1 * s2 * s3) / (4 * S);
}

И, наконец, процедура, которая будет осуществлять конечные вычисления, и рисовать окружность на форме программы.

void DescrCircle(double R, int x01, int y01, int x02, int y02, double l1, double m1, double l2, double m2)
{
	double X, Y;
	if ((l1 != 0) && ((m1 / l1) - (m2 / l2) != 0) && (l2 != 0))
	{
		X = ((m1 / l1) * x01 - y01 - (m2 / l2) * x02 + y02) / ((m1 / l1) - (m2 / l2));
		Y = (m1 * X - m1 * x01 + l1 * y01) / l1;
		System.Drawing.Graphics graph = this.CreateGraphics();
		System.Drawing.Pen color = new Pen(Color.Blue, 1);
		graph.DrawEllipse(color, (int)X, (int)Y, 1, 1); //рисуем центр окружности
		graph.DrawEllipse(color, (int)X - (float)R, (int)Y - (float)R, (float)R * 2, (float)R * 2); //рисуем окружность
	}
}

Процедура кнопки, которая будет вызывать всю процедуру рисования треугольника и окружностей.

private void button1_Click_1(object sender, EventArgs e)

Объявим нужные переменные и занесем в структуру координаты вершин треугольника из текстовых полей на форме.

double s1 ,s2 ,s3 ,S ,p ,r, R, ang1, ang2, ang3, x1, x2, y1, y2, det;
znach.Items.Clear();

Pt[] a = new Pt[3];
a[0].X = Convert.ToDouble(Ax.Text);
a[0].Y = Convert.ToDouble(Ay.Text);
a[1].X = Convert.ToDouble(Bx.Text);
a[1].Y = Convert.ToDouble(By.Text);
a[2].X = Convert.ToDouble(Cx.Text);
a[2].Y = Convert.ToDouble(Cy.Text);

Нарисуем форме три линии, которые будут составлять наш треугольник и названия вершин A, B и C.

System.Drawing.Graphics graph = this.CreateGraphics();
System.Drawing.Pen red = new Pen(Color.Red, 1);

graph.DrawLine(red, (int)a[0].X, (int)a[0].Y, (int)a[1].X, (int)a[1].Y);
graph.DrawString("A", new Font("Times New Roman", 12), new SolidBrush(Color.Black), (int)a[0].X, (int)a[0].Y);
graph.DrawLine(red, (int)a[1].X, (int)a[1].Y, (int)a[2].X, (int)a[2].Y);
graph.DrawString("B", new Font("Times New Roman", 12), new SolidBrush(Color.Black), (int)a[1].X, (int)a[1].Y);
graph.DrawLine(red, (int)a[0].X, (int)a[0].Y, (int)a[2].X, (int)a[2].Y);
graph.DrawString("C", new Font("Times New Roman", 12), new SolidBrush(Color.Black), (int)a[2].X, (int)a[2].Y);

Используя написанные функции, найдем длины сторон, полупериметр, площадь, радиусы вписанной и описанной окружности и углы треугольника.

s1 = SideLength(a[0].X, a[0].Y, a[1].X, a[1].Y);
s2 = SideLength(a[1].X, a[1].Y, a[2].X, a[2].Y);
s3 = SideLength(a[2].X, a[2].Y, a[0].X, a[0].Y);

p = (Perimetr(s1, s2, s3)) / 2;
S = Sqare(s1, s2, s3);

r = radius(S, p);
R = Radius(S, s1, s2, s3);

ang1 = Angles(a[2], a[0], a[1]);
ang2 = Angles(a[0], a[1], a[2]);
ang3 = Angles(a[1], a[2], a[0]);

Выведем на форму все эти вычисленные значения в ListBox “znach”.

znach.Items.Add("Длина AB: " + s1);
znach.Items.Add("Длина BC: " + s2);
znach.Items.Add("Длина AC: " + s3);
znach.Items.Add("Полупериметр: " + p);
znach.Items.Add("Площадь: " + S);
znach.Items.Add("Радиус вписанной о.: " + r);
znach.Items.Add("Радиус описанной о.: " + R);
znach.Items.Add("Угл CAB: " + ang1);
znach.Items.Add("Угл ABC: " + ang2);
znach.Items.Add("Угл BCA: " + ang3);

Найдем середины сторон s1 и s2.

m1.X = (a[0].X + a[1].X) / 2;
m1.Y = (a[0].Y + a[1].Y) / 2;
m2.X = (a[1].X + a[2].X) / 2;
m2.Y = (a[1].Y + a[2].Y) / 2;

Необходимо повернуть точки на угол 90 градусов.
Поворачиваем точку а[2] вокруг середины стороны:

 x1 = a[2].X; y1 = a[2].Y;
x1 -= m2.X; y1 -= m2.Y;
b1.X = x1 * Math.Cos(Math.PI / 2) - y1 * Math.Sin(Math.PI / 2);
b1.Y = x1 * Math.Sin(Math.PI / 2) + y1 * Math.Cos(Math.PI / 2);
b1.X += m2.X; b1.Y += m2.Y;
v1.X = b1.X - m2.X; v1.Y = b1.Y - m2.Y;

Поворачиваем точку а[0] вокруг середины стороны s1:

x1 = a[0].X; y1 = a[0].Y;
x1 -= m1.X; y1 -= m1.Y;
b2.X = x1 * Math.Cos(Math.PI / 2) - y1 * Math.Sin(Math.PI / 2);
b2.Y = x1 * Math.Sin(Math.PI / 2) + y1 * Math.Cos(Math.PI / 2);
b2.X += m1.X; b2.Y += m1.Y;
v2.X = b2.X - m1.X; v2.Y = b2.Y - m1.Y;

Вызовем нашу процедуру для вывода графики и построим описанную окружность с центром в точке пересечения серединных перепендикуляров.

DescrCircle(R, (int)m1.X, (int)m1.Y, (int)m2.X, (int)m2.Y, v2.X, v2.Y, v1.X, v1.Y);

int coef1 = 1, coef2 = 1; //коэффициенты,указывающие напрвление поворота
Вычисляем знак третьей координаты векторного произведения векторов, между которыми строится биссектриса.

det = (a[1].X - a[0].X) * (a[2].Y - a[0].Y) - (a[2].X - a[0].X) * (a[1].Y - a[0].Y);
if (det > 0) coef1 = -1;
	det = (a[1].X - a[2].X) * (a[0].Y - a[2].Y) - (a[0].X - a[2].X) * (a[1].Y - a[2].Y);
if (det > 0)
	coef2 = -1;

Поворачиваем точку a[2] вокруг a[0] на угол равный половине угла ang2

x1 = a[2].X; y1 = a[2].Y;
x1 -= a[0].X; y1 -= a[0].Y;
b1.X = x1 * Math.Cos(coef1 * ang2 / 2) - y1 * Math.Sin(coef1 * ang2 / 2);
b1.Y = x1 * Math.Sin(coef1 * ang2 / 2) + y1 * Math.Cos(coef1 * ang2 / 2);
b1.X += a[0].X; b1.Y += a[0].Y;
v1.X = b1.X - a[0].X; v1.Y = b1.Y - a[0].Y;

x2 = a[0].X; y2 = a[0].Y;
x2 -= a[2].X; y2 -= a[2].Y;
b2.X = x2 * Math.Cos(coef2 * ang1 / 2) - y2 * Math.Sin(coef2 * ang1 / 2);
b2.Y = x2 * Math.Sin(coef2 * ang1 / 2) + y2 * Math.Cos(coef2 * ang1 / 2);
b2.X += a[2].X; b2.Y += a[2].Y;
v2.X = b2.X - a[2].X; v2.Y = b2.Y - a[2].Y; //v1.x v1.y- координаты направляющего вектора биссектрисы

И последнее, что мы делаем это выполняем построение вписанной окружности с центром в точке пересечения биссектрисс.

DescrCircle(r, (int)a[2].X, (int)a[2].Y, (int)a[0].X, (int)a[0].Y, v2.X, v2.Y, v1.X, v1.Y);

Треугольник и две окружности построены, для решения этой задачи нам понадобились небольшие знания C# и геометрии.
Автор: Евтеев Евгений Александрович
Email: evteev_e2003@mail.ru

Найти наименьшее общее кратное, используя универсальный алгоритм

evteev — Mon, 16 Nov 2009 18:40:27 +0000

В предшествующей статье я рассказал, как найти наибольшее общее кратное двух чисел, используя алгоритм вычисления НОД. В этой статей мы с вами напишем универсальный алгоритм нахождения НОК. Этот алгоритм позволяет найти НОК не только для двух чисел, но для множества чисел.
Начнем с создания формы проекта, примерная форма показана на рисунке:

Форму создали, разместили необходимые объекты на ней. Теперь будем заниматься написанием кода программы. Числа, для которых будет производиться поиск НОК, будут вводиться через пробел. Для того, что их читать из поля “n_gr ” напишем функцию.

string[] nums(string str, int f_m)
{
	string[] numbers = new string[f_m + 1];
	f_m = 0;
	for (int i = 0; i < str.Length; i++)
	{
		if (str.Substring(i, 1) != " ")
			numbers[f_m] += str.Substring(i, 1);
		else
			f_m++;
	}

	return numbers;
}

Входные параметры “str” и “f_m” – это строка с числа и количество чисел соответственно. Создаем массив размерностью “f_m” и начинаем “выдирать” числа из строки и добавлять их в массив “numbers”. Функция возращает массив с числами из строки.

Теперь процедура события клика по кнопке “find”:

private void find_Click(object sender, EventArgs e)
{
	string s = n_gr.Text;
	int i = 0, f_m = 0;
	while (i < s.Length)
	{
		if (s.Substring(i, 1) == " ")
			f_m++;
		i++;
	}
	string[] numbers = new string[f_m + 1];
	numbers = nums(s, f_m);
	int c = 2;
	bool nok = true;
	for (; ; )
	{
		for (i = 0; i < numbers.Length; i++)
			if (numbers[i] != "")
				if (c % Convert.ToInt32(numbers[i]) == 0)
				{
					if (i == 0 || nok == true)
						nok = true;
				}
				else
					nok = false;
		if (nok == true)
		{
			n_nok2.Text = Convert.ToString(c);
			break;
		}
		if (c >= 1000000)
		{
			n_nok2.Text = "НОК для данных чисел не найден!";
			break;
		}
		c++;
	}
}

Здесь сначала вычисляется количество чисел в введенной строке, создается и заполняется массив с числами. Затем используется следующий алгоритм вычисления НОК: постоянно увеличивающееся число 2 делим на каждое из введенных чисел и НОК будет найден в том случае, когда остаток от деления на каждое число будет равен нулю. Если НОК найден или количество проходов цикла перевалило за 1000000 прекращаем работу программы, выводим соответствующий результат ее работы.

На рисунке показан пример удачного поиска НОК, универсальный алгоритм работает правильно.

Автор: Евтеев Евгений Александрович
Email: evteev_e2003@mail.ru

Найти наименьшее общее кратное (НОК), используя алгоритм НОД

evteev — Sun, 15 Nov 2009 21:18:20 +0000

Сегодня мы поговорим о наименьшем общем кратном (НОК) двух чисел и как его найти. НОК – это целое число, которое делится на два любых целых числа. Например, даны два числа 2 и 3, НОК этих чисел равен 6, т.е. число 6 делится и на 2 и на 3.
Чтобы написать данную программу на C# будем использовать ко всему прочему алгоритм Евклида нахождение НОД. Лучше всего реализовать алгоритм в рекурсивной функции.

int nod_recur(int num1, int num2)
{
	int n = num1 % num2;
	num1 = num2;
	num2 = n;
	if (n > 0)
		return nod_recur(num1, num2);
	else
		return num1;
}

Как работает эта функция, я рассказывать не буду, т.к. вы можете прочитать это в другой моей статье, посвященной этому алгоритму. Ну и собственно код процедуры события клика по кнопке “button1”:

private void button1_Click(object sender, EventArgs e)
{
	int num1 = Convert.ToInt32(n1.Text);
	int num2 = Convert.ToInt32(n2.Text);
	n_nok.Text = Convert.ToString(num1 * num2 / nod_recur(num1, num2));
}

Как вы видите из кода, здесь происходит считывание двух введенных чисел в переменные и вычисление НОК. Можно сказать, что НОК вычисляется в два действия: перемножаются два и результат от умножения делится на результат вычисления НОД этих двух чисел. Результат вычисления НОК записывается в текстовое поле “n_nok”.

Вы думали, что написать такую программу будет не так просто? Извините, что разочаровал вас. В другой статье, я расскажу вам, как вычислить НОК для двух и более чисел, так называемый универсальный алгоритм.

Автор: Евтеев Евгений Александрович
Email: evteev_e2003@mail.ru

Перевод десятичного числа в двоичное на VC++

evteev — Tue, 03 Nov 2009 22:55:54 +0000

Перевод из десятичной системы в двоичную

Как преобразовать десятичное число в двоичный вид на VC++?

Ответ на этот вопрос мы и рассмотрим в этой статье. Мы будем использовать всем известный метод, нахождения двоичного представления десятичного числа – деление числа на 2. Все эти преобразования будут находиться в процедуре “Dec2Bin(int ch)”, где “ch”- число в десятичном представлении, которое собственно мы будем декодировать в двоичное.

До всего прочего нужно сначала объявить переменную “n” как константу: “const int n = 32;” Она отвечает за размерность массива “s[n]”, в который будет помещаться двоичное представление числа.
И так, давайте рассмотрим процедуру “Dec2Bin(int ch)”, которая будет преобразовать десятичное число в двоичный вид. Что в этой процедуре мы делаем?

Наше число в 10-м виде делим на 2 с остатком и если при делении получается число с остатком, то в i-й элемент массива “s[i]” мы записываем число 1, в противном случае записываем 0. Этому числу “ch” приравниваем значение равное “ch”деленное на 2, эти действия выполняются пока число “ch” не будут равно нулю.

Дальше проверяем, если наше 10-е число отрицательное инвертируем значения массива “s[n]”, т.е. число 1 заменяем на 0 и число 0 на 1. Это правило распространяется только на отрицательные числа. Затем приводим наш массив “s[n]” в нормальный вид, инвертируя значения до тех пор, пока ни встретится значение равное 0. В конце концов, прогоняя массив по циклу “for” выводим двоичное представление числа в 10-м виде. Вот и все, теперь посмотрите, что получилось:

Процедура “Dec2Bin(int ch)” -Перевод из десятичной системы в двоичную

void Dec2Bin(int ch)
{
	int i, ch2, s[n];
	ch2 = ch;
	for (i = 0; i < n; i++)
	s[i] = 0;
	for (i = 0; ch != 0; i++)
	{
		s[i] = abs(ch) % 2; //текущему значению массива s присваиваем 1 или 0
		ch = abs(ch) / 2;
	}
	if (ch2 < 0)
	{
		for (i = n - 1; i >= 0; i--)
			if (s[i] == 1)
				s[i] = 0;
			else
				s[i] = 1;
	}
	for (i = 0; i < n; i++)
		if (s[i] == 1)
			s[i] = 0;
		else
		{
			s[i] = 1;
			break;
		}
	wcout << L"Двоичное представление :" << endl;
	for (i = n - 1; i >= 0; i--) //цикл вывода массива с введенным числом
		cout << s[i]; //представленным в двоичной системе счисления
}

Число в 2-м виде получили, но разве вам не хочется декодировать его обратно? Для начала напишем функции возведения числа в степень и получения длины массива, они нам понадобятся.

Функция “len(char str[])”:

int len(char str[])
{
	int i = 0;
	while (str[i] != 0)
		i++;
	return i-1;
}

Функция “stepen(int ch, int st)”:

int stepen(int ch, int st)
{
	int a = 1;
	for(int i = 0; i < st; i++)
		a *= ch;
	return a;
}

Функция “len(char str[])” возвращает длину массива “str[]”, а “stepen(int ch, int st)” возводит число 2 в степень “st”.

Перевод из двоичной системы в десятичную

Теперь рассмотрим функцию “Bin2Dec (char m[])”, где “m[]”- это есть массив двоичных данных, в которых спрятано число. Если первый символ в массиве равен ‘1’, т.е. наше число отрицательное, то каждый символ в массиве до первой найденной ‘1’ инвертируем и после этого снова выполняет замену всех символов массива на ‘0’, если этот символ это ‘1’ или на ‘1’ соответственно. Затем непосредственно выполняем перевод в 10-й вид, используя нашу функцию возведения в степень. Код приведен ниже:

Функция “Bin2Dec (char m[])” – Перевод из двоичной системы в десятичную

int Bin2Dec (char m[])
{
	int i, deca=0, j = 0, q = 1;
	if (m[0] == '1')
	{
		for (i = n - 1; i >= 0; i--)
			if (m[i] == '0')
				m[i] = '1';
			else
			{
				m[i] = '0';
				break;
			}
		for (i = 0; i < n; i++)
			if (m[i] == '1')
				m[i] = '0';
			else
				m[i] = '1';
		q*=-1;
	}
	for (i = n - 1; i >= 0; i--, j++)
		if(m[i] == '1')
			deca += stepen(2,j);
	return deca*q;
}

Ну и, наконец, главная функция, с которой начинается работа нашего приложения. Здесь происходит ввод данных и вывод результата работы программы на экран пользователя.

Главный метод:

[/cpp]int main()
{
	wcout.imbue(locale("rus_rus.866"));
	int ch;
	char c[n];
	wcout << L"Введите число (десятичное):" << endl; //вывод сообщения на экран
	cin >> ch; //ввод значения с клавиатуры
	Dec2Bin(ch);
	/*------------------------------------------------------------------------*/
	wcout << L"\n\nВведите число (двоичное):" << endl; //вывод сообщения на экран
	cin>>c; //ввод значения с клавиатуры
	wcout << L"Десятичное представление :" << endl << Bin2Dec(c) << endl; //выводим на экран число в 10-й системе счисления
	system("pause");
	return 1;
}[cpp]

Используя данное приложение, вы с легкостью сможете переводить числа из десятичной системы счисления в двоичный вид и, наоборот, из двоичной системы счисления в десятичный вид. Желаю вам удачи!

Автор: Евтеев Евгений Александрович
Email: evteev_e2003@mail.ru

Копирование музыки у друзей в SocialEngine Excalibur (Часть 2)

evteev — Sun, 13 Sep 2009 15:30:58 +0000

Продолжаем говорить о моде “Копирование музыки у друзей”. В предыдущей статье я рассказал, как сделать эту возможность, но недавно обнаружена недоработка в этом моде, при удалении музыки владельцем удалялась она и у всех скопировавших эту музыку.

Сейчас я расскажу, как сделать, чтобы при удалении музыки владельцем права и сама музыка копировались одному из его друзей, которые скопировали его музыку.

Здесь все просто, необходимо произвести изменения всего в одном файле.

Открыть: class_music.php

Подсказка: Данный файл находится в папке include.

Найти

music_delete($music_id)

Заменить

Подсказка: Полностью заменить функцию music_delete() начиная с function music_delete($music_id) и заканчивая return TRUE; }

function music_delete($music_id)
{
	global $database, $url, $user, $admin;
	if( $this->user_id )
	{
		$music = $database->database_fetch_assoc($database->database_query("SELECT * FROM se_music WHERE music_user_id='{$this->user_id}' && music_id='{$music_id}'"));
	}

	elseif( $admin && $admin->admin_exists )
	{
		$music = $database->database_fetch_assoc($database->database_query("SELECT * FROM se_music WHERE music_id='{$music_id}'"));
	}

	if( empty($music) )
		return FALSE;

	$music_tb = $database->database_fetch_assoc($database->database_query("SELECT owner_user_id FROM se_music WHERE music_id='{$music_id}' LIMIT 1"));
	$owner_user_id = $music_tb[owner_user_id];

	if( strlen($owner_user_id) > 0 )
	{
		if(strrchr($owner_user_id, ','))
		{
			$owner_user_id_text = explode(',', $owner_user_id);
			$owner_user_id_db = "";
			$new_user_music = "";
			foreach($owner_user_id_text as $owner_user_id)
			{
				if($new_user_music == "")
					$new_user_music = $owner_user_id;

				if($owner_user_id != $new_user_music)
					$owner_user_id_db = $owner_user_id_db . "" . $owner_user_id . ",";
			}
			$owner_user_id_db = trim(substr_replace($owner_user_id_db, "", strlen($owner_user_id_db) - 1));
		}
		else
		{
			$new_user_music = $owner_user_id;
			$owner_user_id_db = '';
		}
		$userdir_old = $url->url_userdir($music['music_user_id']);
		$music_file_old = "{$userdir_old}{$music['music_id']}.{$music['music_ext']}";
		$userdir_new = $url->url_userdir($new_user_music);
		$music_file_new = "{$userdir_new}{$music['music_id']}.{$music['music_ext']}";

		if( file_exists($music_file_old) )
		{
			copy($music_file_old, $music_file_new);
			unlink($music_file_old);
		}
		$database->database_query("UPDATE `se_music` SET `music_user_id` = '{$new_user_music}', `owner_user_id` = '{$owner_user_id_db}' WHERE `music_id` = '{$music_id}' LIMIT 1");
	}
	else
	{
		$userdir = $url->url_userdir($music['music_user_id']);
		$music_file = "{$userdir}{$music['music_id']}.{$music['music_ext']}";
		$database->database_query("DELETE FROM se_music WHERE music_id='{$music_id}' LIMIT 1");
		if( file_exists($music_file) )
			unlink($music_file);
	}
	return TRUE;
}

Данную статью Вы также можете скачать в формате doc:
скачать

Автор: Евтеев Евгений Александрович

Email: evteev_e2003@mail.ru

Плагин музыка – копирование музыки у друзей в SocialEngine Excalibur

evteev — Sun, 30 Aug 2009 04:37:40 +0000

В этой статье поговорим о плагине “Музыка”, а именно о копировании музыки у друзей. А что тут говорить, такой возможности в плагине “Музыка” нет, так вот я покажу, как в несколько шагов реализовать такую возможность.

Сначала необходимо добавить еще одно поле в таблицу «se_music», где хранятся записи о добавленным песнях. Выполним sql-запрос:

ALTER TABLE `se_music` ADD `owner_user_id` text AFTER `music_user_id`

Для работы функции «is_already_music()», которая возвращает логическую ложь в том случае, если у участника нет данной песни в его коллекции, пропишем ее в класс «user».

Открыть: class_user.php
Подсказка: Данный файл находится в папке include.
Найти
Подсказка: Возможно, здесь приведена не вся строка, а лишь ее часть. Данная часть кода находится внутри функции user_message_view ().
```
return array
(

'collaborators' => &$collaborators,

'pms'           => &$pms

);

}
```
Добавить после

Подсказка: Добавьте эти строки на новой строке после ранее найденных строк.
```
function is_already_music($music_id)

{

global $database;

$music_tb = $database->database_fetch_assoc($database->database_query("SELECT owner_user_id FROM se_music WHERE music_id='{$music_id}' LIMIT 1"));

$owner_user_id = $music_tb[owner_user_id];

if(substr_count($owner_user_id, $this->user_info['user_id']) == 0)

return 0;

else

return 1;

return 1;

}
```
Далее уже будем работать с файлами, отвечающими за вывод и добавление музыки.
Открыть: class_music.php
Найти
Подсказка: Возможно, здесь приведена не вся строка, а лишь ее часть. Данная часть кода находится внутри функции music_list ().
```
if( $this->user_id ) $sql .= "

WHERE

se_music.music_user_id='{$this->user_id}'

";
```
Заменить

Подсказка: Произведите замену ранее найденных строк.
```
if( $this->user_id ) $sql .= "

WHERE

se_music.music_user_id='{$this->user_id}' OR FIND_IN_SET('{$this->user_id}', owner_user_id)";
```

Открыть: browse_music.php
Найти
Подсказка: Возможно, здесь приведена не вся строка, а лишь ее часть.

$music_object = new se_music();

Добавить

Подсказка: Добавьте эти строки на новой строке перед ранее найденными строками.

$music_id = $_GET['music_id'];

if( $_GET['task'] == "copy" && $music_id > 0)

{

ob_end_clean();

$music_tb = $database->database_fetch_assoc($database->database_query("SELECT owner_user_id FROM se_music WHERE music_id='{$music_id}' LIMIT 1"));

$owner_user_id = trim($music_tb[owner_user_id]);

if(strrchr($owner_user_id, ','))

{

$owner_user_id_text = explode(',', $owner_user_id);

$owner_user_id_update = "";

foreach($owner_user_id_text as $owner_user_id)

{

if($owner_user_id != $user->user_info['user_id'])

$owner_user_id_update = $owner_user_id_update . "" . $owner_user_id . ",";

}

$owner_user_id_update = $owner_user_id_update . "" . $user->user_info['user_id'];

}

else

{

if($owner_user_id == $user->user_info['user_id'] || strlen($owner_user_id) == 0)

$owner_user_id_update = $user->user_info['user_id'];

if( strlen($owner_user_id) > 0 )

$owner_user_id_update = $owner_user_id . "," . $user->user_info['user_id'];

}

$database->database_query("UPDATE `se_music` SET `owner_user_id` = '{$owner_user_id_update}' WHERE `music_id` = '{$music_id}' LIMIT 1");

}

Открыть: user_music.php
Найти
Подсказка: Возможно, здесь приведена не вся строка, а лишь ее часть.

$musiclist = $music->music_list();

Добавить

Подсказка: Добавьте эти строки на новой строке перед ранее найденными строками.

if( $task == "removesong" && $music_id > 0)

{

ob_end_clean();

$music_tb = $database->database_fetch_assoc($database->database_query("SELECT owner_user_id FROM se_music WHERE music_id='{$music_id}' LIMIT 1"));

$owner_user_id = $music_tb[owner_user_id];

if(strrchr($owner_user_id, ','))

{

$owner_user_id_text = explode(',', $owner_user_id);

$owner_user_id_db = "";

foreach($owner_user_id_text as $owner_user_id)

{

if($owner_user_id != $user->user_info['user_id'])

$owner_user_id_db = $owner_user_id_db . "" . $owner_user_id . ",";

}

$owner_user_id_db = trim(substr_replace($owner_user_id_db, "", strlen($owner_user_id_db) - 1));

}

else

{

if($owner_user_id == $user->user_info['user_id'])

$owner_user_id_text = '';

}

$database->database_query("UPDATE `se_music` SET `owner_user_id` = '{$owner_user_id_db}' WHERE `music_id` = '{$music_id}' LIMIT 1");

}

Открыть: music_ajax.php
Найти
Подсказка: Возможно, здесь приведена не вся строка, а лишь ее часть.
```
$user_dir = $url->url_userdir($user_id);
```
Удалить
Подсказка: Удалите ранее найденные строки.Найти
Подсказка: Возможно, здесь приведена не вся строка, а лишь ее часть.
```
{$user_dir}
```
Заменить
Подсказка: Произведите замену ранее найденных строк.
```
{$url->url_userdir($song[music_user_id])}
```

Открыть: user_music.tpl
Найти
Подсказка: Возможно, здесь приведена не вся строка, а лишь ее часть.

{assign var='media_dir' value=$url->url_userdir($user->user_info.user_id)}

{section name=music_loop loop=$musiclist}

Заменить

Подсказка: Произведите замену ранее найденных строк.

{section loop=$musiclist}

{assign var='media_dir' value=$url->url_userdir($musiclist[music_loop].music_user_id)}

Найти

Подсказка: Возможно, здесь приведена не вся строка, а лишь ее часть.

<input type='checkbox' name='delete_music_{$musiclist[music_loop].music_id}' value='1' />

Заменить

Подсказка: Произведите замену ранее найденных строк.

{if $musiclist[music_loop].music_user_id == $user->user_info.user_id}<input type='checkbox' name='delete_music_{$musiclist[music_loop].music_id}' value='1' />{/if}

Найти

Подсказка: Возможно, здесь приведена не вся строка, а лишь ее часть.

<span class="seMusicTitleEdit">&nbsp;(<a href="javascript:void(0);">{lang_print id=187}</a>)</span>

Заменить

Подсказка: Произведите замену ранее найденных строк.

{if $musiclist[music_loop].music_user_id == $user->user_info.user_id}<span class="seMusicTitleEdit">&nbsp;(<a href="javascript:void(0);">{lang_print id=187}</a>)</span>{/if}

Найти

Подсказка: Возможно, здесь приведена не вся строка, а лишь ее часть.

<span class="seMusicDelete"><a href="javascript:void(0);" onclick="SocialEngine.Music.deleteMusic({$musiclist[music_loop].music_id});">{lang_print id=155}</a>&nbsp;</span>

Заменить

Подсказка: Произведите замену ранее найденных строк.

{if $musiclist[music_loop].music_user_id == $user->user_info.user_id}

<span class="seMusicDelete"><a href="javascript:void(0);" onclick="SocialEngine.Music.deleteMusic({$musiclist[music_loop].music_id});">{lang_print id=155}</a>&nbsp;</span>

{else}

<span class="seMusicDelete"><a href=" user_music.php?task=removesong&music_id={$musiclist[music_loop].music_id}">{lang_print id=155}</a>&nbsp;</span>

{/if}

Открыть: user_music.tpl
Найти
Подсказка: Возможно, здесь приведена не вся строка, а лишь ее часть.

{assign var='media_dir' value=$url->url_userdir($user->user_info.user_id)}

{section name=music_loop loop=$musiclist}

Заменить

Подсказка: Произведите замену ранее найденных строк.

{section loop=$musiclist}

{assign var='media_dir' value=$url->url_userdir($musiclist[music_loop].music_user_id)}

Найти

Подсказка: Возможно, здесь приведена не вся строка, а лишь ее часть.

<input type='checkbox' name='delete_music_{$musiclist[music_loop].music_id}' value='1' />

Заменить

Подсказка: Произведите замену ранее найденных строк.

{if $musiclist[music_loop].music_user_id == $user->user_info.user_id}<input type='checkbox' name='delete_music_{$musiclist[music_loop].music_id}' value='1' />{/if}

Найти

Подсказка: Возможно, здесь приведена не вся строка, а лишь ее часть.

<span class="seMusicTitleEdit">&nbsp;(<a href="javascript:void(0);">{lang_print id=187}</a>)</span>

Заменить

Подсказка: Произведите замену ранее найденных строк.

{if $musiclist[music_loop].music_user_id == $user->user_info.user_id}<span class="seMusicTitleEdit">&nbsp;(<a href="javascript:void(0);">{lang_print id=187}</a>)</span>{/if}

Найти

Подсказка: Возможно, здесь приведена не вся строка, а лишь ее часть.

<span class="seMusicDelete"><a href="javascript:void(0);" onclick="SocialEngine.Music.deleteMusic({$musiclist[music_loop].music_id});">{lang_print id=155}</a>&nbsp;</span>

Заменить

Подсказка: Произведите замену ранее найденных строк.

{if $musiclist[music_loop].music_user_id == $user->user_info.user_id}

<span class="seMusicDelete"><a href="javascript:void(0);" onclick="SocialEngine.Music.deleteMusic({$musiclist[music_loop].music_id});">{lang_print id=155}</a>&nbsp;</span>

{else}

<span class="seMusicDelete"><a href=" user_music.php?task=removesong&music_id={$musiclist[music_loop].music_id}">{lang_print id=155}</a>&nbsp;</span>

{/if}

Готово! Теперь на странице «browse_music.php» напротив музыки будет показана ссылка «Копировать» в том случае, если ее нет у участника. На странице «user_music.php» можно будет удалить музыку, которую скопировали от друзей.

Если удобнее читать данную статью в программе Word, можно скачать по ссылке Плагин музыка – копирование музыки у друзей в SocialEngine Excalibur

Автор: Евтеев Евгений Александрович
Email: evteev_e2003@mail.ru

Вывод новых групп на главной странице (home.php) в SocialEngine

evteev — Sat, 22 Aug 2009 18:58:08 +0000

В плагине Группы как оказалось нет поддержки вывода последних созданных групп на главной на странице home.php, при нажатии на вкладку Группы система думает, а думает о том, зачем Вы на меня кликнули, если меня НЕТ!!!

Чтобы при нажатии на эту вкладку отображались группы сначала скачиваем архив ajax_get_recentgroup.rar

Разархивируем все файлы как они находятся в архиве в каталог с установленным SocialEngine, т.е. файл ajax_get_recentgroup.php в главную папку, а ajax_get_recentgroup.tpl в каталог templates (ваш шаблон).

Все, если у Вас в файле home.tpl есть код, отвечающий за отображение вкладки «Группы» и групп, по нажатию на эту вкладку будут появляться новые группы.

Убираем знак вопроса в ромбе в блоге в SocialEngine

evteev — Fri, 21 Aug 2009 17:49:50 +0000

Слово блог в заголовке при просмотре какой-то записи в блоге отображается некорректно, вместо буквы Б отображается знак вопроса в ромбе.
Что надо делать и как исправить данный баг?

А ошибка всего лишь в одном символе, которого нет в файле языка.
В файле языка была запись:

1500125:=%1$ Блог - %2$s

Посмотрите на

%1$

, видим, что здесь нет символа

.
Исправляем и у нас получается:

1500125:=%1$s Блог - %2$s

Мне понадобилось это изменить в базе данных, нашел данную запись по запросу

SELECT * FROM `se_languagevars` WHERE `languagevar_id` = 1500125

Находите и исправляете на правильную запись:

%1$s Блог - %2$s

Все! Любуемся красотой Вашего блога!

Добавление фотографии к участникам в блоке ‘Сейчас на сайте’ в SocialEngine Excalibur

evteev — Fri, 21 Aug 2009 17:11:32 +0000

В движке SocialEngine в блоке ‘Сейчас на сайте’ отображаются имя и фамилия участников, которые в данный момент находятся на сайте. Отображение только этих данных как-то ухудшают видимость этого блока, с помощью внедрения в код нескольких строчек и в этом блоке будет отображаться и фотография участника наряду с именем и фамилией.

Что для этого нужно сделать?

Открыть: functions_general.php
Подсказка: Данный файл находится в папке include.

Найти

Подсказка: Возможно, здесь приведена не вся строка, а лишь ее часть. Данная строка находится внутри функции online_users().

$online_user->user_info['user_displayname'] = $online_user_info['user_displayname'];

Добавить после

Подсказка: Добавьте эти строки на новой строке после ранее найденных строк.

$view_user_photo = $database->database_query("SELECT user_id, user_photo FROM se_users WHERE user_id='" . $online_user_info['user_id'] . "' LIMIT 1");
$views_user_photo = $database->database_fetch_assoc($view_user_photo);
$online_user->user_info['user_photo'] = $views_user_photo['user_photo'];
Открыть: user_home.tpl
Найти

{$online_users[0][online_loop]->user_displayname}

Заменить

Подсказка: Произведите замену ранее найденных строк.

user_photo("./images/nophoto.gif")}' border='0'> {$online_users[0][online_loop]->user_displayname}

Автор: Евтеев Евгений Александрович

Email: evteev_e2003@mail.ru

Улучшенный поиск по группам в SocialEngine Excalibur

evteev — Sat, 15 Aug 2009 14:54:44 +0000

В этой статье я расскажу, как сделать поиск по группам с такими параметрами как точный и приблизительный поиск с поиском по названию, описанию и лидеру группы. Сделать это очень просто: несколько строчек кода на php, пару sql-запросов и несколько полей в html.

Выполним пару действий шаг за шагом:

Открыть: browse_groups.php
Найти
Подсказка: Возможно, здесь приведена не вся строка, а лишь ее часть.

		else
		{
			$where .= " AND se_groups.group_groupcat_id='{$groupcat['groupcat_id']}'";
			$groupsubcat = $groupcat;
			$groupcat = $database->database_fetch_assoc($database->database_query("SELECT groupcat_id, groupcat_title FROM se_groupcats WHERE groupcat_id='{$groupcat['groupcat_dependency']}' LIMIT 1"));
		}
	}
}

Добавить после

Подсказка: Добавьте эти строки на новой строке после ранее найденных строк.

//GROUPS SEARCH
if(isset($_POST['submit']) && $_POST['field_search'] != '')
{
	if($_POST['type_search2'] == 0)
		$search_f = "group_title";
	elseif($_POST['type_search2'] == 1)
		$search_f = "group_desc";
	else
	{
		$user_tb = $database->database_fetch_assoc($database->database_query("SELECT user_id FROM se_users WHERE user_fname LIKE '%" . $_POST['field_search'] . "%' LIMIT 1"));
		$_POST['field_search'] = $user_tb[user_id];
		$search_f = "group_user_id";
	}

	if($_POST['type_search'] == 1)
		$search_f2 = "= '" . $_POST['field_search'] . "'";
	else
		$search_f2 = "LIKE '%" . $_POST['field_search'] . "%'";

	$where .= " AND se_groups.{$search_f} {$search_f2}";
}

//END GROUPS SEARCH

Открыть: browse_groups.tplНайти


{lang_print}

Добавить после

Подсказка: Добавьте эти строки на новой строке после ранее найденных строк.



Поиск групп:

Точный поиск


Приблизительный


По названию


По описанию


По лидеру

После выполнения этих простых действий на странице обзора групп появятся новые поля для лучшего поиска групп по различным критериям.

Автор: Евтеев Евгений Александрович

Email: evteev_e2003@mail.ru

Добавление полей страна, регион и город в расширенный поиск в SocialEngine Excalibur

evteev — Sat, 15 Aug 2009 09:56:37 +0000

В прошлой статье я рассказал Вам о решении проблемы с добавлением полей страна, регион и город в профиль в движок SocialEngine Excalibur, сегодня мы добавим эти поля в расширенный поиск – это тоже немало важный апгрейд. Написание этой статьи меня подтолкнул вопрос, зачем нужны поля страна, регион и город в профиле участника, если нет возможности найти участников, используя данные поля?

Для добавления данных полей необходимо выполнить пару шагов:

Открыть: search_advanced.php
Найти
Подсказка: Возможно, здесь приведена не вся строка, а лишь ее часть.

$search_query = "SELECT se_users.user_id, se_users.user_username, se_users.user_fname, se_users.user_lname, se_users.user_photo FROM se_profilevalues LEFT JOIN se_users ON se_profilevalues.profilevalue_user_id=se_users.user_id LEFT JOIN se_levels ON se_levels.level_id=se_users.user_level_id WHERE se_users.user_profilecat_id='{$cat_selected}' AND se_users.user_verified='1' AND se_users.user_enabled='1' AND (se_users.user_search='1' OR se_levels.level_profile_search='0')"; if($user_online == 1) { $search_query .= " AND user_lastactive>'".(time()-10*60)."' AND user_invisible=0"; } if($user_withphoto == 1) { $search_query .= " AND user_photo <> ''"; } if($field->field_query != "") { $search_query .= " AND ".$field->field_query; }

Заменить
Подсказка: Произведите замену ранее найденных строк.

$search_query = "SELECT se_users.user_id, se_users.user_username, se_users.user_fname, se_users.user_lname, se_users.user_photo FROM se_profilevalues LEFT JOIN se_users ON se_profilevalues.profilevalue_user_id=se_users.user_id LEFT JOIN se_levels ON se_levels.level_id=se_users.user_level_id LEFT JOIN cites_profilevalues ON se_profilevalues.profilevalue_user_id=cites_profilevalues.profilevalue_id WHERE se_users.user_profilecat_id='{$cat_selected}' AND se_users.user_verified='1' AND se_users.user_enabled='1' AND (se_users.user_search='1' OR se_levels.level_profile_search='0')"; if($user_online == 1) { $search_query .= " AND user_lastactive>'".(time()-10*60)."' AND user_invisible=0"; } if($user_withphoto == 1) { $search_query .= " AND user_photo <> ''"; } if($field->field_query != "") { $search_query .= " AND se_profilevalues.".$field->field_query; } if(isset($_POST['dhtmlgoodies_country']) && $_POST['dhtmlgoodies_country'] > 0) $search_query .= " AND cites_profilevalues.profilevalue_7 = '" . $_POST['dhtmlgoodies_country'] . "'"; if(isset($_POST['dhtmlgoodies_region']) && $_POST['dhtmlgoodies_region'] > 0) $search_query .= " AND cites_profilevalues.profilevalue_8 = '" . $_POST['dhtmlgoodies_region'] . "'"; if(isset($_POST['dhtmlgoodies_city']) && $_POST['dhtmlgoodies_city'] > 0) $search_query .= " AND cites_profilevalues.profilevalue_9 = '" . $_POST['dhtmlgoodies_city'] . "'";

Найти
Подсказка: Возможно, здесь приведена не вся строка, а лишь ее часть.

// SET GLOBAL PAGE TITLE $global_page_title[0] = 926; $global_page_description[0] = 1088; }

Добавить после
Подсказка: Добавьте эти строки на новой строке после ранее найденных строк.

// GET COUNTRY, REGION AND CITY $sql = $database->database_query ("SELECT * FROM country"); while ($country_bd = $database->database_fetch_assoc ($sql)) { if(isset($_POST['dhtmlgoodies_country']) && $country_bd[country_id] == $_POST['dhtmlgoodies_country']) $country_sel = " SELECTED"; else $country_sel = "";

$country .= «\n»;
}

if(isset($_POST['dhtmlgoodies_region']))
{
$region_tb = $database->database_fetch_assoc($database->database_query(«SELECT region_id, name FROM region WHERE region_id=’».$_POST['dhtmlgoodies_region'].»‘ LIMIT 1″));
if(strlen($region_tb[name]) > 1)
$region .= «\n»;
}

if(isset($_POST['dhtmlgoodies_city']))
{
$city_tb = $database->database_fetch_assoc($database->database_query(«SELECT city_id, name FROM city WHERE city_id=’».$_POST['dhtmlgoodies_city'].»‘ LIMIT 1″));
if(strlen($city_tb[name]) > 1)
$city .= «\n»;
}
$smarty->assign(‘country’, $country);
$smarty->assign(‘region’, $region);
$smarty->assign(‘city’, $city);
// END GET COUNTRY, REGION AND CITY
Открыть: search_advanced.tpl
Найти

{/section} {/section} {/section}

Добавить после
Подсказка: Добавьте эти строки на новой строке после ранее найденных строк.

Страна проживания

Регион проживания

Город проживания

Все! Найти участников теперь можно по стране, региону и городу проживания.

Вы ожидали больше шагов? Извините, что все так просто. Если у Вас возникнут вопросы, пишите мне на мыло, разберемся.

Автор: Евтеев Евгений Александрович

Email: evteev_e2003@mail.ru

Добавление полей страна, регион и город в SocialEngine Excalibur

evteev — Wed, 12 Aug 2009 10:50:32 +0000

SocialEngine Excalibur

Мне и моему другу захотелось создать свою социальную сеть, перебрали множество движков и остановились на SocialEngine Excalibur 3.15. По нашему мнению, SocialEngine Excalibur – это отличный движок для создания своей социальной сети, множество настроек, плагинов, но самое главное – серьезно мощный и простой в понимании код скриптов. Если имеются знания в таких языках как html, php и JavaScript, можно с легкостью переписать код скриптов SocialEngine Excalibur под свои нужды.

У нас возникла проблема, когда необходимо было добавить новые поля в профиль участника: страну, регион и город. В скрипте SocialEngine Excalibur, который имеется у нас, была база с этими данными, в файлах присутствовал код, ответственен за работу с данными полями. Но возник вопрос, почему при редактировании профиля не было этих полей?

Сначала искали ответ на этот вопрос на форуме SocialEngine Excalibur, даже создали свою тему, но ответа так и не получили. Я решил, что ответ мы не получим и если получим, то не скоро. Было принято решение сделать все своими руками, применив знания программирования.

SocialEngine Excalibur

Для того чтобы поля «Страна», «Регион» и «Город» появились в SocialEngine Excalibur в разделе «Редактировать профиль» необходимо:

Импортировать данные из файла cities.sql в Вашу базу данных, выполнив запрос SQL или импорт файла целиком в phpmyadmin.
Открыть: user_editprofile.tpl
Найти
Подсказка: Возможно, здесь приведена не вся строка, а лишь ее часть.

{lang_print id=$fields[field_loop].field_desc}

{capture assign=’current_subnet’}{lang_print id=$user->subnet_info.subnet_name}{/capture}

{if $fields[field_loop].field_id == $setting.setting_subnet_field1_id || $fields[field_loop].field_id == $setting.setting_subnet_field2_id}{lang_sprintf id=766 1=$current_subnet}{/if}

{capture assign=’field_error’}{lang_print id=$fields[field_loop].field_error}{/capture}

{if $field_error != «»}
{$field_error}
{/if}

{/section}

Добавить после

Подсказка: Добавьте эти строки на новой строке после ранее найденных строк.

{if $cat_id == 3}

Страна

Страна, в которой Вы в текущий момент проживаете.

Регион

Регион, в котором Вы в текущий момент проживаете.

Город

Город, в котором Вы в текущий момент проживаете.

{/if}

Условие {if $cat_id == 3} отвечает за отображение полей только в подкатегории «Персональная информация», это нужно если Вы собираетесь создавать дополнительные подкатегории, как, например, у нас создана {$country}, {$region} и {$city} – данные, которые формируются php-скриптом в файле user_editprofile.php
Открыть: header_global.tpl
Найти

var countryCode = sel.options[sel.selectedIndex].value;

Заменить

Подсказка: Произведите замену ранее найденных строк.

var countryCode = sel;

Найти

var regionCode = sel.options[sel.selectedIndex].value;

Заменить

Подсказка: Произведите замену ранее найденных строк.

var regionCode = sel;

Открыть: user_editprofile.php

Найти

if(isset($_POST['dhtmlgoodies_country'])) {

$country=$_POST['dhtmlgoodies_country'];

$sql = «SELECT profilevalue_7 FROM cites_profilevalues WHERE profilevalue_id=$id_ex LIMIT 1″;

if(!$database->database_query($sql))

{

$query=»INSERT INTO ‘cites_profilevalues’ (‘profilevalue_id’, ‘profilevalue_7′) VALUES ($id_ex,’$country’)»;

$database->database_query($query);

}

else

{

$query=»UPDATE ‘cites_profilevalues’ SET ‘profilevalue_7′ = ‘$country’ WHERE ‘cites_profilevalues’.'profilevalue_id’ = $id_ex»;

$database->database_query($query);

}

}

if(isset($_POST['dhtmlgoodies_region'])) {

$region=$_POST['dhtmlgoodies_region'];

$sql = «SELECT profilevalue_8 FROM cites_profilevalues WHERE profilevalue_id=$id_ex LIMIT 1″;

if(!$database->database_query($sql))

{

$query=»INSERT INTO ‘cites_profilevalues’ (‘profilevalue_id’, ‘profilevalue_8′) VALUES ($id_ex,’$region’)»;

$database->database_query($query);

}

else

{

$query=»UPDATE ‘cites_profilevalues’ SET ‘profilevalue_8′ = ‘$region’ WHERE ‘cites_profilevalues’.'profilevalue_id’ = $id_ex»;

$database->database_query($query);

}

}

if(isset($_POST['dhtmlgoodies_city'])) {

$city=$_POST['dhtmlgoodies_city'];

$sql = «SELECT profilevalue_9 FROM cites_profilevalues WHERE profilevalue_id=$id_ex LIMIT 1″;

if(!$database->database_query($sql))

{

$query=»INSERT INTO ‘cites_profilevalues’ (‘profilevalue_id’, ‘profilevalue_9′) VALUES ($id_ex,’$city’)»;

$database->database_query($query);

}

else

{

$query=»UPDATE ‘cites_profilevalues’ SET ‘profilevalue_9′ = ‘$city’ WHERE ‘cites_profilevalues’.'profilevalue_id’ = $id_ex»;

$database->database_query($query);

}

}

Заменить

Подсказка: Произведите замену ранее найденных строк.

if(isset($_POST['dhtmlgoodies_country']))

{

$country=$_POST['dhtmlgoodies_country'];

$country_tb = $database->database_fetch_assoc($database->database_query(«SELECT profilevalue_id FROM cites_profilevalues WHERE profilevalue_id=’».$user->user_info['user_id'].»‘ LIMIT 1″));

$country_id = $country_tb[profilevalue_id];

if($country_id <= 0)

{

$query=»INSERT INTO ‘cites_profilevalues’ (‘profilevalue_id’, ‘profilevalue_7′) VALUES ($id_ex,’$country’)»;

$database->database_query($query);

}

else

{

$query=»UPDATE ‘cites_profilevalues’ SET ‘profilevalue_7′ = ‘$country’ WHERE ‘cites_profilevalues’.'profilevalue_id’ = ‘».$user->user_info['user_id'].»‘»;

$database->database_query($query);

}

}

if(isset($_POST['dhtmlgoodies_region']))

{

$region=$_POST['dhtmlgoodies_region'];

$region_tb = $database->database_fetch_assoc($database->database_query(«SELECT profilevalue_id FROM cites_profilevalues WHERE profilevalue_id=’».$user->user_info['user_id'].»‘ LIMIT 1″));

$region_id = $region_tb[profilevalue_id];

//$sql = «SELECT profilevalue_8 FROM cites_profilevalues WHERE profilevalue_id=$id_ex LIMIT 1″;

if($region_id <= 0)

{

$query=»INSERT INTO ‘cites_profilevalues’ (‘profilevalue_id’, ‘profilevalue_8′) VALUES ($id_ex,’$region’)»;

$database->database_query($query);

}

else

{

$query=»UPDATE ‘cites_profilevalues’ SET ‘profilevalue_8′ = ‘$region’ WHERE ‘cites_profilevalues’.'profilevalue_id’ = ‘».$user->user_info['user_id'].»‘»;

$database->database_query($query);

}

}

if(isset($_POST['dhtmlgoodies_city']))

{

$city=$_POST['dhtmlgoodies_city'];

$city_tb = $database->database_fetch_assoc($database->database_query(«SELECT profilevalue_id FROM cites_profilevalues WHERE profilevalue_id=’».$user->user_info['user_id'].»‘ LIMIT 1″));

$city_id = $city_tb[profilevalue_id];

//$sql = «SELECT profilevalue_9 FROM cites_profilevalues WHERE profilevalue_id=’».$user->user_info['user_id'].»‘ LIMIT 1″;

if($city_id <= 0)

{

$query=»INSERT INTO ‘cites_profilevalues’ (‘profilevalue_id’, ‘profilevalue_9′) VALUES ($id_ex,’$city’)»;

$database->database_query($query);

}

else

{

$query=»UPDATE ‘cites_profilevalues’ SET ‘profilevalue_9′ = ‘$city’ WHERE ‘cites_profilevalues’.'profilevalue_id’ = ‘».$user->user_info['user_id'].»‘»;

$database->database_query($query);

}

}

Найти

$sql = $database->database_query ("SELECT * FROM country");

$countries = array ();

while ($country = $database->database_fetch_assoc ($sql))

{

$countries[] = $country;

}

$smarty->assign(‘countries’, $countries);

Заменить

Подсказка: Произведите замену ранее найденных строк.

$country_tb = $database->database_fetch_assoc($database->database_query("SELECT profilevalue_7 FROM cites_profilevalues WHERE profilevalue_id='".$user->user_info['user_id']."' LIMIT 1"));

$country_id = $country_tb[profilevalue_7];

$sql = $database->database_query («SELECT * FROM country»);

while ($country_bd = $database->database_fetch_assoc ($sql))

{

if($country_id == $country_bd[country_id])

$country_sel = » SELECTED»;

else

$country_sel = «»;

$country .= «\n»;

}

$region_tb = $database->database_fetch_assoc($database->database_query(«SELECT profilevalue_8 FROM cites_profilevalues WHERE profilevalue_id=’».$user->user_info['user_id'].»‘ LIMIT 1″));

$region_id = $region_tb[profilevalue_8];

if($region_id > 0)

{

$region_tb = $database->database_fetch_assoc($database->database_query(«SELECT region_id, name FROM region WHERE region_id=’».$region_id.»‘ LIMIT 1″));

$region .= «\n»;

}

else

{

$sql = $database->database_query («SELECT * FROM region»);

while ($region_bd = $database->database_fetch_assoc ($sql))

{

if($region_id == $region_bd[region_id])

$region_sel = » SELECTED»;

else

$region_sel = «»;

$region .= «\n»;

}

}

$city_tb = $database->database_fetch_assoc($database->database_query(«SELECT profilevalue_9 FROM cites_profilevalues WHERE profilevalue_id=’».$user->user_info['user_id'].»‘ LIMIT 1″));

$city_id = $city_tb[profilevalue_9];

if($city_id > 0)

{

$city_tb = $database->database_fetch_assoc($database->database_query(«SELECT city_id, name FROM city WHERE city_id=’».$city_id.»‘ LIMIT 1″));

$city .= «\n»;

}

else

{

$sql = $database->database_query («SELECT * FROM city ORDER BY name ASC«);

while ($city_bd = $database->database_fetch_assoc ($sql))

{

if($city_id == $city_bd[city_id])

$city_sel = » SELECTED»;

else

$city_sel = «»;

$city .= «\n»;

}

}

$smarty->assign(‘country’, $country);

$smarty->assign(‘region’, $region);

$smarty->assign(‘city’, $city);

Если Вы выполнили все действия правильно, то теперь участники Вашей социальной сети SocialEngine Excalibur могут указать в профиле страну, регион и город проживания.

Также данную статью можно скачать в формате doc.

Автор: Евтеев Евгений Александрович

Email: evteev_e2003@mail.ru

Реализовать алгоритм сжатия данных RLE

evteev — Mon, 01 Jun 2009 21:35:52 +0000

Перед написанием программы разберемся, в чем суть алгоритма RLE? Суть алгоритма состоит в том, что последовательность из n одинаковых символов k заменяется парой символов nk. Например, нужно закодировать строку “aaaaarooow”, после кодирования по алгоритму RLE получаем сжатую строку вида “5ar3ow”. Кодированная строка на 4 символа меньше, соответственно эффективность алгоритма доказана. Теперь можно приступить к реализации данного алгоритма в виде программного кода на C#.

Текст, который нужно будет кодировать, получим из текстового поля “text_input” и запишем в строковую переменную “str1”. Далее будем пробегать по каждому символу в этой строке, получать текущий символ в строковую переменную “ch”. В том случае, если данный символ равен следующему, продолжаем поиск количества таких символов, начиная текущей позиции в строке.

После всего этого формируем кодируемую строку равную количеству найденных символов и самому символу, которых повторяется друг за другом n-e количество раз. Если найден только один символ строка принимает значение равное этому символу.
Все выше описанные операции выполняются до тех пор, пока не будет достигнут конец файла.

string str1 = text_input.Text, str = "", ch = ""; int i, k, j; for (i = 0; i < str1.Length; ) // от 0 до длины строки { ch = str1.Substring(i, 1); // получаем текущий символ из строки str1 k = 0; //счетчик количества повторяющихся символов if (i == str1.Length - 1) // если последний символ { str += Convert.ToString(ch); break; //выходим из цикла } if (str1.Substring(i + 1, 1) == ch) { for (j = i; j < str1.Length; j++) { if (str1.Substring(j, 1) == ch)//если текущий символ равен символу из строки ch { k++;//увеличиваем счетчик } else break; //выходим из цикла } i = j; } else i++; if (k != 0) str += Convert.ToString(k) + Convert.ToString(ch); else str += Convert.ToString(ch);
} text_output.Text = str; button2.Enabled = true;

Кодировку успешно выполнили, теперь напишем декодировку строки, кодированную при помощи алгоритма RLE. Декодирование закодированной строки выполняется путем поиска числа, которое является количеством повторений символа и самого символа.
И так, получаем закодированную строку из текстового поля “textBox1” и записывает полученный текст в переменную “str1”. При каждом проходе цикла, который выполняется, пока недостигнут последний символ, записываем в переменную “ch” текущий символ и если он является цифрой, выполняем поиск цифр идущих друг за другом. Тем самым последовательность найденных цифр будет представлять собой число, являющееся количеством повторений символа, идущего сразу же после этой последовательности. В конце в строковую переменную “str” записываем букву столько раз, сколько равно значение числа.

string str1 = textBox1.Text, str = "", ch = "", s = "", symb = ""; int i, k = 0, j; for (i = 0; i < str1.Length; ) { ch = str1.Substring(i, 1); // текущий символ i k = 0; s = ""; if ("0123456789".Contains(ch)) // если символ ch является цифрой { for (j = i; j < str1.Length; j++) { if ("0123456789".Contains(str1.Substring(j, 1))) // если текущий символ j является цифрой { s += str1.Substring(j, 1); } else break; } symb = str1.Substring(j, 1); // получаем букву i = j + 1; } else i++; if (s.Length != 0) { for (j = 0; j < Convert.ToInt32(s); j++) // декодирование буквы str += symb; } else str += Convert.ToString(ch); } out_shifr.Text = str;

В данной программе реализовано кодирование и декодирование строки, используя алгоритм сжатия данных RLE.

Автор: Евтеев Евгений Александрович
Email: evteev_e2003@mail.ru

Получить последовательность a1…an цифр 0,1,2, в которой нет смежных одинаковых участков

evteev — Mon, 18 May 2009 15:12:21 +0000

Программа должна генерировать последовательность любой длины из цифр 0, 1 и 2, но она не должна содержать в себе одинаковых участков таких как, например, последовательность 1010 – недопустимо, т.к. участки 10 и 10 расположены один за другим; последовательность 120120 – имеются два одинаковых участка 120 и 120.

Напишем функцию “check_str”, которая будет возвращать “false” в случае если найден одинаковый участок в последовательности “s”.

Boolean check_str(string s) { string start, end; for (int i = 1; i < = s.Length / 2; i++) { start = s.Substring(0, s.Length - i); end = s.Substring(s.Length - i, i); if (start.Length < end.Length) return true; if (start.Substring(start.Length - i, i) == end) return false; } return true; }

В функции выполняется проверка на все возможные смежные одинаковые участки. Разберем работу функции на примере последовательности 120120. Для выполнения всех проверок достаточно всего 3 прохода, при первом проходе сравниваются последние цифры 120120, если они равны, то одинаковый участок найден и выполняется завершение работы функции, в противном случае выполняется 2-й проход и уже сравниваются цифры 01 и 20. При следующем и последнем проходе сравниваются первые и последние 3 цифры 120 и 120, вот теперь они равны и производится выход из функции, возвращается значение “false”.
Теперь рассмотрим код процедуры “generate_Click”, которая вызывается при нажатии на кнопку “generate”.

private void generate_Click(object sender, EventArgs e) { int kol = Convert.ToInt32(kolvo.Text); Random r = new Random(); generate_num.Clear(); int x; string s = ""; for (int i = 1; i < = kol; i++) { for (; ; ) { x = r.Next(0, 3); if (i == 1) { s = Convert.ToString(x);
break; } if (check_str(s + Convert.ToString(x))) { s += Convert.ToString(x); break; } else { if (!check_str(s + "0") && !check_str(s + "1") && !check_str(s + "2")) { generate_num.Text = s + " (Дальнейшая генерация числа невозможна)"; return; } } } } generate_num.Text += s; }

В этом процедуре происходит автоматическая генерация цифр от 0 до 2, добавление цифры к строке “s” (в случае положительного результата от функции “check_str”) и вывод сгенерированной последовательности на форму пользователя.
Бывают такие случаи, когда невозможна дальнейшая генерации последовательности, в этом случае выводится последовательность и текст “(Дальнейшая генерация числа невозможна)”.

Автор: Евтеев Евгений Александрович
Email: evteev_e2003@mail.ru