السلام عليكم
شباب صنعت برنامج بسيط اله حاسبة كما هو مبين في الصورة والكود المرفق
ولكن عند النقر على اي زر يختفي فورم الاله الحاسبة تماما
ما هو السبب ساعدوني جزاكم الله خير
هههههههههههههههههههه
العفو منكم يا شباب والله اني لم اعلم اني كتبت السطر البرمجي me.hide
الا بعد ان نشرت الاستفسار
اسمحوا لي ارجوا المعذرة
عسى ان تستفيدو ان شاء الله
شباب صنعت برنامج بسيط اله حاسبة كما هو مبين في الصورة والكود المرفق
ولكن عند النقر على اي زر يختفي فورم الاله الحاسبة تماما
ما هو السبب ساعدوني جزاكم الله خير
PHP كود :
Imports System.Math
Public Class Calculator
'================== calculator
Dim s1, s2 As Int64
Dim a1, a2, a3, a4, a5, a6, a7, a8, a9, a0, adot As Int64
Dim op, anum As String
'==============================
Private Sub Calculator_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
End Sub
Private Sub B1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles B1.Click
Try
Tstring.Text = Tstring.Text + "1"
a1 = a1 + "1"
anum = anum + "1"
Me.Hide()
Catch ex As Exception
MsgBox("some error", MsgBoxStyle.Critical)
End Try
End Sub
Private Sub B2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles B2.Click
Try
Tstring.Text = Tstring.Text + "2"
a2 = a2 + "2"
anum = anum + "2"
Me.Hide()
Catch ex As Exception
MsgBox("some error", MsgBoxStyle.Critical)
End Try
End Sub
Private Sub B3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles B3.Click
Try
Tstring.Text = Tstring.Text + "3"
a3 = a3 + "3"
anum = anum + "3"
Me.Hide()
Catch ex As Exception
MsgBox("some error", MsgBoxStyle.Critical)
End Try
End Sub
Private Sub Bclear_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Bclear.Click
Try
Tstring.Clear()
Tout.Clear()
anum = ""
Tstring.Focus()
Me.Hide()
Catch ex As Exception
MsgBox("some error", MsgBoxStyle.Critical)
End Try
End Sub
Private Sub B4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles B4.Click
Try
Tstring.Text = Tstring.Text + "4"
a4 = a4 + "4"
anum = anum + "4"
Me.Hide()
Catch ex As Exception
MsgBox("some error", MsgBoxStyle.Critical)
End Try
End Sub
Private Sub B5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles B5.Click
Try
Tstring.Text = Tstring.Text + "5"
a5 = a5 + "5"
anum = anum + "5"
Me.Hide()
Catch ex As Exception
MsgBox("some error", MsgBoxStyle.Critical)
End Try
End Sub
Private Sub B6_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles B6.Click
Try
Tstring.Text = Tstring.Text + "6"
a6 = a6 + "6"
anum = anum + "6"
Me.Hide()
Catch ex As Exception
MsgBox("some error", MsgBoxStyle.Critical)
End Try
End Sub
Private Sub Bsqr_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Bsqr.Click
Try
Dim sqr As Double
sqr = anum ^ (1 / 2)
Tstring.Text = Tstring.Text + "sqr"
Tout.Text = Str(sqr)
Me.Hide()
Catch ex As Exception
MsgBox("some error", MsgBoxStyle.Critical)
End Try
End Sub
Private Sub B7_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles B7.Click
Try
Tstring.Text = Tstring.Text + "7"
a7 = a7 + "7"
anum = anum + "7"
Me.Hide()
Catch ex As Exception
MsgBox("some error", MsgBoxStyle.Critical)
End Try
End Sub
Private Sub B8_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles B8.Click
Try
Tstring.Text = Tstring.Text + "8"
a8 = a8 + "8"
anum = anum + "8"
Me.Hide()
Catch ex As Exception
MsgBox("some error", MsgBoxStyle.Critical)
End Try
End Sub
Private Sub B9_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles B9.Click
Try
Tstring.Text = Tstring.Text + "9"
a9 = a9 + "9"
anum = anum + "9"
Me.Hide()
Catch ex As Exception
MsgBox("some error", MsgBoxStyle.Critical)
End Try
End Sub
Private Sub Bpow_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Bpow.Click
Try
Dim Sum As Integer
Sum = 0
Sum = Sum + (anum * anum)
Tstring.Text = Tstring.Text + "x^"
Tout.Text = Str(Sum)
Me.Hide()
Catch ex As Exception
MsgBox("some error", MsgBoxStyle.Critical)
End Try
End Sub
Private Sub B0_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles B0.Click
Try
Tstring.Text = Tstring.Text + "0"
a0 = a0 + "0"
anum = anum + "0"
Me.Hide()
Catch ex As Exception
MsgBox("some error", MsgBoxStyle.Critical)
End Try
End Sub
Private Sub Bdot_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Bdot.Click
Try
Tstring.Text = Tstring.Text + "."
anum = anum + "."
Me.Hide()
Catch ex As Exception
MsgBox("some error", MsgBoxStyle.Critical)
End Try
End Sub
Private Sub Bfact_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Bfact.Click
Try
Dim fac, i As Integer
fac = 1
For i = 1 To anum
fac = fac * i
Next
Tstring.Text = Tstring.Text + "n!"
Tout.Text = Str(fac)
Me.Hide()
Catch ex As Exception
MsgBox("some error", MsgBoxStyle.Critical)
End Try
End Sub
Private Sub Bblus_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Bblus.Click
Try
s1 = Val(anum)
anum = 0
Tstring.Text = Tstring.Text + "+"
op = "+"
Me.Hide()
Catch ex As Exception
MsgBox("some error", MsgBoxStyle.Critical)
End Try
End Sub
Private Sub Bmains_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Bmains.Click
Try
s1 = Val(anum)
anum = ""
Tstring.Text = Tstring.Text + "-"
op = "-"
Me.Hide()
Catch ex As Exception
MsgBox("some error", MsgBoxStyle.Critical)
End Try
End Sub
Private Sub Bx_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Bx.Click
Try
s1 = Val(anum)
anum = ""
Tstring.Text = Tstring.Text + "*"
op = "*"
Me.Hide()
Catch ex As Exception
MsgBox("some error", MsgBoxStyle.Critical)
End Try
End Sub
Private Sub Bdiv_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Bdiv.Click
Try
s1 = Val(anum)
anum = ""
Tstring.Text = Tstring.Text + "/"
op = "/"
Me.Hide()
Catch ex As Exception
MsgBox("some error", MsgBoxStyle.Critical)
End Try
End Sub
Private Sub Bequl_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Bequl.Click
Try
s2 = Val(anum)
anum = ""
If op = "+" Then
Tout.Text = (s1 + s2)
End If
If op = "-" Then
Tout.Text = (s1 - s2)
End If
If op = "*" Then
Tout.Text = (s1 * s2)
End If
If op = "/" Then
Tout.Text = (s1 / s2)
End If
Me.Hide()
Catch ex As Exception
MsgBox("some error", MsgBoxStyle.Critical)
End Try
End Sub
End Class
هههههههههههههههههههه
العفو منكم يا شباب والله اني لم اعلم اني كتبت السطر البرمجي me.hide
الا بعد ان نشرت الاستفسار
اسمحوا لي ارجوا المعذرة
عسى ان تستفيدو ان شاء الله