شرح هياكل ست صبى للاستفاده يعني 🙂🥲☝️

م/هياكل
سوالف عن الفصل1
اعداد:محمد عماد

‏اللهـّم في صبَاح هذا اليوم استَجِب لنَا مَا نعجزُ عن قَولهِ..
مَا يصعب علينا صِيَاغتُه وأنتَ تعلَمُه
اللهـّم وتقبل كل دعوة ساكنة في صُدُورِنَا ولا نَعلمُ كِيفَ نرفَعَها إليّك

صـباح الخــيــر🌸💜

بما انو رمضان خننزل حلول مرئيه ثواب🙂😂

مرئيييييه

Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
Dim i, j As Integer
Label1.Text = ""
For i = 1 To 5 Step 1
For j = 1 To 5 - i Step 1
Label1.Text = Label1.Text & (" ")
Next j
For k = 1 To (i * 2) - 1 Step 1
Label1.Text = Label1.Text & ("*")
Next k
Label1.Text = Label1.Text & Chr(10) & Chr(13)
Next i

End Sub

Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
Dim i, j As Integer
Label1.Text = ""
For i = 1 To 5 Step 1
For j = 1 To i Step 1
Label1.Text = Label1.Text & ("*")
Next j
Label1.Text = Label1.Text & Chr(10) & Chr(13)
Next i

End Sub

هذا اعلاه واجب طكو كوبي بيست
بعد اكو غيره؟ دزولي بلله

انتظر تصويتكم بلله🌚🙂

بسم الله نبلش مرئيه 👍

👆🏻👆🏻👆🏻👆🏻👆🏻👆🏻
Public Class Form1
Private Sub RadioButton2_CheckedChanged(sender As Object, e As EventArgs) Handles RadioButton2.CheckedChanged

End Sub

Private Sub RadioButton1_CheckedChanged(sender As Object, e As EventArgs) Handles RadioButton1.CheckedChanged

End Sub

Private Sub RadioButton4_CheckedChanged(sender As Object, e As EventArgs) Handles RadioButton4.CheckedChanged

End Sub

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

If Len(TextBox1.Text) = 0 And Len(TextBox2.Text) = 0 Then

MsgBox("enter num in text1 and tow ")

Else
Dim i As Integer = TextBox1.Text
Dim j As Integer = TextBox2.Text
If RadioButton1.Checked Then
Label1.Text = i + j

ElseIf RadioButton4.Checked Then
Label1.Text = i - j
ElseIf RadioButton2.Checked Then
Label1.Text = i * j
ElseIf RadioButton3.Checked Then
Label1.Text = i / j

End If
End If
End Sub

Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click


Dim i As Integer = TextBox1.Text
Dim j As Integer = TextBox2.Text
Select Case True

Case RadioButton1.Checked
Label1.Text = i + j
Case RadioButton2.Checked
Label1.Text = i * j
Case RadioButton3.Checked
Label1.Text = i / j
Case RadioButton4.Checked
Label1.Text = i - j
End Select

End Sub

Private Sub RadioButton3_CheckedChanged(sender As Object, e As EventArgs) Handles RadioButton3.CheckedChanged

End Sub
End Class

كود عدل🙂

معكوس العدل 🙂😅