سلام
دوستان ! اگه ميشه در مورد زير مرا راهنمايي كنيد و كدش را براي من بذاريد .
يك عكس در برنامه داريم . مي خواهيم با كليك روي عكس يا روي يك دكمه عكس به صورت بزرگتر در كل صفحه a4 قرار گيرد .
متشكرم
Printable View
سلام
دوستان ! اگه ميشه در مورد زير مرا راهنمايي كنيد و كدش را براي من بذاريد .
يك عكس در برنامه داريم . مي خواهيم با كليك روي عكس يا روي يك دكمه عكس به صورت بزرگتر در كل صفحه a4 قرار گيرد .
متشكرم
یعنی انقدر سوالم غیر حرفه ای هست که من 27/12/2005 اون را اعلام کردم . 51 بازدید داشته ، اما یک نفر هم نتونسته جواب بده .
پس آقای تکنیک برتر ! شما که برنامه نویس هستید و کاربر فعال برنامه نویسی هم هستید ، چرا جواب سوالم را نمی دید .
واقعا که .... آخه چرا .... ! بگو بلد نیستم ، من را راحت کن .
==================================================
واقعا شرمنده ، آدم بعضی وقت ها عصبانی میشه و خوب دیگه می بینید چی میشه دیگه .
آدم را این همه مدت سرکار می ذارند ...
سولات پيچيدست
سلام من نمي دانم منظورت از صفحه آ4 چيه ولي دو راه داره
1- عكستو توي پیکچر فرمت بذاری بعد در کلیک فرمت بگی که فرمتو هر اندازهای که میخوای بکنه
2 - یه ایمیج بذاری و در ایونت کلیکش بگی که اول فرمتو بزرگ کنه بعد ابعاد ایمیجتو البته یادت نره که ایکیجتو استریچ کنی
من کد دومی رو برات میذارم
Private Sub Image1_Click()
Me.Width = Screen.Width 'مقدار دلخواه
Me.Height = Screen.Height 'مقدار دلخواه
Me.Left = 0
Image1.Stretch = True
Image1.Width = Me.Width
Image1.Height = Me.Height
Image1.Left = 0
End Sub
البته اگه بخوای اندازش آ4 بشه باید scale mode فرمتو میلیمتر و یا سانتیمتر بذاری بعد عرض فرمتو عرض کاغذ و بلندیش هم بلندی کاغذ بذاری و بعد همه چی ریدیفه
امیدوارم کمکی شده باشه
آقا متشکرم !
ولی خوب میشه یه کمی ساده تر برام بگی . یعنی جزئیات هم ذکر کنی .
با تشکر
( یکی پیدا شد که بالاخره به سوال ما جواب بده ، خدا بیشترش کنه !)
بازم شرمنده ، راستی چه طوری میشه کاری کرد که با کلیک کردن روی عکس ، روی صفحه a4 به صورت full screen چاپ بشه . این را هم توضیح بدی خیلی عالی هست .
فكر نميكنم ديگه توضيحي بخواد كه
هر جاشو كه ميخواي بگو
من تونستم برنامه كشيدن پرچم با اسمبلي رو بنويسم اما نميتونم EXE کنمش .
و دیگه اینکه وسطشم نمیتونم بنویسم لا الله اله الله .
ترو خدا کمک کنید .
STESEG SEGMENT STACK 'STACK'
DW 32 DUP(0)
STSEG ENDS
---------------------------------------
CODSEG SEGMENT 'CODE'
ASSUME CS:CODSEG,SS:STSEG
START PROC FAR
CLEAR MOITOR
--------------------------------------
MOV AX,0600H
MOV CX,0000H
MOV BH,41H
MOV DH,24H
MOV DL,79
INT 10H
------------------------------------
mode 12H for flag
MOV AH,0
MOV AL,12H
INT 10H
-----------------------------------
MOV CX,50
MOV DX,50
BACK1: MOV AH,0CH
MOV AL,4H
INT 10H
INC CX
CMP CX,100
JNE BACK1
MOV CX,50
INC DX
CMP DX,100
JNE BACK1
--------------------
MOV CX,100
MOV DX,100
BACK2: MOV AH,0CH
MOV AL,7H
INT 10H
INC CX
CMP CX,150
JNE BACK1
MOV CX,100
INC DX
CMP DX,150
JNE BACK2
--------------------
MOV CX,150
MOV DX,150
BACK3: MOV AH,0CH
MOV AL,2H
INT 10H
INC CX
CMP CX,200
JNE BACK1
MOV CX,150
INC DX
CMP DX,200
JNE BACK3
--------------------
MOV AX,4C00H
INT 21H
START ENDP
CODSEG ENDS
END START
نيكا جان براي تبديل به exe يك فايل به اسم ml.exe وجود دارد كه شما با تايپ ml.exe و نام فايل اسمبلي به پسوند asm دو فايل ساخته ميشه يكي با پسوند obj و ديگري با پسوند exe .
( فايل ml.exe مال شركت مايكروسافت هست . )
( اين مطلب رو از روي كتاب برات نوشتم خودم تا حالا كار نكردم.)
( راستي توي همون تاپيكي كه براي اين موضوع ايجاد كرده بودي دنبال مي كردي بهتر بود زودتر جواب مي گرفتي )
راستي يك راه ديگر هم هست :
فايل MASM يا TASM برنامه اسمبلي رو ترجمه ميكنه و فايل با پسوند obj مي سازه و فايل LINK يا TLINK فايل هايي با پسوند obj رو به عنوان ورودي ميگيره و فايل اجرايي با پسوند exe توليد ميكنه.
( فكر كنم اين بيشتر به دردت بخوره چون فايل ml.exe رو ممكنه پيدا نكني و نداشته باشي . در ضمن فايل ml.exe كه گفتم اين دو كاري رو كه 3 خط بالاتر نوشتم رو يكجا انجام ميده).
براي ساخت فايل obj :
براي ساخت فايل اجرايي :کد:Tasm نام برنامه.asm
کد:TLINK نام برنامه .obj , نام برنامه.exe , نام برنامه.MAP