Chyba – Visual Basic – Fórum – Programujte.com
 x   TIP: Přetáhni ikonu na hlavní panel pro připnutí webu
Reklama
Reklama

Chyba – Visual Basic – Fórum – Programujte.comChyba – Visual Basic – Fórum – Programujte.com

 

Hledá se programátor! Plat 1 800 € + bonusy (firma Boxmol.com)
Anoným
~ Anonymní uživatel
429 příspěvků
25. 6. 2015   #1
-
0
-

Dobrý deň, mám tento kód v VB. Ale vyhadzuje sa mi táto chyba. Možno je to dáka maličkosť ale neviem si s ňou poradiť. Pomôžete mi ? Vďaka. 

 Kód:

Public Class Form1

    'Webcam
    Public Touchless As New TouchlessLib.TouchlessMgr
    Public Camera1 As TouchlessLib.Camera = Touchless.Cameras.Item(0)
    Dim poc As Integer
    Dim saveName As Double


    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Touchless.CurrentCamera = Camera1
        Touchless.CurrentCamera.CaptureHeight = 480
        Touchless.CurrentCamera.CaptureWidth = 640
        poc += "0"
        saveName += ""

    End Sub

    Private Sub PictureBox1_Click(sender As Object, e As EventArgs) Handles PictureBox1.Click
        If TextBox3.Text = "1a2b3c" Then
            Timer1.Start()
            Me.BackgroundImage = Image.FromFile("C:\Users\user\Documents\Visual Studio 2012\Projects\PcProtect\PcProtect\Resources\granted.jpg")
            PictureBox2.Visible = False
        Else
            poc += "1"
            saveName += "C:\Users\user\Desktop" + poc + ".jpg"
            PictureBox2.Image = Touchless.CurrentCamera.GetCurrentImage
            Touchless.CurrentCamera.GetCurrentImage.Save(saveName)
            Me.BackgroundImage = Image.FromFile("C:\Users\user\Documents\Visual Studio 2012\Projects\PcProtect\PcProtect\Resources\den.jpg")
        End If
    End Sub



    Private Sub Timer1_Tick(sender As Object, e As EventArgs) Handles Timer1.Tick
        Me.Close()
    End Sub
End Class

Popis chyby:

An unhandled exception of type 'System.InvalidCastException' occurred in Microsoft.VisualBasic.dll

Additional information: Conversion from string "C:\Users\user\Desktop" to type 'Double' is not valid.
Nahlásit jako SPAM
IP: 188.123.115.–
Reklama
Reklama
mjseven0
Návštěvník
25. 6. 2015   #2
-
0
-

Pokud si přečteš text té chyby, tak by ti mělo být jasné v čem je problém. 

Snažíš se do saveName, které jsi deklaroval jako double, zapsat řetězec. 



 

Nahlásit jako SPAM
IP: 66.249.93.–
Anoným
~ Anonymní uživatel
429 příspěvků
25. 6. 2015   #3
-
0
-

#2 mjseven
Tak viem že to mám zle deklarované. Ale ako to mám prosím opraviť ?

Nahlásit jako SPAM
IP: 188.123.115.–
pee-jay_cz0
Návštěvník
25. 6. 2015   #4
-
0
-

 Dim SaveName As String

Nahlásit jako SPAM
IP: 213.129.159.–
Anoným
~ Anonymní uživatel
429 příspěvků
25. 6. 2015   #5
-
0
-

#4 pee-jay_cz
Nepomáha ani to. Vyhodí to rovnakú chybu. 

Nahlásit jako SPAM
IP: 188.123.115.–
pee-jay_cz
~ Anonymní uživatel
74 příspěvků
25. 6. 2015   #6
-
0
-

hmm...

Ty jsi změnil ten čtvrtý řádek Dim saveName As Double na: Dim SaveName As String,

a přesto máš chybu "Conversion from string "C:\Users\user\Desktop" to type 'Double' is not valid?"

To je docela záhada, protože ve tvým kódu už žádná proměnná typu Double není :)

Nahlásit jako SPAM
IP: 213.129.159.–
Anoným
~ Anonymní uživatel
429 příspěvků
26. 6. 2015   #7
-
0
-

Ďakujem za rady. ;) Chyba vyriešená takto. 

            ww = "C:\Users\user\Desktop\LockPhoto\"
            Typ = ".jpg"
            LP = "LP-"
            poce += 1
            SaveName = ww + LP + poce + Typ
            PictureBox2.Image = Touchless.CurrentCamera.GetCurrentImage
            Touchless.CurrentCamera.GetCurrentImage.Save(SaveName)
            Me.BackgroundImage = Image.FromFile("C:\Users\user\..")
Nahlásit jako SPAM
IP: 188.123.115.–
Zjistit počet nových příspěvků

Přidej příspěvek

Toto téma je starší jak čtvrt roku – přidej svůj příspěvek jen tehdy, máš-li k tématu opravdu co říct!

Ano, opravdu chci reagovat → zobrazí formulář pro přidání příspěvku

×Vložení zdrojáku

×Vložení obrázku

Vložit URL obrázku Vybrat obrázek na disku
Vlož URL adresu obrázku:
Klikni a vyber obrázek z počítače:

×Vložení videa

Aktuálně jsou podporována videa ze serverů YouTube, Vimeo a Dailymotion.
×
 
Podporujeme Gravatara.
Zadej URL adresu Avatara (40 x 40 px) nebo emailovou adresu pro použití Gravatara.
Email nikam neukládáme, po získání Gravatara je zahozen.
-
Pravidla pro psaní příspěvků, používej diakritiku. ENTER pro nový odstavec, SHIFT + ENTER pro nový řádek.
Sledovat nové příspěvky (pouze pro přihlášené)
Sleduj vlákno a v případě přidání nového příspěvku o tom budeš vědět mezi prvními.
Reaguješ na příspěvek:

Uživatelé prohlížející si toto vlákno

Uživatelé on-line: 0 registrovaných, 12 hostů

Podobná vlákna

Chyba — založil bohetik

Chyba — založil Racak94

Chyba? — založil  

Chyba — založil hirakam

Moderátoři diskuze

 

Hostujeme u Českého hostingu       ISSN 1801-1586       ⇡ Nahoru Webtea.cz logo © 20032016 Programujte.com
Zasadilo a pěstuje Webtea.cz, šéfredaktor Lukáš Churý