[es] - pomoc oko seminarskog rada + Telefonski imenik

hakurik
Ivan Erceg
Doboj

Član broj: 132540
Poruke: 61
*.team.ba.

Profil

pomoc oko seminarskog rada + Telefonski imenik

^{19.06.2007. u 15:06 - pre 204 meseci}

Ovako, za seminarski radi iz predmata Baze i informacioni sistemi, odabrao sam da uradim Telefonski imenik. Vecinu toga sam odradio, sto sam, sto sam nalazio kodove na netu, pa uklapao, mijenjao, itd. Uglavnom, napravio sam, da mogu dodavati, brisati, traziti, mijenjati, izlistati.... korisnike u imeniku, to se sve fino zapisuje u access-ovu bazu. Od polja u imenik sam ubacio, Ime, Prezime, Grad, Telefon/Fax, Mobitel, Adresu, Grad, Napomenu. Sada bih htio, dodati mogucnost, da se neki broj moze pozvati direktno sa imenika, tj. da se prozove COM port na kojem je modem, i da se ostvari komunikacija, tj. da se zvuk cuje na zvucnike, a da se prica na mic. koliko sam ja shvatio, ovo drugo dvoje bi bilo automatski, samo je fazon poslati broj na taj i taj port, tj, na modem. Znaci, kad ja kliknem na polje Telefon/Fax, ili na polje Mobitel, da comp pozove taj broj, odnosno tog clienta. Da li mi neko moze pomoci oko toga. Mogu poslati i dio programa koji sam uradio.

Ivan

Odgovor na temu

BinLaden
Ni na nebu ni na zemlji

Član broj: 147476
Poruke: 102
*.teol.net.

Sajt: www.sove-soft.rs.ba

Profil

Re: pomoc oko seminarskog rada + Telefonski imenik

^{19.06.2007. u 20:18 - pre 204 meseci}

Didaj kontrolu "Microsoft Comm Control 6.0". U ovom slucaju ja sam je nazvao "MSC1".

Code:
Private Sub Command1_Click()

Dim strBroj As String

    If Text1.Text = "" Then Exit Sub 'U Text1 je upisan broj koji se poziva

    If Command1.Caption = "Prekini" Then
        On Error GoTo Kraj
        MSC1.PortOpen = False
        Exit Sub
    End If

    Command1.Caption = "Prekini"

    strBroj = "ATDT" & Text1.Text & ";" & vbCr

    MSC1.CommPort = 3    'Ovde moras znati na kojem COMMPort-u se nalazi modem

    MSC1.Settings = "9600,N,8,1"

    On Error Resume Next

    If MSC1.PortOpen = True Then MSC1.PortOpen = False

    MSC1.PortOpen = True
    MSC1.InBufferCount = 0

    MSC1.Output = strBroj

Exit Sub
Kraj:
    Command1.Caption = "Pozovi"

End Sub

Ero S Onoga Sveta

Odgovor na temu

hakurik
Ivan Erceg
Doboj

Član broj: 132540
Poruke: 61
*.team.ba.

Profil

Re: pomoc oko seminarskog rada + Telefonski imenik

^{20.06.2007. u 00:21 - pre 204 meseci}

Ehh ovako, malo sam zapeo opet. Posto imam dva broja na formi, Telefon/Fax i Mobitel, htio bih da napravim ovako nesto:
U polju txtFields(3) se nalazi broj Mobitel, a u polju txtFields(2) broj Telefon/Fax

Code:

Private Sub Connect_Click()
If (txtFields(2).Text = "") Or (txtFields(3).Text = "") Then
      MsgBox "Broj ne postoji. Molimo dodajte broj za korisnika ......", vbCritical, "Pomoć"
      Form1.Show
      txtFields(2).SetFocus
End if
If (txtFields(2).SetFocus = False) Or (txtFields(3).SetFocus = False) Then
      MsgBox "Morate označiti polje u kojem se nalazi broj koji želite zvati", vbCritical, "Pomoć"
      Form1.Show
      Exit Sub
    End If
    frmOdluka.Show
End Sub

Sta u stvari zelim. Ako je polje prazno, da korisnik dobije poruku da mora ukucati broj, i da se da se npr. polje Telefon/Fax oznaci da moze ukucati broj. Ako korisnik, nije oznacio ni jedno polje sa brojem (Telefon/Fax ili Mobitel), da opet dobije poruku, i da mora oznaciti neko polje. Gdje grijesim u ovom kodu? :(

Ivan

Odgovor na temu

BinLaden
Ni na nebu ni na zemlji

Član broj: 147476
Poruke: 102
*.teol.net.

Sajt: www.sove-soft.rs.ba

Profil

Re: pomoc oko seminarskog rada + Telefonski imenik

^{20.06.2007. u 11:07 - pre 204 meseci}

Grijesis u tome sto kada ti kliknes na "Connect" on automatski
preuzima fokus od text-boxsova i ustvari ni jedan nije selektovan.
Prvo sto mi pada na pamet je da pri kliku na neki text-box promijenis mu
BackColor ili boju fonta i onda ispitujes taj properties.

Ero S Onoga Sveta

Odgovor na temu

hakurik
Ivan Erceg
Doboj

Član broj: 132540
Poruke: 61
*.team.ba.

Profil

Re: pomoc oko seminarskog rada + Telefonski imenik

^{20.06.2007. u 19:40 - pre 204 meseci}

Dajte ljudi pomagajte, ne mogu ovo nikako da rijesim, a krenuo sam putem koji mi je BinLaden predlozio :( Nikako ne mogu dalje od ovoga:

Code:

Private Sub txtAdresa_Click()
  Connect.Enabled = False
  txtTelefon.ForeColor = &H80&
  txtTelefon.BackColor = &H80000005
  txtMobitel.ForeColor = &H80&
  txtMobitel.BackColor = &H80000005
End Sub

Private Sub txtNapomena_Click()
  Connect.Enabled = False
  txtTelefon.ForeColor = &H80&
  txtTelefon.BackColor = &H80000005
  txtMobitel.ForeColor = &H80&
  txtMobitel.BackColor = &H80000005
End Sub

Private Sub txtGrad_Click()
  Connect.Enabled = False
  txtTelefon.ForeColor = &H80&
  txtTelefon.BackColor = &H80000005
  txtMobitel.ForeColor = &H80&
  txtMobitel.BackColor = &H80000005
End Sub

Private Sub txtPrezime_Click()
  Connect.Enabled = False
  txtTelefon.ForeColor = &H80&
  txtTelefon.BackColor = &H80000005
  txtMobitel.ForeColor = &H80&
  txtMobitel.BackColor = &H80000005
End Sub

Private Sub txtIme_Click()
   Connect.Enabled = False
  txtTelefon.ForeColor = &H80&
  txtTelefon.BackColor = &H80000005
  txtMobitel.ForeColor = &H80&
  txtMobitel.BackColor = &H80000005
End Sub

Private Sub txtTelefon_Click()
  txtTelefon.ForeColor = &H80000005
  Boja = txtTelefon.ForeColor
  txtTelefon.BackColor = &H80&
  txtMobitel.ForeColor = &H80&
  txtMobitel.BackColor = &H80000005
  Connect.Enabled = True
End Sub

Private Sub txtMobitel_Click()
  Connect.Enabled = True
  txtTelefon.ForeColor = &H80&
  txtTelefon.BackColor = &H80000005
  txtMobitel.ForeColor = &H80000005
  txtMobitel.BackColor = &H80&
End Sub

Ovim kodom osiguravam, da pozadina polja Mobitel i Telefon/Fax ostane bijela, a slova bordo, kad nije cursor u njima, a da se te boje zamjene, kad se klikne na ta polja, a i da dugme Connect bude neaktivno, dok se ne klikne na neki od brojeva. Dalje ne mogu maketi :( sve se vrtim nekako u krug. Please pomozite :(

Ivan

Prikačeni fajlovi

imenik.GIF - 23.58k

Odgovor na temu

BinLaden
Ni na nebu ni na zemlji

Član broj: 147476
Poruke: 102
*.teol.net.

Sajt: www.sove-soft.rs.ba

Profil

Re: pomoc oko seminarskog rada + Telefonski imenik

^{20.06.2007. u 22:05 - pre 204 meseci}

Umjesto slike bolje da si ostavio sorce projekta, al dok obavim vecernju higijenu pogledacu dali
mogu da ti pomognem.

Ero S Onoga Sveta

Odgovor na temu

BinLaden
Ni na nebu ni na zemlji

Član broj: 147476
Poruke: 102
*.teol.net.

Sajt: www.sove-soft.rs.ba

Profil

Re: pomoc oko seminarskog rada + Telefonski imenik

^{20.06.2007. u 23:20 - pre 204 meseci}

Evo ovako: kao prvo izbrisi iz programa sav onaj kod koji si postovao u
prethodnoj poruci. Bez potrebe si vezao ostale text-boxove za promjenu boje
"Telefona" i "mobitela".
U proceduru (GotFocus) Text-boxsova "txtTelefon" i "txtMobitel" upisi sledeci
kod, odnosno samo ga prekopiraj:

Code:

Private Sub txtMobitel_GotFocus()
    txtTelefon.BackColor = &H80000005
    txtTelefon.ForeColor = &H80&

    If Len(txtMobitel.Text) > 0 Then
        txtMobitel.BackColor = &H80&
        txtMobitel.ForeColor = &H80000005
    Else
        txtMobitel.BackColor = &H80000005
        txtMobitel.ForeColor = &H80&
    End If
End Sub

Private Sub txtTelefon_GotFocus()
    txtMobitel.BackColor = &H80000005
    txtMobitel.ForeColor = &H80&

    If Len(txtTelefon.Text) > 0 Then
        txtTelefon.BackColor = &H80&
        txtTelefon.ForeColor = &H80000005
    Else
        txtTelefon.BackColor = &H80000005
        txtTelefon.ForeColor = &H80&
    End If
End Sub

U proceduru (Change) Text-boxsova "txtTelefon" i "txtMobitel" upisi sledeci
kod, odnosno samo ga prekopiraj:

Code:

Private Sub txtMobitel_Change()
Call txtMobitel_GotFocus
End Sub

Private Sub txtTelefon_Change()
Call txtTelefon_GotFocus
End Sub

Dugme "Connect" nemas potrebe da zakljucavas ili otkljucavas odnosno "Enabled - Disabled"
Neka bude stalno "Enabled = True".
U preceduru "Connect_Click" na pocetak stavi ovaj kod:

Code:

Private Sub Connect_Click()
Dim Broj As String
    If txtTelefon.BackColor <> &H80& And txtMobitel.BackColor <> &H80& Then
        MsgBox "Odaberite Broj Za Pozivanje.", 64, "Paznja!"
        Exit Sub
    End If

    If txtTelefon.BackColor = &H80& Then
        Broj = txtTelefon.Text
    Else
        Broj = txtMobitel.Text
    End If
    'Dalje ide kod za pozivanje.........

End Sub

Ero S Onoga Sveta

Odgovor na temu