Basic ponovo...
Prikazujem rezultate 1 do 4 od 4

Tema: Basic ponovo...

  1. #1
    Početnik
    Učlanjen
    23.07.2006.
    Lokacija
    Haifa
    Poruke
    36
    Reputaciona moć
    0

    Podrazumevano Basic ponovo...

    Znam da su vam vise dosadila moja pitanja, ali imam jedan problem. Radi se o programskom codu kod Visual Basica. Postavio sam jedan objekat za cekiranje. Zeleo bih da se prilikom njegovog cekiranja pojavi izvestan tekst. Ja sam napisao cod ali nesto nije u redu jer ne radi.

    Check1.Value = Unchecked
    If (Check1.Value = Checked) Then Print "Neki tekst"
    End Sub

    Sta ovde ne valja?
    Poslednji put ažurirao/la BIVSI ZEKEN : 09.01.2007. u 16:36



  2. #2
    Elita codemaker (avatar)
    Učlanjen
    05.04.2004.
    Lokacija
    Beograd
    Poruke
    6.422
    Reputaciona moć
    0

    Podrazumevano Re: Basic ponovo...

    Ne radim u VB ali ovako napisan kod nece nikad izvrsiti sa ispisom "Neki tekst"

    Najpre iniciras Check1 na False a neposredno za tim testiras status. Naravno da nece nikad da ti ispise "Neki tekst"

    Inicijalizacija kontrola na neke vrednosti se ne vrsi neposredno pred ispitivanje njihove sadrzine/statusa.. Mora se inicijalizacija izvrsiti na drugom mestu a ne neposredno pred testiranje.
    proveri logiku.

    PS:
    Dok sam kucao odgovor, promenio si "false" u Unchecked..
    Pre svega, ne zna se tip Unchecked varijable. Checkbox uvek mora da se referise na LOGICKU varijably, koja vraca TRUE ili FALSE. Ako imas varijable ciji sadrzaj je TRUE ili FALSE, onda ok, inace ti tek ovako nece raditi

  3. #3
    Zainteresovan član
    Učlanjen
    27.09.2003.
    Pol
    muški
    Lokacija
    Sydney
    Poruke
    388
    Reputaciona moć
    52

    Podrazumevano Re: Basic ponovo...

    VB2005

    Kod:
        Private Sub CheckBox1_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CheckBox1.CheckedChanged
      If CheckBox1.Checked = True Then
                MsgBox("Cekirano")
            Else
                MsgBox("Nije Cekirano")
            End If
        End Sub
    VB 6

    Kod:
    Private Sub Check1_Click()
        If Check1.Value = 1 Then
            MsgBox("Cekirano")
        Else
            MsgBox("Nije Cekirano")
        End If
    End Sub
    Poslednji put ažurirao/la SALE83 : 10.01.2007. u 02:01

  4. #4
    Zainteresovan član sist_ing (avatar)
    Učlanjen
    28.02.2006.
    Pol
    muški
    Lokacija
    Bor
    Poruke
    292
    Reputaciona moć
    42

    Podrazumevano Re: Basic ponovo...

    Koliko sam primetio završio si podrutinu sa End Sub a nigde je nisi započeo. Program bi ti u ovom slučaju prijavio grešku.
    Dakle, ovo što si napisao radi ali moraš navesti događaj pod kojim će se ovaj deo koda izvršiti.
    Unchecked ne moraš navesti jer je kontrola po default-u dečekirana.
    Recimo:
    Kod:
    Private Sub Check1_Click()
        If (Check1.Value = Checked) Then Print "Neki tekst"
    End Sub
    Poslednji put ažurirao/la sist_ing : 14.01.2007. u 19:19

Slične teme

  1. q basic
    Autor M.M.L. u forumu Programiranje
    Odgovora: 4
    Poslednja poruka: 22.01.2008., 20:38
  2. Q Basic
    Autor damir24 u forumu Programiranje
    Odgovora: 7
    Poslednja poruka: 20.06.2006., 10:27
  3. BASIC 6.0
    Autor u forumu Programiranje
    Odgovora: 4
    Poslednja poruka: 25.10.2004., 15:10
  4. l.basic
    Autor blah u forumu Programiranje
    Odgovora: 0
    Poslednja poruka: 03.06.2004., 18:30

Pravila za slanje poruka

  • Ne možete kreirati novu temu
  • Ne možete poslati odgovor
  • Ne možete dodati priloge
  • Ne možete prepraviti svoju poruku
  •