Visual Basic*de bir Endüstri Mühendisliği Uygulaması

Bu çalışmada iş etüdü çalışmalarında kullandığımız standart zamanı ve normal zamanı hesaplayan bir program yazdık.Fabrikada yaptıgımız gözlem sürelerini girdiğimizde bize normal ve standart zamanı hesaplattırıyor.

ekran alıntısı-1

ekran alıntısı-2

KODLAR:

 

Public Class Form1

Dim a As Double
Dim b As Double
Dim c As Double
Dim d As Double
Dim m As Double
Dim f As Double
Dim g As Double
Dim h As Double
Dim k As Double
Dim l As Double
Dim n As Double
Dim o As Double
Dim p As Double
Dim r As Double
Dim s As Double
Private Sub RadioButton1_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RadioButton1.CheckedChanged
a = 15
End Sub

Private Sub RadioButton2_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RadioButton2.CheckedChanged
a = 11
End Sub

Private Sub RadioButton3_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RadioButton3.CheckedChanged
a = 6
End Sub

Private Sub RadioButton4_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RadioButton4.CheckedChanged
a = 0
End Sub

Private Sub RadioButton5_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RadioButton5.CheckedChanged
a = -5
End Sub

Private Sub RadioButton6_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RadioButton6.CheckedChanged
a = -16
End Sub

Private Sub RadioButton12_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RadioButton12.CheckedChanged
b = 13
End Sub

Private Sub RadioButton7_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RadioButton7.CheckedChanged
b = 10
End Sub

Private Sub RadioButton10_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RadioButton10.CheckedChanged
b = 5
End Sub

Private Sub RadioButton9_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RadioButton9.CheckedChanged
b = 0
End Sub

Private Sub RadioButton8_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RadioButton8.CheckedChanged
b = -4
End Sub

Private Sub RadioButton11_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RadioButton11.CheckedChanged
b = -12
End Sub

Private Sub RadioButton18_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RadioButton18.CheckedChanged
c = 6
End Sub

Private Sub RadioButton13_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RadioButton13.CheckedChanged
c = 4
End Sub

Private Sub RadioButton16_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RadioButton16.CheckedChanged
c = 2
End Sub

Private Sub RadioButton15_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RadioButton15.CheckedChanged
c = 0
End Sub

Private Sub RadioButton14_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RadioButton14.CheckedChanged
c = -3
End Sub

Private Sub RadioButton17_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RadioButton17.CheckedChanged
c = -7
End Sub

Private Sub RadioButton19_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RadioButton19.CheckedChanged
d = 4
End Sub

Private Sub RadioButton23_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RadioButton23.CheckedChanged
d = 3
End Sub

Private Sub RadioButton22_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RadioButton22.CheckedChanged
d = 1
End Sub

Private Sub RadioButton21_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RadioButton21.CheckedChanged
d = 0
End Sub

Private Sub RadioButton20_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RadioButton20.CheckedChanged
d = -2
End Sub

Private Sub RadioButton24_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RadioButton24.CheckedChanged
d = -4
End Sub

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Label1.Visible = True
Label1.Text = ((a + b + c + d) / 100) + 1
End Sub

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
Label2.Visible = True
Label2.Text = Label1.Text * TextBox1.Text

End Sub

Private Sub RadioButton25_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RadioButton25.CheckedChanged
m = 0
End Sub

Private Sub RadioButton26_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RadioButton26.CheckedChanged
m = 3
End Sub

Private Sub RadioButton27_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RadioButton27.CheckedChanged
m = 6
End Sub

Private Sub RadioButton28_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RadioButton28.CheckedChanged
m = 9
End Sub

Private Sub RadioButton29_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RadioButton29.CheckedChanged
m = 12
End Sub

Private Sub RadioButton30_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RadioButton30.CheckedChanged
f = 0
End Sub

Private Sub RadioButton31_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RadioButton31.CheckedChanged
f = 2
End Sub

Private Sub RadioButton32_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RadioButton32.CheckedChanged
f = 4
End Sub

Private Sub RadioButton33_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RadioButton33.CheckedChanged
f = 10
End Sub

Private Sub RadioButton34_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RadioButton34.CheckedChanged
g = 0
End Sub

Private Sub RadioButton35_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RadioButton35.CheckedChanged
g = 1
End Sub
Private Sub RadioButton36_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RadioButton36.CheckedChanged
g = 5
End Sub

Private Sub RadioButton37_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RadioButton37.CheckedChanged
g = 8
End Sub

Private Sub RadioButton38_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RadioButton38.CheckedChanged
g = 15
End Sub

Private Sub RadioButton39_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RadioButton39.CheckedChanged
h = 0
End Sub

Private Sub RadioButton40_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RadioButton40.CheckedChanged
k = 8
End Sub

Private Sub RadioButton41_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RadioButton41.CheckedChanged
l = 3
End Sub

Private Sub RadioButton42_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RadioButton42.CheckedChanged
n = 4
End Sub

Private Sub RadioButton43_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RadioButton43.CheckedChanged
o = 4
End Sub

Private Sub RadioButton44_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs)
p = 2
End Sub

Private Sub RadioButton45_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RadioButton45.CheckedChanged
r = 15
End Sub

Private Sub RadioButton46_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RadioButton46.CheckedChanged
s = 15
End Sub

Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
Label4.Visible = True
Label4.Text = (m + f + g + h + k + l + n + o + p + r + s)
End Sub

Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
Label5.Visible = True
Label5.Text = (100 / (100 – Label4.Text) * Label2.Text)
End Sub
End Class

“Anahat iş akış şeması” örneği

                                BEŞİK İÇİN ANA HAT AKIŞ ŞEMASI

• İşlem 1 : kasa sağ/sol/yan kesilmesi
• İşlem 2: kasa orta kesilmesi
• Muayene 1:kasa kontrol edilmesi
• İşlem 3: kasanın birleştirilmesi
• İşlem 4:alt trapez kesimi
• İşlem 5: alt trapez delinmesi
• İşlem 6:alt trapez montajı
• İşlem7: korkuluk montajlanması
• Muayene 2:korkuluk montajının kontrol edilmesi
• İşlem 8: başlıkların kesilmesi
• İşlem 9: başlıkların bantlanması     
• İşlem 10: başlıkların traşlanması
• İşlem 11: başlıkların temizlenmesi
• İşlem 12: başlıkların zımparalanması
•  İşlem 13: başlıkların astarlanması
• İşlem 14:  başlıkların boyanması
• İşlem 15:boyanan başlıklara vitray ile figür çizimi
• İşlem 16:çekmece ön/ arka kesilmesi
• İşlem 17:çekmece yan/ alt kesilmesi
• Muayene 3:çekmece parçalarının ebatlarının kontrolü
• İşlem 18:çekmece dliklerinin açılması
• İşlem 19:çekmece alnının frezelenmesi
• İşlem 20:çekmece alnının boyanması
• İşlem 21:çekmece montajlanması
• İşlem 22:kasa ile trapezin montajı
• İşlem 23:kasa ile korkuluğun montajı
• İşlem 24:kasa ile başlıkların montajı
• İşlem25:çekmecelerin takılması

 

 

anahat iş akış şeması hazırlanırken öncelikle işlemler ve sıraları belirlenir,daha sonra resimde de görüldüğü gibi en son ürünü oluşturacak şekilde işlemler bağlanır . 

 

Ana Üretim Programlama (MPS) Süreci

Toplu üretim planı kullanılarak, operasyonlara göre ana üretim programı oluşturulur. Bir Ana Üretim Programı, belirli bir zaman aralığında ne kadar son ürün üretileceğini belirtir. Son ürün, ya bitmiş üründür ya da sevk edilebilir yüksek-seviyeli montaj ürünüdür. Zaman aralıkları genelde haftadır fakat saat, gün ya da bazen ay olabilir.

Şekil ’de gösterilen Olası Ana Üretim Programı, operasyonların eldeki kaynaklarla (makine kapasiteleri, iş gücü, fazla mesai, taşeron gibi) toplu üretim planını karşılayıp karşılayamadığının denemesidir.  Ana Üretim Programı (MPS), tüm kaynaklar tarafından karşılanana kadar ya da daha iyi bir plan bulunamayana kadar gözden geçirilir. Sonunda, olası MPS geçerli MPS olarak kabul edilir. MPS aynı zamanda malzeme ihtiyaç planlamasının bir girdisidir.

Bir Ana Üretim Programcısı, toplu üretim planının amacını gerçekleştirecek bir MPS oluşturmakla sorumludur. Diğer sorumlulukları ise Tablo ’da gösterildiği gibidir. MPS süreci, ürüne ya da işleme odaklanmaya göre, şirketten şirkete değişmektedir.

Tablo 1. Ana Üretim Programcısının Sorumlulukları

Ana Üretim Programı (MPS)’i daha iyi anlatmak için bir bisiklet üreticisinin ana üretim programını ele alalım. Şirket özel tasarım bisiklet üretmemektedir, stoğa çalışmaktadır. Üretim planlama amaçları doğrultusunda, ürünlerini teker çapını temel alarak ailelere (gruplara) ayırmıştır. Ailelerden biri, 20 inç teker çapı grubudur ve 3 farklı tipi vardır: Alpha, Dirty ve Roadster. Apha, bisiklet sürmeyi yeni öğrenen çocuklar için tasarlanmıştır. Dirty, çıkartmalarla süslenmiş ve sert lastiklidir. Roadster’ın el freni, cilalı aluminyum çamurluğu ve dikiz aynası vardır. Bu grup bisiklet için olası örnek bir MPS Şekil 4.2’de gösterilmiştir. Dikkat edilirse Dirty sürekli yüksek hacimde üretilen bir ürünken, Alpha ve Roadster kesikli aralıklarla üretilen ürünlerdir. Tüm durumlarda parti büyüklükleri, montaj kapasitesi, talep, hazırlık maliyetleri, elde tutma maliyetleri gözetilerek hesaplanmıştır. Bu örnek MPS’in ana görevlerinden birini göstermektedir: üretim iş emirleri için bitiş tarihi ayarlamak. MPS’in diğer bir amacı da üretim planını destekleyen kaynakları ve malzemeleri ortaya çıkarmaktır. Örneğin, şekil 4.2’de 2.haftada Alpha’dan 1600 adet üretilmesi planlanmıştır. Bu demektir ki, 2.haftaya Alphadan 1600  adet iskelet, 3200 20-inç tekerlek ve ürün ağacındaki diğer malzemeler üretilecektir. Bu yüzden iyi bir MPS, işletmenin iş gücü, sermaye, kapasite ve malzeme gibi en değerli kaynaklarını etkili bir şekilde kullanmasını sağlar.

Bir Ana Üretim Programı, bazı kısıtları karşılamalıdır. Öncelikle, MPS’deki miktarların toplamı, toplu üretim planındakilere eşit olmalıdır. İkinci kısıt, toplam miktarın ürünlere dengeli olarak dağıtılmasıdır. Bu dağıtım geçmiş talebe, pazarlama ve promosyon çalışmalarına bağlıdır. Ayrıca kapasite kısıtları da önemlidir. Parti büyüklükleri ve zamanlama buna bağlıdır. Kapasite kaynakları üretim hacmini sınırlar.

Ana Üretim Planın Girdi ve Çıktıları

Ana Üretim Planı İçin;

1-  Üretim planının kapsayacağı zaman aralığı tespit edilir

2-  Ekonomik stok düzeyleri hesaplanır

3-  Talep tahminleri yapılır

4-  Plan dönemi başındaki ve sonundaki stok düzeyleri belirlenir

5-  Başlangıç ve bitiş stokları arasındaki fark bulunur

6-  Planlama dönemi içinde üretilmesi gereken miktar bulunur

7-  Üretilmesi gereken miktar dönem dilimlerine dağıtılır