صندلی داغ - یه نفر

[sonixax]

1- مرفه بی درد!

:)))
نه اتفاقن زیاد سردرد میگیرم :دی

سوالهای من :

1 - به جز ایران - کدام کشور را برای زندگی میپسندید ؟!
2 - خوراک ایرانی را بیشتر میپسندید یا فرنگی ؟!
3 - ساعت مکانیکی یا دیجیتالی ؟! :دی
4 - اگر به شما یک فرصت دوباره برای زندگی داده شود همین راه را در پیش میگیرید یا راه دیگری را ؟!
5 - تا به حال کتک کاری کرده اید ؟!
6 - اگر در لاتاری 5 میلیون دلار برنده شوید با آن پول چه میکنید ؟!
7 - در هنگام بروز شرایط دشوار خونسردی خود را حفظ میکنید یا دستپاچه میشوید ؟!

[Mehrbod]

[یه نفر]

1 - به جز ایران - کدام کشور را برای زندگی میپسندید ؟!

ایتالیا (میلان) - فرانسه (پاریس) - آمریــکــا (هر ده کوره ای که شد )

2 - خوراک ایرانی را بیشتر میپسندید یا فرنگی ؟!

خوراک خوشمزه... :-) ایرانی سنتی فقیرانه دوس ندارم....
خوراک فرنگی رو بیشتر دوس دارم...

3 - ساعت مکانیکی یا دیجیتالی ؟!

مکانیکی :-) اصالت داره!

4 - اگر به شما یک فرصت دوباره برای زندگی داده شود همین راه را در پیش میگیرید یا راه دیگری را ؟!

نمیدونم. شاید راه دیگری.. به شرطی که تجربه و عقل الانم رو داشته باشم.. نه چندسال پیشم..

5 - تا به حال کتک کاری کرده اید ؟!

بله. حســابی... ولی نه تازگیا.. دوران بلوغ و ..
:-)

6 - اگر در لاتاری 5 میلیون دلار برنده شوید با آن پول چه میکنید ؟!

قطعا میرم مسافرت.. دورترین نقطه دنیا
این جزیره رو خیلی دوس دارم.. تازگیا پیداش کردم :-)))))))

7 - در هنگام بروز شرایط دشوار خونسردی خود را حفظ میکنید یا دستپاچه میشوید ؟!

حفظ میکنم.. بهتر بگم. بیخیالم.. :-)
خیلی مسئله سخت و پیچیده باید باشه تا دستپاچه بشم.. :-)

[یه نفر]

انگیزه اتان از ساخت این ساعت چه بوده بانو؟

یک ساعت زیبا و منحصر به فرد و جذاب..
قصدم این بود که نمونه های تجاریشو بسازم و بفروشم توی بازار..
همین کار رو هم کردم. چندتای فروختم..
بنا به درخواست چندنفر تکنولوژی ساختشو بهشون فروختم و با یکی از هم کلاسی های سابقم شریک شدم و کاملا طرحمو بهش دادم... الان یکه تازی میکنه :-)
فیلم نمونه ساعتمو چجوری بگذارم اینجا ببینید؟

همچنین این ٢٤٠ رژ[1] کد را بیاورید ببینیم چه بوده!

همشو که نمیتونم بگذارم اینجا. ولی بعضی جاهاشو میگذارم
اینا که ساده ست
$regfile = "m32def.dat"
$crystal = 1000000
$lib "mcsbyte.lbx" ' for smaller code
$lib "ds1307clock.lib" ' modified lib


Enable Interrupts
Dim Q As Byte
Dim A As Byte
Dim I As Byte
Dim H1 As Byte
Dim H2 As Byte
Dim M1 As Byte
Dim M2 As Byte
Dim S1 As Byte
Dim S2 As Byte
Dim B As Byte
Dim Z As Byte
Dim Ii As Byte

============
Settime:
I2cstart ' Generate start code
I2cwbyte Ds1307w ' send address
I2cwbyte 0 ' start address in 1307


I2cstart ' Generate start code
I2cwbyte Ds1307r ' send address
I2crbyte _sec , Ack
I2crbyte _min , Ack ' MINUTES
I2crbyte _hour , Nack
I2cstop
_sec = Makedec(_sec) : _min = Makedec(_min) : _hour = Makedec(_hour)
' Return


Select Case _hour
Case 10 To 19 :
H1 = _hour - 10
H2 = 1
Case 20 To 23 :
H1 = _hour - 20
H2 = 2
Case Else :
H1 = _hour
H2 = 0
End Select


Porta = 0
Portb = Lookup(h1 , D)
Waitms 10


Porta = 1
Portb = Lookup(h2 , D)
Waitms 10


Porta = 2
Portb = Lookup(m1 , D)
Waitms 10


Porta = 3
Portb = Lookup(m2 , D)
Waitms 10


Porta = 4
Portb = Lookup(s1 , D)
Waitms 10


Porta = 5
Portb = Lookup(s2 , D)
Waitms 10






If _sec = 1 Or _sec = 3 Or _sec = 5 Or _sec = 7 Or _sec = 9 Or _sec = 11 _
Or _sec = 13 Or _sec = 15 Or _sec = 17 Or _sec = 19 Or _sec = 21 Or _sec = 23 _
Or _sec = 25 Or _sec = 27 Or _sec = 29 Or _sec = 31 Or _sec = 33 Or _sec = 35 _
Or _sec = 37 Or _sec = 39 Or _sec = 41 Or _sec = 43 Or _sec = 45 Or _sec = 47 _
Or _sec = 49 Or _sec = 51 Or _sec = 53 Or _sec = 55 Or _sec = 57 Or _sec = 59 Then
Set Portc.3
Else
Reset Portc.3
End If


Loop


End


D:
Data 64 , 121 , 36 , 48 , 25 , 18 , 2 , 120 , 0 , 16


Sectic:
Select Case _sec
Case 1 To 8:
Portc = 0
Shift Portd , Left
Reset Portd.0
If _sec = 8 Then
Portc = 1
Portd = 255
End If
Case 9 To 16:
Shift Portd , Left
Reset Portd.0
If _sec = 16 Then
Portc = 2
Portd = 255
End If
Case 17 To 24:
Shift Portd , Left
Reset Portd.0
If _sec = 24 Then
Portc = 3
Portd = 255
End If
Case 25 To 32:
Shift Portd , Left
Reset Portd.0
If _sec = 32 Then
Portc = 4
Portd = 255
End If
Case 33 To 40:
Shift Portd , Left
Reset Portd.0
If _sec = 40 Then
Portc = 5
Portd = 255
End If
Case 41 To 48:
Shift Portd , Left
Reset Portd.0
If _sec = 48 Then
Portc = 6
Portd = 255
End If
Case 49 To 56:
Shift Portd , Left
Reset Portd.0
If _sec = 56 Then
Portc = 7
Portd = 255
End If

[یه نفر]

بفرما. این نمونه ساعتم هست. این هم اتاق خودم هست
نمیدونم چرا اینقدر ساعتم برای شما عجیب هست؟!
لینک دانلود
Video0317.mp4 - Speedy Share - upload your files here

[kourosh_bikhoda]

ابتکار خوبیه. آفرین.
ولی ایرادی که من میگیرم نور شدیدش هست که چشم رو اذیت میکنه یا مثلن در زمان خواب ممکنه باعث مزاحمت بشه.
ضمنن خیلی رنگی رنگی هست. شهره فرنگ درست کردید. یه کم مردونش میکردید بابا

[یه نفر]

ابتکار خوبیه. آفرین.
ولی ایرادی که من میگیرم نور شدیدش هست که چشم رو اذیت میکنه یا مثلن در زمان خواب ممکنه باعث مزاحمت بشه.
ضمنن خیلی رنگی رنگی هست. شهره فرنگ درست کردید. یه کم مردونش میکردید بابا

مرسی.
همچین رنگی رنگی نیست. اعداد قرمز
ثانیه ها نارنجی و ثانیه های ضریب 5 هم آبی..
کلی فکر کردم این شده... درضمن نمیشه گفت طرح اولیه اش مال خودمه. نه. من از یک برنامه فلش موبایل این طرح رو دیدم.. وقتی که کاملا ساختم، دیدم نمونه هاش هم توی نت هست.. ولی خب با من فرق داره ....

یه جورایی کاربردش توی اداره ها و مغازه هاست که نیاز به نور دارند.. توی خونه هم باید کم نورتر بشه. واسش کلید تنظیم نور گذاشتم..

[Howard]

1-رشته تحصیلیتون چیه؟
2-چطور شد به فکر ساختن ساعت LED افتادید؟
3-من فکر میکنم ساعتی که ساختید هیچ چیز جدیدی واسه گفتن نداره با توجه به مدل هایی که دیدم . اگه اشتباه میکنم بهم بگید.
LED watch
4- من قبلا با شما گفت و گو داشتم یادتون میاد؟
5-از اینکه تو این فروم فعالیت میکنید نمیترسید؟

[یه نفر]

1-رشته تحصیلیتون چیه؟

بیوالکتریک

2-چطور شد به فکر ساختن ساعت LED افتادید؟

من از یک برنامه فلش موبایل این طرح رو دیدم.. وقتی که کاملا ساختم، دیدم نمونه هاش هم توی نت هست.. ولی خب با من فرق داره ....

:-)

5-از اینکه تو این فروم فعالیت میکنید نمیترسید؟

حرف بدی نمیزنم که بترسم! خدا باورم - اتفاقا تبلیغ اسلام هم میکنم - در جریان اثبات وجود خدا برای جمعیت خداناباوران در این راه شهید هم شدم! :-( - طرفدار دولت و کشور و مردمم هم هستم.. -
با این حال مملکت آزادی داریم و آزادی بیان هست :-) ترسی هم ندارم.. دوران متحجران تموم شده. الان همون پلیس سایبری هم میدونه که هر حرفی مجازات نداره..

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

4- من قبلا با شما گفت و گو داشتم یادتون میاد؟

بله. در پیج مبارزه با مردستیزی فیسبوک. که به واسطه من با این فروم آشنا شدید.. :-) هرچند آخرش نفهمیدم شما در اون مباحث طولانی طرفدار من بودید یا طرفدار اینها!

[Howard]

1-تا چه مقطعی خوندید.
2-از چه سبک موسیقی خوشتون میاد