چرا برنامه ای که نوشتم توی سیستم های دیگه اجرا نمیشه

[amir-new.programer]

سلام
سریع میرم سر اصل مطلب
آقا چشمتون روز بد نبینه امروز کارم رو بردم دات نت و همه چی هم میزون بود ولی توی اکس پی ارور داد توی سون و ایت هم اصلا اجرا نشد .
تا شنبه وقت دارم درستش کنم ولی آخه روی سیستم خودم براحتی اجرا میشه .
مشکل از چی میتونه باشه ؟

لطفا سریعتر کمک کنید:قلب::گریه:

[golbafan]

سلام
پیش نیاز ها رو نصب کردید یا فقط فایل exe رو بردید ؟؟؟
خطاهای سیستم ؟؟؟

عکسی چیزی...

[amir-new.programer]

توی سون و ایت که هیچ چیز نمیومد ( حتی ارور )
توی اکس پی یه ارور میومد .
پیش نیاز هم فقط دات نت بود که روی همه سیستم ها نصب بود .

[golbafan]

فایلو بزارید تا تست بشه

[amir-new.programer]

واقعا شرمنده ام:افسرده::افسرده:

[golbafan]

واقعا شرمنده ام:افسرده::افسرده:

این دفعه نیت من خیره، تو فالت خوش نیست

[mehdiomnia]

داداش 32 و64 بیتی بودنشو رعایت شده ؟
نیاز به دیتا بیس نداره ؟

[amir-new.programer]

دیتابیس نداره ، 32 بیتی بود . روی اکس پی و سون و ایت تست کردم نشد .

[amir-new.programer]

کد های فرم اصلی :

Public Class Form1

Public sizee As String
Public colorr As String


Private Sub Form1_FormClosed(sender As Object, e As System.Windows.Forms.FormClosedEventArgs) Handles Me.FormClosed
On Error Resume Next
SaveSetting("nanowiki", "stg", "size", NumericUpDown1.Value)

If RadioButton1.Checked = True Then
SaveSetting("nanowiki", "stg", "color", "white")
Else
If RadioButton3.Checked = True Then
SaveSetting("nanowiki", "stg", "color", "green")
Else
If RadioButton4.Checked = True Then
SaveSetting("nanowiki", "stg", "color", "blue")
Else
If RadioButton5.Checked = True Then
SaveSetting("nanowiki", "stg", "color", "red")
Else
If RadioButton6.Checked = True Then
SaveSetting("nanowiki", "stg", "color", "yellow")
End If
End If
End If
End If
End If


End Sub

Private Sub Form1_FormClosing(sender As Object, e As System.Windows.Forms.FormClosingEventArgs) Handles Me.FormClosing
On Error Resume Next
SaveSetting("nanowiki", "stg", "size", NumericUpDown1.Value)

If RadioButton1.Checked = True Then
SaveSetting("nanowiki", "stg", "color", "white")
Else
If RadioButton3.Checked = True Then
SaveSetting("nanowiki", "stg", "color", "green")
Else
If RadioButton4.Checked = True Then
SaveSetting("nanowiki", "stg", "color", "blue")
Else
If RadioButton5.Checked = True Then
SaveSetting("nanowiki", "stg", "color", "red")
Else
If RadioButton6.Checked = True Then
SaveSetting("nanowiki", "stg", "color", "yellow")
End If
End If
End If
End If
End If

Me.Opacity = 1
Dim i As Integer
For i = 0 To 100
Me.Opacity -= 0.01
Application.DoEvents()
Next

End Sub


Private Sub Form1_Leave(sender As Object, e As System.EventArgs) Handles Me.Leave
On Error Resume Next
SaveSetting("nanowiki", "stg", "size", NumericUpDown1.Value)

If RadioButton1.Checked = True Then
SaveSetting("nanowiki", "stg", "color", "white")
Else
If RadioButton3.Checked = True Then
SaveSetting("nanowiki", "stg", "color", "green")
Else
If RadioButton4.Checked = True Then
SaveSetting("nanowiki", "stg", "color", "blue")
Else
If RadioButton5.Checked = True Then
SaveSetting("nanowiki", "stg", "color", "red")
Else
If RadioButton6.Checked = True Then
SaveSetting("nanowiki", "stg", "color", "yellow")
End If
End If
End If
End If
End If


End Sub

Private Sub Form1_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load


Try

Label1.Text = Date.Today.Date
Label2.Text = My.Computer.Clock.LocalTime.Hour.ToString + ":" + My.Computer.Clock.LocalTime.Minute.ToString
Timer1.Interval = 1000
Timer1.Enabled = True
Timer1.Start()
'Me.Opacity

Select Case GetSetting("nanowiki", "stg", "color")
Case "white"
RadioButton1.Checked = True
Case "green"
RadioButton3.Checked = True
Case "blue"
RadioButton4.Checked = True
Case "red"
RadioButton5.Checked = True
Case "yellow"
RadioButton6.Checked = True
End Select

sizee = GetSetting("nanowiki", "stg", "size")
NumericUpDown1.Value = sizee
TrackBar1.Value = sizee

colorr = GetSetting("nanowiki", "stg", "color")

Notify.BalloonTipIcon = ToolTipIcon.Info
Notify.BalloonTipText = "دانشنامه نانو"
Notify.BalloonTipTitle = "دانشنامه نانو"
Notify.ContextMenuStrip = ContextMenuStrip1
Notify.Icon = Icon
Notify.Text = "دانشنامه نانو"
Notify.Visible = True
Notify.ShowBalloonTip(3000)

Me.Opacity = 0.01
Dim i As Integer
For i = 0 To 100
Me.Opacity += 0.01
Application.DoEvents()
Next

Catch
Label1.Visible = False
Label1.Enabled = False
Timer1.Enabled = False
Timer1.Stop()

End Try
End Sub

Private Sub Timer1_Tick(sender As System.Object, e As System.EventArgs) Handles Timer1.Tick
Try
Label2.Text = My.Computer.Clock.LocalTime.Hour.ToString + ":" + My.Computer.Clock.LocalTime.Minute.ToString
Catch
Label2.Visible = False
Label2.Enabled = False
Timer1.Enabled = False
Timer1.Stop()

End Try

End Sub

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

Try
nano1.Show()
Catch ex As Exception
MsgBox(ex, , ex)
End Try

End Sub

Private Sub Button2_Click(sender As System.Object, e As System.EventArgs) Handles Button2.Click
Try
nano2.Show()
Catch ex As Exception
MsgBox(ex, , ex)
End Try
End Sub

Private Sub Button3_Click(sender As System.Object, e As System.EventArgs) Handles Button3.Click
Try
nano5.Show()
Catch ex As Exception
MsgBox(ex, , ex)
End Try
End Sub

Private Sub Button4_Click(sender As System.Object, e As System.EventArgs) Handles Button4.Click
Try
nano6.Show()
Catch ex As Exception
MsgBox(ex, , ex)
End Try
End Sub

Private Sub Button5_Click(sender As System.Object, e As System.EventArgs) Handles Button5.Click
Try
nano9.Show()
Catch ex As Exception
MsgBox(ex, , ex)
End Try
End Sub

Private Sub NumericUpDown1_ValueChanged(sender As System.Object, e As System.EventArgs) Handles NumericUpDown1.ValueChanged
Try
TrackBar1.Value = NumericUpDown1.Value
sizee = NumericUpDown1.Value
Label5.Font = New Font("Arial", CSng(sizee), FontStyle.Bold)
Catch ex As Exception
MsgBox(ex, , ex)
End Try

End Sub

Private Sub TrackBar1_Scroll(sender As System.Object, e As System.EventArgs) Handles TrackBar1.Scroll
Try
NumericUpDown1.Value = TrackBar1.Value
sizee = TrackBar1.Value
Label5.Font = New Font("Arial", CSng(sizee), FontStyle.Bold)
Catch ex As Exception
MsgBox(ex, , ex)
End Try
End Sub

Private Sub RadioButton1_CheckedChanged(sender As System.Object, e As System.EventArgs) Handles RadioButton1.CheckedChanged
Try
If RadioButton1.Checked = True Then
SaveSetting("nanowiki", "stg", "color", "white")
End If
colorr = "white"
Label5.BackColor = Color.White
Catch ex As Exception
MsgBox(ex, , ex)
End Try

End Sub

Private Sub RadioButton3_CheckedChanged(sender As System.Object, e As System.EventArgs) Handles RadioButton3.CheckedChanged
Try
If RadioButton3.Checked = True Then
SaveSetting("nanowiki", "stg", "color", "green")
End If
colorr = "green"
Label5.BackColor = Color.Green
Catch ex As Exception
MsgBox(ex, , ex)
End Try

End Sub

Private Sub RadioButton4_CheckedChanged(sender As System.Object, e As System.EventArgs) Handles RadioButton4.CheckedChanged
Try
If RadioButton4.Checked = True Then
SaveSetting("nanowiki", "stg", "color", "blue")
End If
colorr = "blue"
Label5.BackColor = Color.Blue
Catch ex As Exception
MsgBox(ex, , ex)
End Try

End Sub

Private Sub RadioButton5_CheckedChanged(sender As System.Object, e As System.EventArgs) Handles RadioButton5.CheckedChanged
Try
If RadioButton5.Checked = True Then
SaveSetting("nanowiki", "stg", "color", "red")
End If
colorr = "red"
Label5.BackColor = Color.Red
Catch ex As Exception
MsgBox(ex, , ex)
End Try

End Sub

Private Sub RadioButton6_CheckedChanged(sender As System.Object, e As System.EventArgs) Handles RadioButton6.CheckedChanged
Try
If RadioButton6.Checked = True Then
SaveSetting("nanowiki", "stg", "color", "yellow")
End If
colorr = "yellow"
Label5.BackColor = Color.Yellow
Catch ex As Exception
MsgBox(ex, , ex)
End Try
End Sub

Private Sub Button6_Click(sender As System.Object, e As System.EventArgs) Handles Button6.Click
Try
about.Show()
Catch ex As Exception
MsgBox(ex, , ex)
End Try
End Sub

Private Sub Button7_Click(sender As System.Object, e As System.EventArgs) Handles Button7.Click
Try
ptable.Show()
Catch ex As Exception
MsgBox(ex, , ex)
End Try
End Sub

Private Sub Notify_Click(sender As Object, e As System.EventArgs) Handles Notify.Click

End Sub

Private Sub Notify_MouseDoubleClick(sender As System.Object, e As System.Windows.Forms.MouseEventArgs) Handles Notify.MouseDoubleClick
Notify.BalloonTipText = "برنامه در حال اجرا می باشد"
Notify.Text = "برنامه در حال اجرا می باشد"
Notify.ShowBalloonTip(3000)
Notify.Text = "برنامه در حال اجرا می باشد"
Notify.BalloonTipText = "برنامه در حال اجرا می باشد"
End Sub
End Class

[mehdi imani 8]

1-برنامتو با چه زبانی نوشتی؟؟؟
2-اگه دات نت برنامتو پایین تر بزاری (مثلا 2 چون منم برای بوجود نیومدن از این قبیل مشکل ها روی سیستم مقصد دات نت رو روی 2 می گذارم )مشکلی پیش می یاد ؟؟؟

[lastmory]

سلام
توی فرم لودت که try , catch گذاشتی توی catch ، ارور رو نمایش بده (msgbox(ex.messag، شاید میوفته توی Catch !!!

[amir-new.programer]

:mehdi imani 8 (http://barnamenevis.org/member.php?352379-mehdi-imani-8)

vb.net (vs2010) .net framework 4.0

چجوری دات نت برنامم رو بیارم پایین ؟ ( راستی مگه توی سیستم هایی که فقط دات نت 4 دارن بدون نیاز به نصب دات نت 2 اجرا میشه ؟ )

:lastmory (http://barnamenevis.org/member.php?158853-lastmory)

منظورت چیه ؟

[amir-new.programer]

خواهشا کمک کنید
:ناراحت:

[mehdi imani 8]

سلام.در قسمت Project Properties برو و target framework رو به 2 تغییر بده.
من توی VS 2012 انجام دادم احتمالا در VS 2010 هم همینطور است.
موفق باشی.

[mehdi imani 8]

در ویندوز های 7 و 8 دات نت 2 بطور پیشفرض نصب است.
البته ممکنه تو بعضی از ویندوز 8 ها بطور پیشفرض پاک شده باشد اما در ویندوز 7 رو مطمئنم که نصب هست.