Home Hardware Networking Programmazione Software Domanda Sistemi
Conoscenza Informatica >> software >> Software Database >> .

Come utilizzare l'accesso per registrare il suono

Microsoft Access è un programma di gestione di database che consente agli utenti di creare e modificare i moduli di database . Inoltre , gli sviluppatori possono utilizzare Access per creare il software applicativo utilizzato per registrare i suoni . Per registrare suoni in Access, è necessario inserire un codice nel modulo di database che istruisce per aprire il Registratore di suoni di Microsoft, un programma di Microsoft nativo in grado di registrare tutti i suoni in arrivo. È necessario disporre di un microfono collegato al computer in modo per Registratore di suoni per catturare il suono . Istruzioni
1

lancio di Microsoft di accesso al computer .
2

clicca su "Apri " dal menu " File " in Access . Selezionare il database a cui si desidera aggiungere un registratore di suoni . È possibile aprire il database di esempio " Northwind.mdb " per fare pratica.
3

Fare clic su " Visualizzazione Struttura ". Selezionare "Tabelle" nel riquadro di sinistra della finestra del database . . Fai clic su " Crea un tavolo per l'immissione di dati " nel riquadro principale della finestra del database
4

Inserisci il seguente codice in uno dei campi della tabella :

Table :
Messaggi

-----------------------------

Campo Nome: Messaggio

Tipo di dati : oggetto OLE
5

Fare clic su " File" e "Salva con nome ". Salvare la tabella come "Messaggi ". Quindi chiudere la tabella .
6

Selezionare l'opzione " Crea un nuovo modulo in visualizzazione Struttura " nella finestra del database .
7

Immettere il codice riportato di seguito nel forma :

Bound cornice oggetto :

Nome: Messaggio

controllo: Messaggio
Pulsante di comando

:

Nome: RecordMessage < br

Caption > : Record

Pulsante di comando :

Nome: PlayMessage

Didascalia : Gioca

private Sub RecordMessage_Click ( ) per

Con Me.Message

. Classe = " SoundRec "

. Action = acOLECreateEmbed

. verbo = acOLEVerbPrimary

. Action = acOLEActivate

End With End Sub


private Sub PlayMessage_Click ( ) per

Me.Message.Action = 7

End Sub

 

software © www.354353.com