CERCASI SEMPLICE ISTRUZIONE VBASIC

[ASKY1982]

Ciao a tutti...
Mi potete aiutare??
Cerco un'istruzione visual basic che apra il porta cd...
Non rieSCO A FARLA

help

[okay]

Originariamente inviato da ASKY1982

Ciao a tutti...
Mi potete aiutare??
Cerco un'istruzione visual basic che apra il porta cd...
Non rieSCO A FARLA

help

nessuno riesce a farla...

tutto è già pronto!!

----------modulo bas------------------
Declare Function mciSendString Lib "winmm.dll" Alias "mciSendStringA" _
(ByVal lpstrCommand As String, ByVal lpstrReturnString As String, _
ByVal uReturnLength As Long, ByVal hwndCallback As Long) As Long
--------------------------------------

------------pulsante 1----------------
returnstring = "0&"
retvalue = mciSendString("Apri CDROM", returnstring, 127, 0)
--------------------------------------

------------pulsante 2----------------
returnstring = "0&"
retvalue = mciSendString("Chiudi CDROM", returnstring, 127, 0)
--------------------------------------

[ASKY1982]

grazieeee mileeee!!!!!

[ASKY1982]

Scusami ma cosa intendi per modulo bas??

[ASKY1982]

e poi ho provato a fare il copia incolla man non va

[ASKY1982]

aiutatemiiii

[mynos79]

La parte relativa al modulo bas ... la devi inserire in un modulo BAS ...
Un modulo bas non è altro che un file in cui si può scrivere solo codice; in genere si dichiarano qui tutte le variabili globali, funzioni e sub usate in tutto il progetto ...

[mynos79]

Copia questo codice in un modulo bas:

Public Declare Function mciSendString Lib "winmm.dll" _
    Alias "mciSendStringA" (ByVal lpstrCommand As String, _
    ByVal lpstrReturnString As String, _
    ByVal uReturnLength As Long, _
    ByVal hwndCallback As Long) As Long

Public Sub OpenCD(driveletter As String)
    Dim mssg As String * 255
    Dim ReturnValue As Long
    driveletter = driveletter & ":\"
    ReturnValue = mciSendString("open " & driveletter & _
        " Type cdaudio Alias cd", mssg, 255, 0)
    ReturnValue = mciSendString("set cd door open", _
        vbNullString, 0, 0)
    ReturnValue = mciSendString("close cd", 0&, 0, 0)
End Sub

Nel form invece, per richiamare la sub che apre il lettore, basta usare il seguente codice (tra gli apici inserire la lettera dell' unità del lettore):

OpenCD "E"

Questo è solo uno dei tanti modi per aprire o chiudere un lettore ... in ogni caso tutti i modi usano la funzione di libreria mciSendString ... se cerchi in google trovi moltissime applicazioni di tale funzione ...

[ASKY1982]

grazie mille!!!
ci sono riuscitoooo

siete dei grandi..
Posso farvi un'altra domandina???

Come posso fr avvenire delle azioni quando si digita una certa lettera della tastiera??

[Mitzuashi]

Usa gli eventi keyPress,
intercetti la lettera che e' stata digitata e richiami l'evento.

Per esempio:
Private Sub Form_KeyPress(KeyAscii As Integer)
'KeyAscii ha il codice del tasto che e' stato digitato.
'Fai un if o un case per associare l'azione al tasto da te scelto'

If (KeyAscii = vbKeyA) Then
funzione_desiderata
end if

End Sub

Ciao

[ASKY1982]

B

[ASKY1982]

Bella sono riuscito a fare anche queso))

ora mi manca un'ultima cosa..
Ho inserito un file ole di tipo WAVE..
però voglio che si apra solo ogni qual volta il timer finisca di contare...come posso fare??

ragazzi grazie per l'aiuto che mi state dando

[mynos79]

Che intendi con "ho inserito un file ole di tipo wave"?

Non puoi semplicemente fare così?

In un modulo bas (quello che hai già usato) inserisci la seguente dichiarazione di funzione:

' questa dichiarazione che sfrutta la libreria Win Multimedia
Public Declare Function sndPlaySound Lib "winmm" Alias "sndPlaySoundA" _
    (ByVal lpszSoundName As String, ByVal uFlags As Long) As Long

Crei un controllo Timer ed imposti la sua proprietà interval (magari un valore più grande della durata del wave altrimenti si accavalla tutto ) ed usi il seguente codice:

Dim wave As Long

Private Sub Timer1_Timer()
    wave = sndPlaySound("c:\aaa.wav", 1)
End Sub

[ASKY1982]

E se invece con un pulsante vorrei passare al form successivo come potrei fare??

[mynos79]

Ehm ... ma ci hai presi per il manuale VB?

Crei tutti i form che ti servono (Form1, Form2, Form3 ...) e per richiamarli usi il metodo Show() ... per nasconderli invece il metodo Hide()

Esempio:

Form2.Show

Form2.Hide

[ASKY1982]

mmmm efettivamente ne sto un pò aprofittando

[mynos79]

Se hai altre domande su VB6, querami tranquillamente su msn che facciamo prima

[ASKY1982]

Originariamente inviato da Mitzuashi

Usa gli eventi keyPress,
intercetti la lettera che e' stata digitata e richiami l'evento.

Per esempio:
Private Sub Form_KeyPress(KeyAscii As Integer)
'KeyAscii ha il codice del tasto che e' stato digitato.
'Fai un if o un case per associare l'azione al tasto da te scelto'

If (KeyAscii = vbKeyA) Then
funzione_desiderata
end if





End Sub

Ciao

ma come faccio a intercettare la lettera???

[ASKY1982]

Originariamente inviato da mynos79

Se hai altre domande su VB6, querami tranquillamente su msn che facciamo prima

Ti ringrazio per la tua disponibilita...sei molto gentile

[mynos79]

Originariamente inviato da ASKY1982

ma come faccio a intercettare la lettera???

Leggendo il valore KeyAscii che contiene il codice ascii del carattere intercettato dall' evento KeyPress ...
Poi con la funzione chr() lo converti in carattere