your program list :
$regfile = "m8535.dat"
$crystal = 12000000
$baud = 19200
$hwstack = 32
$swstack = 10
$framesize = 40
Config Pina.0 = Input
Config Pina.1 = Input
Config Pina.2 = Input
Config Portb.0 = Output
Buzzer Alias Portb.0
Pina.0 = 0
Pina.1 = 0
Pina.2 = 0
Buzzer = 0
Dim A As Byte
Do
Wait 10
If Pina.0 = 1 Then
Buzzer = 1
Goto Kirim1
Waitms 250
End If
If Pina.0 = 0 Then
Buzzer = 0
Waitms 250
End If
If Pina.1 = 1 Then
Buzzer = 1
Goto Kirim2
Waitms 250
End If
If Pina.1 = 0 Then
Buzzer = 0
Waitms 250
End If
If Pina.2 = 1 Then
Buzzer = 1
Goto Kirim3
Waitms 250
End If
If Pina.2 = 0 Then
Buzzer = 0
Waitms 250
End If
Do
A = Inkey()
If A > 0 Then
Print "AT+CALM=a" ; A
Buzzer = 0
Loop Until A = 10
Wait 3600
End If
Loop
End
'---------------------------------------------------------------------
Kirim1:
Print "AT+CMGF=0"
Wait 5
Print "AT+CMGS=";
Print "47"
Wait 1
Print "0691268144059011000D91265872040988F50000A724617218042FBBF3F5791D0E6A87E7F535885DBE87E92078DA4DAF83C86578D80D";
Print Chr(26);
Print Chr(13);
Print Chr(10);
Print "AT+CMGF=0"
Wait 5
Print "AT+CMGS=";
Print "47"
Wait 1
Print "0691268144059011000D91261862570530F40000A724617218042FBBF3F5791D0E6A87E7F535885DBE87E92078DA4DAF83C86578D80D";
Print Chr(26);
Print Chr(13);
Print Chr(10);
Kirim2:
Print "AT+CMGF=0" 'PDU mode
Wait 5
Print "AT+CMGS=";
Print "49" 'panjang sms dalam PDU
Wait 1 'tunggu hp siap
Print "07912618485400F911000D91265872040988F50000A726617218042FBBF3F5791D0E6A87E7F535685D06D1DFEB37485E0FBBCFA075D81D7603"; 'smsc + pdu[ada penyusup masuk ke toko ruang kanan]
Print Chr(26); 'Ctrl+Z[kirim sms]
Print Chr(13);
Print Chr(10);
Print "AT+CMGF=0" 'PDU mode
Wait 5
Print "AT+CMGS=";
Print "49" 'panjang sms dalam PDU
Wait 1 'tunggu hp siap
Print "07912618485400F911000D91261862570530F40000A726617218042FBBF3F5791D0E6A87E7F535685D06D1DFEB37485E0FBBCFA075D81D7603"; 'smsc + pdu[ada penyusup masuk ke toko ruang kanan]
Print Chr(26); 'Ctrl+Z[kirim sms]
Print Chr(13);
Print Chr(10);
Kirim3:
Print "AT+CMGF=0" 'PDU mode
Wait 5
Print "AT+CMGS=";
Print "48" 'panjang sms dalam PDU
Wait 1 'tunggu hp siap
Print "07912618485400F911000D91265872040988F50000A725617218042FBBF3F5791D0E6A87E7F535685D06D1DFEB37485E0FBBCFA0755A9E06"; 'smsc + pdu[ada penyusup masuk ke toko ruang kiri]
Print Chr(26); 'Ctrl+Z[kirim sms]
Print Chr(13);
Print Chr(10);
Print "AT+CMGF=0" 'PDU mode
Wait 5
Print "AT+CMGS=";
Print "48" 'panjang sms dalam PDU
Wait 1 'tunggu hp siap
Print "07912618485400F911000D91261862570530F40000A725617218042FBBF3F5791D0E6A87E7F535685D06D1DFEB37485E0FBBCFA0755A9E06"; 'smsc + pdu[ada penyusup masuk ke toko ruang kiri]
Print Chr(26); 'Ctrl+Z[kirim sms]
Print Chr(13);
Print Chr(10);
reading your program :
there something weird :
1. First Do Loop , missing Loop statement
2. wait 3600 , are sure ?
↧