جوشکاری در زیر آب

جوشکاری زیر آب (Underwater Welding) از شروع دهه هفتاد میلادی به دلیل استخراج نفت و گاز از عمق دریا به عنوان مساله ای مهم در صنعت دریایی مطرح شد. بر حسب نوع پروژه و کیفیت مورد نظر برای جوش، در مورد روش مناسب جوشکاری، نوع فولاد یا آلیاژ مورد استفاده عمق مناسب برای جوشکاری و کیفیت جوش تصمیم گیری می شود. نیاز به دست یابی به جوش های با کیفیت بالا در زیر آب، باعث انجام تحقیقات و آزمایش های گسترده ای در این زمینه شد و تا کنون نیز پیشرفت های قابل توجهی در زمینه های تکنیکی و متالورژیکی جوشکاری زیر آب حاصل شده است. تعمیر و نگهداری نیز همواره به عنوان یکی از مشکلات سازه های دریایی مطرح بوده است. بسیاری از سازه های تخریب شده می توانند با تکنیک های جوشکاری زیر آب تعمیر شوند.

   جوشکاری زیر آب از زمان جنگ جهانی دوم هنگامی که کشتی‌های خسارت دیده باید سریعاً در آب تعمیر می‌شدند به وجود آمد. بیرون آوردن کشتی برای تعمیر کردن آن، هم اکنون هم بسیار هزینه بر است و صرفه اقتصادی ندارد.

بسیاری از مردم جوشکاری زیر آب را بسیار عجیب می‌دانند، چون ماهیت جوشکاری را از آتش می‌دانند.

   ولی جوشکاری ماهیت قوس الکتریکی دارد و روشن شدن آن زیر آب کار عجیبی نیست. برای جوشکاری در خشکی، هوا یونیده می‌شود و در آب، بخار آب یونیزه می‌شود و ...

20 صفحه، ورد، قابل ویرایش

سورس پروژه کرنومتر با vb-net

در این بخش با سورس پروژه کرنومتر با vb-net از سورس های برنامه نویسی  در خدمت شما دوستان هستیم.

پروژه کرنومتر با زبان برنامه نویسی ویژوال بیسیک دات نت و در محیط ویژوال استودیو به صورت کاربردی طراحی و کدنویسی شده است.

قسمتی از سورس کد کرنومتر با vb-net :      Visual Basic .NETPublic Class FrmStopWatch

Private Sub BtnStart_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnStart.Click
TmrStopWatch.Start()
End Sub

Private Sub BtnStop_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnStop.Click
TmrStopWatch.Stop()
End Sub

Private Sub TmrStopWatch_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TmrStopWatch.Tick
LblCount.Text = Val(LblCount.Text) + 1
If LblCount.Text = 61 Then
LblSecs.Text = Val(LblSecs.Text) + 1
LblCount.Text = 0

ElseIf LblSecs.Text = 60 Then
LblMins.Text = Val(LblMins.Text) + 1
LblSecs.Text = 0

ElseIf LblMins.Text = 60 Then
LblHours.Text = Val(LblHours.Text) + 1
LblMins.Text = 0

End If
End Sub

Private Sub BtnClear_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnClear.Click
LblHours.Text = "00"
LblMins.Text = "00"
LblSecs.Text = "00"
LblCount.Text = "00"
End Sub

Private Sub ToolStripMenuItem1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ToolStripMenuItem1.Click
Me.Hide()
FrmHelp.Show()
End Sub
End Class123456789101112131415161718192021222324252627282930313233343536373839Public Class FrmStopWatch     Private Sub BtnStart_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnStart.Click        TmrStopWatch.Start()    End Sub     Private Sub BtnStop_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnStop.Click        TmrStopWatch.Stop()    End Sub     Private Sub TmrStopWatch_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TmrStopWatch.Tick        LblCount.Text = Val(LblCount.Text) + 1        If LblCount.Text = 61 Then            LblSecs.Text = Val(LblSecs.Text) + 1            LblCount.Text = 0         ElseIf LblSecs.Text = 60 Then            LblMins.Text = Val(LblMins.Text) + 1            LblSecs.Text = 0         ElseIf LblMins.Text = 60 Then            LblHours.Text = Val(LblHours.Text) + 1            LblMins.Text = 0         End If    End Sub     Private Sub BtnClear_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnClear.Click        LblHours.Text = "00"        LblMins.Text = "00"        LblSecs.Text = "00"        LblCount.Text = "00"    End Sub     Private Sub ToolStripMenuItem1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ToolStripMenuItem1.Click        Me.Hide()        FrmHelp.Show()    End SubEnd Class

فروش از طریق بازاریابی تلفنی

با توجه پژوهش‏هایی که انجام شده، با بیشتر شدن کسب و کارها، اهمیت ارتباط تاثیرگذار بر روی مشتری‏ها هم بیشتر خواهد شد. در این مقوله‏ ها از میان راه ‏های گوناگون ارتباط با مشتری، به مانند: تبلیغات، روابط عمومی، فروش شخصی، پیشبرد فروش و بازاریابی مستقیم، راه‏ های ارتباط دوطرفه هم فروش شخصی و بازاریابی مستقیم تاثیرگذارتر هستند، و دلیل آن هم تعامل دوطرفه ‏ای می‏ باشد که میان بنگاه اقتصادی و مشتری‏ها شکل می‏گیرد. در این ارتباط، با اینکه بنگاه اقتصادی سعی در آشنا کردن خود به مشتری دارد ‏ تا بتواند درخواست‏ های او را به سمت بنگاه ببرد، شانس این را دارد تا صدای مشتری را هم بشنود که نتیجه‏ های آن برای رقیبان و توسعه کسب و کار خیلی دارای اهمیت می‏باشد به شکلی که بنگاه می‏تواند مشتری را شناسایی کند و نیازهای او را تشخصی دهد و در راستای گرفتن رضایت مشتری با نگرش برد-برد حرکت نماید. یکی از شیوه‏ های بازاریابی مستقیم، بازاریابی تلفنی می‏باشد که با استفاده درست از تلفن و با توجه به نکاتی در راستای مدیریت زمان هم به بازاریابان در دنیای شلوغ و پیچیده امروزی کمک می‏کند. حال ما در این مقاله به بازاریابی تلفنی و نکات لازم برای رفتن به سوی موفقیت در تماسهای تلفنی می‏پردازیم و ...

بسته آموزشی ویژه و کامل ASP.NET به زبان فارسی به همراه سورس های تمرینی

بسته آموزشی ویژه و کامل ASP.NET به زبان فارسی به همراه سورس های تمرینی

با حجم 1.87 گیگابایت در دو بخش

سر فصل های آموزش:

۱ – طراحی لایه های صفحات وب بکمک دیو و جداول

۲ – مستر پیج و کنترل های ASP.NET

۳ – کار با یوزر کنترل ها و آدرس دهی در محیط ای اس پی دات نت

۴ – طراحی و ایجاد سیستم مدیریت محتوا (CMS)

۵ – ولیدیتور ها در ای ASP.NET

۶ – ای دی او دات نت و برقراری ارتباط سایت با پایگاه داده

۷ – اپلیکیشن و سشن در ای اس پی دات نت

۸ – مدیریت خطا ها در ASP.NET

۹ – تائید هویت و مجوز های دسترسی

۱۰ – ارسال ایمیل

۱۱ – آپلود فایل در وبسایت

۱۲ – کار با منو ها در ای اس پی دات نت

۱۳ – چند زبانگی در وبسایت

۱۴ – پابلیش وب سایت و نصب و راه اندازی CMS DotNetNuke در محیط IIS و WEB

آموزش تصویری و جامع ASP.NET

آموزش تصویری و جامع ASP.NET

در قالب دو پارت

با حجم 2 گیگابایت

از مبتدی تا پیشرفته

پیش نیاز:

داشتن حداقل آشنایی با برنامه نویسی سی شارپ