Problema con vb 2005

sabato 11 settembre 2010 - 22.31

Elenco Threads

Stanze Forum

Aggiungi ai Preferiti

Cerca nel forum

Elenco Tags VB.NET

Marcuus Profilo | Newbie

34 messaggi | Data Invio: sab 11 set 2010 - 22:31

vorrei creare un programma che dato un testo nella textbox1 lo trasformi nella textbox2 in questo modo: se la prima lettera è la a diventa z se b allora y se c allora x e così via io ho fatto così ma non funziona .... qualche consiglio ??? grazie in anticipo

Public Class Form1
Public k
Public c

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Timer1.Start()
End Sub

Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
Dim ls As Integer
Dim i As Integer
ls = Len(TextBox1.Text)
If k = ls Then
Timer1.Stop()
Else
k = k + 1
End If
For i = 1 To ls
c = Mid(TextBox1.Text, k, 1)
'TextBox2.Text = c
If c = "a" Then
If TextBox2.Text = "" Then
TextBox2.Text = "z"
Else
TextBox2.Text = TextBox2.Text + "z"
End If
End If
Next i
End Sub

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Timer1.Stop()
End Sub
End Class

alexmed Profilo | Guru

1.186 messaggi | Data Invio: sab 11 set 2010 - 23:20

Ciao
Prova con questo

 Il codice sorgente non è stato renderizzato qui
perchè non c'è sufficiente spazio.
Clicca qui per visualizzarlo in una nuova finestra

Poi bisognerebbe implementarlo nel caso si digitassero lettere maiuscole oppure il tasto DEL.

Fammi sapere

Ciao

alexmed

Marcuus Profilo | Newbie

34 messaggi | Data Invio: dom 12 set 2010 - 00:14

ohhhhhhhhhhhhhhhhhhhh grazie mille FUNZIONA problema risolto. ancora una cosa da chiederti : devo far funzionare una webcam sempre con vb ho il codice ma non mi funziona cioè non fa niente puoi controllarmelo? grazie mille

Public Class Form1
Const WM_CAP As Short = &H400S
Const WM_CAP_DRIVER_CONNECT As Integer = WM_CAP + 10
Const WM_CAP_DRIVER_DISCONNECT As Integer = WM_CAP + 11
Const WM_CAP_EDIT_COPY As Integer = WM_CAP + 30
Const WM_CAP_SET_PREVIEW As Integer = WM_CAP + 50
Const WM_CAP_SET_PREVIEWRATE As Integer = WM_CAP + 52
Const WM_CAP_SET_SCALE As Integer = WM_CAP + 53
Const WS_CHILD As Integer = &H40000000
Const WS_VISIBLE As Integer = &H10000000
Const SWP_NOMOVE As Short = &H2S
Const SWP_NOSIZE As Short = 1
Const SWP_NOZORDER As Short = &H4S
Const HWND_BOTTOM As Short = 1

Dim iDevice As Integer = 0 ' Normal device ID
Dim hHwnd As Integer ' Handle value to preview window

' Declare function from AVI capture DLL.

Declare Function SendMessage Lib "user32" Alias "SendMessageA" _
(ByVal hwnd As Integer, ByVal wMsg As Integer, ByVal wParam As Integer, _
ByVal lParam As Object) As Integer

Declare Function SetWindowPos Lib "user32" Alias "SetWindowPos" (ByVal hwnd As Integer, _
ByVal hWndInsertAfter As Integer, ByVal x As Integer, ByVal y As Integer, _
ByVal cx As Integer, ByVal cy As Integer, ByVal wFlags As Integer) As Integer

Declare Function DestroyWindow Lib "user32" (ByVal hndw As Integer) As Boolean

Declare Function capCreateCaptureWindowA Lib "avicap32.dll" _
(ByVal lpszWindowName As String, ByVal dwStyle As Integer, _
ByVal x As Integer, ByVal y As Integer, ByVal nWidth As Integer, _
ByVal nHeight As Short, ByVal hWndParent As Integer, _
ByVal nID As Integer) As Integer

Declare Function capGetDriverDescriptionA Lib "avicap32.dll" (ByVal wDriver As Short, _
ByVal lpszName As String, ByVal cbName As Integer, ByVal lpszVer As String, _
ByVal cbVer As Integer) As Boolean

Private Sub OpenPreviewWindow()
Dim iHeight As Integer = picCapture.Height
Dim iWidth As Integer = picCapture.Width

' Open Preview window in picturebox .
' Create a child window with capCreateCaptureWindowA so you can display it in a picturebox.

hHwnd = capCreateCaptureWindowA(iDevice, WS_VISIBLE Or WS_CHILD, 0, 0, 640, _
480, picCapture.Handle.ToInt32, 0)

' Connect to device
If SendMessage(hHwnd, WM_CAP_DRIVER_CONNECT, iDevice, 0) Then

' Set the preview scale
SendMessage(hHwnd, WM_CAP_SET_SCALE, True, 0)

' Set the preview rate in milliseconds
SendMessage(hHwnd, WM_CAP_SET_PREVIEWRATE, 66, 0)

' Start previewing the image from the camera
SendMessage(hHwnd, WM_CAP_SET_PREVIEW, True, 0)

' Resize window to fit in picturebox
SetWindowPos(hHwnd, HWND_BOTTOM, 0, 0, picCapture.Width, picCapture.Height, _
SWP_NOMOVE Or SWP_NOZORDER)
btnSave.Enabled = True
btnStop.Enabled = True
btnStart.Enabled = False
Else
' Error connecting to device close window
DestroyWindow(hHwnd)
btnSave.Enabled = False
End If
End Sub

' Use SendMessage to copy the data to the clipboard Then transfer the image to the picture box.

Private Sub btnSave_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnSave.Click
Dim data As IDataObject
Dim bmap As Image
' Copy image to clipboard
SendMessage(hHwnd, WM_CAP_EDIT_COPY, 0, 0)

' Get image from clipboard and convert it to a bitmap
data = Clipboard.GetDataObject()
If data.GetDataPresent(GetType(System.Drawing.Bitmap)) Then
bmap = CType(data.GetData(GetType(System.Drawing.Bitmap)), Image)
picCapture.Image = bmap
ClosePreviewWindow()
btnSave.Enabled = False
btnStop.Enabled = False
btnStart.Enabled = True
'If sfdImage.ShowDialog = DialogResult.OK Then
'bmap.Save(sfdImage.FileName, Imaging.ImageFormat.Bmp)
'End If
End If
End Sub

' Finally, to close the preview window, disconnect from the device and destroy the preview window.

Private Sub ClosePreviewWindow()
' Disconnect from device
SendMessage(hHwnd, WM_CAP_DRIVER_DISCONNECT, iDevice, 0)

' close window
DestroyWindow(hHwnd)
End Sub

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Dim strName As String = Space(100)
Dim strVer As String = Space(100)
Dim bReturn As Boolean
Dim x As Integer = 0

' Load name of all avialable devices into the lstDevices .

Do
' Get Driver name and version
bReturn = capGetDriverDescriptionA(x, strName, 100, strVer, 100)
' If there was a device add device name to the list
If bReturn Then LstDevices.Items.Add(strName.Trim)
x += 1
Loop Until bReturn = False
End Sub

Private Sub btnStart_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnStart.Click

End Sub
End Class

alexmed Profilo | Guru

1.186 messaggi | Data Invio: dom 12 set 2010 - 10:52

Ciao
Mi spiace ma non ho la webcam e non saprei, però puoi dare un'occhiata qui:
http://www.codeproject.com/KB/audio-video/WebcamUsingDirectShowNET.aspx

Caso mai ti conviene chiudere questo Thread ed aprirne uno per questo problema.

Ciao

alexmed

Torna su

Stanze Forum

Elenco Threads

Partecipa anche tu! Registrati!

Hai bisogno di aiuto ?
Perchè non ti registri subito?

Dopo esserti registrato potrai chiedere
aiuto sul nostro Forum oppure aiutare gli altri

Consulta le Stanze disponibili.

Registrati ora !