вордпрес блог - установите пожал |
nina_benoit все записи автора
помогите, други! установите блог на бесплатный хост - у меня все есть, кроме ума, как это сделать. Шаблон скину. Пожалуйста((( я уже - 
|
SOS!! Помогите!! |
sweetie_girl_probably все записи автора
|
|
Без заголовка |
shyboywins все записи автора
помогите пожалуйста. как сделать в виндоус виста чтобы звук с line-in микрофона напрямую выходил на колонки??? очень буду признателен!
|
|
Манипуляции с окнами |
Звездная_мышка все записи автора
Обратила внимание, что часть кода работоспособная в Win98 перестала корректно работать в WinXP. Публикую подправленый код.
|
Может кому пригодится |
Звездная_мышка все записи автора
#include "stdio.h"
#include "conio.h"
#include "stdlib.h"
void help(void)
{
puts("Конвертер кириллицы в DOS(CP866),Windows(CP1251) и КОИ-8");
puts("Формат запуска: CONVERT файл-источник файл-приемник РЕЖИМ");
puts("Режим может быть следующим:");
puts("dw - из DOSa в Windows");
puts("dk - из DOSa в КОИ-8");
puts("wd - из Windows в DOS");
puts("wk - из Windows в КОИ-8");
puts("kd - из КОИ-8 в DOS");
puts("kw - из КОИ-8 в Windows");
puts("в этих режим файл-приемник не обязателен");
puts("Также можно изменять код новой строки, свойственный UNIX и DOS(Windows)");
puts("ud - из UNIXa в DOS");
puts("du - из DOSa в UNIX");
puts("А в этих режимах файл-приемник необходим");
getch();
exit(255);
}
void main(int argc,char *argv[])
{
FILE *in,*out;
long i,t=0,m=0,j;
char dw[]={"L+T+-+¦¦Lг¦T¦=+¦¦TTLL-г++----¦¦-рстуфхцчшщъыьэюя###жжжжЦ=жж==Ц=ЦЦЦЦжЦжжж====ж=ж=Ц=ЦЦ==ЦжжЦЦ#####ЁёЄєЇїЎў°•·v№¤¦ и¬к¦п¬бв-Х¬?¦дИа"};
char dk[]={"стўчфхЎ·щъыьэюяЁЄєЇїцшу¦v¤ •°№рё+T+¦-+г-г¦T¦=+¦¦РСТБЗ-+зж¦бионмГДЙИЖАКп-л嬬-а-¦¦¦¬кйвд--ЕВНМОПЛTLL-¦L+¦-¦--+-LT¦гЩШУЫЯЧЬХЮЦ¬ЭФЪ"};
char wd[]={"??'?\".++¦%????? Ўў?¤?|§ЁcЄ\"¬-RЇ°?Ii?u¶·ё№є\"???їАБВГДЕЖЗИЙКЛМНОПРСТУФХЦЧШЩЪЫЬЭЮЯабвгдежзийклмнопрстуфхцчшщъыьэюя"};
char wk[]={"??'?\".К-Ф%?????ЪЯЧ?Э?|§¦cЩ\"Г-RУЬ?Ii?u¶Юг¬Ш\"???ЫстўчфхЎ·щъыьэюяЁЄєЇїцшу¦v¤ •°№рё+T+¦-+г-г¦T¦=+¦¦TLL-¦L+¦-¦--+-LT"};
char kd[]={"-¦-¬L-++T++---¦¦---Ї¦•vўєЄ ї°¤·Ў=¦-ёг㬬¬LLL---¦¦¦¦Ё¦¦TTT¦¦¦+++№юабцдефгхийклмнопярстужвьызшэщчъЮАБЦДЕФГХИЙКЛМНОПЯРСТУЖВЬЫЗШЭЩЧЪ"};
char kw[]={"ЦжЦЦЦЦжжЦЦж########пИХ?в¦ка¬-д¬б=ж=¬Ц==Ц==Ц==Ц=жжжжижж=Ц==Ц=жж榦рсЎфхЇуїшщъыьэюя ЁёЄєцт№vч°¤•ў·¦L+г-+L+-Lг¦T¦=+¦-¦TTL¦T--¦+¦-+-"};
char *pointer,mode[80];
if(argc==3)strcpy(mode,argv[2]);
else
{
if(argc==4)strcpy(mode,argv[3]);
else
{
printf("Invalid number of parameters %d\n",argc);
help();
}
}
pointer=NULL;
if(strcmp(mode,"du")==0)m=1;
if(strcmp(mode,"ud")==0)m=2;
if(strcmp(mode,"dw")==0)pointer=dw;
if(strcmp(mode,"dk")==0)pointer=dk;
if(strcmp(mode,"wd")==0)pointer=wd;
if(strcmp(mode,"wk")==0)pointer=wk;
if(strcmp(mode,"kd")==0)pointer=kd;
if(strcmp(mode,"kw")==0)pointer=kw;
if(pointer==NULL&&m==0)
{
printf("Error convertion mode:%s\n",argv[3]);
help();
}
if(m!=0&&argc!=4)
{
printf("Invalid number of parameters %d\n",argc);
help();
}
if((in=fopen(argv[1],"r+b"))==NULL)
{
printf("Can't open file %s\n",argv[1]);
help();
}
if(argc==4)
{
if((out=fopen(argv[2],"wb"))==NULL)
{
printf("Can't open file %s\n",argv[2]);
help();
}
}
else out=in;
i=0;
j=0;
while(feof(in)==0)
{
fseek(in,i,SEEK_SET);
fread(&t,1,1,in);
if(feof(in)==0)
{
fseek(out,j,SEEK_SET);
if(m==0)
{
if(t<128)fprintf(out,"%c",t);
else fprintf(out,"%c",*(pointer+t-128));
}
if(m==1)
{
if(t!=13)fprintf(out,"%c",t);
else j--;
}
if(m==2)
{
if(t!=10)fprintf(out,"%c",t);
else
{
fprintf(out,"%c%c",13,10);
j++;
}
}
}
i++;
j++;
}
}
|
Работаем с архивами |
Звездная_мышка все записи автора
Метки: структура ZIP |
. |
Звездная_мышка все записи автора
Метки: глюки |
Ищу программеров на С++. Срочно!! |
Flame777 все записи автора
Есть ли в мире хоть один программер на С++ кроме меня, Льва, и Сони?! Если есть, то откликайтесь!!
|
Без заголовка |
Эльф_в_тельняшке все записи автора
Нашла недавно интересный скрипт, показывает картинку с отражением как бы в воде. Текст скрипта следующий: 
|
. |
Звездная_мышка все записи автора
Определение положения курсора на усовершенствованом текстовом поле (rtf)
|
Без заголовка |
Звездная_мышка все записи автора
Работаем с функциями windows: (пример программы из области приколов: Догони кнопку Пуск. Для выхода из режима демонстрации кнопка Esc)Option Explicit
'Функция для изменения координат и размера окна
Private Declare Function SetWindowPos Lib "user32" (ByVal hwnd As Long, ByVal hWndInsertAfter As Long, ByVal x As Long, ByVal y As Long, ByVal cx As Long, ByVal cy As Long, ByVal wFlags As Long) As Long
'Необходимые константы
Const SWP_NOSIZE = &H1 'Сохранить текущие размеры
Const SWP_NOMOVE = &H2 'Сохранить текущее положение
'Функция для получения окна первого уровня
Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" _
(ByVal lpClassName As String, ByVal lpWindowName As String) As Long
'Функция для получения дочернего окна
Private Declare Function FindWindowEx Lib "user32" Alias "FindWindowExA" _
(ByVal hWnd1 As Long, ByVal hWnd2 As Long, ByVal lpsz1 As String, ByVal lpsz2 As String) As Long
'Определяет текущую позицию курсора
Private Declare Function GetCursorPos Lib "user32" (lpPoint As POINTAPI) As Long
'Структура POINTAPI
Private Type POINTAPI
x As Long
y As Long
End Type
'Функция определяет манипулятор окна по координатам мыши
Private Declare Function WindowFromPoint Lib "user32" (ByVal xPoint As Long, ByVal yPoint As Long) As Long
'Функция определяет манипулятор рабочего стола
Private Declare Function GetDesktopWindow Lib "user32" () As Long
'Функция задаёт окну нового родителя
Private Declare Function SetParent Lib "user32" (ByVal hWndChild As Long, ByVal hWndNewParent As Long) As Long
'Функция отлавливает нажатия клавиатуры вне программы
Private Declare Function GetAsyncKeyState Lib "user32" (ByVal vKey As Long) As Integer
Const VK_ESCAPE = &H1B
Dim hnd As Long
Private Sub Form_Load()
'Кнопка Пуск является дочерним окном панели задач
'Кнопка Пуск относится к классу "BUTTON", Панель задач относится к классу "Shell_TrayWnd"
'Ищем манипулятор панели задач
hnd = FindWindow("Shell_TrayWnd", vbNullString)
'Ищем манипулятор кнопки пуск
hnd = FindWindowEx(hnd, 0, "BUTTON", vbNullString)
End Sub
Private Sub tmrAntiStart_Timer()
Dim hwnd As Long
Dim Curs As POINTAPI
'Определяем координаты курсора
GetCursorPos Curs
'Определяем манипулятор окна
hwnd = WindowFromPoint(Curs.x, Curs.y)
If hnd = hwnd Then
'Задаём для Пуска новые координаты
SetWindowPos hwnd, 0, Int(800 * Rnd + 1), Int(600 * Rnd + 1), 0, 0, SWP_NOSIZE
'Выносим Пуск на Десктоп
SetParent hnd, GetDesktopWindow
End If
'Отлавливаем нажатие клавиатуры
If GetAsyncKeyState(VK_ESCAPE) Then
SetParent hnd, FindWindow("Shell_TrayWnd", vbNullString) 'Возваращаем Пуск на Родину!
SetWindowPos hnd, 0, 0, 0, 0, 0, SWP_NOSIZE
End
End If
End Sub
|
Без заголовка |
Звездная_мышка все записи автора
Напоминаю: Чтобы создавать трейды в сообществе нужно:
|
Без заголовка |
Звездная_мышка все записи автора
Коментарии к коду:
|
Без заголовка |
Звездная_мышка все записи автора
А вот код:
(примечание вместо квадратных скобок должны быть треугольные, т. е. знкаки меньше и больше, просто если я их ставлю вместо кода сразу картинка рисуется, заключение в оператор цитаты не помогает, а расширеный редактор у меня вообще не работает, так что пришлось прибегнуть к такому некрасивому способу...)
|
Таблицы в html |
Звездная_мышка все записи автора
Кто то у меня просил как создавать таблицы в HTML.
|
Без заголовка |
Звездная_мышка все записи автора
Код для управления строчным меню:
|
Без заголовка |
Звездная_мышка все записи автора
На элементе imgToolBar создаем:
Begin VB.PictureBox MenuMainItem
BorderStyle = 0 'None
Visible = 0 'False
Begin VB.Label MenuMainCapt
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "Menu"
End
Begin VB.Label MenuMainCaptS
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "&Menu"
ForeColor = &H8000000E&
End
Begin VB.Line MenuMainLineSD
BorderColor = &H80000010&
BorderWidth = 3
Visible = 0 'False
End
Begin VB.Line MenuMainLineSR
BorderColor = &H80000010&
BorderWidth = 3
Visible = 0 'False
End
Begin VB.Line MenuMainLineDn
Visible = 0 'False
End
Begin VB.Line MenuMainLineRt
Visible = 0 'False
End
Begin VB.Line MenuMainLineLt
BorderColor = &H8000000E&
Visible = 0 'False
End
Begin VB.Line MenuMainLineUp
BorderColor = &H8000000E&
Visible = 0 'False
End
End
|
. |
Звездная_мышка все записи автора
Секция (General) (Declarations)
Код управления кнопками
|
. |
Звездная_мышка все записи автора
PictureBox.Name="imgTopLt"
AutoSize = -1 ' True
BorderStyle = 0 ' None
Picture = "Растровое изображение для верхнего левого угла"
PictureBox.Name="imgTopRt"
AutoSize = -1 ' True
BorderStyle = 0 ' None
Picture = "Растровое изображение для верхнего правого угла"
PictureBox.Name="imgDnLt"
AutoSize = -1 ' True
BorderStyle = 0 ' None
Picture = "Растровое изображение для нижнего левого угла"
MousePointer = 6 ' Size NE SW
PictureBox.Name="imgDnRt"
AutoSize = -1 ' True
BorderStyle = 0 ' None
Picture = "Растровое изображение для нижнего правого угла"
MousePointer = 8 'Size NW SE
PictureBox.Name="imgFrameLt"
AutoSize = -1 ' True
BorderStyle = 0 ' None
Picture = "(None)" ' Оставляем пустой, рамка будет рисоваться программно
MousePointer = 9 ' Size W E
PictureBox.Name="imgFrameRt"
AutoRedraw = -1 ' True
BorderStyle = 0 'None
Picture = "(None)" 'Оставляем пустой, рамка будет рисоваться программно
MousePointer = 9 'Size W E
PictureBox.Name="imgFrameDn"
AutoRedraw = -1 'True
BorderStyle = 0 'None
Picture = "(None)" 'Оставляем пустой, рамка будет рисоваться программно
MousePointer = 7 'Size N S
PictureBox.Name="imgTopHead"
AutoRedraw = -1 'True
BorderStyle = 0 'None
Label.Name="lblFormCapt"
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "MyForm" 'Здесь будет отображаться заголовок приложения
ForeColor = &H00FF0000& 'Цвет для заголовка
PictureBox.Name="cmdMin"
AutoSize = -1 'True
BorderStyle = 0 'None
Picture = "Растровое изображение кнопки минимизировать"
PictureBox.Name="cmdMax"
AutoSize = -1 'True
BorderStyle = 0 'None
Picture = "Растровое изображение кнопки максимизировать"
PictureBox.Name="cmdRest"
AutoSize = -1 'True
BorderStyle = 0 'None
Picture = "Растровое изображение кнопки восстановить"
Visible = 0 'False
PictureBox.Name="cmdClose"
AutoSize = -1 'True
BorderStyle = 0 'None
Picture = "Растровое изображение кнопки закрыть"
PictureBox.Name="imgMenu"
BorderStyle = 0 'None
PictureBox.Name="imgToolBar"
BorderStyle = 0 'None
PictureBox.Name="imgButt"
BorderStyle = 0 'None
PictureBox.Name="imgStatusBar"
BorderStyle = 0 'None
PictureBox.Name="ClientArea"
BackColor = &H00E1DFDF&
|
. |
Звездная_мышка все записи автора
|
. |
Звездная_мышка все записи автора
И так начнем...
|
| Страницы: [1] Календарь |
