طلب

ارجو عمل GUI بها bottun يعرض فى txtbox نص اختاره من أى مكان على الجهاز أو يعرض صور اختارها من أى مكان على الجهاز ويكتب اسفل الصور حجما اويعرض حجم النص الذى اختارته ولكم جزيل الشكر والعرفان

[CENTER]تستطيع تطوير هذا الكود الذي كتبته لك واستخدامه حسب متطلباتك

function varargout = monm(varargin)
% Begin initialization code - DO NOT EDIT
gui_Singleton = 1;
gui_State = struct('gui_Name',       mfilename, ...
                   'gui_Singleton',  gui_Singleton, ...
                   'gui_OpeningFcn', @monm_OpeningFcn, ...
                   'gui_OutputFcn',  @monm_OutputFcn, ...
                   'gui_LayoutFcn',  [] , ...
                   'gui_Callback',   []);
if nargin && ischar(varargin{1})
    gui_State.gui_Callback = str2func(varargin{1});
end

if nargout
    [varargout{1:nargout}] = gui_mainfcn(gui_State, varargin{:});
else
    gui_mainfcn(gui_State, varargin{:});
end
function monm_OpeningFcn(hObject, eventdata, handles, varargin)
handles.output = hObject;
guidata(hObject, handles);
function varargout = monm_OutputFcn(hObject, eventdata, handles) 
varargout{1} = handles.output;
% End initialization code - DO NOT EDIT


% --- Open pushbutton.
function pushbutton1_Callback(hObject, eventdata, handles)
    [filename, pathname] = uigetfile('*.jpg;*.tif;*.bmp;*.tiff;*.png;*.txt','Open Image');
    if isequal(filename,0) || isequal(pathname,0)
      % User pressed cancel
    else
        handles.FullPath= fullfile(pathname, filename);
        [pathstr, name, ext, versn] = fileparts(filename);
        if isequal(ext,'.txt') 
        % Text
        c=dir(handles.FullPath);
        textread(handles.FullPath, '%s')
        set(handles.text7,'string',textread(handles.FullPath, '%s'));
        set(handles.axes1,'visible','off');
        set(handles.text7,'visible','on');
        set(handles.text4,'string','Text');
        set(handles.text5,'string',filename);
        set(handles.text6,'string','-------');
        set(handles.text9,'string',strcat(num2str(c.bytes),'Bytes'));
        else
        %Image
        set(handles.text7,'visible','off');
        set(handles.axes1,'visible','on');
        axes(handles.axes1);
        info = imfinfo(handles.FullPath);
        imshow(imread(handles.FullPath));
        set(handles.text4,'string','Image');
        set(handles.text5,'string',filename);
        set(handles.text6,'string',strcat(num2str(info.Width),'x',num2str(info.Height)));
        set(handles.text9,'string',strcat(num2str(info.FileSize),'Bytes'));
        info.Width
        end
    end



الملفات موجودة في المرفقات

مثال

نفتح ملف monm.m
بعد الضغط على RUN

ستظهر لنا واجهة الاستخدام والتي تحتوي على زر واحد OPEN

لما نضغط على الزر نستطيع اختيار اما ملف نصي او صورة

بعد اختيارنا الملف سيظهر لنا على الواجهة

اما صورة

ونلاحظ في الاسفل المعلومات الخاصة بهذه الصورة من حجم وابعاد واسم

او ملف نصي

ونجد ايضا نفس المعلومات

في المرفقات ستجد الملفين الخاصين بالتطبيق

[/center]

فى الملف الجميل المرفق اريد تكملة المشروع وهو 1 - زر لاستخدام طريقة هوفمان لضغط ملف النص الذى تم اختياره وحساب نسبة ضغطه ثم زر آخر لفك الضغط وعودة الملف لأصله
2-زر آخر لضغط ملف نصى تم اختياره بطريقة arethmatic code وحساب نسبة الضغط ايضا ثم زر آخر لفك الضغط مرة اخرى


ولكم جزيل الشكر والعرفان السادة المبدعين

[CENTER]نفس الملاحظة اخي

لقد قلت في اجابتي ان هذه مجرد بداية والبقية عليك
وسنساعدك اذا وقعت في مشاكل

[/center]

شكرا الاستاذ الكبير ولكن الملف monm.m عند تشغيله لا يفتح الا كود البرنامج لان البرنامج عندى ماتلاب 7 وكذلك اين اجد دالة هوفمان لاستخدامها لضغط الملف

أخى العزيز الملف لا يفتح معى ما العمل فاين الخظأ واين اجد دالة هوفمان و دالة arithmatic ارجوكم

مادمت يالاخ لم تعطني نوع الخطا الذي يخبرك به ماتلاب فلن استطيع افادتك
"لايفتح" لا تنفع وحدها
موفق

صورة لما يحدث اثناء فتح الملف فكيف يتم تشغيله

[CENTER]اظن انها اخطاء من البرنامج

انا استخدم
MATLAB Version 7.7.0.471 (R2008b)

اذا كانت نسختك غير مطابقة ممكن تحدث مشاكل

على الرغم من ان هذا الخطا لم يسبق لي المرور عليه

[/center]