yonni’s electronics repairer

Electronics service repairer just for living

Posts Tagged ‘injection moulding’

TUTORIAL INJECTION MOULDING MACHINE

Posted by yonni1967 on September 3, 2009

Sign up for PayPal and start accepting credit card payments instantly.

Telah hadir buku / Tutorial yang anda tunggu-tunggu.

“ Exploring of Injection Moulding Machine “

Buku ini saya susun berdasarkan pengalaman sebagai teknisi mesin Injeksi selama 16 tahun. Kurun waktu tersebut bukanlah waktu yang singkat untuk dapat memahami dan menelanjangi teknologi mesin Injection. Dalam perjalanan tersebut saya sudah banyak disiksa dan kenyang makan asam garam mesin plastik dimana karir saya sebagai teknisi dimulai dengan menangani jenis mesin control relay mekanik sampai control microcomputer.
Tujuan mempublikasikan tutorial ini untuk membantu bagi anda yang baru terjun didunia cetak mencetak produk plastik dengan media mesin Injection disamping sebagai operator, setter atau teknisi lapangan yang baru terjun lantas bingung mencari informasi mesin tersebut.
Sebenarnya banyak informasi yang dapat anda peroleh via Internet namun terpotong-potong dan kurang terdefinisi bila dibandingkan dengan mesin yang anda hadapi. Tak heran karena seperti dunia elektronik, mesin Injection mengalami perkembangan pesat setiap tahunnya. Untuk itulah buku/tutorial ini saya susun secara terstruktur sehingga anda dapat menguasai teknologi mesin Injection secara cepat dan tepat.
Bagaimanakah cara anda mendapatkan buku ini ?. gampang berikut informasinya :

Judul buku : Exploring of Injection Moulding Machine.
Pengarang : Yonni Muhazir.
Bahasa pengantar : Bahasa Indonesia.
Tebal buku : 110 Halaman, Hard Cover.
Statistik buku :21.601 words, Arrial Narrow 12 Point, 1 space.
Kertas : A4, Sidu 70 grams, Cannon printing iP 1980.
Harga : Rp 200.000,-
Dalam kota bebas ongkos kirim.
Dalam propinsi Jatim dikenakan bea kirim Rp 15.000,-
Luar propinsi Jatim dikenakan bea kirim Rp 30.000,-

Cara pemesanan :
Via wessel pos alamatkan ke : Jalan Laksda Adi Sucipto gang 8 no 7 Malang 65125. Buku akan dikirim via paket pos 3 hari setelah uang dicairkan. Kenapa pakai cara tradisional ?. Cara lama lebih disukai karena relatif aman daripada open via transfer bank yang banyak resiko. Bila anda harus melakukan transfer, dapat via BCA yang terlebih dahulu telepon saya kemudian ikuti wizardnya.
Bila ada masalah dalam pengiriman atau lain hal, dapat kontak melalui HP XL 081 803 842 554 a/n : Yonni Muhazir. Atau email ke Yonni_1967@yahoo.co.id .

Mahal amat harga bukunya ?……itu mungkin komentar dalam hati anda………., ..…Sekedar informasi, berikut kalkulasinya :

Beaya cetak 110 halaman x 1000 = Rp 110.000,-
Beaya Hard cover = Rp 30.000,-
Lain lain Rp 15.000,- (beaya transportasi mondar-mandir)

Jadi saya hanya untung tak lebih dari Rp 60.000,- perbukunya dan itu sebagai kompensasi saya sebagai upah lembur mengetik dan lembur ngeprint dan yang terutama harga Informasi yang berharga demi untuk anda. Harga buku sebanding dengan kerja keras saya melekan tiap malam ngetik dan peluh keringat saya mengumpulkan informasi. Anda tidak akan kecewa deh, dari pada anda banyak menghabiskan uang di Internet surfing kesana-kemari. Untuk bahan pertimbangan ( seperti membeli kucing dalam sarung eh..karung dan membuat anda kecewa nanti ), sebelum memesan buku silakan mengintip isinya disini :


Harga dapat berubah-ubah sesuai harga kertas, harga tinta, dan perubahan lain hal. Jadi buruan pesan sekarang juga. Tunggu penerbitan jilid kedua dan ketiga yang tentunya lebih seru dan hot. Dijamin.

Jilid 2 ( Coming soon ) : Hidraulica of Injection Moulding Machine.
Jilid 3 ( Coming soon ) : Getting Start with Injection Moulding Machine.

Maaf tidak melayani pengiriman dalam bentuk soft copy. Semoga bermanfaat bagi semua. Amin……….

Posted in Component Tutorial, Know How, Solutions | Tagged: , , , | Comments Off on TUTORIAL INJECTION MOULDING MACHINE

Program sequence injection moulding machine

Posted by yonni1967 on January 28, 2009

Berikut listing program bascom AVR untuk injection moulding machine yang telah saya buat.
Ternyata enak ya pakai compiler Basic ini? Memprogram jadi menyenangkan dan semakin ingin lebih mendalam dibanding bahasa ‘C’ atau Asembler yang mbulet.
silakan coba!…$$$$$

Berikut listingnya :

‘———Program aplikasi sekuensi injection moulding machine——‘
‘Dibuat oleh : Yonni Muhazir
‘Nim : 0510450391/E
‘Fakultas teknik / elektronika
‘Uwiga Malang, January 2009
‘———————————————————————‘

$regfile = “m8535.dat”
$crystal = 4000000
$baud = 9600

Dim Automatis As Bit , Y1 As Bit , Ls_close As Bit ‘Y1 adalah coil mold closing– output portb.0/ y1 ‘
Config Porta = Input
Set Porta.0
Port A.0 Alias Automatis
Port A.1 Alias Ls_close ‘automatis tombol start automatis–input porta.0’
Config Portb = Output
Set Portb.0
Portb.0 Alias Y1

Do

If Automatis = 1 Then
Y1 = 1
Else
If Ls_close = 1 Then ‘ls_close adalah stop closing–input port : input porta.1’
Y1 = 0
End If
End If

Dim Ls_clamping As Bit , Y2 As Bit ‘y2 adalah yoke clamping–portb.1’
Set Porta.2
Porta.2 Alias Ls_clamping ‘ls_clamping ;input porta.2
Set Portb.1 Alias Y2
Port A.2 Alias Ls_clamping
If Ls_clamping = 1 Then
Y2 = 1
Else
Waitms 100
Print “timer clamping” ‘timer generation clamping
End If

Dim , Y3 As Bit , Ls_iu_stop As Bit ‘y3=yoke IU maju–output portb.2’,
Set Porta.3
Porta.3 Alias Ls_iu_stop ‘Ls IU maju stop– input porta.3
Set Portb.2
Portb.2 Alias Y3
If Y2 = 0 Then
Y3 = 1
Else
If Ls_iu_stop = 1 Then
Y3 = 0
End If
End If

Dim Y4 As Bit , Ls_inj_end As Bit
Set Porta.4 ‘ls_inj_end = input porta.4,
Porta.4 Alias Ls_inj_end ‘y4=yoke injection-output portb.4’
Set Portb.4
Portb.4 Alias Injection Yoke
If Y3 = 0 Then
Y4 = 1
Else
Waitms 200 ‘timer injection berjalan 500ms’
Print “timer injection on”
If Ls_inj_end = 1 Then
Y4 = 0
End If
End If

Dim Plasticizing As Bit , Ls_plast As Bit , Decomp As Bit , Ls_decomp As Bit , Cooling As Bit
Set Portb.5
Portb.5 Alias Plasticizing ‘y5 =plasticizing – output portb.5’
Set Porta.5
Porta.5 Alias Ls_plast ‘ ls_stop plasticizing – input porta.5’
Set Portb.6
Portb.6 Alias Decomp ‘ y6-decompression : output portb.6
Set Porta.6
Porta.6 Alias Ls_decomp ‘ ls decompression stop ; input port a.6

If Y4 = 0 Then
Plasticizing = 1 ‘ saat plasticizing,
Else
If Ls_plast = 1 Then ‘ plasticizing berhenti
Plasticizing = 0
Else
If Ls_plast = 1 Then

Else
If Plasticizing = 0 Then
Decomp = 1

Else
If Ls_plast = 1 Then ‘mundurkan decompresi’
Decomp = 0

End
End If
End If
End If
End If
End If

Waitms 300 ‘ cooling time berjalan’
Print ” cooling time runing”

Dim Iu_ret As Bit , Ls_iu_ret_stop As Bit , Mold_opn As Bit , Ls_opn_stp As Bit

Set Portb.7
Portb.7 Alias Iu_ret ‘yoke injection unit mundur output portb.7’
Set Porta.7
Porta.7 Alias Ls_iu_ret_stop ‘ls IU stop mundur input porta.7’

Config Portc = Output ‘konfigurasi pin port c sebagai output’
Config Portd = Input ‘konfigurasi portd sebagai input’

Set Portc.0
Portc.0 Alias Mold_opn ‘yoke mold open–output portc.0’
Set Portd.0
Portd.0 Alias Ls_opn_stop ‘ls_open stop mold–input portd.0

If Decomp = 0 Then
Iu_ret = 1 ‘injection unit mundur
Else
If Ls_iu_ret_stop = 1 Then
Mold_opn = 1 ‘mould membuka penuh sampai ls stop tertekan’
Else
If Ls_opn_stp = 1 Then
Mold_opn = 0
End If
End If
End If

Dim Eject_maju As Bit , Eject_mundur As Bit , Ls_eject_maju As Bit , Ls_eject_mundur As Bit
Dim Multi_eject As Integer
Set Portc.1
Portc.1 Alias Eject_maju ‘portc.1 = eject maju – output portc.1’
Set Portd.1
Portd.1 Alias Ls_eject_maju ‘ls_eject maju = input portd.1
Set Portc.2
Portc.2 Alias Eject_mundur ‘ yoke eject_mundur = output_eject_mundur = output portd.2
Set Portd.2
Portd.2 Alias Ls_eject_mundur ‘ ls_stop_eject_mundur = input portd.2

For Multi_eject = 147 To 157 Step 3 ‘perintah multi eject/maju-mundur 3 step’

If Ls_opn_stp = 1 Then
Eject_maju = 1 ‘ejector maju sampai ls stop,
Else
If Ls_eject_maju = 1 Then
Eject_maju = 0
Else
If Ls_eject_maju = 1 Then
Eject_mundur = 1 ‘ejector mundur’
Else
If Ls_eject_mundur = 1 Then
Eject_mundur = 0
End If
End If
End If
End If
Next

Print “Pause_time”
Waitms 340

Loop ‘perintah kembali ke program awal—begitu seterusnya’

End ‘end program’———Program aplikasi sekuensi injection moulding machine——‘
‘Dibuat oleh : Yonni Muhazir
‘Nim : 0510450391/E
‘Fakultas teknik / elektronika
‘Uwiga January Malang 2009
‘———————————————————————‘

$regfile = “m8535.dat”
$crystal = 4000000
$baud = 9600

Dim Automatis As Bit , Y1 As Bit , Ls_close As Bit ‘Y1 adalah coil mold closing– output portb.0/ y1 ‘
Config Porta = Input
Set Porta.0
Port A.0 Alias Automatis
Port A.1 Alias Ls_close ‘automatis tombol start automatis–input porta.0’
Config Portb = Output
Set Portb.0
Portb.0 Alias Y1
If Automatis = 1 Then
Y1 = 1
Else
If Ls_close = 1 Then ‘ls_close adalah stop closing–input port : input porta.1’
Y1 = 0
End If
End If

Dim Ls_clamping As Bit , Y2 As Bit ‘y2 adalah yoke clamping–portb.1’
Set Porta.2
Porta.2 Alias Ls_clamping ‘ls_clamping ;input porta.2
Set Portb.1 Alias Y2
Port A.2 Alias Ls_clamping
If Ls_clamping = 1 Then
Y2 = 1
Else
Waitms 100
Print “timer clamping” ‘timer generation clamping
End If

Dim , Y3 As Bit , Ls_iu_stop As Bit ‘y3=yoke IU maju–output portb.2’,
Set Porta.3
Porta.3 Alias Ls_iu_stop ‘Ls IU maju stop– input porta.3
Set Portb.2
Portb.2 Alias Y3
If Y2 = 0 Then
Y3 = 1
Else
If Ls_iu_stop = 1 Then
Y3 = 0
End If
End If

Dim Y4 As Bit , Ls_inj_end As Bit
Set Porta.4 ‘ls_inj_end = input porta.4,
Porta.4 Alias Ls_inj_end ‘y4=yoke injection-output portb.4’
Set Portb.4
Portb.4 Alias Injection Yoke
If Y3 = 0 Then
Y4 = 1
Else
Waitms 200 ‘timer injection berjalan 500ms’
Print “timer injection on”
If Ls_inj_end = 1 Then
Y4 = 0
End If
End If

Dim Plasticizing As Bit , Ls_plast As Bit , Decomp As Bit , Ls_decomp As Bit , Cooling As Bit
Set Portb.5
Portb.5 Alias Plasticizing ‘y5 =plasticizing – output portb.5’
Set Porta.5
Porta.5 Alias Ls_plast ‘ ls_stop plasticizing – input porta.5’
Set Portb.6
Portb.6 Alias Decomp ‘ y6-decompression : output portb.6
Set Porta.6
Porta.6 Alias Ls_decomp ‘ ls decompression stop ; input port a.6

If Y4 = 0 Then
Plasticizing = 1 ‘ saat plasticizing,
Else
If Ls_plast = 1 Then ‘ plasticizing berhenti
Plasticizing = 0
Else
If Ls_plast = 1 Then

Else
If Plasticizing = 0 Then
Decomp = 1

Else
If Ls_plast = 1 Then ‘mundurkan decompresi’
Decomp = 0

End
End If
End If
End If
End If
End If

Waitms 300 ‘ cooling time berjalan’
Print ” cooling time runing”

Dim Iu_ret As Bit , Ls_iu_ret_stop As Bit , Mold_opn As Bit , Ls_opn_stp As Bit

Set Portb.7
Portb.7 Alias Iu_ret ‘yoke injection unit mundur output portb.7’
Set Porta.7
Porta.7 Alias Ls_iu_ret_stop ‘ls IU stop mundur input porta.7’

Config Portc = Output ‘konfigurasi pin port c sebagai output’
Config Portd = Input ‘konfigurasi portd sebagai input’

Set Portc.0
Portc.0 Alias Mold_opn ‘yoke mold open–output portc.0’
Set Portd.0
Portd.0 Alias Ls_opn_stop ‘ls_open stop mold–input portd.0

If Decomp = 0 Then
Iu_ret = 1 ‘injection unit mundur
Else
If Ls_iu_ret_stop = 1 Then
Mold_opn = 1 ‘mould membuka penuh sampai ls stop tertekan’
Else
If Ls_opn_stp = 1 Then
Mold_opn = 0
End If
End If
End If

Dim Eject_maju As Bit , Eject_mundur As Bit , Ls_eject_maju As Bit , Ls_eject_mundur As Bit

Set Portc.1
Portc.1 Alias Eject_maju ‘portc.1 = eject maju – output portc.1’
Set Portd.1
Portd.1 Alias Ls_eject_maju ‘ls_eject maju = input portd.1
Set Portc.2
Portc.2 Alias Eject_mundur ‘ yoke eject_mundur = output_eject_mundur = output portd.2
Set Portd.2
Portd.2 Alias Ls_eject_mundur ‘ ls_stop_eject_mundur = input portd.2

If Ls_opn_stp = 1 Then
Eject_maju = 1
Else
If Ls_eject_maju = 1 Then
Eject_maju = 0
Else
If Ls_eject_maju = 1 Then
Eject_mundur = 1
Else
If Ls_eject_mundur = 1 Then
Eject_mundur = 0
End If
End If
End If
End If

Print “Pause_time”
Waitms 340

Goto 20
End

End ‘end program

Posted in Useful Info | Tagged: , | Leave a Comment »