Program Yapmak | Programcılık Hakkında Her Şey | VİSUAL BASİC 6.0 | C, C++ ve C# Yazılım Dilleri | VB.NET Yazılım Dili

Bir sayinin karesini, kupunu bulan program

Bu program ile bir sayinin karesini, küpünü ve karekökünü aldirabilirsiniz.

Programımızın görünümü şu şekildedir:

http://resim.sanalkurs.net/uploads/decoration001.jpg

Aşağıdaki butonları kullanalım:

  • 3 ADET CHECK
  • 1 ADET LABEL
  • 1 ADET COMMAND
  • 1 ADET TEXT
    Şu kodları kullanacağız:

    Private Sub Command1_Click()
    
    Dim s, k
    
    s = Val(Text1)
    
    If Check1.Value = 1 Then k = s * s
    
    If Check2.Value = 1 Then k = s * s * s
    
    If Check3.Value = 1 Then k = Sqr(s)
    
    Label2.Caption = k
    
    End Sub
Sincan Laptop tamiratı ile alakalı içeriklerin bulunduğu web siteden bilgilere ulaşabilirsiniz. Sincan'da laptop tamiratını en iyi yapan yerleri sorgulayabilirsiniz. Cihan KOÇ
=> Sen de ücretsiz bir internet sitesi kurmak ister misin? O zaman burayı tıkla! <=