ASP[LÜTFENN BİR YARDIM]

  1. KısayolKısayol reportŞikayet pmÖzel Mesaj
    freetekno
    freetekno's avatar
    Kayıt Tarihi: 04/Ekim/2005
    Erkek
    arkadaş lar asp yi iyi bilenlerin dikkatine asp de if else ve case iyile dört işlem yaptırma.
    ekran çıktısı şu şekilde olacak

    formalar la yapılmış iki kutucuk ortasında da yapılacak işlem
    ve sonuç olacak ama case ile yapılacak

    ör: 25 + 30 = ? sonuç ne ise
    /
    -
    *
    arkadaşlar lütven yardım bunu nasıl yaparıım case ile yapılacak yanlız.yardım ederseniz çok sevinirim

    free-tekno yazılım geliştirme
  2. KısayolKısayol reportŞikayet pmÖzel Mesaj
    ertan
    ertan's avatar
    Kayıt Tarihi: 21/Temmuz/2005
    Erkek
    Hoca asp biliyordum ama unuttum ama vb dir sonuçta.Senin verdiğin şeyi pek anlamadım.Güzelce açıklarsan cevaplarım. O kadar zor değil,ama çok karışık anlatmışsın.Şu verdiğin örnekte bile hiç birşey anlamadım

    ör: 25 + 30 = ? sonuç ne ise / - *

    Bundan sonra sadece insan olanlarla muhattap olacağım.. Ona göre karşıma gelin...
  3. KısayolKısayol reportŞikayet pmÖzel Mesaj
    freetekno
    freetekno's avatar
    Kayıt Tarihi: 04/Ekim/2005
    Erkek
    abi bak şimdi yaptığımız sayfayı explorerden açtığımızda kulanıcı ikitane sayı girecek select seçeneğinden de yapacağı işlemi seçecek toplamayı seçtiyse topla ma çarpmayı seçtiyse çarpma
    lütven bi yardım

    free-tekno yazılım geliştirme
  4. KısayolKısayol reportŞikayet pmÖzel Mesaj
    ertan
    ertan's avatar
    Kayıt Tarihi: 21/Temmuz/2005
    Erkek
    Kodlar burda hocam, ' (kesme) işareti ile başlayanlar sadece sana bilgi vermek amacıyla yazılmıştır,onlar silsende fark etmez.Bu kod visual basic içindir.Bunu asp ye çevirebilirsin.Amacım sadece mantık vermek,forma iki text kutusu,bir combobox bir tane de buton koy


    Private Sub Form_Load()
    'text1 birinci sayı
    'text2 ikinci sayı
    'combo1 de işlemler
    'command1 hesapla butonu

    'Burda işlemleri listemize ekledik

    Combo1.AddItem "+"
    Combo1.AddItem "-"
    Combo1.AddItem "*"
    Combo1.AddItem "/"

    End Sub
    Private Sub Command1_Click()

    'islem ve sonuc diye iki tip tanımladık

    Dim islem, sonuc

    'islemi seçme kutusundaki yazının içeriğine atadım

    islem = Combo1.Text

    'islemde seçilene göre hareket eden select case de burda

    Select Case islem

    'işlem toplama ise;

    Case "+":
    sonuc = Val(Text1) + Val(Text2)
    MsgBox sonuc


    'işlem çıkartma ise;

    Case "-":
    sonuc = Val(Text1) - Val(Text2)
    MsgBox sonuc


    'işlem çarpma ise;

    Case "*":
    sonuc = Val(Text1) * Val(Text2)
    MsgBox sonuc


    'işlem bölme ise;

    Case "/":
    sonuc = Val(Text1) / Val(Text2)
    MsgBox sonuc


    'Yukarıdakilerin dışında bir karakter veya bir olay tanımlanmışsa;

    Case Else:
    MsgBox "Böyle bir işlem özelliği yok"

    End Select
    End Sub

    Bundan sonra sadece insan olanlarla muhattap olacağım.. Ona göre karşıma gelin...
  5. KısayolKısayol reportŞikayet pmÖzel Mesaj
    freetekno
    freetekno's avatar
    Kayıt Tarihi: 04/Ekim/2005
    Erkek
    ey vallah kanki sağolasın

    free-tekno yazılım geliştirme
  6. KısayolKısayol reportŞikayet pmÖzel Mesaj
    ertan
    ertan's avatar
    Kayıt Tarihi: 21/Temmuz/2005
    Erkek
    Bana kanki demesen sevinirim,

    Önemli değil

    Bundan sonra sadece insan olanlarla muhattap olacağım.. Ona göre karşıma gelin...
  7. KısayolKısayol reportŞikayet pmÖzel Mesaj
    freetekno
    freetekno's avatar
    Kayıt Tarihi: 04/Ekim/2005
    Erkek
    oldu kardeş,abi,arkadaş ne kabul edersen ama sağol

    free-tekno yazılım geliştirme
  8. KısayolKısayol reportŞikayet pmÖzel Mesaj
    freetekno
    freetekno's avatar
    Kayıt Tarihi: 04/Ekim/2005
    Erkek
    çok teşşekür edrim tam isdeiğim gibi olmuş çook teşkür ederims ağolun

    free-tekno yazılım geliştirme
  9. KısayolKısayol reportŞikayet pmÖzel Mesaj
    freetekno
    freetekno's avatar
    Kayıt Tarihi: 04/Ekim/2005
    Erkek
    ya abi ya burda demin bir çok madalyası olan bir arakdaş ynaıt vernişti tam isdeğim gibi olmuştu nereye gitti alamadım onu ya o arkadaş bidaha yanıt yaza bilirmi

    free-tekno yazılım geliştirme
  10. KısayolKısayol reportŞikayet pmÖzel Mesaj
    renegadealien
    renegadealien's avatar
    Üstün Hizmet Madalyası Savaş Madalyası Başarı Madalyası Üstün Hizmet Madalyası Developer Madalyası
    Kayıt Tarihi: 23/Mart/2003
    Erkek
    yazdım hoca buyur ama öle direk kolaya yerleşmek yok...

    al resimden otur yaz hemde anlamış olursun :)

    http://www.hemenpaylas.com/download/394849/renegadealien.TIF.html


    maksat müritlerin işi görülsün :)

    Sanıyorum kendi atasözümü yaptım, kaynak belirterek kullanabilirsiniz. 10.05.2013 tarihli google arama sonucu : Aradığınız - "herşeyin hayırlısı rampanın bayırlısı" - ile ilgili hiçbir arama sonucu mevcut değil. Not : Söyleyeni belli olduğu için(Ben) atasözü değil, özlüsöz oluyormuş, dolayısı ile kendi özlüsözümü yapmış oldum :)
  11. KısayolKısayol reportŞikayet pmÖzel Mesaj
    freetekno
    freetekno's avatar
    Kayıt Tarihi: 04/Ekim/2005
    Erkek
    teşşekürler hoca çok sağolasın

    free-tekno yazılım geliştirme
Toplam Hit: 1270 Toplam Mesaj: 11