BS2 Phone Dialer

The BS2-IC

My first project is a small interface to dial a phone number by windows. I use the basic stamp 2 (BS2), you can use the kit from parallax at: http://www.parallax.com/detail.asp?product_id=27291. The software is made in VB6 ( you can dowload the source code for free), you need a serial cable pluged to the COM1 port. Good luck..

 

The Windows Software make with Delphi Download the software

The Source code for Visual Basic 6 Download the source code

The Basic Stamp 2 script:

' BS2 phone Dialer (Aiglon Software) ' ' '{$STAMP BS2} a VAR Byte worka VAR Byte workb VAR Byte numero VAR Byte(18) pas VAR Byte pas = 0 start: SERIN 16\15,$54,[a] IF a=49 THEN t1 IF a=50 THEN t2 IF a=51 THEN t3 IF a=52 THEN t4 IF a=53 THEN t5 IF a=54 THEN t6 IF a=55 THEN t7 IF a=56 THEN t8 IF a=57 THEN t9 IF a=48 THEN t10 IF a=42 THEN t11 IF a=35 THEN t12 IF a=32 THEN redial IF a=27 THEN efface GOTO start t1: DTMFOUT 0, 150 ,30, [1] SEROUT 1,396,["1"] pas = pas + 1 numero(pas) = 1 GOTO start t2: DTMFOUT 0, 150 ,30, [2] SEROUT 1,396,["2"] pas = pas + 1 numero(pas) = 2 GOTO start t3: DTMFOUT 0, 150 ,30, [3] SEROUT 1,396,["3"] pas = pas + 1 numero(pas) = 3 GOTO start t4: DTMFOUT 0, 150 ,30, [4] SEROUT 1,396,["4"] pas = pas + 1 numero(pas) = 4 GOTO start t5: DTMFOUT 0, 150 ,30, [5] SEROUT 1,396,["5"] pas = pas + 1 numero(pas) = 5 GOTO start t6: DTMFOUT 0, 150 ,30, [6] SEROUT 1,396,["6"] pas = pas + 1 numero(pas) = 6 GOTO start t7: DTMFOUT 0, 150 ,30, [7] SEROUT 1,396,["7"] pas = pas + 1 numero(pas) = 7 GOTO start t8: DTMFOUT 0, 150 ,30, [8] SEROUT 1,396,["8"] pas = pas + 1 numero(pas) = 8 GOTO start t9: DTMFOUT 0, 150 ,30, [9] SEROUT 1,396,["9"] pas = pas + 1 numero(pas) = 9 GOTO start t10: DTMFOUT 0, 150 ,30, [0] SEROUT 1,396,["0"] pas = pas + 1 numero(pas) = 10 GOTO start t11: DTMFOUT 0, 150 ,30, [10] SEROUT 1,396,["*"] pas = pas + 1 numero(pas) = 11 GOTO start t12: DTMFOUT 0, 150 ,30, [11] SEROUT 1,396,["#"] pas = pas + 1 numero(pas) = 12 GOTO start efface: SEROUT 1,396,[254,1] pas = 0 GOTO start redial: IF pas = 0 THEN start 'SEROUT 1,396,[254,1] a = 1 bleue: IF numero(a)=1 THEN d1 IF numero(a)=2 THEN d2 IF numero(a)=3 THEN d3 IF numero(a)=4 THEN d4 IF numero(a)=5 THEN d5 IF numero(a)=6 THEN d6 IF numero(a)=7 THEN d7 IF numero(a)=8 THEN d8 IF numero(a)=9 THEN d9 IF numero(a)=10 THEN d10 IF numero(a)=11 THEN d11 IF numero(a)=12 THEN d12 labas: a = a + 1 IF a>pas THEN start GOTO bleue DO: DTMFOUT 0, 100 ,30, [0] GOTO labas d1: DTMFOUT 0, 100 ,30, [1] GOTO labas d2: DTMFOUT 0, 100 ,30, [2] GOTO labas d3: DTMFOUT 0, 100 ,30, [3] GOTO labas d4: DTMFOUT 0, 100 ,30, [4] GOTO labas d5: DTMFOUT 0, 100 ,30, [5] GOTO labas d6: DTMFOUT 0, 100 ,30, [6] GOTO labas d7: DTMFOUT 0, 100 ,30, [7] GOTO labas d8: DTMFOUT 0, 100 ,30, [8] GOTO labas d9: DTMFOUT 0, 100 ,30, [9] GOTO labas d10: DTMFOUT 0, 100 ,30, [0] GOTO labas d11: DTMFOUT 0, 100 ,30, [10] GOTO labas d12: DTMFOUT 0, 100 ,30, [11] GOTO labas
Download the script

Connection Diagram

The electronic Diagram:

Use the pin #P0
 

The kit #28102 available at Abra-electronics