Архив метки: программирование

Где ошибка в paskal ?

Задача:  Дано  координати  двох  протилежних  вершин  прямокутника  (x1 ,y1  )  і  (x 2,y2  ).  Сторони прямокутника а і b паралельні осям координат. Знайти периметр Р  и площу S даного прямокутника, спочатку обчисливши довжини сторін а і b за формулами: а=|x2– x1|, b=|y2 – у1|.

Вот мое решение:
program n_4_25;
Uses WinCRT;
var
  x1,x2,y1,y2,a,b,p,s:real;
begin;
WriteLn(‘Vvedite x1 i y1:’);
ReadLn(x1,y1);
WriteLn(‘Vvedite x2 i y2’);
ReadLn(x2,y2);
a:=abs(x2-x1);
WriteLn(‘a=’,a);
b:=abs(y2)-abs(y1);
WriteLn(‘b=’a);
p:=2*(a+b);
WriteLn(‘p=’p);
s:=a*b;
WriteLn(‘s=’s);
ReadLn
End.

Где ошибка?

Добавлено….
Даны координаты двух противоположных вершин прямоугольника (x1 ,y1) и (x 2,y2 ) Стороны прямоугольника а и b  параллельные осям координат. НАйти периметр P и площадь S данного прямоугольника, но с начала нужно посчитать  длины сторон а и b по формулам а=|x2– x1|, b=|y2 – у1|

iis wpf browser application — ошибка «Данный тип приложения отключен.»

есть приложение wpf browser application, при попытке запустить его на iis всё сводится к "В используемом приложении возникла ошибка".

при этом, если запускать index.xbar вручную, всё отрабатывает нормально.

подробные сведения:

URI запуска: http://192.168.20.10/index.xbap
Идентификация приложения: http://192.168.20.10/index.xbap#CRMbrowser.xbap, Version=1.0.0.0, Culture=neutral, PublicKeyToken=990d9a53a85f5f94, processorArchitecture=msil/CRMbrowser.exe, Version=1.0.0.0, Culture=neutral, PublicKeyToken=990d9a53a85f5f94, processorArchitecture=msil, type=win32

Данный тип приложения отключен.

————————
куда копать?

Добавлено….
server 2008 r2 iis7.0

Добавлено….
а, запуск возможен только с локального компьютера, при попытке запуска через сетевое окружение — та же ошибка.

Добавлено….
да, варианта 2 — или делать клиент-серверное приложение, на сервере — все расчёты, а wpf-ом рисовать клиентскую морду, или в настройках безопасности проекта выставлять "это приложение с полным доверием".

но — при этом в любом случае нужно настраивать браузер, разрешая ему запускать сценарии, zaml, ещё какую-то ересь. в общем, полностью открывать браузер.

в общем, чистое имхо — с wpf browser application смысла работать нет. для браузера проще писать на сильверлайте, если хотите красивые приложения с графическими библиотеками винды…

как-то так. но работать — да, работает.

visual studia 2010 express

Попробовал установить Microsoft Visual Studio 2010 Express edition. Установился Framework-ы и некоторые компоненты, но когда пришел черед установки самой программы выводит окно об ошибке.

Программа установки обнаружила непредвиденную ошибку во время установки этого пакета. Это может указывать на ошибку в самом пакете. Код ошибки 2908.

После на нажатии на кнопку ОК выводится еще раз данная ошибка и после выводит другую ошибку:

Ошибка 1935. При установке сборки "Microsoft.VisualStudio.Data.Core,version="9.0.0.0",publicKeyToken="b03f5f7f11d50a3a",processorArchitecture="MSIL",fileVersion="9.0.21022.8",culture="neutral"" произошло ошибка. Дополнительные сведения см. в справке и поддержке. HRESULT: 0x8002802F.

Попробовал Microsoft Visual Studio 2008 Express edition тоже выводит ошибку…
______________________________________________________________________________________
это не работает!!!

1) попробовать очистить папку %temp% перед установкой Visual Studio

2) попробовать отключить антивирус на время установки

3) попробовать запустить от администратора установку  

что не так?

public class DriveClass {

public static void AddLogicalDrives( ComboBox^ diskList )
{
array< String^ >^ Drives = Environment :: GetLogicalDrives();

for( int i = 0; i < Drives -> Length; i++ )
{
diskList -> Items -> Add( Drives[ i ] );
}

diskList -> Items -> Add( "%Системный диск%" );
}

public static void FormatSelectedDisk( ComboBox^ diskList )
{
String^ selectedDisk = ( String^ ) diskList -> SelectedItem;

if ( selectedDisk == "%Системный диск%" ) selectedDisk = Environment :: GetEnvironmentVariable( "SystemDrive" );

char* diskCHAR = ( char* ) Runtime :: InteropServices :: Marshal :: StringToHGlobalAnsi( selectedDisk ).ToPointer();
strcat( "format ", diskCHAR );
system( diskCHAR );
}

public static void ChangeDiskLetter( ComboBox^ diskList, Label^ driveLetterLabel )
{
if ( ( String^ ) diskList -> SelectedItem != "%Системный диск%" )
driveLetterLabel -> Text = "Буква диска: " + ( String^ ) diskList -> SelectedItem;
else
driveLetterLabel -> Text = "Буква диска: " + Environment :: GetEnvironmentVariable( "SystemDrive" ) + "\";
}

};

при компиляции выдает ошибку:

1>e:userssanyadocumentsvisual studio 2010projectsformat_systemdriveformat_systemdriveapp.h(12): error C2144: синтаксическая ошибка: перед "void" требуется ":"
1>e:userssanyadocumentsvisual studio 2010projectsformat_systemdriveformat_systemdriveapp.h(24): error C2144: синтаксическая ошибка: перед "void" требуется ":"
1>e:userssanyadocumentsvisual studio 2010projectsformat_systemdriveformat_systemdriveapp.h(35): error C2144: синтаксическая ошибка: перед "void" требуется ":"  

Media Player на Visual C# 2010

private void playSound(string path)
       {
           System.Media.SoundPlayer player = new System.Media.SoundPlayer();
           player.SoundLocation = path;
           player.Load();
           player.Play();
       }

       private void button1_Click(object sender, EventArgs e)
       {
           playSound(@"D:Intro.mp3");
       }

Говорит ошибка формата:"The file located at D:Intro.mp3 is not a valid wave file."
Как сделать что бы он mp3 играл. Media Player же открывает… а это нет.  

драйвер!

нужно написать драйвер для работы в режиме ядра в ОС Windows, который бы перехватывал функцию ZwTerminateProcess (просто нужно чтобы мой процесс был неубиваем)…

есть уже готовая функция, которая проверяет какой процесс хотят убить. проблема в том, что я незнаю как сделать чтобы при вызове оригинальной ZwTerminateProcess автоматически вызывалась моя NewZwTerminateProcess (тоесть как её правильно засунуть в драйвер чтобы она вызывалась при вызове ZwTerminateProcess)! с драйверами никогда не работал (забыл сказать, драйвер пишем на CC++, не на асме)

кто может помочь? срочно!! гуглил, везде только про начальные этапы создания драйверов (общее описание, стандартные функции и т.п.) но ничего путного нет!  

Что нужно чтобы устроиться на работу программистом в крупную компанию??? (например Google)

Что нужно чтобы устроиться на работу программистом в крупную компанию??? (например "Google". Или "Infinity Ward")
Мне 21, у меня нет корок программиста! Подскажите варианты! В отличии знаю C++
Не знаю даже с чего начинать, если поставлю себе цель!
По подробней пожалуйста если можно! ;-)))  

java jdk1.6 windows 7 не запускается программа.class с помощью java

пишет
C:javaprog>java fibonacci.class
Exception in thread "main" java.lang.NoClassDefFoundError: fibonacci
Caused by: java.lang.ClassNotFoundException: fibonacci.class
       at java.net.URLClassLoader$1.run(Unknown Source)
       at java.security.AccessController.doPrivileged(Native Method
       at java.net.URLClassLoader.findClass(Unknown Source)
       at java.lang.ClassLoader.loadClass(Unknown Source)
       at sun.misc.Launcher$AppClassLoader.loadClass(Unknown Source
       at java.lang.ClassLoader.loadClass(Unknown Source)
Could not find the main class: fibonacci.class.  Program will exit.

переменные окружения: (javaprog — рабочий каталог)
CLASSPATH C:Program FilesJavajdk1.6.0_26; C:Program FilesJavajdk1.6.0_26lib;C:javaprog
PATH             C:OpenCV2.2bin;C:Program Files (x86)CMake 2.8bin;C:Program FilesJavajdk1.6.0_26bin;C:javaprog

  

Как рисовать на форме java swing

Нужно нарисовать линию и изображение на форме.

Форму создаю следующим образом:

package BattleShip2dPack;
import javax.swing.JFrame;
import java.awt.*;

public class BattleShip2dClass {

/**
* @param args
*/
public static void main(String[] args) {
// TODO Auto-generated method stub
JFrame Frm = new JFrame();
Canvas canvas = new Canvas();
Graphics g =  Frm.getGraphics();

        ///g.drawLine(10, 20, 30, 40);
       
Frm.setLocation(400, 200);
Frm.setSize(500, 300);
Frm.setDefaultCloseOperation(JFrame.EXIT_ON_CLOSE);
Frm.setTitle("Морской бой");
Frm.setVisible(true);
Frm.setBackground(Color.black);
Frm.setForeground(Color.black);

Frm.add("Center", canvas);

//canvas.paintAll(g);
//canvas.update(g);
}

}

При попытке вызвать метод рисования линии
получаю:

Exception in thread "main" java.lang.NullPointerException
at BattleShip2dPack.BattleShip2dClass.main(BattleShip2dClass.java:19)  

Исполняемые файлы в perl

Раньше видел программы на perl в формвте exe.Установил модуль Tk.Создаю формы.Искал в сети как сделать исполняемые файлы но что то не могу найти.Кто знает откуда мне плясать?

Добавлено….
Там все по английски.У меня Linux.

Добавлено….
А есть deb пакет?

C#

static int Main(string[] args)
       {
           bool installed = false;
           string path = string.Format(@"\{0}rootSecurityCenter2", Environment.MachineName);
           var searcher = new System.Management.ManagementObjectSearcher(path, "SELECT * FROM AntivirusProduct");
           System.Management.ManagementObjectCollection managementObjectCollection = searcher.Get();
           foreach (var managementObject in managementObjectCollection)
           {
               if (managementObject["displayName"].ToString() == "avast! Antivirus")
               {
                   Console.WriteLine(managementObject["displayName"]);
                   installed = true;
                   Console.ReadLine();
               }
           }
           if (installed) return 1;
           else return 0;
       }

всегда возвращает 0. даже если установлен avast! (в консоли выводится название антивируса). как сделать чтобы если программа находила avast! то возвращала 1??  

Помогите сделать базу данных.!

Нам по информатике задали сделать базу данных.
Вот тут нашел мануал более менее подробный, но некоторых аспектов нет. (http://www.lessons-tva.info/edu/e-inf2/m2t4_2.html)
Мне же надо сделать "Разработать информационную систему бронирования мест в поезде".
Можете ли скинуть, ооооочень подробный мануал, или же какую нить ссылку сайта где могут сделать (пусть и за деньги).
Заранее благодарю.

З.ы.
Могу скинуть пример сделанной работы моих одногруппников.

З.З.ы
Переделать не смог, глючат некоторые вещи.

Добавлено….
Если поможете сделать, проставлюсь на пиво.

разъясните поведение CURL CURLOPT_COOKIEJAR

по всей видимости установка curl_setopt($ch, CURLOPT_COOKIEJAR, getcwd()."/cookie.txt");
должна сохранять cookie возращенные сервером вместе в Headers но вместо всех я вижу только 1-ну максимум 2 куки =) последний тест показал : в браузере есть 10 различных печенек одного домена !!! при посылке запроса он возвращает мне одну и то не по порядку 2-ю по счету — недавно проверил ещё один домен с 8-ми кукисов — вернул две, 5-ю и 2-ю ) мистика =)) к сожалению с CURL-ом я не на ты =) вот и обратился к вам )
сложилось мнение что это из за соображений безопасности или же у меня неправильно составлен запрос…
<?
$ch = curl_init();
 curl_setopt($ch, CURLOPT_URL, ‘http://mydomain.com’);
 curl_setopt($ch, CURLOPT_HEADER, true);
 curl_setopt($ch, CURLOPT_RETURNTRANSFER, true);
 curl_setopt($ch, CURLOPT_CONNECTTIMEOUT, 30);
 curl_setopt($ch, CURLOPT_COOKIEJAR,  getcwd()."/cook.txt");
 curl_setopt($ch, CURLOPT_USERAGENT, $_SERVER[‘HTTP_USER_AGENT’]);
 $data = curl_exec($ch);      
 curl_close($ch);
 unset($ch);
?>
совет с unset($ch) — взял от сюда http://bugs.php.net/33475
подскажите люди добрые в чем может быть запара =))

JAVA: native MessageBox() from c:WindowsSystem32user32.dll

Не удается вызвать в Java:
package nat;
import java.lang.System;
class HelloWorld
{
public static native void MessageBox(int h, String m, String c, int type);

   public static void main(String args[]) {
HelloWorld.MessageBox(0, "Text", "Message Box", 0);

    }
   static {
       System.load("c:\Windows\System32\user32.dll");
   }
}

хотя в С# все работает:

using System;
using System.Collections.Generic;
using System.Text;
using System.Runtime.InteropServices;
   class ExternTest
   {
       [DllImport("User32.dll", CharSet=CharSet.Unicode)]
       public static extern int MessageBox(int h, string m, string c, int type);

       static int Main()
       {
           return MessageBox(0, "Text", "My Message Box", 0);
       }

   }

что я делаю не так  

C#, проблема с System.Management

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;

namespace avastInstalled
{
   public partial class Form1 : Form
   {
       public Form1()
       {
           InitializeComponent();
       }

       private void Form1_Load(object sender,EventArgs e)
       {
           string path=string.Format(@"\{0}rootSecurityCenter2",Environment.MachineName);
           var searcher=new System.Management.ManagementObjectSearcher(path,"SELECT * FROM AntivirusProduct");
           System.Management.ManagementObjectCollection managementObjectCollection=searcher.Get();
           foreach(var managementObject in managementObjectCollection)
           {
               if(managementObject["displayName"]=="avast! Antivirus")
               {
                 //действия
               }
           }
       }
   }
}

при компилировании программы выдает следующее:
E:UsersSanyaDocumentsVisual Studio 2010ProjectsavastInstalledavastInstalledForm1.cs(22,48): ошибка CS0234: Имя типа или пространства имен "ManagementObjectSearcher" отсутствует в пространстве имен "System.Management" (пропущена ссылка на сборку?)
E:UsersSanyaDocumentsVisual Studio 2010ProjectsavastInstalledavastInstalledForm1.cs(23,31): ошибка CS0234: Имя типа или пространства имен "ManagementObjectCollection" отсутствует в пространстве имен "System.Management" (пропущена ссылка на сборку?)

почему??

Добавлено….
пробовал писать и using System.Management;
пишет тоже самое.

Добавлено….
компилятор Visual Studio 2010

tthread не освобождает память

procedure TForm1.Button1Click(Sender: TObject);
begin
 Test:=Ttest.Create(true);
 Test.Resume; //запустить/возобновить
 Test.FreeOnTerminate:=true; //освободить память после завершения
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
 Test.Suspend; //приостановить
end;

procedure TForm1.Button3Click(Sender: TObject);
begin
 Test.Terminate; //остановить
end;

а память не освобождает после остановы  

вопрос о скрипте

VBScript.

есть переменная temp
temp=InputBox("Введите данные","Ввод данных")
надо чтобы юзер ввел туда числа

но без проверки он может ввести туда символы типа "char" или "string" и скрипт завершится ошибкой (про On Error Resume Next не напоминайте)

вопрос: как проверить в строке наличие любых остальных типов данных, кроме "integer"? тоесть чтобы допускались только цифры!
intemp=InStr(temp,*буква*) — это слишком большая для меня морока перечислять все буквы всех алфавитов;)  

Можно ли использовать подключаемые библиотеки в dll-проекте?

Пробую написать собственную библиотеку на c++ в Visual Studio. Нужны некоторые функции из другой сторонней библиотеки. Подключаю её к проекту всё вроде работает, но когда свою библиотеку подключаю в тестовому проекту, выдаёт ошибку.
Можно вообще так делать? Или как-то по-другому надо подключать?  

C++ winapi легкий вопрос

Я написал такую программу:
#include<windows.h>
LRESULT CALLBACK WindowProcedure(HWND,UINT,WPARAM,LPARAM);
char szClassName[]="Windows Example";
HINSTANCE hint;
int WINAPI WinMain(HINSTANCE hint, HINSTANCE prevhint,LPSTR lpszArgument, int nFunsterStil) {
   HWND hwnd;
   MSG messages;
   WNDCLASSEX wnd;
   wnd.hInstance = hint;
   wnd.lpfnWndProc = WindowProcedure;
   wnd.lpszClassName = szClassName;
   wnd.style = CS_DBLCLKS;
   wnd.cbSize = sizeof(WNDCLASSEX);
   //wnd.hbrBackground = (HBRUSH) GetStockObject(LTGRAY_BRUSH);
   if(!RegisterClassEx(&wnd)) return 0;
   hwnd = CreateWindowEx(0, szClassName, "Windows test",WS_OVERLAPPEDWINDOW,CW_USEDEFAULT,CW_USEDEFAULT,CW_USEDEFAULT,CW_USEDEFAULT,HWND_DESKTOP,NULL,hint,NULL);
   ShowWindow(hwnd,nFunsterStil);
   while(GetMessage(&messages, NULL, 0, 0))
   {
          /* Send message to WindowProcedure */
          DispatchMessage(&messages);
   }

   /* The program returvalue is 0 — The value that PostQuitMessage( ) gave */
   return messages.wParam;
}
Компилируется, но не запускается.
Вот что пишет про процедуру окна:  [Linker error] undefined reference to `_Z15WindowProcedureP6HWND__jjl@16′
 ld returned 1 exit status
Видимо как-то неправильно объявил?  

Visual Basic Windows Forms — Как создать файл?

Доброго времени суток,

Делаю программу, которая должна генерировать файл в зависимости от выбранных в самой программе опций, проблема как раз-таки в самом создании файла, SaveFileDialog я создал, настроил, подскажите пожалуйста, как написать саму функцию сохранения файла.

Среда программирования: Visual Studio 2010, язык: Visual Basic (в C++, к сожалению, не работает Intellisense, без него как-то трудно).  

несовместимость Borland C++ Builder с Windows 7!!! помогите

ребят, такая проблема. установила Borland C++ Builder 6 на седьмую винду и не работает. у некоторых знакомых на семерке работает, а мне вот не повезло. не знаете как это дело исправить, а то курсач не на чем делать(((

Добавлено….
нее, переходить вообще никак. да и время поджимает. Курсовую надо сделать

Эфремов, а как эта совместимость делается?

в делах компьютерных я чайничек

Добавлено….
блин,как всё просто..запустила от админа и всё работает!!! УРА
а я-дебил))

как сделать чтоб были звёздочки?

вот кусок кода на VBScript:

Select Case user_type
    Case "Гость"
setPass = MsgBox("Вы хотите создать пароль для новой учётной записи?", vbYesNo + vbQuestion, "Создание пароля")
If setPass = vbYes Then
create_userpassword = InputBox("Введите Ваш новый пароль:","Новый пароль")
MsgBox "Сейчас будет создан новый пользователь:" & vbcrlf & vbcrlf & "———-" & vbcrlf & "Имя создаваемой учётной записи:   " & create_username & vbcrlf & vbcrlf & "Пароль для создаваемой учётной записи:   " & create_userpassword & vbcrlf & vbcrlf & "Права:   " & rightshome & vbcrlf & vbcrlf & "Состав в группах:   " & group3 & vbcrlf & vbcrlf & "Где создается:   " & computer
question = MsgBox("Продолжить?", vbYesNo + vbQuestion, "Подтвердите")

тут когда вводишь пароль то он отображается
а как сделать чтоб когда вводишь пароль в InputBox то были видны "******" вместо "привет"?  

operand type mismatch for `movntq’

Имеется функция c++ с асемблерной вставкой:

void memcpyMMX(void* dst, const void* src, int nbytes) {
int remainingBytes = nbytes;

if (nbytes > 64) {
asm (
"movl %esi, srcnt"
"movl %edi, dstnt"
"movl %ecx, nbytesnt"
"shrl %ecx, $6nn" // 64 bytes per iteration

"loop1:nt"
"movq %mm1, 0(%ESI)nt" // Read in source data
"movq %mm2, 8(%ESI)nt"
"movq %mm3, 16(%ESI)nt"
"movq %mm4, 24(%ESI)nt"
"movq %mm5, 32(%ESI)nt"
"movq %mm6, 40(%ESI)nt"
"movq %mm7, 48(%ESI)nt"
"movq %mm0, 56(%ESI)nnt"

"movntq 0(%EDI), %mm1nt" // Non-temporal stores
"movntq 8(%EDI), %mm2nt"
"movntq 16(%EDI), %mm3nt"
"movntq 24(%EDI), %mm4nt"
"movntq 32(%EDI), %mm5nt"
"movntq 40(%EDI), %mm6nt"
"movntq 48(%EDI), %mm7nt"
"movntq 56(%EDI), %mm0nnt"

"addl %esi, $64nt"
"addl %edi, $64nt"
"dec %ecxnt"
"jnz loop1nnt"

"emms"
);
remainingBytes -= ((nbytes >> 6) << 6);
}

if (remainingBytes > 0) {
// Memcpy the rest
memcpy((uint8*) dst + (nbytes — remainingBytes),
(const uint8*) src + (nbytes — remainingBytes), remainingBytes);
}
}

Компилирую с MinGW, выдает ошибки:
operand type mismatch for `movntq’
operand type mismatch for `shr’
operand type mismatch for `add’

Помогите, пожалуйста, где что не так?  

c++ определить символ нажатой клавиши?

Осуществляю реализацию ввода символов (зачем прошу не спрашивать). Код клавиши получил, перевести его в символ удалось, даже удалось научить прогу вводить D и d. Но вот с русиш букавами ахтунг. В ручную вбивать стыдно как-то (узнать раскладку но проблем) для каждого инглиш букавы -> русиш букава.

Кто имеет опыт помогите пожалуйста!
Есть функи какие-то готовые? Или все-таки вручную?
Прогаю под Windу.

Добавлено….
Если ты не понял что за ОС — объясню: под Винду. Если ты что-то не понял или не знаешь, зачем минусовать?

Добавлено….
А если так интересно — для OpenGL. Встроенных средств у него нет. Привязываться к другим примочкам не желаю.

Изменение скорости движения указателя через командную строку / реестр / какой-нибудь vb-скрипт / C# в Windows 7

Часто переключаюсь между мышью и тач-падом и каждый раз запускаю main.cpl и меняю скорость указателя руками. Разница между скоростью для мыши и тач-пада значительная, потому не менять не выйдет. Очень хочу это автоматизировать, сделать пару ~батников, навесить на них горячие клавиши и жить счастливо.

Пробовал изменять скорость через реестр и она меняется в main.cpl, но что бы изменения применились, нужно открыть main.cpl и нажать "применить". Только тогда скорость реально изменится.

Гуглил много, ничего. Дошёл только до вызова SystemParametersInfo. Есть какой-нибудь способ не работая с win api выполнить такую задачу?

Спасибо.  

Как отследить координаты элементов интерфейса в чужой программе(вопрос внутри)

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

C++ Хороший учебник для работы с виндой или сразу c#?

Ребят Вопрос вот изучаю С++ но хочется вылезти из консольных приложений и делать что то что смогу хотябы сам оценить , посоветуйте учебник для создания приложений под винду ? или проше уже сразу
C# учить?