Centar za edukaciju-BiH



#1 03.10.2010 11:18
zxz Na mrezi
Administrator
Registrovan od:03.02.2009
Postovi:10,612


Predmet:Vb Instrukcije
Objasnjenje koda:

PreuzmiIzvorni kd (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

Podrška samo putem foruma, jer samo tako i ostali imaju koristi od toga.
↑  ↓

Stranice (1):1


Sva vremena su GMT +02:00. Trenutno vrijeme: 8: 57 am.