Posts by oussama_1

Yes, it's possible. read about how WINRAR works
Data Compression
File Archiver
deflate algorithm

        Dim i As Integer
        For i = 0 To DataGridView1.Rows.Count - 1
            With DataGridView1.Rows(i)
                Dim insertCommand As New  _
                OleDb.OleDbCommand("insert into students_grade (student_no, student_name, grade) values ('" & _
                .Cells(0).Value & "','" & .Cells(1).Value & "','" & .Cells(2).Value & "')", Con)
                Try
                    Con.Open()
                    insertCommand.ExecuteNonQuery()
                Catch ex As Exception
                End Try
            End With
        Next
        Con.Close()
        MessageBox.Show("Data Inserted")

        DataGridView1.Rows(0).Cells(0).Value = form1.name.Text
        DataGridView1.Rows(0).Cells(1).Value = form1.age.Text

in the destination, you need to put the file directory not the folder that contains it.

My.Computer.FileSystem.FileCopy(your file,new file directory)
' ex: i want to copy this file(C:\sound.wav) to (c:\music)
My.Computer.FileSystem.FileCopy(C:\sound.wav,c:\music\sound.wav)

@ ryanjayson
do you even understand my code before suggesting your solution!

the text of selected item in listview

ListView1.SelectedItems(ListView1.SelectedItems.Count - 1).text

an Arabic proverb
The enemy of my enemy is my friend
ex: Britain and France uniting together in World War I against Germany

ListView1.SelectedItems(ListView1.SelectedItems.Count - 1).Index

Public Class TempIsZeroException : Inherits ApplicationException

Public means that other code can see it
class is A container for data and code
TempIsZeroException is the name of the Class
Inherits is used in the derived class to specify its base class
ApplicationException The exception that is thrown when application error occurs

Public Sub New(ByVal msg As String)

Public means that other code can see it
sub declares the name, parameters, and code that define a Sub procedure.
sub new() the constructor
ByVal, by value,passing a copy of a variable to a Subroutine
msg variable
string text

MyBase.New(msg)

MyBase Provides a way to refer to the base class of the current class instance(.New).

End Sub

Terminates the definition of this procedure.

End Class

the end of the code for the Class.

CONSOLATION GROOK
lol

       For i = 0 To 2
            Dim RadioButton As RadioButton = CType(Me.Controls("RadioButton" & i + 1), RadioButton)
            If RadioButton.Checked = True Then
                MsgBox("Food :" & RadioButton.Text & ", Quantity :" & txtCountFood)  'msgbox is example
            End If
        Next

when exception(problem) occurs in a program, we handle it by Try, Catch and Finally. You can also define your own exception and your code is a perfect example for it.
the above code is a "User-Defined Exceptions" class
ex: Public Class NoInternetConnection : Inherits ApplicationException
and the rest of the code is how you want to handle your exception.
gd luck

here's the solution

    Dim WithEvents Player As WMPLib.WindowsMediaPlayer
    Private Sub PlayFile(ByVal url As String)
        Player = New WMPLib.WindowsMediaPlayer
        Player.URL = url
        Player.controls.play()
    End Sub
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim readtext As String
        readtext = "SOMETHING ARABIC"
        PlayFile("http://translate.google.com/translate_tts?ie=UTF-8&q=" & readtext & "&tl=ar")
    End Sub

sadly, there isn't any free sapi with arabic language!

try this

Dim UpdateCommand As New OleDbCommand
        UpdateCommand.CommandText = "UPDATE [Sheet1$] Set [Inventory on Hand] Where [ITEM CODE] = '" & DataGridView2.Rows(DataGridView2.Rows.Count - 2).Cells(6).Value.ToString & "'"
        UpdateCommand.Connection = MyConnection
        MyConnection.Open()
        UpdateCommand.ExecuteNonQuery()

convert Datagridview Data to Datatable Click Here

no you can not.
"UPDATE will only update existing records in the database, it will not add new records. To add new records you need to use an INSERT command."
for report viewer Click Here

for the update
change these :
tablename
columnname1 etc..

    Private Sub DataGridView1_RowsAdded(ByVal sender As Object, ByVal e As System.Windows.Forms.DataGridViewRowsAddedEventArgs) Handles DataGridView1.RowsAdded
        Dim MyConnection As New OleDbConnection("provider=Microsoft.ACE.OLEDB.12.0; Data Source='" & path & "'; Extended Properties=Excel 12.0;")

        Dim insertCommand As New OleDb.OleDbCommand("INSERT INTO tablename (columnname1, columnname2, columnname3) VALUES ('" & DataGridView2.Rows(DataGridView2.Rows.Count - 2).Cells(0).Value.ToString & "','" & DataGridView2.Rows(DataGridView2.Rows.Count - 2).Cells(1).Value.ToString & "','" & DataGridView2.Rows(DataGridView2.Rows.Count - 2).Cells(2).Value.ToString & "')", MyConnection)
        Try
            MyConnection.Open()
            insertCommand.ExecuteNonQuery()
        Catch ex As Exception
        Finally
            MyConnection.Close()
        End Try
    End Sub
End Class

here's the copy raw solution
ill post the database update later

    Private Sub DataGridView1_MouseClick(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles DataGridView1.MouseClick
        If DataGridView1.RowCount = 0 Or Nothing Then
        Else
            For Each cell As DataGridViewColumn In DataGridView1.Columns
                DataGridView2.Columns.Add(DirectCast(cell.Clone, DataGridViewColumn))
            Next
            DataGridView2.Rows.Add(DataGridView1.CurrentRow.Cells.Cast(Of DataGridViewCell).Select(Function(c) c.Value).ToArray)
        End If
    End Sub

let me get this straight, your are asking for 2 things
1.you want on datagridview1_mouseclick to copy selected raw to datagridview2
2.you want on datagridview2_RowsAdded to update your database with the new added raw
am i right ?

when there's a perfect program, there's a perfect hacker. deal with it!
sorry :D

go to your form properties go to misc and set keypreview to true and set your acceptbutton

"I think, therefore I am"
-René Descartes

no that's not right..it all depends on the software you are working on
unity software comes with a customized software called MonoDevelop for debugging scripts which accepts these three languages.
here's a photo of unity and the script language you can create

and here's the "End-user license agreement" for unity
gd luck

Sorry, Didnt get the question
try this

  Dim ofd As New OpenFileDialog
        Dim strFile As String
        With ofd
            .Title = "Select a List"
            .Filter = "Text Files|*.txt|All Files|*.*"
            .ShowDialog()
            strFile = .FileName
        End With
        RichTextBox1.LoadFile(strFile, RichTextBoxStreamType.PlainText)
        For Each line In RichTextBox1.Lines
            If line.StartsWith("A") Then
                If line.EndsWith("0") Then
                    Dim newline As String
                    newline = line.Substring(0, line.Length - 1) & "Replace with this"
                    RichTextBox1.Text = RichTextBox1.Text.Replace(line, newline)
                End If
            End If
        Next

        Dim ofd As New OpenFileDialog
        Dim strFile As String
        With ofd
            .Title = "Select a List"
            .Filter = "Text Files|*.txt|All Files|*.*"
            .ShowDialog()
            strFile = .FileName
        End With
        RichTextBox1.LoadFile(strFile, RichTextBoxStreamType.PlainText)
        For Each line In RichTextBox1.Lines
            If line.StartsWith("A") Then
                If line.EndsWith("0") Then
                    RichTextBox1.Text = RichTextBox1.Text.Replace(line, line.Replace("0", "Replace with this"))
                End If
            End If
        Next

if you got a lot of controls try to put them in panels so that instead of rescaling each control u can just move the panels around according to the resolution

so that you can populate your listview with the images from your resources
i did this in one of my apps it was embeded with more than 100 photos but i was showing them in a picturebox(never tried listview) and i did a custom browser (listview) that loads icons from my resources it was really fast..
my point is, with the resources you can show the pictures instead of loading them.
btw i did try your code, nice work but i cant suggest anything bcz i got a fast pc,the code was working perfectly on it it was fast no lagging..it generated the photos in no time (more than 80 photos about 4 mb each)
gd luck

hmm dont know about that...actually if you use a datagridview itll be less coding for you other than that u gonna have to code everything
gd luck

im assuming your "textbox"s are named textbox1 and textbox2 and so on..

dim wordData as string
wordData = "Login : " & textbox1.text & vbnewline &_
"First Name : " & textbox2.text & vbnewline &_
"Last Name : " & textbox3.text & vbnewline &_
"Password : " & textbox4.text & vbnewline &_
"Email : " & textbox5.text & vbnewline &_
"Content Lang : " & Combobox1.text & vbnewline &_
"interface Lang : " & Combobox2.text

wordapp.Selection.TypeText(wordData)

sorry my bad its 1500$ not 15000$.

by data i mean plain text,now the question is where do your write your data, textbox or richtextbox? if so
wordapp.Selection.TypeText(textbox)
or
wordapp.Selection.TypeText(richtextbox)

does both machine have the same platform ?
(if not check this Click Here)
check .NET Framework version
try to include all your application files in your software (go to publish then application files)

try this

Imports Microsoft.Office.Interop.Word

wordapp = New Word.Application
worddoc = New Word.Document
    'create word file
worddoc = wordapp.Documents.Add()
worddoc.Activate()
    'save data
wordapp.Selection.TypeText("YOUR DATA")
    'save as
wordapp.Dialogs(WdWordDialog.wdDialogFileSaveAs).Show()
    'close app
worddoc.Close()
wordapp.Quit()
worddoc = Nothing
wordapp = Nothing

yes like what minimalist said and try to add mouse control to your form so you can move it around

Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" _
            (ByVal hwnd As Integer, ByVal wMsg As Integer, _
             ByVal wParam As Integer, ByVal lParam As String) As Integer
    Private Declare Sub ReleaseCapture Lib "user32" ()
    Private Const WM_NCLBUTTONDOWN = &HA1
    Private Const HTCAPTION = 2
    Private Sub Form1_MouseMove(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles Me.MouseMove
        Dim lHwnd As Int32
        lHwnd = Me.Handle
        If lHwnd = 0 Then Exit Sub
        ReleaseCapture()
        SendMessage(lHwnd, WM_NCLBUTTONDOWN, HTCAPTION, 0&)
    End Sub

ok now i get it.
if you add the photos to the app resources, will that work for you ?

Exactly! your code will create an empty word file. you need to add your data to the MS word file programmatically

place this script on your camera
transform.position = new Vector3(player.transform.x,y,z)

try adding the windows Explorer Browser, its much faster itll do the job.. just add your extension filter to it and set it to thumbnails.
download Microsoft.WindowsAPICodePack.Shell.dll
gd luck

game scripting of course differs from web or software scripting cause you will be scripting for prefabs, physics, how much life does your player still got or does he collide with something how does he interact, enemies AI,game objects, controllers, cameras, playing animation or audios etc... my point is that you need to learn just the basics of one of these languages (java,C#,Boo) and dont go deep into it, if you are already familiar with one then go to unity community for tutorials on game scripting also there is script referance in their website which you will be need

i work with unity..amazing game engine..we are team of two..my buddy is a 3d artist he deals with 3dmax and maya for modeling and creating enviroments and lightning..backing etc...
and i deal with scripting (javascript, but u can choose between c# and python) and audio (i use reason for soundFX)
its a lot of hard work and u need creativity and money bcz if u wanna sell it u need to buy the soft(15000$) and get game license (license per individual) and purchase the platform addon u wanna work on, in my case its android(15000$) each addon costs the same,win,mac,ps3,xbox,ios its really the same game but different inputs and resolution
this is a serious buissnes but if u want it just for fun u can try it for free u will get 30 days and u can sell your game with the free version but itll be watermarked and u cant earn more than 100,000$ a year or u can sell your game to unity company and get 20% of the earnings.
gd luck

Click Here

oh! ok try this

 Dim handpunchdata As String = New System.Net.WebClient().DownloadString(ip)

if that doesn't work i need to see a sample of your data (i mean is it a binary or hex...)

your data: the data received from handpunch

        If SerialPort1.BytesToRead > 0 Then
            Dim buff(SerialPort1.BytesToRead - 1) As Byte
            SerialPort1.Read(buff, 0, buff.Length)
            Me.BeginInvoke(New myDelegate(AddressOf SerialPortDelegate), buff)
        End If

  Public Delegate Sub myDelegate(ByVal buff() As Byte)


   RichTextBox1.Text = System.Text.Encoding.ASCII.GetString(buff, 0, buff.Length)
            RichTextBox1.SaveFile("your path\filename.txt", RichTextBoxStreamType.PlainText)

try this

   Dim forms As Form() = {Form2, Form3, Form4}
        For Each form In forms
            If (form.Location.X <= Label1.Location.X + Me.Location.X) _
            And (form.Location.Y <= Label1.Location.Y + Me.Location.Y) Then
                If (form.Location.X + form.Size.Width >= Label1.Location.X + Me.Location.X + Label1.Size.Width) _
                And (form.Location.Y + form.Size.Height >= Label1.Location.Y + Me.Location.Y + Label1.Size.Height) Then
                    MsgBox(form.Text)
                End If
            End If
        Next

add a serialport to your form select your handpuch port

ComboBox1.Items.AddRange(IO.Ports.SerialPort.GetPortNames)
SerialPort1.PortName = ComboBox1.SelectedItem.ToString

open it

SerialPort1.Open()

Receive data and convert

Private Sub DataReceived(ByVal sender As Object, _
                      ByVal e As System.IO.Ports.SerialDataReceivedEventArgs) _
                      Handles SerialPort1.DataReceived
        If SerialPort1.BytesToRead > 0 Then
        SerialPort1.Read(your data)
        end if
        'convert bytes to plain text
        System.Text.Encoding.ASCII.GetString(your data)

good luck

@begginnerdev its Delphi

each row in listview is considered a one single item, in listview a different columns doesn't mean a different items
use subitems

List.Items(index).SubItems.Add(string)

your code is working fine, its a driver issue you should reinstall MDAC
check this link
Click Here

use http://freetexthost.com/
first app : upload text "close" get url
second app : on each timer tick Dim closeIt As String = New System.Net.WebClient().DownloadString(yourURL)
if it contains text "colse" then me.close
good luck

i did an app a while back with a caller id it was working fine
as i recall i used this at command AT+VCID to enable callerid in my usb modem and i set it to 1 (1 will format your callerid into ascii)
and i receive it like this
System.Text.Encoding.ASCII.GetString(your modem bytes)
in your case as long as you see the sender number and the text message as plain text then you are doing it right!
this is not a modem reading issue, it is what the phone company wants to show you
i tried to convert it but im not getting "etisalat".. first u need to find out what type of encoding they are using (try hash identifier)
if that doesnt work and the company always send the same id use this
callerid.text = callerid.text.replace("56A7A7E166789E","etisalat")
good luck