Symbianize Forum

Most of our features and services are available only to members, so we encourage you to login or register a new account. Registration is free, fast and simple. You only need to provide a valid email. Being a member you'll gain access to all member forums and features, post a message to ask question or provide answer, and share or find resources related to mobile phones, tablets, computers, game consoles, and multimedia.

All that and more, so what are you waiting for, click the register button and join us now! Ito ang website na ginawa ng pinoy para sa pinoy!

VB.NET Programming Corner!

gaano ka laki ang mga images, at ilang records ang niloload mo sa showrecord()? gumawa ka ng additional column sa table mo, thumbnail, e resize mo ang original image nung pag save para sa thumbnail, during showrecord, thumbnail lang ang kunin mo, wag mo kunin ang buong picture, pag click, dun mo na event ilagay ang pagkuha ng full size image para mas mabilis mag load ang showrecord

usually nasa kb lang naman pinaka malaki na po yung 3MB yung para po sa thumbnail pano ko po gagawin yun? :) patulong naman TS! kahit sample lang po. salamat
 
gaano ka laki ang mga images, at ilang records ang niloload mo sa showrecord()? gumawa ka ng additional column sa table mo, thumbnail, e resize mo ang original image nung pag save para sa thumbnail, during showrecord, thumbnail lang ang kunin mo, wag mo kunin ang buong picture, pag click, dun mo na event ilagay ang pagkuha ng full size image para mas mabilis mag load ang showrecord

TS! thanks sa idea mo nagawa ko na siya bale sa upon saving yung path nung picture/s sinasave ko then pag dating sa form masterfile hinide ko yung path(texbox) then naglagay nalang ako ng button na VIEW PHOTO mabilis na mag load ngayon yung masterfile ko. Thanks ulit sa idea :)
 
TS! thanks sa idea mo nagawa ko na siya bale sa upon saving yung path nung picture/s sinasave ko then pag dating sa form masterfile hinide ko yung path(texbox) then naglagay nalang ako ng button na VIEW PHOTO mabilis na mag load ngayon yung masterfile ko. Thanks ulit sa idea :)

may unting problema yung approach na yan. pag na wala ang image or na delete ang image, di na mag loload, dapat kunin nya sa pa rin from db ang image.
 
sir, thanks po sa thread na eto..eto hanap ko.. eto kasi programming namin ngayun..and i know nothing about it kasi java at c yung ginamit namin noon..
may i ask a noob question..
ano po ang kaibahan ng visual studio at visual basic??..

awdawdawdwadawdsdwa
 
mga master pa help naman po dito sa code ko

Dim resultConversion As DataResult(Of Fmd) = FeatureExtraction.CreateFmdFromFid(captureResult.Data, Formats.Fmd.ANSI)

If resultConversion.ResultCode <> Constants.ResultCode.DP_SUCCESS Then
_sender.Reset = True
Throw New Exception("" & resultConversion.ResultCode.ToString())
End If

If count = 0 Then
rightIndex = resultConversion.Data
count += 1
SendMessage(Action.SendMessage, "Now place your finger on the reader.")
ElseIf count = 1 Then
rightThumb = resultConversion.Data
count += 1
SendMessage(Action.SendMessage, "Now place your finger on the reader.")
ElseIf count = 2 Then
Dim fingerprint = Fmd.SerializeXml(resultConversion.Data)
anyFinger = resultConversion.Data
Dim fmds(1) As Fmd
fmds(0) = rightIndex
fmds(1) = rightThumb

' See the SDK documentation for an explanation on threshold scores.
Dim thresholdScore As Integer = DPFJ_PROBABILITY_ONE * 1 / 100000

Dim SqlQuery = "SELECT fingerprin From tb_workers"
objcmd = New MySqlCommand(SqlQuery, objconn)
objdr = objcmd.ExecuteReader

While objdr.Read
Dim dbprints = objdr.GetString("fingerprint")
Dim X = Fmd.DeserializeXml(dbprints)
Dim Y = Fmd.SerializeXml(X)

Dim identifyResult = Comparison.Identify(X, 0, fmds, thresholdScore, 2)

If identifyResult.ResultCode <> Constants.ResultCode.DP_SUCCESS Then
_sender.Reset = True
Throw New Exception("" & identifyResult.ResultCode.ToString())
End If

SendMessage(Action.SendMessage, "Identification resulted in the following number of matches: " & identifyResult.Indexes.Length.ToString())
count = 0
End While
objcmd.Dispose()
objdr.Close()

End If

im trying to compare results of scanned fingerprints from my database.
yung last na row lang na read ng while statement ko dun lang nag mamatch yung mga prev prints d nag mamatch
mali ata looping ko patulong namn.
salamat po

- - - Updated - - -

mga master pa help naman po dito sa code ko

Dim resultConversion As DataResult(Of Fmd) = FeatureExtraction.CreateFmdFromFid(captureResult.Data, Formats.Fmd.ANSI)

If resultConversion.ResultCode <> Constants.ResultCode.DP_SUCCESS Then
_sender.Reset = True
Throw New Exception("" & resultConversion.ResultCode.ToString())
End If

If count = 0 Then
rightIndex = resultConversion.Data
count += 1
SendMessage(Action.SendMessage, "Now place your finger on the reader.")
ElseIf count = 1 Then
rightThumb = resultConversion.Data
count += 1
SendMessage(Action.SendMessage, "Now place your finger on the reader.")
ElseIf count = 2 Then
Dim fingerprint = Fmd.SerializeXml(resultConversion.Data)
anyFinger = resultConversion.Data
Dim fmds(1) As Fmd
fmds(0) = rightIndex
fmds(1) = rightThumb

' See the SDK documentation for an explanation on threshold scores.
Dim thresholdScore As Integer = DPFJ_PROBABILITY_ONE * 1 / 100000

Dim SqlQuery = "SELECT fingerprin From tb_workers"
objcmd = New MySqlCommand(SqlQuery, objconn)
objdr = objcmd.ExecuteReader

While objdr.Read
Dim dbprints = objdr.GetString("fingerprint")
Dim X = Fmd.DeserializeXml(dbprints)
Dim Y = Fmd.SerializeXml(X)

Dim identifyResult = Comparison.Identify(X, 0, fmds, thresholdScore, 2)

If identifyResult.ResultCode <> Constants.ResultCode.DP_SUCCESS Then
_sender.Reset = True
Throw New Exception("" & identifyResult.ResultCode.ToString())
End If

SendMessage(Action.SendMessage, "Identification resulted in the following number of matches: " & identifyResult.Indexes.Length.ToString())
count = 0
End While
objcmd.Dispose()
objdr.Close()

End If

im trying to compare results of scanned fingerprints from my database.
yung last na row lang na read ng while statement ko dun lang nag mamatch yung mga prev prints d nag mamatch
mali ata looping ko patulong namn.
salamat po

sir up ko lang badly needed help po
sana if kung pde lang like php and mysql
na
while($row=mysql_fetch_array){
//tas loop lang dito yung e cocompare kung fmds
}
baguhan lang po kasi ako sa visual basic
salamat po sa makakatulong
 
may unting problema yung approach na yan. pag na wala ang image or na delete ang image, di na mag loload, dapat kunin nya sa pa rin from db ang image.

hmmm....ou nga nag try ako di nag nagloload yung sinasabi niyo? sir, pano ko kaya gagawin yun na sa db ko mismo kukuhanin yung image pero ang approach is i view lang yung photo para mas mabilis mag load. patulong naman TS! yun nalang idea mo susundin ko mas safe nga yun. Thanks
 
Last edited:
hmmm....ou nga nag try ako di nag nagloload yung sinasabi niyo? sir, pano ko kaya gagawin yun na sa db ko mismo kukuhanin yung image pero ang approach is i view lang yung photo para mas mabilis mag load. patulong naman TS! yun nalang idea mo susundin ko mas safe nga yun. Thanks

na try mong gumamit ng blob imbis na file location ang nasa database?
 
hmmm....ou nga nag try ako di nag nagloload yung sinasabi niyo? sir, pano ko kaya gagawin yun na sa db ko mismo kukuhanin yung image pero ang approach is i view lang yung photo para mas mabilis mag load. patulong naman TS! yun nalang idea mo susundin ko mas safe nga yun. Thanks

ano gamit mo, MYSQL?

Gamit ka blob type of data type.
 
H E L P ATTENDANCE MONITORING SYSTEM W/ BIOMETRIC FINGERPRINT SCANNER Any information on creating program at VB6 yung database ko nakaconnect sa SQL server wala pa kong nasisimulang any surface kahit codes wala pa, Pero meron na akong Finger Print Scanner dito. Sana may makatulong po sakin dito.:pray::pray::pray::pray::pray::pray::pray::pray::pray:
 
hindi pa nga eh! baka pwde mo ko bigyan sample diyan thank you.

save to db

Code:
Dim connection As New SqlConnection("connection string here")
Dim command As New SqlCommand("UPDATE MyTable SET Picture = @Picture WHERE ID = 1", connection)

'Create an Image object.'
Using picture As Image = Image.FromFile("file path here")
    'Create an empty stream in memory.'
    Using stream As New IO.MemoryStream
        'Fill the stream with the binary data from the Image.'
        picture.Save(stream, Imaging.ImageFormat.Jpeg)

        'Get an array of Bytes from the stream and assign to the parameter.'
        command.Parameters.Add("@Picture", SqlDbType.VarBinary).Value = stream.GetBuffer()
    End Using
End Using

connection.Open()
command.ExecuteNonQuery()
connection.Close()

retrieve

Code:
Dim connection As New SqlConnection("connection string here")
Dim command As New SqlCommand("SELECT Picture FROM MyTable WHERE ID = 1", connection)

connection.Open()

Dim pictureData As Byte() = DirectCast(command.ExecuteScalar(), Byte())

connection.Close()

Dim picture As Image = Nothing

'Create a stream in memory containing the bytes that comprise the image.'
Using stream As New IO.MemoryStream(pictureData)
    'Read the stream and create an Image object from the data.'
    picture = Image.FromStream(stream)
End Using

gamit ado.net tsaka mysql
galing stackoverflow
 
save to db

Code:
Dim connection As New SqlConnection("connection string here")
Dim command As New SqlCommand("UPDATE MyTable SET Picture = @Picture WHERE ID = 1", connection)

'Create an Image object.'
Using picture As Image = Image.FromFile("file path here")
    'Create an empty stream in memory.'
    Using stream As New IO.MemoryStream
        'Fill the stream with the binary data from the Image.'
        picture.Save(stream, Imaging.ImageFormat.Jpeg)

        'Get an array of Bytes from the stream and assign to the parameter.'
        command.Parameters.Add("@Picture", SqlDbType.VarBinary).Value = stream.GetBuffer()
    End Using
End Using

connection.Open()
command.ExecuteNonQuery()
connection.Close()

retrieve

Code:
Dim connection As New SqlConnection("connection string here")
Dim command As New SqlCommand("SELECT Picture FROM MyTable WHERE ID = 1", connection)

connection.Open()

Dim pictureData As Byte() = DirectCast(command.ExecuteScalar(), Byte())

connection.Close()

Dim picture As Image = Nothing

'Create a stream in memory containing the bytes that comprise the image.'
Using stream As New IO.MemoryStream(pictureData)
    'Read the stream and create an Image object from the data.'
    picture = Image.FromStream(stream)
End Using

gamit ado.net tsaka mysql
galing stackoverflow

Thank you TS! subukan ko itong solution mo :) last na TS! my question ako isa pa ano po mali dito sa code ko? ang ginagawa ko po kasi is sa datagridview once na expired na yung contract nag hihighlight siya ng red then white pag active pa yung contract also nag set din ako ng notifications sa system tray ngayon ang nangyayari is parang ndi na susunod yung condition na ginawa ko dun sa datagridview below is yung code na ginamit ko:

View attachment 303825

Private Sub EXPIREDCONTRACT_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Try
showrecexpired()
Dim x As Integer

For Each row As DataGridViewRow In DGExpired.Rows
If Not row.IsNewRow Then
If Date.Now.ToString("MM/dd/yyyy") >= row.Cells(18).Value Then
x = 1
row.DefaultCellStyle.BackColor = Color.Red
row.DefaultCellStyle.ForeColor = Color.White
End If
End If
Next

If x = 1 Then
NotifyIcon1.BalloonTipText = "You have an expired document!"
NotifyIcon1.Text = "Expired Document"
NotifyIcon1.ShowBalloonTip(500)
CreateContextMenu()
x = 0
End If
Catch ex As Exception

End Try
End Sub
 

Attachments

  • Untitled.png
    Untitled.png
    49 KB · Views: 9
Last edited:
H E L P ATTENDANCE MONITORING SYSTEM W/ BIOMETRIC FINGERPRINT SCANNER Any information on creating program at VB6 yung database ko nakaconnect sa SQL server wala pa kong nasisimulang any surface kahit codes wala pa, Pero meron na akong Finger Print Scanner dito. Sana may makatulong po sakin dito.:pray::pray::pray::pray::pray::pray::pray::pray::pray:

sir wala tayong makukuhang tulong dito...
im developing a program using fingerprintscanner din nag try na akong mag ask dito wala atang nakagawa na dito ng ganyan..
 
sir wala tayong makukuhang tulong dito...
im developing a program using fingerprintscanner din nag try na akong mag ask dito wala atang nakagawa na dito ng ganyan..

gusto niyo ba talaga mgawa yang problem niyo kaso with pay? :)
 
Guys pa help naman po ano po ba para sa inyo ang magandang gamitin? VISUAL BASIC.NET po ba or VISUAL STUDIO??

At saan po ba ung madaling gamitin or madaling maiintindihan?

Thank you in advance
 
mga kaSB gumawa po ako ng project tapos pinili kong templates yung visual basic tapos sinelect ko yung console application..ang tanong ko po paano po mag add ulit ng isa pang visual basic na console application sa iisang project..gamit ko vs 2015 communutiy..pahelp po :(
 
hi po mga ka symbianize, may question po ako dito sa visual studio 2010

etio po yung code

<%@ Page Language="C#" AutoEventWireup="true" CodeFile="Default2.aspx.cs" Inherits="Default2" %>
<!DOCTYPE html>

<html xmlns="http://www.w3.org/1999/xhtml">
<head runat="server">
<meta charset="utf-8">
<meta http-equiv="X-UA-Compatible" content="IE=edge">
<meta name="viewport" content="width=device-width, initial-scale=1">
<!-- The above 3 meta tags *must* come first in the head; any other head content must come *after* these tags -->
<title>Bootstrap 101 Template</title>

<!-- Bootstrap -->
<link href="css/bootstrap.min.css" rel="stylesheet">

<!-- HTML5 shim and Respond.js for IE8 support of HTML5 elements and media queries -->
<!-- WARNING: Respond.js doesn't work if you view the page via file:// -->
<!--[if lt IE 9]>
<script src="https://oss.maxcdn.com/html5shiv/3.7.3/html5shiv.min.js"></script>
<script src="https://oss.maxcdn.com/respond/1.4.2/respond.min.js"></script>
<![endif]-->
</head>

<body>
<form id="form1" runat="server">
<div>

<div class="navbar navbar-default navbar-fixed-top" role="navigation"></div>

</div>
</form>

<script src=”http://code.jquery.com/jquery.js”></script>
<!-- jQuery (necessary for Bootstrap's JavaScript plugins) -->
<script src="https://ajax.googleapis.com/ajax/libs/jquery/1.12.4/jquery.min.js"></script>
<!-- Include all compiled plugins (below), or include individual files as needed -->
<script src="js/bootstrap.min.js"></script>

</body>
</html>


ung jscript ayaw basahin ng vs2010 asp.net with bootstrap po ito, anu po kaya pwede gawin para basahin ung external file?
sana po matulungan nyo ako

maraming salamat po
 
Back
Top Bottom