MErhaba Arkadaslar Konuyu uzatimmi uzatmayımmi bilmiorm onun için derse geçim

Kare kok Almak için Formumuza bi tane Button bi tanede textbox eklyin

ekledinizmi ? tmm o zaman kodları soluor

Private Sub Command1_Click()
A = Val(Text1)
B = sqr(A)
End Sub

dier dersime uyarlıcaq olursaq 2. dersime

Private Sub Command1_Click()
If Text1 <> "" Then
A = Val(Text1)
B = sqr(A)
MsgBox B
Else
A = Val(Text2)
B = Sqr (A)
MsgBox B
End If
End Sub



'Private Sub Command1_Click()
'If Text1 <> "" Then
'A = Val(Text1)
'B = sqr(A)
'MsgBox B

bu kısımda anlatmaya çalıstıgı

Text1 doluysa Text1 i A nın Rakam cinsinden olaraq oku

mesajkutusunun için yaz sonucu

Else we sonra

Text1 bossa Text2 yi A nın Rakam cinsinden Oku

mesaj kutusunda ver sonucu sonucu

umarım yararlı olabilmişimdir...

videolu anlatım isterseniz hazırlıyabilirim