Pomozite za VB pocetniku
Prikazujem rezultate 1 do 4 od 4

Tema: Pomozite za VB pocetniku

  1. #1
    Početnik
    Učlanjen
    16.06.2006.
    Pol
    muški
    Poruke
    15
    Reputaciona moć
    0

    Podrazumevano Pomozite za VB pocetniku

    Poceo sam da se bavim programirane u VB i zapeo sam na dve
    prepreke.
    Prva je neznam kako da testiram vrata "A" dali je disketa u njima,
    odnosno dali je spremna za upisivanje,
    i Druga je kako da testiram printer port odnosno dali je stampac
    prisutan na portu i jeli spreman za pisanje.
    Zahvaljujem se na svakoj pomoci.

    susese
    pomoc moze biti upucena i na moju postu bibers@mail.com



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

    Thumbs up Dva saveta

    1. Ne postavljaj sebi zadatak koji je za tebe nedostižan već postavi sebi nešto u okviru onoga što si do sad naučio.
    2. Ne postavljaj dve teme iste sadržine jer je dovoljno jedna da bi te neko razumeo. :wink:

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

    Podrazumevano Re: Pomozite za VB pocetniku

    Probaj ovo:

    Kod:
    Private Sub Form_Load()
      If FloppyReady Then MsgBox "The Floppy Disk Is Ready!"
      End
    End Sub
    
    Private Function FloppyReady() As Boolean
      Dim fsO As Object
      Dim S As String
      Set fsO = CreateObject("Scripting.filesystemObject")
      Do While True
        On Error Resume Next
        ' Check for the presence of directories as well as files on the floppy
        S = Dir$("A:\*.*", vbDirectory)
        If Err.Number = 52 Then
          Err.Clear
          If MsgBox("Put a floppy disk in the A: drive or Click Cancel", vbOKCancel) = vbCancel Then GoTo ErrEnd
        Else
          Exit Do
        End If
      Loop
      If S <> "" Then
        If MsgBox("Floppy disk not empty: Erase the files?", vbYesNo) = vbYes Then
          If Dir$("A:\*.*", vbNormal) <> "" Then fsO.deletefile ("A:\*")
          If Dir$("A:\*.*", vbDirectory) <> "" Then fsO.deletefolder ("A:\*")
        Else
          GoTo ErrEnd
        End If
      End If
      FloppyReady = True
    ErrEnd:
      Set fsO = Nothing
    End Function
    Poz
    sale

  4. #4
    Početnik
    Učlanjen
    16.06.2006.
    Pol
    muški
    Poruke
    15
    Reputaciona moć
    0

    Podrazumevano Re: Pomozite za VB pocetniku

    SALE83
    Probao sam COD koji Ste mi poslali radi fenomenalno,
    moracu se potruditi da msgbox informacije i
    pitanja budu na naske.
    Sada bih Vas priupitao dali imate ovako jak odgovor na
    moje sledece, a mozda ako budete dobre volje da mi pomognje u savaladjivanju VB-a na jos mnoga druga pitanja vezana za programiranje, a to je test spremnosti stampaca za stampanje,
    spreman, ukljucen nema papira, nije spreman.
    Veoma sam Vam zahvalan.
    Pozdrav i sve najbolje u zivotu i radnu.

Slične teme

  1. Pomozite pocetniku
    Autor susese u forumu Programiranje
    Odgovora: 1
    Poslednja poruka: 23.11.2006., 13:27
  2. Pomozite za VB pocetniku
    Autor susese u forumu Programiranje
    Odgovora: 0
    Poslednja poruka: 16.06.2006., 15:00
  3. pomozite pocetniku
    Autor sutjeska u forumu Web dizajn
    Odgovora: 2
    Poslednja poruka: 02.06.2004., 11:22
  4. POMOZITE POČETNIKU
    Autor NOVLJANKA u forumu Zanimljivi sajtovi
    Odgovora: 3
    Poslednja poruka: 09.05.2004., 18:35
  5. pomoć početniku
    Autor nm u forumu Video igre
    Odgovora: 0
    Poslednja poruka: 03.03.2004., 21:58

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
  •