Centar za edukaciju-BiH

iCentar → Zabava → Smijesne stvari


Prosiri i skupi Opcije teme
Stranice (1):1
 Prikazi prvu neprocitanu poruku

#1 03.10.2010 10:18
zxz Van mreze
Administrator
Registrovan od:03.02.2009
Postovi:10,711


Predmet:Vb Instrukcije
Objasnjenje koda:

PreuzmiIzvorni kôd (vbnet):
  1. Private Sub AttachPivo_Click() ' naziv procedure u ovom slu?aju  Zaka?i koju pivu
  2.  
  3. Dim pivnica As RekaPiva ' Dimenzionisi prostor za smjestaj piva
  4. Dim gajba As Pivoset     ' Dimenzionisi nacin upotrebe
  5. Dim flasa As LongGutljaj  ' dimenzionisi kolicinu u jednom cugu
  6.  
  7. Set pivnica = CurrentRekaPiva() ' Pripremi prostor za upotrebu
  8. Set gajba = RekaPiva.OpenPivoset("MagacinPiva", dbOpenGajbaset) ' Otvori prostor i prilagodi ga za upotrebu
  9. For flasa = 1 To gajba  ' Uzmi flasu iz gajbe
  10. DoCmd.AttachPivo, ForFriends ' Loci jer si na redu
  11. Next' sledeca piva
  12. Set RekaPiva = Nothing '' uff nestade piva
  13. End Sub' Kraj boli glava
Podrska samo putem foruma, jer samo tako i ostali imaju koristi od toga.
↑  ↓

Stranice (1):1

Srodne teme

Ko je online?

Aktivni clanovi:
nema clanova


Kontakt
Sva vremena su GMT +01:00. Trenutno vrijeme: 2: 20 am.