مسابقه ی برنامه نویسی

[blackhacking21]

هوالعلیم
​

در این تاپیک قصد دارم مسابقه ای برگزار کنم :::::::::::::
دوستان و کاربران گرامی در جهت بالابردن اطلاعات یاری کنند .
سوال یک : معادل دستور زیر را بدون استفاده از توابع آماده بنویسید :
در سی پلاس پلاس

#include <windows.h>
main(){
CopyFile(آدرس فایل مبدا , آدرس فایل مقصد); 
}

در ویژوال بیسیک :

private sub form1_load()
filecopy فایل مبدا , فایل مقصد
end sub

در سی شارپ

static void main(){
 System.IO.File.Copy(فایل مبدا, فایل مقصد, true);
}

حال شما می بایست دستوری در هر یک از این سه زبان بنویسید که کار تابع CopyFile را شبیه سازی نماید :
در صورت پاسخ سوال بعدی مطرح خواهد شد .

 

[blackhacking21]

سوال بعد :
شبیه ساز دستور زیر را بنویسید :::
در ویژوال بیسیک:

text1.text="Your String"

در دلفی:

edit1.text:="Your String";

در سی شارپ:

textbox1.text="Your String";

حال شما می بایست دستوری بنویسید که در جعبه ی متن بدون استفاده از مشخصه ی

TextBoxName.text

متنی را در جعبه ی متن نمایش دهد ...
دانشجویان دکترا با این مسابقات زیاد سرو کار دارن ...

 

[blackhacking21]

توجه فرمایید در سوال بالا .Appenttext هم نباید استفاده بشه

 

[blackhacking21]

پاسخ سوال 1 : به دلیل عدم پاسخگویی از طرف دوستان پاسخ 1 رو خودم با یه شیوه راحت مطرح می کنم :
in VB6

Private Sub Command1_Click()
 New_Copy_Function_By_blackhacking21 "D:\linux.sh", "F:\sh.sh"
End Sub
Private Sub New_Copy_Function_By_blackhacking21(path1 As String, path2 As String)
  Dim Binary_Content As String * 10000
   Open path1 For Binary As #1
    Get #1, , Binary_Content
     Close #1
      Open path2 For Binary As #1
       Put #1, , Binary_Content
        Close #1
    End Sub