- Katılım
- 5 Ocak 2014
- Mesajlar
- 3,333
- Tepkime puanı
- 6
- Puanları
- 136
Bu program ile bir sayinin karesini, küpünü ve karekökünü aldirabilirsiniz.
Programımızın görünümü şu şekildedir:
Aşağıdaki butonları kullanalım:
Programımızın görünümü şu şekildedir:
Aşağıdaki butonları kullanalım:
[*=center]3 ADET CHECK
[*=center]1 ADET LABEL
[*=center]1 ADET COMMAND
[*=center]1 ADET TEXT
Şu kodları kullanacağız:
Kod:
Private Sub Command1_Click()Dim s, ks = Val(Text1)If Check1.Value = 1 Then k = s * sIf Check2.Value = 1 Then k = s * s * sIf Check3.Value = 1 Then k = Sqr(s)Label2.Caption = kEnd Sub
